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 :
Copykan mantera dibawah ini :
Maka setelah program dijalan akan tampil seperti dibawah ini :
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 :
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 :
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.
Baca juga --> Contoh program pembayaran dengan visual basic
keren infonya, sangat menarik
ReplyDelete