MENGHITUNG JUMLAH DISKON PERSEN DI DELPHI (TUTORIAL DELPHI MBARATKJ)

MENGHITUNG JUMLAH DISKON PERSEN DI DELPHI (TUTORIAL DELPHI MBARATKJ)

PERTAMA AGAN BUAT SEBUAH FORM DAN RANCANG FORM TERSEBUT SEPERTI PADA GAMBAR DI BAWAH INI

EDIT1 NAMENYA EDIT1

EDIT2 NAMENYA EDIT2

EDIT3 NAMENYA EDIT3

EDIT4 NAMENYA EDIT4

KEMUDIAN KLIK TOMBOL HITUNG DUA KALI DAN TULIS MANTRANYA:

VAR

HARGABARANG, STOKBARANG, TOTALDANDISKON:REAL;

HARGABARANG:=STRTOFLOAT(EDIT2.TEXT);

STOKBARANG:=STRTOFLOAT(EDIT3.TEXT);

TOTALDANDISKON:=0.1*HARGABARANG*STOKBARANG;

EDIT4.Text:=CURRTOSTR(TOTALDANDISKON);

 

KEMUDIAN SAVE ALL/SIMPAN SEMUA DAN COBA JALANKAN PROGRAMNYA