I.
Deskripsi
Program
Pada program ini menggunakan bahasa
pemrograman visual embarcadero XE4. Pada program ini adalah program hitung
waktu yang berupa stopwatch.
I.
Interface
Program
I.
Coding
Program
|
Nama Komponen
|
Event
|
Perintah
|
|
Button
1
|
On
Click
|
procedure TForm1.TombolClick(Sender:
TObject);
begin
if tombol.Caption = 'Start' then
begin
awal := Time;
edMulai.Text := TimeToStr(awal);
tombol.Caption := 'Stop';
Timer1.Enabled := true;
end
else if tombol.Caption = 'Stop' then
begin
tombol.Caption := 'Selesai';
Timer1.Enabled := False;
end
else
Application.Terminate;
end;
|
|
Timer
1
|
On
Timer
|
procedure TForm1.Timer1Timer(Sender:
TObject);
var SLama : string;
begin
akhir := time;
edSelesai.Text := TimeToStr(akhir);
Lama := (Akhir - Awal) * 100000;
Str(Lama:12:2,SLama);
edLama.Text := SLama;
end;
|
I.
Output
Tidak ada komentar:
Posting Komentar