Membuat Program Diskon Sederhana
di Delphi 7
Assalamualaikum
temen-temen dan salam Meong tuk semua. Asik-Asik-Asik hari sabtu waktunya libur
dari rutinitas *kampus., hihihi.,, jadi bisa nyempetin buat bikin Materi
Blog. Materi ini saya dapat dari perkuliahan interfacingku. ini adalah salah
satu contoh sederhana yang dapat di buat di Delphi7. Cotoh yang ingin
saya bagi kekalian yaitu membuat program diskon sederhana., Langsung saja,
berikut langkah kerjanya:
1. Letakkan masing –
masing 4 komponen Edit dan 5 Label, 1 groupBox, 3komponen radiobutton, dan 1
komponen Button pada form 1 seperti gambar di bawah ini.
2. Ubahlah name untuk komponen edit diproperties
Untuk kode brg menjadi eKode
Untuk Jumlah Brg menjadi eJumlah
Untuk Harga Brg menjadi eHarga
Untuk Jumlah Pembayaran menjadi eHasil
3. Selanjutnya tekan dua kali di button hitung dan masukkan kode seperti berikut :
procedure TForm1.Button1Click(Sender: TObject);
begin
jumlah := strToInt (eJumlah.Text);
harga := strToInt (eHarga.Text);
if jumlah > 5 then
bayar := jumlah * harga * 0.5
else if jumlah <=5 then
bayar := jumlah * harga * 0.8;
eHasil.Text:= floatToStr(bayar);
end;
procedure TForm1.eJumlahChange(Sender: TObject);
begin
jumlah := strToInt (eJumlah.Text);
if jumlah > 5 then
RadioButton1.checked := true
else if jumlah <= 5 then
RadioButton2.checked:= true;
end;
4. Selanjutnya masukkan kode berikut di eJumlah
procedure TForm1.eJumlahChange(Sender: TObject);
begin
jumlah := strToInt (eJumlah.Text);
if jumlah > 5 then
RadioButton1.checked := true
else if jumlah <= 5 then
RadioButton2.checked:= true;
end;
5. sebelum di Run, jangan lupa untuk medeklar terlebih dahulu semua nama yang telah di pakai., karena kalau tidak program tidak akan dapat bekerja.
2. Ubahlah name untuk komponen edit diproperties
Untuk kode brg menjadi eKode
Untuk Jumlah Brg menjadi eJumlah
Untuk Harga Brg menjadi eHarga
Untuk Jumlah Pembayaran menjadi eHasil
3. Selanjutnya tekan dua kali di button hitung dan masukkan kode seperti berikut :
procedure TForm1.Button1Click(Sender: TObject);
begin
jumlah := strToInt (eJumlah.Text);
harga := strToInt (eHarga.Text);
if jumlah > 5 then
bayar := jumlah * harga * 0.5
else if jumlah <=5 then
bayar := jumlah * harga * 0.8;
eHasil.Text:= floatToStr(bayar);
end;
procedure TForm1.eJumlahChange(Sender: TObject);
begin
jumlah := strToInt (eJumlah.Text);
if jumlah > 5 then
RadioButton1.checked := true
else if jumlah <= 5 then
RadioButton2.checked:= true;
end;
4. Selanjutnya masukkan kode berikut di eJumlah
procedure TForm1.eJumlahChange(Sender: TObject);
begin
jumlah := strToInt (eJumlah.Text);
if jumlah > 5 then
RadioButton1.checked := true
else if jumlah <= 5 then
RadioButton2.checked:= true;
end;
5. sebelum di Run, jangan lupa untuk medeklar terlebih dahulu semua nama yang telah di pakai., karena kalau tidak program tidak akan dapat bekerja.
Tidak ada komentar :
Posting Komentar