Aplikasi Menghitung Upah Karyawan Per-Jam
Aplikasi ini berfungsi untuk menghitung Kerja Lembur Karyawan dalam hitungan per-jam untuk setiap lemburnya.baik Langsung saja kita sediakan component-component yang di butuhkan
- Component Label
- Component EditText
- ComboBox
- Button
Jika belum tau cara buat memasukan component lihat Tutorial Sebelumnya klik http://www.uceh.my.id/2015/05/tutorial-delphi-membuat-penghitungan.htmlBuat Design Seperti Gambar dibawah...........!!!!!
Sesuaikan properties Caption-nya jika anda telah membuat desain seperti diatas selanjutnya klik component ComboBox1 Pilih Events pada Object Inspector pilih OnClik
lalu double klik masukan code berikut....!!!!
procedure TForm1.ComboBox1Click(Sender: TObject);VAR
GOLONGAN:STRING;
begin
GOLONGAN:=COMBOBOX1.Text;
IF GOLONGAN='A' THEN
BEGIN
UPJ:=4000;
END ELSE
GOLONGAN:=COMBOBOX1.Text;
IF GOLONGAN='B' THEN
BEGIN
UPJ:=5000;
END ELSE
GOLONGAN:=COMBOBOX1.Text;
IF GOLONGAN='C' THEN
BEGIN
UPJ:=6000;
END ELSE
GOLONGAN:=COMBOBOX1.Text;
IF GOLONGAN='D' THEN
BEGIN
UPJ:=7000;
END ;
EDIT1.Text:=INTTOSTR(UPJ);
end;
Code diatas merupakan pilihan untuk ComboBox ketika kita klik hasilnya......jika program sudah di jalankan.
keterangan :
Golongan =merupakan sebuah variabel yang bertype data String
UPJ =merupakan variabel global (Upah Per Jam) terletak pada variabel Form
var
Form1: TForm1;
UPJ:INTEGER;
implementation
{$R *.dfm}
kenapa berada di variabel global...??? karna Untuk membaca semua proses perhitungan keseluruhan Coding ComboBox dan Button, sebenarnya bisa saja kita memberi variabel UPJ pada tiap-tiap coding namun untuk menghemat dan mempercepat proses compier dalam membaca program lebih singkat dan cepat jika pada sebuah aflikasi yang besar.di sini saya hanya mencontohkan saja.Oke Selajutnya masukan Coding pada Tombol PROSES doube klik tombol lalu masukan code berikut.....!!!!!
procedure TForm1.Button1Click(Sender: TObject);
CONST
UL=3000;
VAR
JJK:SHORTINT;
UPAH:LONGINT;
begin
JJK:=STRTOINT(EDIT2.Text);
IF JJK<=48 THEN
BEGIN
UPAH:=JJK*UPJ;
END ELSE
IF JJK >=58 THEN
BEGIN
UPAH:=48*UPJ+(JJK-48)*UL;
end;
EDIT3.TEXT:=INTTOSTR(UPAH);
end;
ket:
CONST =Parameter Type
UL =Upah Lembur
JJK =Jumlah Jam KerjaJika Sudah anda masukan coding pada tombol anda Save Aplikasi Lalu Run Program atau Tekan F9 pada KeyBoard.........!!!!Semoga Sukses
CONST =Parameter Type
UL =Upah Lembur
JJK =Jumlah Jam KerjaJika Sudah anda masukan coding pada tombol anda Save Aplikasi Lalu Run Program atau Tekan F9 pada KeyBoard.........!!!!Semoga Sukses
silahkan beri komentar
EmoticonEmoticon