MENGHITUNG
MUNDUR WAKTU
Tutorial kali ini kita
akan membuat trik untuk mamajukan waktu.
1.
Bukalah program visual basic dan
mulailah dengan form baru.
2.
Maskkan sebuah komponen Label, Timer dan CommandButton
ke dalam area form. Ubah lah propertis Interval
dari Timer1 menjadi 100
dan Enablednya menjadi False.
3.
Kemudian klik ganda di dalam area form,
setelah itu ketiklah perintah di bawah ini pada bagian General dan prosedur Form_Load.
1
2
|
'general
Dim
total10detik, totaldetik, detik10 As Integer
Dim
detik, menit, jam As Integer, time As Date
|
3
4
5
6
7
8
9
10
|
Private
Sub Form_Load()
jam = Hour(Now)
menit = Minute(Now)
detik = Second(Now)
time = TimeSerial(jam, menit, detik)
Label1.Caption = Format$(Timer,
"hh") & ":" & Format$(time, "nn") &
":" & Format$(time, "ss")
total10detik = detik * 10 + menit * 600 +
jam * 36000
End
Sub
|
Keterangan Kode
1-2
4-6
7
8
9
|
Mendeklarasikan
beberapa variabel dengan tipe data Integer.
Mengisi
variabel jam, menit dan detik
dengan nilai sesuai dengan nama variabel pada nilai waktu sistem komputer.
Mengisi
variabel Time dengan nilai untuk
mengubah nilai variabel menjadi format waktu.
Menampilkan
nilai waktu yang telah di tampilkan pada variabel Time ke dalam komponen Label1.
Mengisi
variabel total10detik dengan nilai
perkalian dan penambahan.
|
4.
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
11
12
13
14
15
|
Private
Sub Timer1_Timer()
If
total10detik <= 0 Then
Beep
Label1 = ".0:0:0"
Timer1.Enabled = False
Exit Sub
End
If
total0detik
= total10detik - 1
detik10
= total10detik Mod 10
totaldetik
= Int(total10detik / 10)
detik
= totaldetik Mod 60
menit
= Int(totaldetik / 60) Mod 60
jam
= Int(totaldetik / 3600)
Label1
= jam & ":" & menit & ":" & detik
End
Sub
|
Keterangan Kode
2-6
8
9
10
11-14
|
Membuat
kondisi apabila nilai variabel total10detik
lebih kecil atau sama dengan nol, maka propertis caption label1 akan diisi
dengan nilai nol dan menon-aktifkan Timer1. Kemudian membuat perintah untuk
mengakhiri perintah pada prosedur ini.
Mengisi
variabel total10deik dengan
pengurangan variabel itu sendiri dengan nilai 1 secara terus menerus.
Mengisi
variabel detik10 dengan perintah Mod supaya apabila nilai telah
mencapai nilai 10, maka akan dikembalikan ke nilai nol.
Mengisi
variabel totaldetik untuk
mendapatkan nilai bahwa nilai 10 dari variabel total10detik sama dengan 1 detik.
Mengisi
variabel detik, menit dan jam dengan nilai dari eksekusi
variabel totaldetik, kemudian
menampilkan variabel tersebut ke dalam komponen Label1.
|
1.
Aktifkan kembali tampilan desain form
dan klik ganda komponen Command1.
Ketiklah perintah di bawah ini untuk mengaktifkan dan menon-aktifkan komponen Timer.
1
2
3
|
Private
Sub Command1_Click()
Timer1.Enabled
= Not Timer1.Enabled
End
Sub
|
6.
Untuk mencoba hasilnya, tekan tombol F5 pada keyboard anda.
EmoticonEmoticon