Cara Mengetahui Informasi Sudah Berapa Lama Windows di Jalankan di VB6

Selamat berjumpa lagi di tips dan trik VB, buat pembaca setia kali ini tips trik vb akan membuat sebuah trik yang menarik yaitu sebuah trik yang dapat menampilkan dikomputer Anda sebuah form yang dapat memberikan informasi kepada Anda berapa lama komputer yang sudah dijalankan atau dihidupkan oleh Anda dalam hitungan menit dan detik.

Sebenarnya program ini hanya ingin memberitahukan kepada Anda sudah berapa lama sih komputer kita berjalan?, ini penting bagi Anda yang suka menggunakan komputer yang pemakaianya ingin di tentukan misal Saya akan bermain 1 jam saja maka ini perlu untuk memberi batasan agar tidak berlebihan dalam memakai komputer sebagai pengingat.

Bagi Anda yang penasaran bagaimana cara membuatnya, ikutilah langkah-langkah berikut dibawah ini :

Cara Mengetahui Informasi Sudah Berapa Lama Windows di Jalankan di VB6


1. Buka Form baru di VB60 Anda
2. Letakan 6 Label dan 1 Timer di Form
3. Atur Propeti dan Desain seperti Gambar dibawah ini :


   Pengaturan Properti sebagai berikut :

Kontrol
Properti
Label1 Caption : Windows sudah dijalankan selama
Label2 Caption : Atau sekitar
Label3 Label3
BorderStyle - FixedSingle
Label4 Label4
BorderStyle - FixedSingle
Label5 Caption: detik
Label6 Caption: menit
Timer Interval: 1

4. Buka Jendela kode, kemudia Anda ketik kode dibawah ini :

Private Declare Function GetTickCount& Lib "kernel32" ()
Dim x As Long

Private Sub Timer1_Timer()
x = GetTickCount()
detik = x \ 1000
menit = x \ 60000
Label3.Caption = detik
Label4.Caption = menit

End Sub

Demikianlah tips singkat kali tentang Cara Mengetahui Informasi Sudah Berapa Lama Windows di Jalankan, semoga tips ini bermanfaat dan dapat menambah wawasan pemograman kita khusus VB60. Terimakasih atas kunjungan dan Selamat mencoba semoga berhasil.

No comments: