BAB DISKON PENJUALAN BARANG [Tugas UTS Semester 2]

Raden Syaifudin 05.34 Delphi 7 , Semester 2 , Tugas , Tutorial Tidak ada komentar

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.