-
Notifications
You must be signed in to change notification settings - Fork 0
/
temperatureconverter.frm
144 lines (138 loc) · 4.23 KB
/
temperatureconverter.frm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
VERSION 5.00
Begin VB.Form Form2
BackColor = &H00C0C0FF&
Caption = "Form2"
ClientHeight = 3015
ClientLeft = 120
ClientTop = 465
ClientWidth = 4560
LinkTopic = "Form2"
ScaleHeight = 3015
ScaleWidth = 4560
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command2
BackColor = &H000000FF&
Caption = "&RESET"
Height = 1095
Left = 9000
Style = 1 'Graphical
TabIndex = 6
Top = 8040
Width = 2775
End
Begin VB.CommandButton Command1
BackColor = &H0080FF80&
Caption = "&CONVERT "
Height = 1095
Left = 4320
Style = 1 'Graphical
TabIndex = 5
Top = 8040
Width = 2775
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1095
Left = 11640
TabIndex = 4
Top = 5280
Width = 1695
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1095
Left = 11640
TabIndex = 2
Top = 3240
Width = 1695
End
Begin VB.Label Label3
Alignment = 2 'Center
BackColor = &H00FFC0C0&
Caption = "TEMPERATURE IN CELCIUS"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1095
Left = 3240
TabIndex = 3
Top = 5280
Width = 7215
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
Caption = "TEMPERATURE IN CELCIUS"
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1095
Left = 3240
TabIndex = 1
Top = 3240
Width = 7215
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00FFC0C0&
Caption = "TEMPERATURE CONVERTER"
BeginProperty Font
Name = "MS Sans Serif"
Size = 24
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1335
Left = 4080
TabIndex = 0
Top = 720
Width = 8295
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Text2.Text = "" Then
Text2.Text = (9 / 5) * Val(Text1.Text) + 32
Else
Text1.Text = (5 / 9) * (Val(Text2.Text) - 32)
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub