Mengetahui lama komputer dinyalakan dengan delphi 7

Seringkali kita ingin mengetahui lama komputer kita telah dinyalakan.Bagaimana mengetahuinya !? Kita akan membuat program untuk menampilkan lama waktu komputer dinyalakan dengan delphi 7.Program sederhana ini bisa kita aplikasikan pada program-program lain sebagai pemanis yang bermanfaat.Lalu tunggu apalagi !? mari kita mulai.

Buka borland delphi 7 anda lalu tambahkan 1 buah komponen label dan componen timer (pada komponen pallete system) kedalamnya.Buatlah sebuah function dengan nama waktu hidup.Ketikan kode di bawah ini setelah {$R *.DFM}

function waktuHidup: string; //bertipe string
const
     detakPerHari : integer = 1000 * 60 * 60 * 24;//konstanta
     detakPerJam : integer = 1000 * 60 * 60;
     detakPerMenit : integer = 1000 * 60;
     detakPerDetik : integer = 1000;
var
   t : longword;  //untuk cardinal
   h, j, m, d : integer;

begin
     t := GetTickCount;

     h := t div detakPerHari;
     dec(t, h * detakPerHari);

     j := t div detakPerJam;
     dec(t, j * detakPerJam);

     m := t div detakPerMenit;
     dec(t, m * detakPerMenit);

     d := t div detakPerDetik;
     //hasil dari fungsi
     Result := 'Komputer anda telah di nyalakan selama : '+IntToStr(h)+ ' Hari '+IntToStr(j)+' Jam '+IntToStr(m)+' Menit '+IntToStr(d)+' Detik';
end;

Pilih timer1 lalu pada properties interval rubah menjadi 1.Double-klik komponen timer1 lalu tambahkan kode berikut

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:=waktuHidup;
end;

Coba jalankan program anda dengan menekan tombol F9.Maka label1 akan menampilkan waktu lama komputer anda hidup.Sekian tutorial kali ini semoga bermanfaat.

Simak Juga Tutorial Lainnya:

Delphi 7

• Cara Mendeteksi Running Application di Delphi 7
• Cara Membuat dan Menggunakan DLL di Delphi 7
• Efek Teks Berjalan Dan Kerlap-Kerlip di Delphi 7
• Simulasi Declare Component Secara Run Time di Delphi 7
• Konsep Inheritance/Pewarisan Di Delphi 7
• Optimalisasi Penggunaan Procedure di Delphi 7
• [SHARE]Komponen Multi Line Untuk Delphi 7
• Fungsi Drag and Drop String ke Komponen TEdit di Delphi 7
• Cara Membuat Aplikasi SWF-EXE Converter di Delphi 7
• Cara Membuat Aplikasi Uninstall di Delphi 7
• Cara Membuat Aplikasi Teracopy di Delphi 7
• Cara Membuat Aplikasi WinRar di Delphi 7
• Cara Membuat Aplikasi Penghitung Kapasitas Hard Disk di Delphi 7
• Cara Membuat Aplikasi TuneUp Shredder di Delphi 7
• Cara Konversi Karakter TEdit Menjadi UpperCase di Delphi 7
• Cara Membuat Aplikasi HJ Split di Delphi 7
• Video Tutorial :: Membuat Pencarian Data Super Cepat di Delphi 7
• Cara Menggunakan Case Of di Delphi 7
• Cara Membuat Aplikasi Pemesanan Kantin Di Delphi 7
• Cara Mengecek Primary Key Pada Saat Input Di Delphi 7
• Cara Membersihkan TEdit Secara Cepat Di Delphi 7
• Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7
• Cara Menjalankan Aplikasi Lain Di Delphi 7
• Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7
• Cara Membuat Aplikasi Entri Data Dengan Delphi 7

Info

• Cara Mencegah Flash CS4 Terkunci DI Windows 7
• Mesin Penukar Koin
• Masuk Bengkel , Motor Malah Gosong
• Cara Membuat Expired Date Untuk Aplikasi Di Delphi 7
• Proses Hamil Yang Bikin Ngakak
• Pesawat Terbang Yang Jadi Pajangan Di Halaman Rumah
• Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7
• Membuat Kue Dengan Photoshop
• Uniknya Photoshop Di Dunia Nyata
• Rush di Tabrak Mio Sampai Nungging
• Cara Membuat Animasi Sederhana Di Delphi 7
• Cara Menambahkan Fungsi Undo pada komponen edit di delphi 7
• Cara filter input karakter pada komponen edit di delphi 7
• Tutorial Delphi 7 Menampilkan Data Pada Diagram Grafik
• Mengenal Procedure dan Function Pada Delphi 7
• Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-4
• Tutorial Cara Install Komponen Quick Report 4 Pro Pada Delphi 7
• Cara Install Komponen Quick Report Pada Delphi 7
• Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-3
• Cara Menulis dan Membaca String Pada Registry Dengan Delphi 7
• Koneksi XAMPP , DAC MySQL dan Delphi 7
• Enkripsi Yang Bisa Difungsikan Untuk Serial Number Ala Saya
• Menyembunyikan File *.rar Di Dalam File Foto..
• Perhitungan Tabel Dengan Query Pada Delphi 7

Function

• Cara Membuat Integer to Binary Konverter dan Sebaliknya di Delphi
• Cara Mendeteksi Running Application di Delphi 7
• Cara Membuat Aplikasi SWF-EXE Converter di Delphi 7
• Cara Membuat Aplikasi HJ Split di Delphi 7
• Cara Menjalankan Aplikasi Lain Di Delphi 7
• Menjalankan Aplikasi Hanya Satu Kali Di Delphi 7
• Mengenal Procedure dan Function Pada Delphi 7