Deteksi Waktu Windows

Sekarang Anda akan membuat sebuah program yang dapat mendeteksi berapa
lama Windows atau komputer dinyalakan. Program ini dapat digunakan untuk
mendeteksi komputer pribadi kesayangan Anda.

A. Membuat Tampilan Program
1. Bukalah program aplikasi Visual Basic 6.0.
2. Perhatikan gambar dibawah ini. Dalam kotak dialog New Project Anda pilih
Standard EXE, kemudian klik tombol Open.Setelah itu akan tampil form Standard
EXE yang masih kosong.

setelah itu kita membutuhkan beberapa komponen-komponen yaitu?

Atur semua komponen-komponen sesuai dengan gambar pertama.

Sebelum mengisi kode program, terlebih dahulu kita tambahkan satu buah modul
yang di butuhkan dalam pembuatan program ini.
1. Caranya klik kanan form1 yang terdapat di jendela project, klik add setelah
itu pilih module.

2. Setelah tampil kotak Add Module klik Open.

3. Maka akan tampil jendela kode untuk modul, lalu ketik kode program berikut.
"Declare Function GetTickCount Lib "kernel32" () As Long"
4. Di jendela kode program untuk form Anda ketik kode program berikut.
"Dim tanggal, jam, kiri As Integer"
4. Setelah kode diketik selanjutnya klik ganda Timer1 ketik kode program berikut.
Private Sub Timer1_Timer()
tanggal = Format(Date, "dd-mmm-yyyy")
jam = Format(Time, "hh:mm:ss")
Label2.Caption = jam & " " & tanggal
If Option1.Value = True Then
kiri = (GetTickCount \ 1000) / 3600
Text1.Text = Left(kiri, 4) & " Jam"
ElseIf Option2.Value = True Then
Text1.Text = (GetTickCount \ 1000) \ 60 & " Menit"
ElseIf Option3.Value = True Then
Text1.Text = (GetTickCount \ 1000) & " Detik"
Else
Text1.Text = (GetTickCount) & " Milidetik"
End If
End Sub

5. Kemudian klik ganda pada command1 ketik kode program berikut ini.
Private Sub Command1_Click()
Unload Me
End Sub
setelah semua langkah-langkah selesai kemudian jalankan program nya.
selamat mencoba.
klik like di facebook sosial