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
Tidak ada komentar:
Posting Komentar