Membuat Program Stopwatch Desktop Menggunakan Lazarus Pascal

Stopwatch atau jam sukat atau jam randek adalah pencatat waktu untuk mengetahui perubahan dua kejadian yakni kejadian awal dan kejadian akhir. Stopwatch adalah alat yang memiliki setidaknya dua tombol yang berfungsi memulai penghitungan waktu dan tombol lainnya menghentikan pencatatan. Dalam bentuk visual, stopwatch menunjukkan perhitungan secara analog (jarum berputar) dan digital (penampil angka). You can download source code by click here.

Lazarus - Berikut merupakan program Stopwatch Desktop yang dijalankan menggunakan komputer. Yukk kita mulai menuliskan kode programnya. 

Perlu dikatehui bahwa takaran maksimum waktu satuan detik adalah 60 yang mengembalikan nilai 0. Serupa dengan menit emiliki batasan hingga 60, kecuali jam bernilai maksimum 24.

Komponen utama program Stopwatch adalah Timer yang bisa ditemukan di palet System.

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  //Count a second

  Inc(Second);

  if Second < 10 then

    LblSecond.Caption:= '0' + IntToStr(Second)

  else

    LblSecond.Caption:= IntToStr(Second);

  //Count a minute

  if Second > 59 then

  begin

    Second:= 0;  //Reset second

    Inc(Minutes);

    LblSecond.Caption:= '00';

    if Minutes < 10 then

       LblMinutes.Caption:= '0' + InttoStr(Minutes)

    else

       LblMinutes.Caption:= InttoStr(Minutes);

  end;

  //Count a hour

  if Minutes > 59 then

  begin

    Minutes:= 0; // Reset minutes

    Inc(Hours);

    LblMinutes.Caption:= '00';

    if Hours < 10 then

      LblHours.Caption:= '0' + IntToStr(Hours)

    else

      LblHours.Caption:= IntToStr(Hours);

  end;

  if Hours = 24 then

  begin

    Hours:= 0; // Reset hours

    LblHours.Caption:= '00';

  end;

end;

Diatas sepenggal skrip program stopwatch untuk kode utuhnya kamu bisa unduh disini.

Sekarang, tugas kamu menambahkan hitungan milidetik dibelakang detik. Selamat mencoba.