home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD1296612232000.psc / ConVer.Frm (.txt) next >
Encoding:
Visual Basic Form  |  2000-10-03  |  9.7 KB  |  364 lines
  1. VERSION 5.00
  2. Object = "{A48A1D86-6463-4F3A-B152-6051F2FA65A1}#1.0#0"; "GURHANCOOLBUTTON.OCX"
  3. Begin VB.Form ConVer 
  4.    BackColor       =   &H00808080&
  5.    BorderStyle     =   4  'Fixed ToolWindow
  6.    Caption         =   "Conversions"
  7.    ClientHeight    =   3480
  8.    ClientLeft      =   2220
  9.    ClientTop       =   4110
  10.    ClientWidth     =   8160
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    PaletteMode     =   1  'UseZOrder
  15.    Picture         =   "ConVer.frx":0000
  16.    ScaleHeight     =   3480
  17.    ScaleWidth      =   8160
  18.    Begin Gurhan_Cool_Button.GurhanCoolButton GurhanCoolButton2 
  19.       Height          =   375
  20.       Left            =   5520
  21.       TabIndex        =   13
  22.       Top             =   3110
  23.       Width           =   2415
  24.       _ExtentX        =   4260
  25.       _ExtentY        =   661
  26.       CaptionTitle    =   "Close"
  27.       Picture         =   "ConVer.frx":5C0E2
  28.       UseBorders      =   0   'False
  29.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  30.          Name            =   "MS Sans Serif"
  31.          Size            =   8.25
  32.          Charset         =   0
  33.          Weight          =   400
  34.          Underline       =   0   'False
  35.          Italic          =   0   'False
  36.          Strikethrough   =   0   'False
  37.       EndProperty
  38.       BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  39.          Name            =   "MS Sans Serif"
  40.          Size            =   8.25
  41.          Charset         =   0
  42.          Weight          =   400
  43.          Underline       =   0   'False
  44.          Italic          =   0   'False
  45.          Strikethrough   =   0   'False
  46.       EndProperty
  47.    End
  48.    Begin Gurhan_Cool_Button.GurhanCoolButton GurhanCoolButton1 
  49.       Height          =   255
  50.       Left            =   0
  51.       TabIndex        =   12
  52.       Top             =   3120
  53.       Width           =   4455
  54.       _ExtentX        =   7858
  55.       _ExtentY        =   450
  56.       CaptionTitle    =   "Convert"
  57.       Picture         =   "ConVer.frx":5F014
  58.       UseBorders      =   0   'False
  59.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  60.          Name            =   "MS Sans Serif"
  61.          Size            =   8.25
  62.          Charset         =   0
  63.          Weight          =   400
  64.          Underline       =   0   'False
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  69.          Name            =   "MS Sans Serif"
  70.          Size            =   8.25
  71.          Charset         =   0
  72.          Weight          =   400
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.    End
  78.    Begin VB.OptionButton Option8 
  79.       BackColor       =   &H00000000&
  80.       Caption         =   "Mile to Kilometer"
  81.       ForeColor       =   &H00E0E0E0&
  82.       Height          =   255
  83.       Left            =   3720
  84.       TabIndex        =   9
  85.       Top             =   1440
  86.       Width           =   2895
  87.    End
  88.    Begin VB.OptionButton Option7 
  89.       BackColor       =   &H00000000&
  90.       Caption         =   "Yard to Meter"
  91.       ForeColor       =   &H00E0E0E0&
  92.       Height          =   195
  93.       Left            =   3720
  94.       TabIndex        =   8
  95.       Top             =   1200
  96.       Width           =   3015
  97.    End
  98.    Begin VB.OptionButton Option6 
  99.       BackColor       =   &H00000000&
  100.       Caption         =   "Foot to Meter"
  101.       ForeColor       =   &H00E0E0E0&
  102.       Height          =   195
  103.       Left            =   3720
  104.       TabIndex        =   7
  105.       Top             =   960
  106.       Width           =   3015
  107.    End
  108.    Begin VB.OptionButton Option5 
  109.       BackColor       =   &H00000000&
  110.       Caption         =   "Inch to Millimeter"
  111.       ForeColor       =   &H00E0E0E0&
  112.       Height          =   255
  113.       Left            =   3720
  114.       TabIndex        =   6
  115.       Top             =   720
  116.       Width           =   3015
  117.    End
  118.    Begin VB.OptionButton Option4 
  119.       BackColor       =   &H00000000&
  120.       Caption         =   "Millimeter to Inch"
  121.       ForeColor       =   &H00E0E0E0&
  122.       Height          =   255
  123.       Left            =   240
  124.       TabIndex        =   5
  125.       Top             =   720
  126.       Width           =   3135
  127.    End
  128.    Begin VB.OptionButton Option3 
  129.       BackColor       =   &H00000000&
  130.       Caption         =   "Kilometer to Mile"
  131.       ForeColor       =   &H00E0E0E0&
  132.       Height          =   255
  133.       Left            =   240
  134.       TabIndex        =   4
  135.       Top             =   1440
  136.       Width           =   3135
  137.    End
  138.    Begin VB.TextBox Text3 
  139.       Alignment       =   1  'Right Justify
  140.       BackColor       =   &H00000000&
  141.       ForeColor       =   &H00FFFFFF&
  142.       Height          =   285
  143.       Left            =   3720
  144.       TabIndex        =   1
  145.       Text            =   "Your Answer"
  146.       Top             =   360
  147.       Width           =   3495
  148.    End
  149.    Begin VB.TextBox Text1 
  150.       Alignment       =   1  'Right Justify
  151.       BackColor       =   &H00000000&
  152.       ForeColor       =   &H00FFFFFF&
  153.       Height          =   285
  154.       Left            =   240
  155.       TabIndex        =   0
  156.       Text            =   "1"
  157.       Top             =   360
  158.       Width           =   3255
  159.    End
  160.    Begin VB.OptionButton Option2 
  161.       BackColor       =   &H00000000&
  162.       Caption         =   "Meters to Yards"
  163.       ForeColor       =   &H00E0E0E0&
  164.       Height          =   255
  165.       Left            =   240
  166.       TabIndex        =   3
  167.       Top             =   1200
  168.       Width           =   3135
  169.    End
  170.    Begin VB.OptionButton Option1 
  171.       BackColor       =   &H00000000&
  172.       Caption         =   "Centimeter to Inch"
  173.       ForeColor       =   &H00E0E0E0&
  174.       Height          =   255
  175.       Left            =   240
  176.       TabIndex        =   2
  177.       Top             =   960
  178.       Width           =   3135
  179.    End
  180.    Begin VB.Line Line2 
  181.       BorderColor     =   &H00FFFFFF&
  182.       X1              =   3600
  183.       X2              =   3600
  184.       Y1              =   120
  185.       Y2              =   3000
  186.    End
  187.    Begin VB.Label Label1 
  188.       BackColor       =   &H00000000&
  189.       Caption         =   "Type Here:"
  190.       ForeColor       =   &H00E0E0E0&
  191.       Height          =   255
  192.       Left            =   240
  193.       TabIndex        =   10
  194.       Top             =   120
  195.       Width           =   3255
  196.    End
  197.    Begin VB.Label Label2 
  198.       BackColor       =   &H00000000&
  199.       Caption         =   "Read the Output Here:"
  200.       ForeColor       =   &H00E0E0E0&
  201.       Height          =   255
  202.       Left            =   3720
  203.       TabIndex        =   11
  204.       Top             =   120
  205.       Width           =   3135
  206.    End
  207.    Begin VB.Line Line1 
  208.       X1              =   3360
  209.       X2              =   3360
  210.       Y1              =   1560
  211.       Y2              =   600
  212.    End
  213. Attribute VB_Name = "ConVer"
  214. Attribute VB_GlobalNameSpace = False
  215. Attribute VB_Creatable = False
  216. Attribute VB_PredeclaredId = True
  217. Attribute VB_Exposed = False
  218. Private Sub Command1_Click()
  219. Unload ConVer
  220. End Sub
  221. Private Sub Command2_Click()
  222. If Option5 = True Then
  223. Text3 = Text1 * 25.4
  224. GoTo Next4305
  225. End If
  226. If Option6 = True Then
  227. Text3 = Text1 * 0.3048
  228. GoTo Next4305
  229. End If
  230. If Option7 = True Then
  231. Text3 = Text1 * 0.9144
  232. GoTo Next4305
  233. End If
  234. If Option8 = True Then
  235. Text3 = Text1 * 1.609
  236. GoTo Next4305
  237. End If
  238. If Option1 = True Then
  239. Text3 = Text1 * 0.394
  240. GoTo Next4305
  241. End If
  242. If Option3 = True Then
  243. Text3 = Text1 * 0.6214
  244. GoTo Next4305
  245. End If
  246. If Option4 = True Then
  247. Text3 = Text1 * 0.039
  248. GoTo Next4305
  249. End If
  250. If Option2 = True Then
  251. Text3 = Text1 * 1.094
  252. MsgBox "Nothing to do"
  253. End If
  254. Next4305:
  255. End Sub
  256. Private Sub Image2_Click()
  257. On Error GoTo Next4306
  258. If Option5 = True Then
  259. Text3 = Text1 * 25.4
  260. GoTo Next4305
  261. End If
  262. If Option6 = True Then
  263. Text3 = Text1 * 0.3048
  264. GoTo Next4305
  265. End If
  266. If Option7 = True Then
  267. Text3 = Text1 * 0.9144
  268. GoTo Next4305
  269. End If
  270. If Option8 = True Then
  271. Text3 = Text1 * 1.609
  272. GoTo Next4305
  273. End If
  274. If Option1 = True Then
  275. Text3 = Text1 * 0.394
  276. GoTo Next4305
  277. End If
  278. If Option3 = True Then
  279. Text3 = Text1 * 0.6214
  280. GoTo Next4305
  281. End If
  282. If Option4 = True Then
  283. Text3 = Text1 * 0.039
  284. GoTo Next4305
  285. End If
  286. If Option2 = True Then
  287. Text3 = Text1 * 1.094
  288. MsgBox "Nothing to do"
  289. End If
  290. Next4305:
  291. GoTo Next4307
  292. Next4306:
  293. MsgBox "There was a Error. Restart the Program"
  294. Return
  295. Next4307:
  296. End Sub
  297. Private Sub Image3_Click()
  298. Unload ConVer
  299. End Sub
  300. Private Sub Image4_Click()
  301. CommonDialog1.ShowOpen
  302. Open CommonDialog1.FileName For Input As #1
  303. Input #1, A$
  304. Input #1, B$
  305. Input #1, C$
  306. Input #1, d$
  307. Input #1, e$
  308. Close #1
  309. Label3 = A$
  310. Label4 = B$
  311. Label5 = C$
  312. Label6 = d$
  313. Label7 = e$
  314. End Sub
  315. Private Sub Form_Load()
  316. Left = 200
  317. Top = Form1.Height + 200
  318. ExplodeForm ConVer, 3500
  319. End Sub
  320. Private Sub GurhanCoolButton1_CLICKED()
  321. On Error GoTo Next4306
  322. If Option5 = True Then
  323. Text3 = Text1 * 25.4
  324. GoTo Next4305
  325. End If
  326. If Option6 = True Then
  327. Text3 = Text1 * 0.3048
  328. GoTo Next4305
  329. End If
  330. If Option7 = True Then
  331. Text3 = Text1 * 0.9144
  332. GoTo Next4305
  333. End If
  334. If Option8 = True Then
  335. Text3 = Text1 * 1.609
  336. GoTo Next4305
  337. End If
  338. If Option1 = True Then
  339. Text3 = Text1 * 0.394
  340. GoTo Next4305
  341. End If
  342. If Option3 = True Then
  343. Text3 = Text1 * 0.6214
  344. GoTo Next4305
  345. End If
  346. If Option4 = True Then
  347. Text3 = Text1 * 0.039
  348. GoTo Next4305
  349. End If
  350. If Option2 = True Then
  351. Text3 = Text1 * 1.094
  352. MsgBox "Nothing to do"
  353. End If
  354. Next4305:
  355. GoTo Next4307
  356. Next4306:
  357. MsgBox "There was a Error. Restart the Program"
  358. Return
  359. Next4307:
  360. End Sub
  361. Private Sub GurhanCoolButton2_CLICKED()
  362. Unload Me
  363. End Sub
  364.