neitro design: Deteksi Waktu Windows

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

Gambar 1 Tampilan program

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.

Gambar 2 Pilih Standard EXE

2. Setelah itu akan tampil form Standard EXE yang masih kosong.

Gambar 3 Form Standard EXE

3. Tambahkan komponen Frame ke dalam form yang masih kosong lalu klik
icon Frame yang terdapat di Toolbox General.

Gambar 4 Klik icon Frame

4. Setelah itu klik dan drag di dalam form dari P1 sampai P2 lihat Gambar 5.
5. Tambahkan lagi dua buah Frame , atur posisi seperti Gambar 6.
6. Setelah itu tambahkan empat buah Option , atur posisi seperti Gambar 7.
7. Lalu tambahkan Label , dan atur posisi seperti Gambar 8.

Gambar 5 Membuat Frame

Gambar 6 Membuat Frame

Gambar 7 Membuat Option

Gambar 8 Membuat Label

8. Dengan cara yang sama buatlah satu buah Textbox ke dalam form.

Gambar 9 Membuat Textbox

9. Setelah itu tambahkan satu buah CommandButton serta Timer .

Gambar 10 Membuat CommandButton dan Timer

10. Aturlah properties masing-masing komponen seperti tabel di bawah ini.
Tabel 1 Pengaturan Properties

B. Listing Program
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.

Gambar11 Menambah Module

2. Setelah tampil kotak Add Module klik Open.

Gambar 12 Kotak Add Module

3. Maka akan tampil jendela kode untuk modul, lalu ketik kode program berikut.

Keterangan :
- Baris 1 Mendeklarasikan kode yang akan digunakan.
1 Declare Function GetTickCount Lib "kernel32" () As Long

4. Di jendela kode program untuk form Anda ketik kode program berikut.

Keterangan :
- Baris 1 merupakan fungsi API yang telah dideklarasikan ke dalam
modul untuk dipanggil oleh kode lain.

4. Setelah kode diketik selanjutnya klik ganda Timer1 ketik kode program berikut.

Keterangan :
- Baris 1-3 memformat tanggal dan jam yang akan ditampilkan di label2
- Baris 4-13 menentukan nilai formatan dari waktu yang akan ditampilkan
ke dalam text1 sesuai dangan option yang dipilih

5. Kemudian klik ganda pada command1 ketik kode program berikut ini.

Keterangan :
- Baris 1 perintah untuk keluar program.

C. Menjalankan Program1. Jalankan program yang telah kita buat tadi dengan menekan tombol F5 pada
keyboard, setelah itu akan tampil program seperti gambar di bawah ini.

Gambar 13 Program saat dijalankan

2. Jika Anda ingin melihat dalam format jam, Anda tinggal pilih option jam.
Lihat Gambar 14.
3. Anda juga dapat melihat dalam format detik. Lihat Gambar 15.
4. Bahkan Anda juga dapat melihat dalam format milidetik. Lihat Gambar 16.