Visual Basic 2010
Cara Sederhana Menggunakan Checkbox dan Fungsinya
Assalamu’alaikum warahmatullohi wabarakatuh
Kembali lagi bersama saya guys,..
Sekarang kita akan mencoba untuk
menggunakan salah satu fungsi yang ada pada checkbox pada aplikasi visual
studio 2010/ visual basic 2010.....
Ok langsung aja tanpa basa dan basi.
Lets do it.........
Berikut adalah langkah-langkahnya.
1.
Pada Start page akan muncul New Project
atau alternatif lain klik menubar file > new project
2.
Kemudian pada kolom installed template pilih visual basic > windows
3.
Lalu pada kolom tengah pilih Windows Forms Application
4.
Kemudian pada name dan location silahkan tentukan sendiri, Lalu klik OK
5.
Setelah itu kita tempatkan komponen yang kita perlukan,
Misalkan
disini saya akan memberikan contoh dengan menggunakan 3 Label, Checkbox 4,
Button 4 dan Groupbox 1.
- Kita drag label, checkbox, button,
dan groupbox ke form dan desainlah sesuai keinginan.
รจ
Kemudian ubah semua teksnya (checkbox,button,label)
sesuai keinginan.
Minsalnya saya disini merubahnya
dengan :
Label1 menjadi misalnya ‘Daftar Menu’
Label2 menjadi ‘.......’
Label3 menjadi ‘Rp =’
Checkbox1 menjadi ‘Bakso Ijo’
Checkbox2 menjadi ‘Nasi Goreng Naga’
Checkbox3 menjadi ‘Mie Ular’
Checkbox4 menjadi ‘Plecing Rumput’
Button1 menjadi ‘Tampilkan’
Button2 menjadi ‘Close’
Button3 menjadi ‘Delete’, dan
Button4 menjadi ‘Click Me Please’
Kemudian kita masukkan rumusnya :
Pertama ke dalam form1 dengan
mengkliknya 2 kali
Seperti ini :
Private Sub Form1_Load(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles MyBase.Load
Me.Text = " Daftar
Menu Makanan "
Label1.Text = " Daftar Menu "
CheckBox1.Text = " Bakso Ijo "
CheckBox2.Text = " Nasi Goreng Naga
"
CheckBox3.Text = " Mie Ular "
CheckBox4.Text = " Plecing Rumput
"
Button1.Text = " Tampilkan "
Button2.Text = " Close "
Button3.Text = " Delete "
End Sub
Kedua ke dalam button1 dengan mengkliknya
2 kali
Seperti ini :
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button1.Click
If CheckBox1.Checked Then
Label2.Text = CheckBox1.Text
Else
End If
If CheckBox2.Checked Then
Label2.Text = CheckBox2.Text
Else
End If
If CheckBox3.Checked Then
Label2.Text = CheckBox3.Text
Else
End If
If CheckBox4.Checked Then
Label2.Text = CheckBox4.Text
Else
End If
End Sub
Ketiga ke dalam button2 dengan
mengkliknya 2 kali juga
Seperti ini :
Private Sub Button2_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button2.Click
Close()
End Sub
Keempat ke dalam button3 klik 2 kali
Seperti ini
Private Sub Button3_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button3.Click
Label2.Text = ""
Label3.Text = "Rp ="
End Sub
Keempat ke dalam button4 klik 2 kali
juga
Seperti ini
Private Sub Button4_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Button4.Click
Button4.Text = "Thank's For Watch"
End Sub
Kelima ke dalam label2 klik 2 kali
Seperti ini
Private Sub Label2_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Label2.Click
If CheckBox1.Checked Then
Label3.Text = "Rp. 100.000,-"
Else
End If
If CheckBox2.Checked Then
Label3.Text = "Rp. 50.000,-"
Else
End If
If CheckBox3.Checked Then
Label3.Text = "Rp. 80.000,-"
Else
End If
If CheckBox4.Checked Then
Label3.Text = "Rp. 220.000,-"
Else
End If
Atur font, urutan dan backgroudnya
sesuai dengan keinginan sehingga outputnya seperti dibawah ini.......
Maka dengan demikian kita akan
membuatnya dapat di run / dapat dijalankan, dan akan terlihat outputnya
seperti dibawah ini
Selesai sudah.
Syukran akh,, semoga bermanfaat
Wa’alaikumussalam Warahmatullohi
Wabarakaatuh......
