Dasar 7. Check Box beserta Tanggal dan Jam

1. Buat sebuah form baru.
2. Masukan objek-objek berikut ini :

NAME	CAPTION	TOOL
ChkBuku	Buku	CheckBox
ChkPulpen	Pulpen	CheckBox
ChkGaris	Garis	CheckBox
ChkHapus	Hapus	CheckBox
ChkPensil	Pensil	CheckBox
TxtTotal	-	TextBox
TxtTanggal	-	TextBox
TxtJam	-	TextBox
Label1	Total Harga	Label
Label2	Tanggal	Label
Label3	Jam	Label
Timer1	-	Timer

KETERANGAN : Untuk Timer angka INTERVAL nya diganti menjadi 10. (diatas sepuluh juga boleh).

3. Listing Programnya :

Private Sub CHKBUKU_Click()
If CHKBUKU.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 2500
Else
If CHKBUKU.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 2500
End If
End If
End Sub

Private Sub CHKGARIS_Click()
If CHKGARIS.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 1000
Else
If CHKGARIS.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 1000
End If
End If
End Sub

Private Sub CHKHAPUS_Click()
If CHKHAPUS.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 500
Else
If CHKHAPUS.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 500
End If
End If
End Sub

Private Sub CHKPENSIL_Click()
If CHKPENSIL.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 1500
Else
If CHKPENSIL.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 1500
End If
End If
End Sub

Private Sub CHKPULPEN_Click()
If CHKPULPEN.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 2000
Else
If CHKPULPEN.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 2000
End If
End If
End Sub

 

Private Sub Timer1_Timer()
TXTTANGGAL.Text = Date
TXTJAM.Text = Time
End Sub 
    

4. Keterangan Listing Program diatas yaitu :
If CHKBUKU.Value = 1 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) + 2500
Else
If CHKBUKU.Value = 0 Then
TXTTOTAL.Text = Val(TXTTOTAL.Text) – 2500
End If
End If
Maksudnya jika CHKBUKU diberi tanda (contreng), maka isi dari TXTTOTAL adalah TXTOTAL tersebut ditambah 2500,
tapi jika CHKBUKU tidak diberi tanda (tidak dicontreng), maka isi dari TXTTOTAL adalah TXTOTAL tersebut dikurangi 2500.
begitu juga dengan CheckBox yang lainnya, penjelasannya seperti diatas.

Tanggal dan Jam
TXTTANGGAL.Text = Date artinya isi dari TXTTANGGAL adalah tanggal hari ini.
TXTJAM.Text = Time artinya isi dari TXTJAM adalah jam sekarang.

5. Cara memakai program ini adalah :
- Untuk tanggal dan jam akan keluar secara otomatis.
- Sedangkan untuk Total Harga, caranya dengan memberi tanda (mencontreng) pada CheckBox yang diinginkan. Boleh mencontreng lebih dari 1 CheckBox.


Selesai Juga Dech Tutorialnya....
Terimakasih Atas Kunjungannya....
Semoga Ilmu Yang Sedikit Ini Bermanfaat....
Jangan Lupa Like Post Ini Ya.... Terimakasih....

Print this page

Posted in: Visual Basic 6.0