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....



0 komentar:

Posting Komentar