Converter Suhu menggunakan VB6

Disini saya akan menjelaskan cara membuat converter suhu menggunakan Visual Basic 6, dan saya akan memberikan gambarannya seperti yang di bawah ini :

Untuk Kodingannya ada dibawah ini :

Private Sub Command1_Click()
Dim a, b As Double
a = Val(Txt1.Text)
b = a + 273
Txthasil.Text = b
End Sub

Private Sub Command2_Click()
Dim a, b As Double
a = Val(Txt1.Text)
b = (a * 1.8) + 32
Txthasil.Text = b
End Sub

Private Sub Command3_Click()
Dim a, b As Double
a = Val(Txt1.Text)
b = 5 / 4 * a
Txthasil.Text = b
End Sub

Private Sub Command4_Click()
Txt1.Text = Clear
Txthasil.Text = Clear
End Sub


Dan klo mw lebih lengkapnya,download aja link dibawah ini :
Menghitung Celcius

Free Articel

masukkan email anda :