Membuat Konversi Suhu sederhana dengan visual basic 6

ganti prend ajah lah biar nggak susah,,

hai,prend..nie gwe punya satu lagi tips sederhana buat konversi suhu dengan vb6 tentunya,,,kan itu topiknya,,!!

oke langsung sajah.

yang pertama kita membutuhkan yaitu:

1.form

1.label

2.combobox

2.textbox

3.command button

dan kalo perlu 

2.frame buat hiasan

langsung kita buat ,,masukin kode berikut pada form :

note : jika prend COPAS nanti langsung jalan..

Dim A, B, C, D, U, V
Dim Hasil
Dim SuhuAwal
Dim DR, ke


Private Sub Form_Load()
    Dari.AddItem "Celsius"
    Dari.AddItem "Reamur"
    Dari.AddItem "Fahrenheit"

    Kesuhu.AddItem "Celsius"
    Kesuhu.AddItem "Reamur"
    Kesuhu.AddItem "Fahrenheit"
End Sub



Private Sub OK_Click()
SuhuAwal = Val(txtSuhu.Text)
Select Case Dari.ListIndex
Case 0
    A = 5
    V = 0
Case 1
    A = 4
    V = 0
Case 2
    A = 9
    V = 32
End Select

Select Case Kesuhu.ListIndex
Case 0
    B = 5
    U = 0
Case 1
    B = 4
    U = 0
Case 2
    B = 9
    U = 32
End Select

DR = Val(A)
ke = Val(B)
If DR = ke Then
Hasil = SuhuAwal
ElseIf DR = 9 Then
Hasil = (SuhuAwal - V) / (A / B)
Else
Hasil = (SuhuAwal * (B / A)) + U
End If
lbHasil = SuhuAwal & " " & Dari.Text & " = " & Int(Hasil) & " " & Kesuhu.Text
End Sub

Private Sub Hapus_Click()
txtSuhu.Text = ""
lbHasil.Caption = ""
Dari.Text = ""
Kesuhu.Text = ""
End Sub

Private Sub Exit_Click()
End
End Sub

moga bermanfaat yah...!!