Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu

Menjumlahkan Nilai Checkbox Pada Visual Basic

· · 1 comments
Assalamu'alaikum, wr.wb

Contoh Program Checkbox Pada Visual Basic - Selamat datang rekan-rekan di blog mungil ini. Dikesempatan yang mengharukan ini kita masih berbincang-bincang mengenai salah satu toolbox pada bahasa pemograman Visual Basic yaitu checkbox. Sebelumnya kita juga bahas ini yaitu mengkombinasikan checkbox dengan textbox.

Silahakan baca --> Contoh sederhana penggunaan checkbox

Pada artikel ini saya mencoba sajikan (kayak makan) kepada rekan-rekan contoh penggunaan checkbox dengan studi kasus yang sedikit lebih necis. Yaitu bagaimana menjumlahkan nilai pada checkbox kemudian menampilkannya pada sebuah textbox. Maksudnya nilai yang telah kita defenisikan pada sebuah sebuah checkbox loh ya, karena pada dasarnya checkbox tidak memiliki kecuali nilai (tanda) angka 1 dan nol (0). Angka 1 untuk mennunjukkan checkbox di ceklis dan angka nol tidak.

Desain Programmnya seperi gambar dibawah ini :

Belajar checkbox di visula basic

Copykan mantera dibawah ini :

Private Sub Check1_Click()
If Check1.Value = 1 And Check2 = 1 And Check3 = 1 Then
      text1.Text = 1100000
  ElseIf Check1 = 1 And Check2 = 1 And Check3 = 0 Then
      text1.Text = 900000
  ElseIf Check1 = 1 And Check2 = 0 And Check3 = 0 Then
      text1.Text = 750000
  ElseIf Check1 = 0 And Check2 = 1 And Check3 = 0 Then
      text1.Text = 150000
  ElseIf Check1 = 0 And Check2 = 0 And Check3 = 1 Then
      text1.Text = 200000
  ElseIf Check1 = 1 And Check2 = 0 And Check3 = 1 Then
      text1.Text = 950000
  ElseIf Check1 = 0 And Check2 = 1 And Check3 = 1 Then
      text1.Text = 350000
  Else
       text1.Text = 0
   End If
End Sub

Private Sub Check2_Click()
If Check1.Value = 1 And Check2 = 1 And Check3 = 1 Then
      text1.Text = 1100000
  ElseIf Check1 = 1 And Check2 = 1 And Check3 = 0 Then
      text1.Text = 900000
  ElseIf Check1 = 1 And Check2 = 0 And Check3 = 0 Then
      text1.Text = 750000
  ElseIf Check1 = 0 And Check2 = 1 And Check3 = 0 Then
      text1.Text = 150000
  ElseIf Check1 = 0 And Check2 = 0 And Check3 = 1 Then
      text1.Text = 200000
  ElseIf Check1 = 1 And Check2 = 0 And Check3 = 1 Then
      text1.Text = 950000
  ElseIf Check1 = 0 And Check2 = 1 And Check3 = 1 Then
      text1.Text = 350000
  Else
       text1.Text = 0
  End If
End Sub

Private Sub Check3_Click()
If Check1.Value = 1 And Check2 = 1 And Check3 = 1 Then
      text1.Text = 1100000
  ElseIf Check1 = 1 And Check2 = 1 And Check3 = 0 Then
      text1.Text = 900000
  ElseIf Check1 = 1 And Check2 = 0 And Check3 = 0 Then
      text1.Text = 750000
  ElseIf Check1 = 0 And Check2 = 1 And Check3 = 0 Then
      text1.Text = 150000
  ElseIf Check1 = 0 And Check2 = 0 And Check3 = 1 Then
      text1.Text = 200000
  ElseIf Check1 = 1 And Check2 = 0 And Check3 = 1 Then
      text1.Text = 950000
  ElseIf Check1 = 0 And Check2 = 1 And Check3 = 1 Then
      text1.Text = 350000
  Else
       text1.Text = 0
   End If
End Sub







Maka setelah program dijalan akan tampil seperti dibawah ini :

menggunakan checkbox di VB

Nah pada sourcode diatas sebenar codingnya sama saja pada checkbox 1,2 dan 3.Dengan memahami konsep diatas, sekarang kita bisa mengkombinasikan teknik diatas pada program kita. Moga bermanfaat. Nah.. begitulah. 


1 comments:

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan