Latihan Delphi – Membuat jam Digital


Pada sesi latihan ini anda akan diperkenalkan dengan control timer yang berfungsi untuk menjalankan suatu baris atau beberapa baris perintah dalam interval secara kontinyu.  Ada 2 Properti Timer yang sering digunakan yaitu:

  • Interval, properti ini digunakan untuk mengatur selang waktu pengeksekusian perintah, nilainya menyatakan dalam ms (milisecond) atau 1/1000 detik. Sebagai contoh, jika properti interval diberi nilai 1000 maka proses eksekusinya setiap detik.
  • Enabled, properti ini berfungsi untuk mengatur apakah perintah dapat dieksekusi atau tidak. Jika bernilai True maka baris perintah akan dieksekusi. Sebaliknya jika properti Enabled ini diberi nilai False maka perintan tidak akan dieksekusi.

Untuk memudahkan pemahaman berikut ini contoh program jam digital menggunakan control Timer. Buatlah form dan letakkan sebuah control timer, label, dan button seperti pada gambar berikut ini.

Delphi - Jam Digital

Delphi - Jam Digital

Lakukan pengaturan properti pada control Timer1, Pada property Timer diisi = 1000, maksudnya agar perintah dikerjakan setiap 1 detik. Atur properti Enabled dengan True, dengan demikian perintah dapat dikerjakan begitu form dibuka.

Selanjutnya ketik pengkodeannya dengan mengklik ganda control timer1. Adapun codingya sebagai berikut:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     Label1.Caption:=formatdatetime('"Time  :"hh:mm:ss',now)
end;

Perintah tersebut akan dikerjakan berulang-ulang sesuai dengan interval waktu yang telah ditentukan.

Tambahkan kode berikut pada button1 untuk menutup form

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     Close;
end;

11 thoughts on “Latihan Delphi – Membuat jam Digital

  1. mau nanya nih bang…
    kasusnya, ada 2 waktu :
    1.waktu mulai bermain
    2.waktu selesai bermain
    bagaimana listing untuk mencari selisih dari waktu mulai ke waktu selesai atau dengan kata lain lamanya bermain?

  2. makasih bro, aq tertolong nih….. dengan adanya script mu,
    hanya kalau mencarai file auto matis cara nya gimana kayak membuat searching.
    aq males cari buku kwkwkwkwk

  3. nanya bang, misalnya aplikasi absensi dishare dikomputer klien, nah pegawai dapat absensi di komputer klien tersbut, source nya agar jam tersebut ngikutin jam pada server, bukan pada jam komputer klien?

    • Uses
      // …..
      ShellApi;

      ……….
      Var
      b: String;
      Err: Integer;
      ……….
      b := ‘time \\192.168.20.7 /set /y’;
      Err:= ShellExecute(Handle, ‘open’,’net’,pchar(b), nil, SW_HIDE);
      If Err < 33 Then
      Case Err Of
      ERROR_FILE_NOT_FOUND : ShowMessage('ERROR_FILE_NOT_FOUND');
      ERROR_PATH_NOT_FOUND : ShowMessage('ERROR_PATH_NOT_FOUND');
      ERROR_BAD_FORMAT : ShowMessage('ERROR_BAD_FORMAT');
      SE_ERR_ACCESSDENIED : ShowMessage('SE_ERR_ACCESSDENIED');
      SE_ERR_ASSOCINCOMPLETE: ShowMessage('SE_ERR_ASSOCINCOMPLETE');
      SE_ERR_DDEBUSY : ShowMessage('SE_ERR_DDEBUSY');
      SE_ERR_DDEFAIL : ShowMessage('SE_ERR_DDEFAIL');
      SE_ERR_DDETIMEOUT : ShowMessage('SE_ERR_DDETIMEOUT');
      SE_ERR_DLLNOTFOUND : ShowMessage('SE_ERR_DLLNOTFOUND');
      SE_ERR_NOASSOC : ShowMessage('SE_ERR_NOASSOC');
      SE_ERR_OOM : ShowMessage('SE_ERR_OOM');
      SE_ERR_SHARE : ShowMessage('SE_ERR_SHARE');
      End;
      ………

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s