phone: +420 776 223 443
e-mail: support@londoncreative.co.uk

Kamis, 04 April 2013

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

Tidak ada komentar:

Poskan Komentar