Konversi Suhu menggunakan visual basic 6.0

Konversi Suhu menggunakan visual basic 6.0

 

Nah, berikut ini saya akan menjelaskan bagaimana cara membuat project konversi suhu dengan menggunakan visual basic 6.0. buka visual basic di komputer anda, lalu buatlah design seperti ini ya guys;):

command1 = tombol konversi

command2 = tombol ulangi

command3 = tombol keluar

text1 = text paling atas

text2 =  disebelah label "Suhu dalam Reamur"

text3 = disebelah label "Suhu dalam Kelvin"

text4 = text paling bawah.

lalu ketikkan code dibawah ini pada jendela kode form :

Private Sub Command1_Click()

c = Text1
r = 4 / 5 * c
k = c + 273
f = (9 / 5 * c) + 32
Text2 = r
Text3 = k
Text4 = r
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Jika sudah, silahkan dijalankan :) , maka hasilnya kurang lebih seperti ini :