Konversi Suhu

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