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 dengan visual basic 6.0 |
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
*****
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:
Post a Comment