Ada beberapa ukuran suhu yang kita kenal, masing-masing memiliki standar pengukuran yang berbeda.
|
titik beku |
titik didih |
Celcius | 0 |
100 |
Rheamur | 0 |
80 |
Fahrenheit | 32 |
212 |
Kelvin | 273.15 |
373.15 |
Untuk melakukan konversi diperlukan suatu formula
|
Celcius |
Rheamur |
Fahrenheit |
Kelvin |
Celcius | C |
4/5*C |
9/5*C+32 |
C + 273.15 |
Rheamur | 5/4*R |
R |
9/4*R+32 |
5/4*R+273.15 |
Fahrenheit | (F-32)*5/9 |
(F-32)*4/9 |
F |
(F-32)*5/9+273.15 |
Kelvin | K-273.15 |
(K-273.15)*4/5 |
(K-273.15)*9/5+32 |
K |
Dikelompokkan
C = 5/4*R
C = (F-32)*5/9
C = (K-273.15)
R = 4/5*C
R = (F-32)*4/9
R = (K-273.15)*4/5
F = 9/5*C+32
F = 9/4*R+32
F = (K-273.15)*9/5+32
K = C + 273.15
K = 5/4*R+273.15
K = (F-32)*5/9+273.15
Flow Chart
Programming
Membuat Form Tampilan
1. Form
Properties : - Border Style = 3-Fixed Dialog, pada form hanya ada tombol Close (tandasilang).
- Caption = Konversi Suhu, Judul yang muncul pada pojok kiri atas program.
- Startup Position = 2 - Center Screen, artinya program akan muncul ditengah layar.
2. Textbox1, Textbox2, Textbox3, Textbox4
Properties - Text = 0, Semua nilai diset 0
3. label1, label2, label3, label4
Properties - Caption = Celcius, semua Label diisi sesuai suhunya
4. Command1
Properties - Caption = Keluar, untuk tombol keluar program.
Definisi variabel'mendefinisikan variabel di awal dari program
Dim C2R, C2F, C2K, R2C, R2F, R2K, F2C, F2R, F2K, K2C, K2R, K2F, Cel, Rhe, Fah, Kel As Single
Subroutine
adalah penambahan Sub baru yang dibuat sesuai kebutuhan pemrograman. misalnya Subroutine untuk menghitung konversi Celcius, Rheamur, Fahrenheit, dan Kelvin.
Ketikkanlah source code di bawah ini pada baris kosong pada source code VB
Private Sub Celcius()'mengambil data dari input text & merubahnya menjadi nilai
Cel = Val(Text1.Text)
'hitung konversi
C2R = 4 / 5 * Cel
C2F = 9 / 5 * Cel + 32
C2K = Cel + 273.15
End Sub Private Sub Rheamur()
'mengambil data dari input text & merubahnya menjadi nilai
Rhe = Val(Text2.Text)
'hitung konversi
R2C = 5 / 4 * Rhe
R2F = 9 / 4 * Rhe + 32
R2K = 5 / 4 * Rhe + 273.15
End Sub Private Sub Fahrenheit()
'mengambil data dari input text & merubahnya menjadi nilai
Fah = Val(Text3.Text)
'hitung konversi
F2C = (Fah - 32) * 5 / 9
F2R = (Fah - 32) * 4 / 9
F2K = (Fah + 459.67) * 5 / 9
End Sub
Private Sub Kelvin()'mengambil data dari input text & merubahnya menjadi nilai
Kel = Val(Text4.Text)
'hitung konversi
K2C = Kel - 273.15
K2R = (Kel - 273.15) * 4 / 5
K2F = (Kel - 273.15) * 9 / 5 + 32
End Sub Event Handler
adalah memodifikasi subroutine yang sudah dibuatkan oleh VB berdasarkan kejadian (event), misalnya,
- Form_Load() : event pada saat Form akan di Load
- Command1_Click() : event pada saattombol/button Command1 di klik
- Text1_KeyUp() : event pada saatkeyboard selesai ditekan
Untuk menuju subroutine tersebut, cukup dengan men-double-klik component Form, Command, textbox, dll
Private Sub Form_Load()
'panggil subroutine celcius, sebagai default
Call Celcius
'tampilkan nilai konversi
Text2.Text = C2R
Text3.Text = C2F
Text4.Text = C2K
End Sub Private Sub Command1_Click()
'keluar program End
End Sub
Untuk memasukkan nilai suhu kita gunakan event
KeyUp (Text1_KeyUp), karena event ini yang paling cepat mengantisipasi perubahan input suhu. Berbeda jika kita menggunakan event
Change (Text1_Change), event ini menunggu user melakukan enter atau validasi lain.
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
'panggil subroutine celcius
Call Celcius
'tampilkan nilai konversi
Text2.Text = C2R
Text3.Text = C2F
Text4.Text = C2K
End Sub
Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)'panggil subroutine Rheamur
Call Rheamur
'tampilkan nilai konversi
Text1.Text = R2C
Text3.Text = R2F
Text4.Text = R2K
End Sub Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)
'panggil subroutine Fahrenheit
Call Fahrenheit
'tampilkan nilai konversi
Text1.Text = F2C
Text2.Text = F2R
Text4.Text = F2K
End Sub Private Sub Text4_KeyUp(KeyCode As Integer, Shift As Integer)
'panggil subroutine Kelvin
Call Kelvin
'tampilkan nilai konversi
Text1.Text = K2C
Text2.Text = K2R
Text3.Text = K2F
End Sub Running
Setelah program di Run, kita coba masukkan nilai pada textbox, misalnya nilai 100
maka terjadi perubahan pada 3 textbox lainnya, yang merupakan hasil konversi.
perhatikan, celcius=100, Rheamur=80, Fahrenheit=212, dan Kelvin=373.15
nilai-nilai tersebut merupakan titik didih masing-masing thermometer
Kita coba masukkan nilai yang berbeda pada textbox 'Fahrenheit', misalnya nilai 32
maka terjadi perubahan pada 3 textbox lainnya, yang merupakan hasil konversi.
perhatikan, celcius=0, Rheamur=0, Fahrenheit=32, dan Kelvin= 273.15 nilai-nilai
tersebut merupakan titik beku masing-masing thermometer
Nah adik-adik, Selamat Mencoba!
Silakan Download SourceCode & Aplikasinya di sini atau email ke sini
(c) 2010 By Yoga DC Nurul Fikri Computer
