MENGHITUNG
MAJU WAKTU
Dalam pembuatan
aplikasi waktu parkir ataupun rental, tutorial kali ini untuk menghitung maju
waktu yang dapat anda gunakan.
1.
Bukalah program visual basic dan
mulailah dengan form baru.
2.
Masukkan sebuah komponen Timer dan Label ke dalam area form,kemudian ubah propertis Interval dari Timer1 menjadi 100 dan Enabled nya menjadi False.
3.
Selanjutnya tambahkan lagi dua komponen CommandButton ke dalam area form
sehingga tampilan form tampak seperti gambar dibawah ini :
4.
Klik ganda pada komponen Timer, ketiklah perintah di bawah ini
pada bagian General dan prosedur Timer1_Timer.
|
1
2
|
'General
Dim
total10detik, totaldetik, detik10 As Integer
Dim
detik, menit, jam As Integer
|
|
3
4
5
6
7
8
9
10
11
|
Private
Sub Timer1_Timer()
total10detik = 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 & ":" & detik10
End
Sub
|
Keterangan
Kode
1-2
4
5
6
7-10
|
Mendeklarasikan
bebrapa variabel dengan tipe data Integer.
Mangisi
variabel total10detik dengan
penambahan 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 bahwan nilai 10 dari variabel total10detik bersama dengan 1 detik.
Mengisi
variabel detik, menit dan jam dengan nilai dari eksekusi
variabel total10detik, kemudian
menampilkan variabel tersebut ke dalam komponen Label1.
|
5.
Kembali ke tampilan desain form,
kemudian klik ganda komponen Command1.
Ketiklah peintah di bawah pada prosedur Command1_Click
dan lakukan hal yang sama pada prosedur Command2_Click.
|
1
2
3
|
Private
Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End
Sub
|
|
4
5
6
7
|
Private
Sub Command2_Click()
total10detik = -1
Timer1.Enabled = True
End
Sub
|
Keterangak Kode
2
5-6
|
Perintah
ini untuk mengaktifkan dan menon-aktifkan komponen Timer.
Mengembalikan
nilai pada variabel total10detik
menjadi -1 supaya menghasilkan nilai 0 pada saat ditambah dengan nilai 1,
kemudian mengkatifkan komponen Timer1.
|
6.
Untuk mencoba hasilnya, tekan tombol F5.
EmoticonEmoticon