Cara Mengetahui/Mendeteksi Durasi OS Windows VB6

Berikut ini adalah cara mendeteksi berapa lama (durasi) sistem operasi Windows berjalan sejak komputer dinyalakan sampai saat ini di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Module, 1 Form, dan 1 Commandbutton.
2. Copy-kan coding berikut ke dalam editor Module dan Form yang bertalian.

          'Contoh ini akan menampilkan lama waktu Windows telah berjalan dalam milidetik.
          '1000 milidetik = 1 detik. Untuk mengkonversi dari milidetik ke detik, bagi hasilnya dengan 1000.

          '--- Coding ini di Module Anda...
          Declare Function GetTickCount Lib "kernel32" () As Long

          '--- Batas coding di Module...

          '--- Coding ini di Form Anda...
          Private Sub Command1_Click()

             MsgBox "Windows telah berjalan selama " _
                     & GetTickCount \ 1000 & " detik", _
                     vbInformation, "Informasi Lama Windows Berjalan"
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module