Assalamu’alaikum wr.wb
Pada edisi kali ini, saya
akan mencoba untuk melampirkan cara-cara bagaimana Menghitung PERUBAHAN
SUHU CELCIUS,FAHREANHEIT,dan KELVIN, dan begitu pula dng seterus nya dari C->R,C->F,C->K, dari F->C,F->R,F->K dan
juga K->C,K->R,K->F dengan menggunakan aplikasi VBS 2010.
adapun langkah-langkah
pembuatan nya adalah sebagai berikut:
Terlebih
dahulu anda buka aplikasi VBS 2010
Setelah
itu klik New Project, lalu Windows Forms
Application lalu Ok.
Setelah semuanya diklik maka
akan tampil gambar kerja seperti gambar bawah ini tapi mohon di maklumi karna
warnanya hitam:
1.
Untuk langkah berikutnya kita mulai
mendisain. Bahan bahan nya adalah
1
GroupBox,
4
label,
3 buah TextBox,
1
Button dan
1
ComboBox.
Setelah
itu kita masukan semua coding nya untuk menganti semuanya dng klik di form nya, setelah di klik lalu
masukan rumus nya seperti di bawah ini
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
GroupBox1.Text
= "C-> R,F,K"
Label1.Text = "Celcius"
Label2.Text = "fahreanheit"
Button1.Text = "Proses"
Label3.Text = "kelvin"
Label4.Text = ""
End Sub
Setelah
itu kemudian kita RUN/F5, maka akan tampil seperti di bawah ini:
Kemudian
click pada ComboBox nya lalu cari di properties lalu cari Items(collection) di samping collection itu ada kotak titik kecil pilih,
untuk memasukan semua rumus sudah kami cantumkan seperti di gambar ini setelah
itu langsung oke
setelah klik ok maka tampilan nya seperti di bawah ini
2. Langkah
selanjutnya klik button1, untuk memasukan codingnya semua rumus yang akan kita
jalankan,
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button1.Click
If (ComboBox1.SelectedItem = "C->R") Then
Label4.Text = (4 / 5) * Val(TextBox1.Text)
ElseIf (ComboBox1.SelectedItem = "C->F") Then
Label4.Text = (9 / 5) * Val(TextBox1.Text) + 32
ElseIf (ComboBox1.SelectedItem = "C->K") Then
Label4.Text = 273 + Val(TextBox1.Text)
ElseIf (ComboBox1.SelectedItem = "F->C") Then
Label4.Text = (5 / 9) * (Val(TextBox2.Text) - 32)
ElseIf (ComboBox1.SelectedItem = "F->R") Then
Label4.Text = (4 / 9) * (Val(TextBox2.Text) - 32)
ElseIf (ComboBox1.SelectedItem = "F->K") Then
Label4.Text = (5 / 9) * (Val(TextBox2.Text) - 32) + 273
ElseIf (ComboBox1.SelectedItem = "K->C") Then
Label4.Text = Val(TextBox3.Text) - 273
ElseIf (ComboBox1.SelectedItem = "K->R") Then
Label4.Text = (9 / 5) * (Val(TextBox3.Text) - 273) + 32
ElseIf (ComboBox1.SelectedItem = "K->F") Then
Label4.Text = (4 / 5) * (Val(TextBox3.Text) - 273)
End If
Label4.Text = (4 / 5) * Val(TextBox1.Text)
ElseIf (ComboBox1.SelectedItem = "C->F") Then
Label4.Text = (9 / 5) * Val(TextBox1.Text) + 32
ElseIf (ComboBox1.SelectedItem = "C->K") Then
Label4.Text = 273 + Val(TextBox1.Text)
ElseIf (ComboBox1.SelectedItem = "F->C") Then
Label4.Text = (5 / 9) * (Val(TextBox2.Text) - 32)
ElseIf (ComboBox1.SelectedItem = "F->R") Then
Label4.Text = (4 / 9) * (Val(TextBox2.Text) - 32)
ElseIf (ComboBox1.SelectedItem = "F->K") Then
Label4.Text = (5 / 9) * (Val(TextBox2.Text) - 32) + 273
ElseIf (ComboBox1.SelectedItem = "K->C") Then
Label4.Text = Val(TextBox3.Text) - 273
ElseIf (ComboBox1.SelectedItem = "K->R") Then
Label4.Text = (9 / 5) * (Val(TextBox3.Text) - 273) + 32
ElseIf (ComboBox1.SelectedItem = "K->F") Then
Label4.Text = (4 / 5) * (Val(TextBox3.Text) - 273)
End If
End Sub
3. Kemudian tingal kita jalankan rumusnya satu persatu,
terserah mau masukin nilai nya berapa, tergantung kebutuhan masing-masing,
contoh nya seperti di bawah ini
Banyak
yg bertanya kenapa hasilnya 48, karna yg kita pilih adalah C->R Begitu juga
seterusnya, anda tinggal pilih rumus mana yang anda inginkan kemudian masukan
nilai nya di Celcius,Fahreanheit,dan Kelvin nya, kemudian pilih di ComboBox nya
click mana yang anda inginkan.
Demikian keterangan dari saya, moga bisa bermanfaat.
Wassalamualaikum war, wab.
“SELAMAT MENCOBA”