Konversi Suhu (Visual Basic)

Untuk membuat program sederhana Konversi Suhu yang pertama harus dilakukan adalah membuka Visual Basic dan kemudian mengikuti langkah-langkah berikut ini :

1.      Sediakan tools sebagai berikut  :

Tools	Caption
Form	Konversi Suhu
Frame1	Masukkan Pilihan Input
Option1	Celcius
Option2	Fahrenheit
Option3	Kelvin
Label1	Masukkan Suhu dan Pilih Tombol Konversi
Label2	Celcius
Label3	Fahrenheit
Label4	Kelvin
Text1	Dikosongkan (posisi disamping Option1, Option2 dan Option3)
Text2	Dikosongkan (posisi diatas Label1)
Text3	Dikosongkan (posisi diatas Label2)
Text4	Dikosongkan (posisi diatas Label3)

2.      Masukkan listing program dibawah ini :

Private Sub Command1_Click()

If Text1.Text = "" Then

  jwb = MsgBox("Masukkan Suhu yang Ingin Dikonversi!!", _

        vbInformation + vbYesNo, "WARNING!!")

    If jwb = vbNo Then

            End

    ElseIf jwb = vbYes Then

            KonversiSuhu.Show

End If

ElseIf Option1 = True Then

Celcius

ElseIf Option2 = True Then

Fahrenheit

ElseIf Option3 = True Then

Kelvin

End If

End Sub

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text4 = ""

Text2.BackColor = "&H80000005"

Text3.BackColor = "&H80000005"

Text4.BackColor = "&H80000005"

Text1.SetFocus

End Sub

Private Sub Command3_Click()

End

End Sub

Sub Celcius()

Text3.Text = Text1.Text * 9 / 5 + 32

Text4.Text = Text1.Text + 273

Text2.BackColor = black

End Sub

Sub Fahrenheit()

Text2.Text = ((Text1.Text) - 32) * 5 / 9

Text4.Text = ((Text1.Text) - 32) * 5 / 9 + 273

Text3.BackColor = black

End Sub

Sub Kelvin()

Text2.Text = Text1.Text - 273

Text3.Text = ((Text1.Text - 273) * 9 / 5) + 32

Text4.BackColor = black

End Sub

Gambar 1.1

3.      Klik Start/Tekan F5 :

Kemudian akan muncul output seperti pada gambar 1.2 dibawah ini :

Gambar 1.2.