Menghitung Perubahan Suhu Menggunakan Visual Studo/Basic 2010
BELAJAR
PEMROGRAMAN VISUAL BASIC/STUDIO 2010
Selamat berjumpa lagi wahai saudara ku dimana pun kalian berada dan semoga selalu sehat, sekarang kita akan belajar bagaimana
cara membuat program menggunakan VB 2010, program yang akan kita pelajari
berikut ini adalah “MENGHITUNG PERUBAHAN
SUHU MENGGUNAKAN VB 2010”.
Langsung saja kita pelajari bersama-sama para
shobat penggila internet...
Langkah pertama
membuka aplikasi Visual Studio 2010. Klik shortcut VB 2010 pada menu desktop.
Contoh:
Atau bisa melalui start All Program Microsoft
Visual Studio 2010
Contoh:
Langkah kedua.
Sebelum masuk kedalam VB 2010 maka akan tampil gambar seperti dibawah ini
kemudian pilih pada menu “New Project...”
Setelah menekan New
Project... maka akan tampil tampilan seperti gambar dibawah ini, kemudian klik/tekan
OK
Setelah anda masuk kedalam VB
2010 maka tampilannya akan seperti ini, disana akan ada tampilan Form1 yang
berfungsi untuk tempat memasukkan menu yang digunakan pada toolbox, jika
toolbox pada layar tidak tampil dan hanya properties saja yang tampil maka
ketik pada keyboard anda “Ctrl+Alt+ X
Jika ingin mengganti nama
“form1” bisa anda melakukannya dengan mengganti dari properties dengan
menggantinya dalam menu “text” dan anda bisa melakukannya dengan menggunakan
“koding” agar lebih pasih dalam menggunakan rumus pada VB 2010.
CARANYA dengan mengklik dua
kali pada “form1” yang kosong tersebut kemudian ketik rumus atau formulanya.
Dan anda bisa memperbesar
lembar kerja/”form1” dengan mengarahkan kursor kearah pojok dari “form1” dan menariknya
lebih besar.
Cara mengubah nama “form1”
menggunakan nama lain seperti “Latihanku” adalah:
Masukkan
rumus ditengah-tengah antara “private sub” dengan “End Sub” seperti dibawah
ini:
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
Me.Text = "Latihanku" Koding
yang benar.
End Sub
Setelah
anda mengisi koding/rumus maka “RUN” pada menu yaitu “start debugging(F5)” setelah hasilnya keluar maka akan tampil seperti ini.
Jangan
lupa ketika anda ingin melanjutkan untuk memasukkan koding/rumus maka stop dulu
“RUN”nya dengan menekan icon “X” berwarna merah pada form1/”Latihanku” pada
gambar diatas. Atau bisa dilakukan dengan menekan “stop
debugging(Ctrl+Alt+Break)”.
Ingat.
mengisi
koding harus seperti pada teks diatas, tanpa harus perlu menggunakan “spasi”
karena apabila koding/rumusnya memang benar maka secara otomatis koding
tersebut mempunyai jarak atau spasi.
Apabila anda memasukkan koding/rumus kemudian ada garis bawah
pada koding tersebut maka anda memasukkan koding dengan cara yang salah.
Contoh koding yang benar dan setelah di “RUN”
seperti gambar dibawah ini:
Setelah itu langsung saja kita kerjakan tugas
kita untuk membuat program perubahan suhu menggunakan VB 2010.
Bahan-bahannya adalah
3 buah GroupBox, 6 buah Label, 3 buah TextBox dan 3 buah ComboBox yang
terdapat pada menu toolbox. Kemudian posisikan mereka seperti gambar di bawah,
atau sesuai keinginan dan kreatifitas anda.
Setelah
anda mengatur designnya seperti ini, maka anda bisa memasukkan koding dengan
cara mengklik 2 kali pada form dan masukkan koding seperti ini...
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
Me.Text
= "LATIHANKU"
GroupBox1.Text = "C->R,F,K"
GroupBox2.Text = "F->C,R,K"
GroupBox3.Text = "K->F,C,R"
Label1.Text = "Celcius"
Label2.Text = "-----"
Label3.Text = "Fahrenheit"
Label4.Text = "-----"
Label5.Text = "KeLvin"
Label6.Text = "-----"
End Sub
Setelah anda run maka hasilnya akan seperti pada gambar berikut ini...
Selanjutnya, untuk mengisi pilihan pada
ComboBox.. Click ComboBox1 lalu tekan F4. Pada menu properties, Click Items
atau seperti yang di tunjukkan anak panah pada gambar di bawah ini.
Akan muncul tampilan seperti ini.
Setelah tampil seperti ini, maka isikan
halaman yang kosong diatas dengan huruf-huruf ini...
C->R
C->F
C->K
Text ini berarti bahwa kita akan merubah suhu
dari celcius menjadi reamur, celcius menjadi fahrenheit, dan celcius menjadi
kelvin.
Kemudian tekan OK, maka jika di “RUN” hasilnya
akan seperti pada gambar dibawah ini...
Lakukan hal yang sama pada ComboBox2 dan
ComboBox3. Masukkan F->C, F->R dan F->K pada ComboBox2 dan K->C,
K->R dan K->F pada ComboBox3.
Agar dapat melakukan perhitungan perubahan
suhu, double
click pada masing-masing ComboBox kemudian
masukkan coding seperti pada gambar di bawah ini.
Private Sub
ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
If
(ComboBox1.SelectedItem = "C->R")
Then
Label2.Text = (4 / 5) *
Val(TextBox1.Text)
ElseIf
(ComboBox1.SelectedItem = "C->F")
Then
Label2.Text = (9 / 5) * Val(TextBox1.Text)
+ 32
ElseIf
(ComboBox1.SelectedItem = "C->K")
Then
Label2.Text = Val(TextBox1.Text) +
273
End If
End Sub
Private Sub
ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ComboBox2.SelectedIndexChanged
If
(ComboBox2.SelectedItem = "F->C")
Then
Label4.Text = (5 / 9) *
Val((TextBox2.Text) - 32)
ElseIf
(ComboBox2.SelectedItem = "F->R")
Then
Label4.Text = (4 / 9) *
Val((TextBox2.Text) - 32)
Else
Label4.Text = (5 / 9) *
Val((TextBox2.Text) - 32) + 273
End If
End Sub
Private Sub
ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ComboBox3.SelectedIndexChanged
If
(ComboBox3.SelectedItem = "K->C")
Then
Label6.Text = Val(TextBox3.Text) -
Val(273)
ElseIf
(ComboBox3.SelectedItem = "K->R")
Then
Label6.Text = Val(4 / 5) *
Val((TextBox3.Text) - Val(273))
Else
Label6.Text = Val(9 / 5) *
Val((TextBox3.Text) + Val(32))
End If
End Sub
End Class
Dan setelah para penggila internet mengklik
“RUN” maka hasilnya akan seperti ini...
Anda hanya mengisi sebuah angka atau beberapa
angka pada kolom textbox seperti di atas, dan anda tinggal memilih dari suhu
apa menjadi suhu apa terserah anda...
Demikian tutorial dari saya, semoga bermanfaat
bagi para penggila internet dan selamat mencoba...
Terimakasih...
“SELAMAT BERJUANG DAN MENCOBA WAHAI SAUDARA KU”
