Bahar Education Blog

Delphi adalah pemograman yang visual merupakan pengembangan dari bahasa pascal sebab syntak-syntak yang digunakan sama dengan syntak dari pascal, bila kita sudah paham mengenai pascal maka akan terasa mudah bila menggunakan delphi, cuma tambahan pada delphi dapat digunakan untuk pemograman database. mungkin sekarang versi terbaru Delphi 9.0 tuh.. sok aja cari.. hehe.. hehe tar urang menta mentahannya aja yach... hehe... .

Contoh soal : sebuah rental VCD memberlakukan seorang peminjam hanya boleh meminjam jenis VCD saja yaitu Film Indonesia atau Asing dan boleh meminjam banyak VCD baik yang original maupun non original. bila sudah terdaftar sebagai anggota mendapatkan diskom 10 %, demikian daftar harga :

Hasil Program : 

pengaturan properti :

Buat listing program ini di tombol Proses  

procedure Frental.prosesClick(Sender: TObject);
VAR
HARGA, SUBTOTAL, DISKON, TOTAL,JMIN,JMNO: REAL;
JOR,JNO :INTEGER;
begin

IF cjenis.Text = 'ASING' THEN
BEGIN
IF CHECKBOX1.Checked = TRUE THEN
BEGIN
JOR :=strtoint (edit1.Text );
HARGA :=70000;
JMIN := JOR * HARGA;
END
ELSE IF JOR = 0 THEN
BEGIN
JMIN :=0;
END;
IF CheckBox2.Checked = TRUE THEN
BEGIN
JNO :=strtoint (edit2.Text );
HARGA :=7000;
JMNO := JNO * HARGA;
END
ELSE IF CheckBox2.Checked = TRUE THEN
BEGIN
JMIN :=0;
END;
END;

IF cjenis.Text = 'INDONESIA' THEN
BEGIN
IF CHECKBOX1.Checked = TRUE THEN
BEGIN
JOR :=strtoint (edit1.Text );
HARGA :=50000;
JMIN := JOR * HARGA;
END
ELSE IF JOR = 0 THEN
BEGIN
JMIN :=0;
END;
IF CheckBox2.Checked = TRUE THEN
BEGIN
JNO :=strtoint (edit2.Text );
HARGA :=5000;
JMNO := JNO * HARGA;
END
ELSE IF CheckBox2.Checked = TRUE THEN
BEGIN
JMIN :=0;
END;
END;

SUBTOTAL := JMIN + JMNO;
EDIT3.Text :=formatfloat('Rp#,##0.00',SUBTOTAL);

IF cstatus.Text = 'ANGGOTA' then
diskon :=subtotal * 0.1
else if cstatus.Text = 'NOANGGOTA' then
diskon :=0;
edit4.Text :=formatfloat('Rp#,##0.00',diskon);
total := subtotal - diskon;
edit5.Text :=formatfloat('Rp#,##0.00',total);

end;

buat listing program di tombol ulang 

procedure TFrental.ulangClick(Sender: TObject);
begin
cjenis.Text :='';
EDIT1.Text :='0';
EDIT2.TEXT :='0';
EDIT3.TEXT :='0';
EDIT4.TEXT :='0';
EDIT5.TEXT :='0';
cstatus.Text :='';
cjenis.SetFocus;
end;

Buat listing program ini di Tombol Keluar

procedure TFrental.keluarClick(Sender: TObject);
begin
 close;
end;

Bila sudah finis Lalu Run Dengan menekan F9, atau kenan tombol warna hijau pada taskbar. bila sukses maka program akan muncul spt yang diatas dan bila error ada perintah tanda merah pada listing program dan coba baca perintah kesalahannya agar diketahui...

Sukses selalu... OK