Dalam membuat aplikasi ini saya menggunakan bahasa pemrograman Delphi..
Ok Langsung saja..
1. Pastikan Kamu sudah menginstal Delphi 7
2. Buka aplikasi Delphi 7.
3. Buatlah project baru (File>New>Form)
maka tampilannya akan menjadi seperti berikut.
4. Buatlah Form Seperti Berikut.
5. klik 2 kali pada button proses. Lalu masukan kode berikut..
procedure TForm1.Button1Click(Sender: TObject);
var
gpok,tunj,ppn,gtot:real;
begin
gpok:=strtofloat(Edit1.Text);
tunj:=strtofloat(Edit2.Text);
ppn:=0.05*gpok;
gtot:=(gpok+tunj)-ppn;
Edit3.Text:=formatcurr('###,###,###',ppn);
Edit4.Text:=formatcurr('###,###,###',gtot);
end;
var
gpok,tunj,ppn,gtot:real;
begin
gpok:=strtofloat(Edit1.Text);
tunj:=strtofloat(Edit2.Text);
ppn:=0.05*gpok;
gtot:=(gpok+tunj)-ppn;
Edit3.Text:=formatcurr('###,###,###',ppn);
Edit4.Text:=formatcurr('###,###,###',gtot);
end;
6. Klik 2 kali pada button Keluar. Lalu masukan kode Berikut.
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
begin
close;
end;
7. Simpan Project yg telah dibuat(File>Save as Project)
8. Jalankan Aplikasi dgn menekan f9.
Sekian Cara membuat aplikasi Perhitungan Gaji sederhana.. Nantikan Postingan Selanjutnya.
Tidak ada komentar:
Posting Komentar