Konversi Detik Menggunakan Delphi

Ada tugas kuliah, disuruh untuk membuat program konversi detik menggunakan bahasa pemrograman delphi,,, awalnya lumayan mumetzz,,, tapi setelah aku tanya sama mbah google :), akhirnya di kasih tau juga.... Berbekal modul di internet, lalu coba-coba saja aku rancang tampilan seperti berikut:



Ini neh listing programnya....

var
Form1: TForm1;
totdet, sisa, jam, menit, detik : integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
totdet := strtoint(edit1.text);
jam := totdet div 3600;

sisa := totdet mod 3600;
menit := sisa div 60;
detik := sisa mod 60;
edit2.text := inttostr(jam);
edit3.text := inttostr(menit);
edit4.text := inttostr(detik);
application.MessageBox('Proses berhasil','Informasi',mb_ok or mb_iconexclamation);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
end.



dan setelah program dijalankan, maka hasilnya seperti berikut ini:


semoga bermanfaat ya plendd,,,,
Kalau mau download modul ini, silahkan klik disini