Menggunakan Beberapa Form Dalam DataBase Microsoft Visual Basic 6.0

Syntax CheckBox

Syntax ini berfungsi hampir sama dengan OptionButton tapi yang membedakan adalah dimana kita bisa memilih lebih dari satu ataupun semuanya dan data yang ditampilkan sesuai dengan apa yang anda inputkan.

Pada latihan ini kita mengguanakan ketentuan sebagai berikut :

Name CheckBox	Variable	Ketentuan
Check 1	MP	8000
Check 2	MS	15000
Check 3	MM	25000
Check 4	SPA	250000
Check 5	BP	5000

Ketikalah Syntax sebagai berikut dan Copykan kesemua CheckBox.

Private Sub Check1_Click()

Dim MP, MS, MM, SPA, BP As Single

Dim BL As Long

If Check1.Value = 1 Then

MP = 8000

Else

MP = 0

End If

If Check2.Value = 1 Then

MS = 15000

Else

MS = 0

End If

If Check3.Value = 1 Then

MM = 25000

Else

MM = 0

End If

If Check4.Value = 1 Then

SPA = 250000

Else

SPA = 0

End If

If Check5.Value = 1 Then

BP = 5000

Else

BP = 0

End If

BL = MP + MS + MM + SPA + BP

Text9.Text = BL

End Sub

Catatan : untuk menghindari kesalahan saat pengetikan saya mengganjurkan untuk dicopy saja pada setiap CheckBox