Program Konversi Suhu (Visual Basic)

Wah malem-malem begini saya baru teringat, bahwa ada tugas di esok hari yaitu membuat program konversi suhu dengan Visual Basic. Saya masih awam sekali dalam pemrograman, jadinya saya langsung menuju mbah Google untuk mencari cara membuat program tersebut. Dan langsung ketemu, ini dia tempatnya All Info For You (Terima kasih kepada agan yang punya web)

Ini dia prosedur pembuatannya (copas dari yang punya website):
Buka Visual Basic 6.0 teman-teman dan ikuti langkah-langkah berikut :

1. Masukkan 5 buah Label
2. Masukkan 1 buah Frame
3. Masukkan 5 buah TextBox
4. Masukkan 4 buah OptionButton
5. Masukkan 3 buah CommandButton

Setelah itu pada bagian Properties ganti Caption :

1. Label1 Menjadi “Masukkan Suhu yang Telah Diketahui dan Tekan Tombol Konversi” atau sesuka teman-teman.
2. Label2 Menjadi “Fahrenheit”
3. Label3 Menjadi “Celcius”
4. Label4 Menjadi “Rheamur”
5. Label5 Menjadi “Kelvin”
6. Frame1 Menjadi “Masukkan Pilihan Input”
7. OptionButton1 Menjadi “Fahrenheit”
8. OptionButton2 Menjadi “Celcius”
9. OptionButton3 Menjadi “Rheamur”
10. OptionButton4 Menjadi “Kelvin”
11. CommandButton1 Menjadi “&Konversi”
12. CommandButton2 Menjadi “&Again”
13. CommandButton3 Menjadi “&Exit”

Gambar Program

Selanjutnya rapikan Label,Frame,TextBox,OptionButton, dan CommandButton menjadi seperti gambar dibawah ini.

Setelah Tampilannya sesuai dengan gambar diatas, maka teman-teman perlu source code atau script agar programnya bisa digunakan.
Inilah Script programnya :

1. Pada Form load

Private Sub Form_Load() Option1 = True End Sub

2. Pada Option1

Private Sub Option1_Click() If Option1 = True Then Option2 = False And Option13 = False And Option4 = False End If End Sub

3. Pada Command1

Private Sub Command1_Click() Dim jwb As Integer If Text1.Text = "" Then   jwb = MsgBox("Masukkan Nilai Suhu Yang Akan Dikonversi!!!   ", _         vbInformation + vbYesNo, "WARNING")     If jwb = vbNo Then             Unload Me     ElseIf jwb = vbYes Then             FrmKonversiSuhu.Show End If ElseIf Option1 = True Then Fahrenheit ElseIf Option2 = True Then Celcius ElseIf Option3 = True Then Rheamur ElseIf Option4 = True Then Kelvin End If End Sub

4. Pada Command2

Private Sub Command2_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text2.BackColor = "&H80000005" Text3.BackColor = "&H80000005" Text4.BackColor = "&H80000005" Text5.BackColor = "&H80000005" Text1.SetFocus End Sub

5. Pada Command3

Private Sub Command3_Click() Unload Me End Sub

Nah berikutnya tulislah Script berikut pada bagian paling bawah Script program temen-teman …

Sub Celcius() Dim bil1, fah, rhe, kel As Integer bil1 = Text1 fah = Val((Text1.Text) * 9 / 5) + 32 Text2.Text = FormatNumber(fah, 2, vbFalse, vbFalse, vbFalse) rhe = Val(Text1.Text) * 4 / 5 Text4.Text = FormatNumber(rhe, 2, vbFalse, vbFalse, vbFalse) kel = Val(Text1.Text) + 273 Text5.Text = FormatNumber(kel, 2, vbFalse, vbFalse, vbFalse) Text3.BackColor = black End Sub Sub Fahrenheit() Dim bil1, cel, rhe, kel As Integer bil1 = Text1 cel = Val((Text1.Text) - 32) * 5 / 9 Text3.Text = FormatNumber(cel, 2, vbFalse, vbFalse, vbFalse) rhe = Val((Text1.Text) - 32) * 4 / 9 Text4.Text = FormatNumber(rhe, 2, vbFalse, vbFalse, vbFalse) kel = Val(((Text1.Text) - 32) * 5 / 9) + 273 Text5.Text = FormatNumber(kel, 2, vbFalse, vbFalse, vbFalse) Text2.BackColor = black End Sub Sub Rheamur() Dim bil1, fah, cel, kel As Integer bil1 = Text1 fah = Val((Text1.Text) * 9 / 4) + 32 Text2.Text = FormatNumber(fah, 2, vbFalse, vbFalse, vbFalse) cel = Val(Text1.Text) * 5 / 4 Text3.Text = FormatNumber(cel, 2, vbFalse, vbFalse, vbFalse) kel = Val((Text1.Text) * 5 / 4) + 273 Text5.Text = FormatNumber(kel, 2, vbFalse, vbFalse, vbFalse) Text4.BackColor = black End Sub Sub Kelvin() Dim bil1, fah, cel, rhe As Integer bil1 = Text1 fah = Val((((Text1.Text) - 273) * 9 / 5)) + 32 Text2.Text = FormatNumber(fah, 2, vbFalse, vbFalse, vbFalse) cel = Val(Text1.Text) - 273 Text3.Text = FormatNumber(cel, 2, vbFalse, vbFalse, vbFalse) rhe = Val((Text1.Text) - 273) * 4 / 5 Text4.Text = FormatNumber(rhe, 2, vbFalse, vbFalse, vbFalse) Text5.BackColor = black End Sub Selesai deh programnya, tinggal teman-teman save... Sumber: All Info For You