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
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:
Post a Comment