by Oscar Garcia (1 Submission)
Category: String Manipulation
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 17th October 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This code converts centigrades to fahrenheit
API Declarations
Dim a, b As Double
Dim c As String
'operate
Private Sub Command1_Click()
b = (a * 1.8) + 32
Label1.Caption = "Howdy " + c + " the temperature is " & b
End Sub
'cleaning
Private Sub Command2_Click()
a = 0
b = 0
c = ""
Label1.Caption = ""
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
'end button
Private Sub Command3_Click()
End
End Sub
'textbox 1
Private Sub Text1_Change()
c = Text1.Text
End Sub
'text box2
Private Sub Text2_Change()
If Text2.Text <> "" Then
a = Text2.Text
End If
End Sub
Private Sub Timer1_Timer()
times.Caption = Time
End Sub