Cara Membuat Program Desktop Stopwatch for Widnows dengan Lazarus Free Pascal

 Kali ini saya membuat program Desktop Stopwatch dengan Lazarus Free Pascal. Stopwatch adalah pencatat waktu yang terjadi antara dua peritas, yakni memulai dan berakhir. Umumnya stopwatch memiliki tombol untuk memulai pencatatan, menghentikan dan melanjutkan pencatatan dan tombol reset untuk memulai dari awal.

Program Desktop Stopwatch menggunakan komponen TTimer untuk melakukan pencatatan waktu dan perubahan terjadi setiap detik. Untuk itu TTimer, Timer1 interval nya di-set 1000ms atau 1 detik.

Berikut prosedur Timer1 memperlihatkan akan selalu menambahkan nilai satu pada variabel Second, Minutes, dan Hours sesuai dengan perhitungan waktu. Misal detik memiliki nilai mulai dari 0 sampai 59, menit dimulai dari 0 hingga 59 dan jam diawali dari 0 sampai dengan 23.

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;       

Kamu bisa unduh source code nya disini dan lihat videonya untuk penjelasan secara visual dibawah.