Menghitung Lama Komputer sejak Start-Up/dinyalakan

Assalamu’alaikum Wr.Wb

Pagi semua.. Semalem ujan mati lampu, gak jadi update. Ya udah sekarang aja.. :D . Pernahkah kalian mengetahui lama komputer sejak dinyalakan(kurang gae rif, ,) ya Cuma buat share aja apa salahnya kan..? Aplikasi ini dibuat dengan Visual Basic, lagi-lagi Visual Basic(-_-‘) , (^_^) . Mumpung kok, keburu lupa cepet-cepet di share aj..

Langkah awalnya yaitu :

-          Buka Visual Basic – Pilih Standar.Exe

-          Tambahkan 1 Timer(ubah intervalnya menjadi 1000)

-          2 Label(hanya untuk judul, captionnya silahkan diganti sesuai selera)

-          Tambahkan 1 ListBox

Kurang lebih tampilannya seperti berikut..

 

Kemudian tambahkan satu module..Caranya..Klik Add Project kemudian klik Add Module – Klik Open

             

Masukkan kode / script / listing program berikut di Module :

Public Declare Function GetTickCount Lib "kernel32" () As Long
Public nTime As Long

Kemudian Masukkan script / kode / lsting program berikut di Form :

Private Sub Form_Load()

nTime = GetTickCount()

End Sub

      

Private Sub Timer1_Timer()

Dim Wektu As Long

Dim detik As Long

Dim menit As Long

Dim jam As Long

Wektu = GetTickCount()

detik = Round(Wektu / 1000)

menit = Round(detik / 60)

jam = Round(menit / 60)

List1.Clear

List1.AddItem ("")

List1.AddItem (jam & " Jam, utawa " & menit & " Menit, atau " & _

detik & " Detik")

List1.AddItem ""

List1.AddItem "Wektu awet Program iki di lakokne wis " & Round((Wektu - nTime) / 1000) & " Detik iki"

End Sub

Setelah itu silahkan tekan F5, Jreng – jreng tampilannya kurang lebih pasti seperti ini.. (^_^) 

 

Selamat mencoba..

Semoga bermanfaat..

Wassalamu’alaikum Wr.Wb

These icons link to social bookmarking sites where readers can share and discover new web pages.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

Tags: Tips n Trick, Visual Basic