Tutorial kali ini kita akan membahas mengenai pengurangan jam dan tanggal menggunakan visual basic.
1. Bukalah program visual basic dan mulailah dengan form baru.
2. Masukkan tiga komponen Label dan TextBox ke dalam area form, sehingga tampak seperti gambar di bawah ini :
3. Selanjutnya klik kanan di dalam area Toolbox dan klik Components untuk menambahkan komponen baru.
4. Di dalam kotak dialog Components, beri tanda cek pada pilihan Microsoft Windows Common Cotrols-2 6.0 kemudian klik Ok.
5. Kemudian masukkan sebuah komponen DtPicker dan Timer kedalam area form.
6. Selanjutnya klik ganda di dalam area form dan ketiklah perintah di bawah ini pada event Load.
1
2
3
4
5
|
Private
Sub Form_Load()
Timer1.Interval
= 100
Text1
= Timer
Caption
= "Tanggal hari ini : " & Date
End
Sub
|
Keterangan Kode
2
3
4
|
Memberi
nilai propertis Interval pada komponen Timer.
Mengisi
nilai waktu berdasarkan waktu pada sistem komputer anda di dalam komponen
Text1.
Mengubah
propertis caption dari form untuk menampilkan tanggal yang terdapat pada
sistem komputer anda.
|
7. Kembali ke tampilan desain form. Klik ganda pada komponen Timer dan ketiklah perintah di bawah ini.
1
2
3
4
5
6
7
8
9
10
|
Private
Sub Timer1_Timer()
Dim awal As Date
Dim akhir As Date
Dim lama As Date
Text2 = Time
awal = Text1
akhir = Text2
lama = awal - akhir
Text3 = lama
End
Sub
|
Keterangan Kode
2-4
5
6-9
|
Mendeklarasikan
bebrapa variabel dengan tipe data Date.
Mengisi
komponen Text2 dengan nilai waktu yang aktif pada komputer kita.
Mengisi
variabel awal dan akhir dengan nilai yang erdapat did alam komponen TextBox.
Kemudian mengisi variabel lama dengan hasil pengurangan variabel awal dan
akhir, setelah itu hasil yang didapat pada variabel lama di tampilkan pada
komponen Text3.
|
8. Aktifkan kembali tampilan desain form dan klik ganda komponen DTPicker. Ubahlah event CallbackKetDown menjadi event Change, ketiklah perintah di bawah ini.
1
2
3
4
5
6
|
Private
Sub DTPicker1_Change()
Dim hari As Integer
hari = DTPicker1.Value - Date
MsgBox "Hasil pengurangan tanggal
" & Date & " dan " & DTPicker1.Value & "
adalah " & hari & " hari "
End
Sub
|
Keterangan Kode
2-3
4
|
Mendeklarasikan
variabel hari dengan tipe data Integer, kemudian mangisi variabel hari dengan
pengurangan nilai tanggal pada komponen DTPicker dan tanggal pada sistem
komputer anda.
Menampilkan
sebuah kotak pesan hasil pengurangan pada variabel hari.
|
9. Untuk mencoba hasilnya tekan tombol F5 pada keyboard anda.
