BAB DISKON PENJUALAN BARANG [Tugas UTS Semester 2]

Tunjukkan diri anda kalau suka diskon H.H.H, bagaimana kalau anda jadi penjualnya ? tentunya harus bisa memperhitungkan berapa diskon yang harus diberikan kepada customer, tidak ada salahnya jika mencoba membuat sendiri propram DISKON PENJUALAN BARANG.

1.       Buka aplikasi Delphi 7

2.       Kemudian klik menu file, pilih New, dan pilih Application

3.       Buatlah desain program seperti gambar dibawah ini.

 

Perlu diperhatikan pada Object TreeView & Objet Inspector Properties harus di sesuaikan dengan object. Lihat gambar dibawah ini

4.       Pada tombol PROSES masukkan script dibawah ini pada Code Explorer

procedure TForm1.Button1Click(Sender: TObject); var w,x:integer; a,y,z:currency; begin x:=strtoint(harga.Text ); if tipe.Text ='A' then begin Label8.Caption :='(5%)'; bonus.Caption :='Honda Jazz'; Label9.Caption :='(5%)'; w:=5; a:=x*5/100; end; if tipe.Text ='B' then begin Label8.Caption :='(10%)'; bonus.Caption :='Satria F'; Label9.Caption :='(5%)'; w:=10; a:=x*5/100; end; if tipe.Text ='C' then begin Label8.Caption :='(0%)'; bonus.Caption :='Lampu Ajaib'; Label9.Caption :='(5%)'; w:=0; a:=x*5/100; end; z:=x-(x*w/100)-a; y:=x*w/100; pajak.Caption :=currtostr(a); disc.Caption :=currtostr(y); total.Caption :=currtostr(z); end; procedure TForm1.Button2Click(Sender: TObject); begin halt; end; end. Kemudian pada tombol exit tambahkan juga script dibawah ini : procedure TForm1.Button2Click(Sender: TObject); begin halt; end; end.

5.       Jalankan program dengan klik menu run, kemudian pilih run, dan hasilnya sepert ini.

    Download Contoh Program
 Terima Kasih Atas Kunjungan anda, Semoga Bermanfaat..