Senin, 01 Februari 2010

Konversi Suhu

Ada beberapa ukuran suhu yang kita kenal, masing-masing memiliki standar pengukuran yang berbeda.










titik bekutitik didih
Celcius0100
Rheamur080
Fahrenheit32212
Kelvin273.15373.15

Untuk melakukan konversi diperlukan suatu formula























CelciusRheamurFahrenheitKelvin
CelciusC4/5*C9/5*C+32 C + 273.15
Rheamur5/4*RR9/4*R+32 5/4*R+273.15
Fahrenheit(F-32)*5/9(F-32)*4/9F(F-32)*5/9+273.15
KelvinK-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

Tidak ada komentar:

Poskan Komentar