Labels

Sabtu, 20 April 2013

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.
    
Selamat Mencoba Guys.,., Dan Salam Meong :)

Tidak ada komentar:

Posting Komentar