Konversi Suhu dengan Visual Basic 6.0
berikut ini contoh aplikasi konverter suhu menggunakan Program Ms. visual
Basic 6.0.
komponen yang dibutuhkan antara lain :
Sebuah form dengan caption : Sistem Konversi Suhu
3 buah label, yaitu untuk Input Suhu, Hasil Konversi dan Aplikasi konversi Suhu.
2 Buah textbox, dan.
3 buah Command Button.
Sedangkan dibawah ini adalah Script dari form diatas.
Dim pilihan As String
Sub inputpilihan()
pilihan = InputBox("Konversi Yang Diinginkan" & Chr(10) & "1. Celcius ke Fahrenheit" & Chr(10) & "2. Fahrenheit ke Reanur" & Chr(10) & "3. Reanur ke Celcius" & Chr(10) & "4. Celcius ke Kelvin" & Chr(10) & "Pilihan Anda :", "Pilihan Konversi")
If pilihan = "" Then
MsgBox "Ulangi Pilihan Anda", "Pesan"
End If
End Sub
Sub mengolahdata()
Select Case pilihan
Case 1
Text2.Text = ((9 / 5) * Text1.Text) - 32
Case 2
Text2.Text = (Text1.Text - 32) * (5 / 9)
Case 3
Text2.Text = ((5 / 4) * Text1.Text)
Case 4
Text2.Text = (Text1.Text + 273)
Case Else
Text2.Text = "Pilihan Tidak Tersedia"
End Select
End Sub
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Command2_Click()
If Text1.Text = "" Then
MsgBox "Anda Belum Mengisi kotak Nilai", , "Pesan"
Else
inputpilihan
mengolahdata
Command2.SetFocus
End If
End Sub
Private Sub Command3_Click()
pesan = MsgBox("Mau Keluar?", vbInformation + vbYesNo, "Perhatian")
If pesan = vbYes Then End
End Sub
