- Deskripsi Program
Program ini adalah
program penghitung biaya telepon. Saat program ini dijalankan, pertama pengguna
diminta untuk memasukkan lama bicara dan memilih apakah pelanggan atau tidak,
untuk melihat jumlah pembayaran biaya telepon maka pengguna harus mengklik
tombol Hitung pada program. Apabila pengguna adalah pelanggan maka akan ada
potongan harga untuk pengguna. Selain tombol hitung, pada program juga ada
tombol Hapus dan tombol Tutup, tombol hapus berfungsi untuk mengosongkan semua
kolom yang berisi perhitungan biaya telepon pengguna tadi, sedangkan tombol
tutup berfungsi untuk keluar dari program.
- Interface Program
- Coding Program
Nama
Komponen
|
Event
|
Perintah
|
Tombol1
|
OnClick
|
procedure TForm1.Button1Click(Sender:
TObject);
var lb,pb,tot,jb:real;
begin
lb:=strtofloat(edit1.text);
edit2.text:='500';
tot:=lb*500;
if Rya.checked=true then pb:=tot*0.5
else
if RTidak.checked then pb:=tot*0;
jb:=tot-pb;
edit5.Text:=floattostr(tot);
edit3.Text:=floattostr(pb);
edit4.text:=floattostr(jb);
end;
|
Tombol2
|
OnClick
|
procedure TForm1.Button2Click(Sender:
TObject);
begin
RYa.Checked:=false;
RTidak.Checked:=false;
edit1.clear;
edit2.Clear;
edit3.clear;
edit4.clear;
edit5.clear;
end;
|
Tombol3
|
OnClick
|
procedure TForm1.Button3Click(Sender:
TObject);
begin
close;
end;
|
- Output
-
Gambar 5.1 Tampilan saat program dijalankan
Gambar 5.2 Tampilan ketika memasukkan lama bicara
Gambar 5.3 Tampilan ketika tombol Hitung di klik untuk Pelanggan
Gambar 5.4 Tampilan ketika tombol Hitung di klik untuk bukan Pelanggan
Gambar 5.5 Tampilan ketika tombol Hapus di klik
Untuk download programnya,, silahkan download (DISINI)
0 komentar:
Posting Komentar