Program Pendaftaran dengan Delphi 7.0

       Sambil renang minum air . . . . itulah yang sedang saya lakukan. Sembari mengerjakan tugas dari dosen yang menyuruh membuat program pendaftaran, langsung dah saya uplaud ke blog ini . .

Berikut program untuk mencari biaya pendaftaran kursus dari seorang calon siswa.

Tampilan dan keterangan program dapat Anda lihat pada bagian berikut =

Gunakan komponan dan propertis sebagai berikut=

1.  Form > caption dan name = Pendaftaran; auto size= true; picture = Selera
2. Label1 > caption = No Registrasi, Nama, Kelas, Biaya , Diskon, Total, Waktu; transparan = true; Font = Lucida Handwriting, Italic Bold, 12, yellow
3. Edit 1 sampai 8 > font colour = red ; teks = (dikosongkan)
4. Button1 > Caption = &Proses; Font = bold, 12
5.  Button2 > caption = &New; Font = bold , 12
6.  Button3 > caption = &Kembali; Font = bold, 12
7.  4 RadioButton > caption = Pagi , Siang, Sore, Malam; Font = Bold, 12, yellow

Berikut kode program diatas=

1.       Radiobutton

procedure Tpendaftaran.RadioButton1Click(Sender: TObject);

var

  Biaya : real;

  Diskon : real;

begin

 Biaya :=strtofloat(edit4.Text);

 diskon :=0.2 * biaya ;

 Edit5.Text :=floattostr(Diskon);

end;

procedure Tpendaftaran.RadioButton2Click(Sender= TObject);

var

  Biaya = real;

  Diskon = real;

begin

 Biaya :=strtofloat(edit4.Text);

 diskon :=0.15 * biaya ;

 Edit5.Text :=floattostr(Diskon);

end;

procedure Tpendaftaran.RadioButton3Click(Sender= TObject);

var

  Biaya = real;

  Diskon = real;

begin

 Biaya :=strtofloat(edit4.Text);

 diskon :=0.1 * biaya ;

 Edit5.Text :=floattostr(Diskon);

end;

procedure Tpendaftaran.RadioButton4Click(Sender= TObject);

var

  Biaya = real;

  Diskon = real;

begin

 Biaya :=strtofloat(edit4.Text);

 diskon :=0.05 * biaya ;

 Edit5.Text :=floattostr(Diskon);

end;

        Kode diatas untuk memberikan diskon kepada setiap RadioButton dengan nilai Jika Waktu “Pagi”, maka Diskon = 20% x Biaya, Jika Waktu “Siang”, maka Diskon = 15% x Biaya, Jika Waktu “Sore”, maka Diskon = 10% x Biaya, Jika Waktu “Malam”, maka Diskon = 5% x Biaya. 

Download Lanjutannya