Tambahan Radio Button + Check Box Delphi

Tampilan form



Keterangan :
- Nama Pembeli dan Jumlah Beli diinput
- Harga Bayar diperoleh dari Jumlah Beli dikali harga dari Jenis Barang
- Harga barangnya : Buku 5000, Penggaris 3000 dan Pensil 1500
- Harga Bayar akan tampil kalau tombol Hitung ditekan
- Tombol Ulang digunakan untuk mengosongkan edit1, edit2 dan edit3
- Tombol Exit digunakan untuk menghentikan jalannya program

Programnya :

procedure TForm1.Button1Click(Sender: TObject);
var b,c : integer;
begin
val(edit2.Text,b,c);
if buku.checked then edit3.Text:=inttostr(b*5000);
if penggaris.checked then edit3.Text:=inttostr(b*3000);
if pensil.checked then edit3.Text:=inttostr(b*1500);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:=' ';
edit2.Text:=' ';
edit3.Text:=' ';
end;

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



Tampilan form



Keterangan :
- Nama Pembeli dan Jumlah Beli diinput
- Jumlah Bayar diperoleh dari Jumlah Beli dikali harga dari Jenis Barang lalu dijumlahkan barang mana saja yang dibeli
- Harga barangnya : Buku 5000, Penggaris 3000 dan Pensil 1500
- Jumlah Bayar akan tampil kalau tombol Hitung ditekan

Programnya :

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e,f,g : integer;
begin
val(edit2.Text,a,d);
val(edit3.Text,b,d);
val(edit4.Text,c,d);
e:=0;
f:=0;
g:=0;
if buku.state=cbchecked then
e:=a*5000;
if penggaris.state=cbchecked then
f:=b*3000;
if pensil.state=cbchecked then
g:=c*1500;
edit5.Text:=inttostr(e+f+g);
end;