Visual Basic Program Konversi Suhu

April 27, 2014
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 

Tampilan program konversi suhu dengan Visual Basic 6.0

Kode Program Konversi Suhu

*****  
 
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 

*****

Logika Algoritma

Algoritma yang saya pakai untuk program konversi suhu ini sangat sederhana. Kita ingat kembali pelajaran sewaktu SD yaitu konversi suhu dengan 4 satuan suhu yang telah kita kenal yaitu Celcius (C), Reamur (R), Fahrenheit (F), dan Kelvin (K).

Berdasarkan design visualisasi program yang saya buat, saya dapat memasukan semua angka di kolom satuan suhu dan ketika tombol proses ditekan maka kolom lainnya akan otomatis mengkonversi suhu sesuai kolom satuan masing - masing.

Kita tentukan dahulu variabel tiap kolomnya dengan program :
  • a = Val(Text1.Text) --> kolom 1
  • b = Val(Text2.Text) --> kolom 2
  • c = Val(Text3.Text) --> kolom 3
  • d = Val(Text4.Text) --> kolom 4

Lanjut dengan logika programnya :
  • Jika kolom terisi (artinya program baru saja menjalankan suatu perintah) maka saat ditekan tombol proses akan muncul perintah untuk tekan tombol clear atau reset ulang program.
  • Jika kolom 1 terisi maka jalankan perintak konversi sebagai berikut : 
    • Text2.Text = Val(4 / 5 * a)
    • Text3.Text = Val((9 / 5 * a) + 32)
    • Text4.Text = Val(a + 273)
  • Jika kolom 2 terisi maka jalankan perintak konversi sebagai berikut : 
    • Text1.Text = Val(5 / 4 * b)
    • Text3.Text = Val((9 / 4 * b) + 32)
    • Text4.Text = Val((5 / 4 * b) + 273)
  • Jika kolom 3 terisi maka jalankan perintak konversi sebagai berikut : 
    • Text1.Text = Val(5 / 9 * (c - 32))
    • Text2.Text = Val(4 / 9 * (c - 32))
    • Text4.Text = Val((5 / 9 * (c - 32)) + 273)
  • Jika kolom 4 terisi maka jalankan perintak konversi sebagai berikut : 
    • Text1.Text = Val(d - 273)
    • Text2.Text = Val(4 / 5 * (d - 273))
    • Text3.Text = Val((9 / 5 * (d - 273)) + 32) 
  • Jika 4 kolom tersebut kosong akan muncul pemberitahuan untuk mengisi salah satu kolom terlebih dahulu yaitu salah satu angka yang akan dikonversi.

Nah mudah kan? Intinya kita harus memahami dulu algoritma atau jalan pemecahan masalahnya baru kita tentukan pengaplikasiannya di software yang diminta (dalam kasus ini menggunakan aplikasi visual basic). Dan coba di check lagi ya siapa tahu ada penulisan yang salah dalam codingan saya. Intinya balikin lagi ke algoritma yang udah saya jelasin di atas. Selamat mencoba, semoga berhasil.

0 Comments