Membuat Program Menghitung Suhu Derajat ( Tugas Bpk Utomo )
UNIVERESITAS BOROBUDUR
Dari materi seblmnya, kali ini sya akan berbagi kepada anda semua..
cara membuat program menghitung suhu drajat celcius, kelvin, Reamur, dan Fahrenhait....
sebelumnya mohon maaf bila ada kata - kata yang kurang berkenan.....Tampilan gambar ketika program sudah jadi...
Perhatikan susuan ToolBox.......
Berikut langkah - langkahnya...
Kita drag label dan TextBox pada toolbox ke form
sebanyak 1 buah untuk masukan, lalu atur properties di window properties.
Ubah teks Label1 menjadi misalnya Nilai Temperatur :
Ubah Name TextBox1 menjadi txtVarTemp
- Lalu drag GroupBox pada toolbox ke form sebanyak 2 buah,
atur properties di window properties.
Ubah teks GroupBox1 menjadi misalnya Pilih Derajat
Temperatur :
Ubah teks GroupBox2 menjadi misalnya Hasil Konversi :
- Lalu drag RadioButton pada toolbox ke dalam GroupBox1
sebanyak 4 buah, atur properties di window properties.
Ubah teks RadioButton1 menjadi Kelvin
Ubah teks RadioButton2 menjadi Celcius
Ubah teks RadioButton3 menjadi Reamur
Ubah teks RadioButton4 menjadi Fahrenheit
- Lalu drag 4 buah label dan 4 buah TextBox ke dalam
GroupBox2, atur properties di window properties.
Ubah teks Label2 menjadi Temperatur Kelvin :
Ubah teks Label3 menjadi Temperatur Celcius :
Ubah teks Label4 menjadi Temperatur Reamur :
Ubah teks Label5 menjadi Temperatur Fahrenheit :
Ubah name TextBox2 menjadi txtKelvin
Ubah name TextBox3 menjadi txtCelcius
Ubah name TextBox4 menjadi txtReamur
Ubah name TextBox5 menjadi txtFahrenheit
- Lalu drag button pada toolbox ke form sebanyak 2 buah,
lalu atur properties button tersebut di window properties.
Ubah teks Button1 menjadi misalnya &Hitung
Ubah teks Button2 menjadi misalnya
&Exit
- Kita juga bisa mengganti nama Titlebar yang secara default
form1. Caranya klik form1 di mana saja, lalu ubah text di window properties
menjadi misalnya Menghitung Konversi Derajat Temperatur.
- Untuk ubah background color di window properties cari back
color, lalu ubah warna sesuai keinginan.
6. Kemudian kita masukkan kode program
- untuk memasukkan kode program tombol hitung, klik dua kali
tombol hitung. Maka akan keluar window baru untuk memasukkan kode program
tombol hitung. Kodenya adalah seperti ini.
Dim sngVarTemp, sngVarKelvin, sngVarCelcius, sngVarReamur,
sngVarFahrenheit As Single
sngVarTemp = CSng(txtVarTemp.Text)
Select Case True
Case optTemp.Checked
sngVarKelvin = sngVarTemp
sngVarCelcius = sngVarTemp - 273
sngVarReamur = (sngVarTemp - 273) * 4 / 5
sngVarFahrenheit = ((sngVarTemp - 273) * 9 / 5) + 32
Case optTemp1.Checked
sngVarKelvin = sngVarTemp + 273
sngVarCelcius = sngVarTemp
sngVarReamur = sngVarTemp * 4 / 5
sngVarFahrenheit = (sngVarTemp * 9 / 5) + 32
Case optTemp2.Checked
sngVarKelvin = (sngVarTemp * 5 / 4) + 273
sngVarCelcius = sngVarTemp * 5 / 4
sngVarReamur = sngVarTemp
sngVarFahrenheit = (sngVarTemp * 9 / 4) + 32
Case optTemp3.Checked
sngVarKelvin = ((sngVarTemp - 32) * 5 / 9) + 273
sngVarCelcius = (sngVarTemp - 32) * 5 / 9
sngVarReamur = (sngVarTemp - 32) * 4 / 9
sngVarFahrenheit = sngVarTemp
End Select
txtKelvin.Text = CStr(sngVarKelvin)
txtCelcius.Text = CStr(sngVarCelcius)
txtReamur.Text = CStr(sngVarReamur)
txtFahrenheit.Text = CStr(sngVarFahrenheit)
- untuk memasukkan kode program tombol Exit, klik dua kali tombol Exit. Maka akan keluar window baru untuk memasukkan kode program tombol Exit. Kodenya adalah seperti ini.
Close()
Kemudian anda tinggal Menjalankan "Run"..
...........selamat mencoba...............BY DIAN ROSES...............................................!!!!!!!!!!!!!!!!!!!
Fontnya kaga bisa dibaca bang
BalasHapus