CARA MEMBUAT APLIKASI SETANDAR PEMBAYARAN MAHASISWA ENGGUNAKAN DELPHI

Membuat aplikasi standar bisa dibilang susah-susah gampang, Terkadang banyak mahasiswa yang kebingungan dalam penulisan bahasa pemograman diantara if ,else dan false.
Dalam pertemuan kali ini saya akan share  CARA MEMBUAT APLIKASI SETANDAR PEMBAYARAN MAHASISWA MENGGUNAKAN DELPHI 7 , tidak cukup rumit sih gan hanya scrip yang masih sangat standar....

Dan ini untuk contoh form nya gan

Jika agan ingin membuat aplikasi standar seperti diatas
1. Silahkan agan membuat form seperti diatas
2. Selanjutnya dalam penulisan scrip kotak dialog Edit1 menggunakan fungsi onKeyprees, agar               setelah  menginputkan No Pokok mahasiswa bisa di enter ke kotak dialog Edit2 , dan ini                    langkahnya Untuk membuat onKeyprees >>> pertama klick kotak dialog Edit1 Terus Pilih panel        disamping yang bernama object inspector dan pilih EVENTS terus pilih onkeypress dengam mendouble click
   seperti gambar dibawah ini
  

dan akan muncul tampilah seperti dibawah ini

dan ketikkan scrip dibawah tulisan begin
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
edit2.setfocus
end;

3. Untuk bagian kolom nama biarkan saja karna hanya untuk input text saja
4. dan bagian Jurusan saya menggunakan RadioButton, logikanya jika memilih RadioButton1 MI  maka bpp akan muncul nilai 500000, dan untuk RadioButton2 dan RadioButton3 seperti RadioButton1 ini scripnya
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
edit3.text:='500000'
end;

ini scrip RadioButton2 KA
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
edit3.text:='550000'
end;

ini scrip RadioButton3 BI
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
edit3.text:='150000'
end;

5.  Biaya Tambahan saya menggunakan checkbox
    dan ini scrip nya untuk check box1
procedure TForm1.CheckBox1Click(Sender: TObject);
var
stotal    :string;
bm,pkl,ta,bpp,total :single;
kode      : integer;
begin
val(edit3.Text,bpp,kode);

if checkbox1.checked=true then
bm:=150000
else
bm:=0;

if checkbox2.checked=true then
pkl:=250000
else
pkl:=0;

if checkbox3.checked=true then
ta:=600000
else
ta:=0;

total:=bpp+bm+pkl+ta;
str(total:20:0,stotal);
edit4.text:=stotal;
end;

Check box2
procedure TForm1.CheckBox2Click(Sender: TObject);
var
stotal    :string;
bm,pkl,ta,bpp,total :single;
kode      : integer;
begin
val(edit3.Text,bpp,kode);

if checkbox1.checked=true then
bm:=150000
else
bm:=0;

if checkbox2.checked=true then
pkl:=250000
else
pkl:=0;

if checkbox3.checked=true then
ta:=600000
else
ta:=0;

total:=bpp+bm+pkl+ta;
str(total:20:0,stotal);
edit4.text:=stotal;
end;

 Check box3
procedure TForm1.CheckBox3Click(Sender: TObject);
var
stotal    :string;
bm,pkl,ta,bpp,total :single;
kode      : integer;
begin
val(edit3.Text,bpp,kode);

if checkbox1.checked=true then
bm:=150000
else
bm:=0;

if checkbox2.checked=true then
pkl:=250000
else
pkl:=0;

if checkbox3.checked=true then
ta:=600000
else
ta:=0;

total:=bpp+bm+pkl+ta;
str(total:20:0,stotal);
edit4.text:=stotal;
end;

6. tombol New
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
radiobutton1.Checked:=false;
radiobutton2.Checked:=false;
radiobutton3.Checked:=false;
checkbox1.Checked:=false;
checkbox2.Checked:=false;
checkbox3.Checked:=false;
edit1.setfocus
end;

7. tombol Keluar
procedure TForm1.Button3Click(Sender: TObject);
begin
close
end;  

8. Proses menjalankan dengan menekan F9 maka akan runing otomatis,

sekian dari saya semoga bermanfaat bagi yang masih awam atau pemula, maaf jika ada kesalahan dalam penulisan kata untuk kritik dan saran comment aja gan jangan ragu2 heheheh..... 

Share this post