Visual Basic, Konversi Suhu

Kita tengok lagi salah satu program algoritma yaitu konversi suhu. Nah, kembali lagi jika belajar algoritma, kreatifitas, dan logika harus terus dikembangkan. Untuk itu ini salah satu program algoritma yang saya buat dan desain. Mungkin ada beberapa perbedaan dengan yang lainnya, tapi bisa jadi referensi untuk semua (semoga).

Visualisasi program konversi suhu
Lagsung kita tengok programnya.

=====================================================
Dim a, b, c, d As Integer
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
If (Text1.Text) <> "" And (Text2.Text) <> "" And (Text3.Text) <> "" And (Text4.Text) <> "" Then
MsgBox "Harap lakukan perintah CLEAR dahulu!", vbExclamation, "PERINGATAN"
End If
If Text1.Text <> "" Then
Text2.Text = Val(4 / 5 * a)
Text3.Text = Val((9 / 5 * a) + 32)
Text4.Text = Val(a + 273)
Else
If Text2.Text <> "" Then
Text1.Text = Val(5 / 4 * b)
Text3.Text = Val((9 / 4 * b) + 32)
Text4.Text = Val((5 / 4 * b) + 273)
Else
If Text3.Text <> "" Then
Text1.Text = Val(5 / 9 * (c - 32))
Text2.Text = Val(4 / 9 * (c - 32))
Text4.Text = Val((5 / 9 * (c - 32)) + 273)
Else
If Text4.Text <> "" Then
Text1.Text = Val(d - 273)
Text2.Text = Val(4 / 5 * (d - 273))
Text3.Text = Val((9 / 5 * (d - 273)) + 32)
Else
If (Text1.Text) = "" And (Text2.Text) = "" And (Text3.Text) = "" And (Text4.Text) = "" Then
MsgBox "Harap Isi Suhu yg akan dikonversi!", vbCritical, "KESALAHAN"
End If
End If
End If
End If
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub
Private Sub Command3_Click()
If MsgBox("Anda yakin ingin kuluar?", vbOKCancel + vbQuestion, "KONFIRMASI") = vbOK Then
End
End If
End Sub
=====================================================

Terima Kasih dan semoga bermanfaat.

Algoritma dan Pemrograman
November, 2010

No comments:

Post a Comment

Your comment is my spirit for writing. :)