Salam...,
Dalam
pelajaran ini, kita akan belajar kontrol ChekBox yang sangat penting dalam
Visual Basic 2013. ChekBox memungkinkan
pengguna untuk memilih satu atau lebih item dengan mencentang ChekBox yang
bersangkutan.
Dalam
contoh ini, kita membuat keranjang belanja di mana pengguna dapat mengklik ChekBoxg
yang sesuai dengan barang yang mereka berniat untuk membeli, dan total
pembayaran dapat dihitung pada waktu yang sama. Buatlah project baru dan tambahkan beberapa label, dua
tombol dan enam ChekBox pada Form Project tersebut. kita menyatakan harga setiap item dengan menggunakan
kata kunci Const. Untuk menghitung jumlah total pembelian, kita menggunakan
operator matematika + =. Sebagai contoh, jumlah = BN sebenarnya sum = sum + BN.
Akhirnya, kami menggunakan metode ToString untuk menampilkan jumlah dalam mata
uang.
Buka jendelah kode program Form dan masukkan atau Copas kode program berikut ini;
Public
Class Form1
Private
Sub cmdcalculated_Click(sender As Object, e As EventArgs) Handles BtnCal.Click
Const LX
As Integer = 100
Const BN
As Integer = 500
Const SD
As Integer = 200
Const HD
As Integer = 80
Const HM
As Integer = 300
Const AM
As Integer = 150
Dim sum
As Integer
If
CheckBox1.Checked = True Then
sum +=
LX
End If
If
CheckBox2.Checked = True Then
sum +=
BN
End If
If
CheckBox3.Checked = True Then
sum +=
SD
End If
If
CheckBox4.Checked = True Then
sum +=
HD
End If
If
CheckBox5.Checked = True Then
sum +=
HM
End If
If CheckBox6.Checked
= True Then
sum +=
AM
End If
LblTotal.Text
= sum.ToString(“c”)
End Sub
Private
Sub cmdreset_Click(sender As Object, e As EventArgs) Handles cmdreset.Click
CheckBox1.Checked
= False
CheckBox2.Checked
= False
CheckBox3.Checked
= False
CheckBox4.Checked
= False
CheckBox5.Checked
= False
CheckBox6.Checked
= False
End Sub
End
Class
Jalankan Program, klik ChekBox sesuai kebutuhan anda lalu klik cmdcalculated, maka hasilnya akan seperti Gambar dibawah ini, tekan cmdreset untuk menghilangkan tanda centang.
Sekarang kita telah membuat Langkah Pertama dalam penggunaan ChekBox pada Visual Basic 2013 , Silahkan Anda kembangkan lagi dan belajar lebih banyak teknik pemrograman VB2013.
Pelajari Juga Tutorial Visual Basic 2013 berikut ini ;
Membuat Projek Baru pada Visual Basic 2013
Salam...,
No comments:
Post a Comment