Selamat Pagi

Duuh . . . !! akhirnya ada tamu juga, silahkan duduk mas atau mbak, maaf blog saya disini memang agak kotor soalnya emang jarang dirawat. hehe . . .
Oke . . so saya akan mulai upacaranya.

Selamat datang di blog saya!.Terimakasih telah bersedia untuk berkunjung. blog yang saya tulis ini adalah semua hal dan kepentingan pribadi saya, jadi kalo mas-mas atau mbaknya yang mau minta es krim, bisa datang ke toko bagus, loh . . apa apa maksudnya?? ga nyambung??

Membuat converter suhu dengan VB

Yang kita Perlukan adalah

*1 Buah form

*1 Buah label

*2 Buah combobox

*2 Buah textbox

*3 Buah command button dan kalo perlu

*2 Buah frame buat hiasan angsung kita buat ,,

Masukan kode berikut pada form

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