Membuat Program untuk menghitung pembelian bola dengan delp

Membuat Program untuk menghitung pembelian bola dengan delphi

Setelah mengikut 4 kali pertemuan kuliah pemrogram delphi  akhirnya saya mendapatkan tugas untuk membuat program menghitung pembelian bola sederhana, yang dimana pada program ini banyak menjelaskan tentang fungsi radiobutton dan checbox karena memang pada pertemuaan ke 4 bapak dosen menjelaskan  label & propertinya checkbox & RadioButton. ok biar gak tambah pusing langsung praktek aja....!
gambar form yang akan kita buat

Object	Properties	Semula	Menjadi
Form	Name	Form1	Frmutama
	Caption	Form1	Program Bola Bulat Bundar

Simpan difolder dengan nama terserah kamu, contoh dengan nama folder tugas usahakan kita menyimpan hasil kerja kita didalam satu folder karena dalam Delphi ada banyak tipe file yang di dismpan.

File	Nama
Unit	Unitutama
Project	Program bola bulat bundar

Selajutnya temple sebuah label, gantilah propertisenya sebagai berikut :

Object	Properties	Semula	Menjadi
Label	Name	Label1	Label1
	Caption	Label1	Jumlah
	Name	Label2	Labeljumlahpembelian
	Caption	Label2	-
	Name	Label3	Labeldiskon
	Caption	Label3	-
	Name	Label3	Labeltotal
	Caption	Label3	-
	Name	Label4	Label4
	Caption	Label4	Jumlah Pembelian
	Name	Label5	Label5
	Caption	Label5	Diskon/Bunga
	Name	Label6	Label6
	Caption	Label6	Total
	Name	Label7	Label7
	Caption	Label7	Ukuran
	Name	Label8	Label8
	Caption	Label8	Cara Bayar
Radionbutton	Name	Rb1	Rbkecil
	Caption	Rb1	Kecil
	Name	Rb2	Rbsedang
	Caption	Rb2	Sedang
	Name	Rb3	Rbbesar
	Caption	Rb3	Besar
Checkbox	Name	Chk1	Chktunai
	Caption	Chk1	Tunai
Button	Name	Btn1	Btntok
	Caption	Btn1	&ok
	Name	Btn2	Btncloses
	Caption	Btn2	closes

Ok setelah kita menempel atau mendasin program yang akan kita buat, selanjutnya kita akan mengetik skipnya, sebelum kita mengetik skipnya kita harus mengerti maksud dari program yang kita buat maksud dari program adalah :

Harga satuan bola :

Ukuran	Harga
Kecil	Rp.200
Sedang	Rp.500
Besar	Rp.1000

Untuk pembelian tunai, mendapatkan diskon sebesar 10%, sedangkan jika pembelian secara kredit, dikenakan bungan sebesar 5%.

Selanjtunya kita akan membuat skirpnya.

Double click radio button kecil lalu ketik skirp

procedure TForm1.rbkecilClick(Sender: TObject);

begin

  btnokClick(btnok);

end

Double click radio button sedang lalu ketik skirp.

procedure TForm1.rbsedangClick(Sender: TObject);

begin

  btnokClick(btnok);

end

Double click radio button besar lalu ketik skirp

procedure TForm1.rbbesarClick(Sender: TObject);

begin

  btnokClick(btnok);

end;

double click checkbook tunai

procedure TForm1.chktunaiClick(Sender: TObject);

begin

  btnokClick(btnok);

end;

Selanjutnya doubled klick Button Ok,

procedure TForm1.btnokClick(Sender: TObject);

var Jumlah,diskon,Total,harga:Double;

begin

  if rbkecil.Checked then

            harga:=200;

  if rbsedang.Checked then

            harga:=500;

  if  rbbesar.Checked then

            harga:=1000;

  Jumlah:=StrToFloat(edtjumlah.Text)*harga;

  if chktunai.Checked then

            diskon:=0.1*Jumlah

  else diskon:=0.05*jumlah;

  Total:=Jumlah-diskon;

  lbljumlahbeli.Caption:=FloatToStr(Jumlah);

  lbldiskon.Caption:='-'+FloatToStr(diskon);

  lbltotal.Caption:=FloatToStr(Total);

end;

semoga bermanfaat………!