Sistem Absensi Dan Laporan Penggajian

Cara Menggunakan ChekBox pada Visual Basic 2013

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.




Salam...,


No comments:

Post a Comment