Delphi merupakan sebuah program berbasiskan windows yang memiliki bahasa
mirip dengan pascal. Jadi bila anda telah menguasai pascal barangkali tidak
akan kesulitan dalam menggunakan program ini. Perbedaan mendasar antara delphi
dengan pascal adalah bahwa delphi memiliki oop (object orientation program) atau
program yang berorientasi ke objek. Dengan demikian delphi lebih mudah digunakan
dibandingkan dengan pascal, karena anda hanya tinggal mengatur properti atau
sifatdari objek dan menambahkan sedikit pengkodean.
di sini saya akan memberi sedikit tutor pembuatan program penggajian pada karyawan....!!!
Membuat Program Penggajian KARYAWAN
Cara pembuatan Form program
Langkah
pertama dalam pembuatan design Form yaitu masukan komponen label pada form
dengan cara pilih component (“Label") yang berada pada bagian (Component Pallete) seperti pada gambar di bawah.
Lalu ubah pada bagian properties Label
pada bagian caption
1
|
Label1
|
Caption
|
Nama
|
10
|
Labe2
|
Caption
|
NIP
|
12
|
Labe3
|
Caption
|
Gaji Pokok
|
13
|
Labe4
|
Caption
|
Jabatan
|
14
|
Labe5
|
Caption
|
Istri
|
15
|
Labe6
|
Caption
|
Anak
|
Labe7
|
Caption
|
Gaji Kotor
|
|
Labe8
|
Caption
|
Potongan
|
|
Labe9
|
Caption
|
Gaji
|
Selanjutnya kita masukan komponen Edit
pada form dengan cara pilih component (“Edit atau”) yang berada pada bagian
(Component Pallete) seperti pada gambar di bawah.
Dan untuk memasukan Edit pada form, ama saja seperti
memasukan Label di atas yaitu dengan meng-klik kursor pada bagian form dialog
dan untuk component Edit bagian properties ( “Text”) maka akan tampil seperti
gambar dibawah
Langkah terakhir dalam pembuatan design
Form yaitu membuat sebuat tombol Caranya sama saja seperti halnya membuat sebuah (Label dan Edit text). Pilih (“Button“) pada bagian Component Pallete , ubah pada bagian “caption” properties
1
|
Button1
|
Caption
|
Hitung Tunjangan
|
2
|
Button2
|
Caption
|
Hitung Gaji Kotor
|
3
|
Button3
|
Caption
|
Hitung Gaji Bersih
|
4
|
Button4
|
Caption
|
Ulang
|
5
|
Button5
|
Caption
|
Keluar
|
Buatlah tombol “Button” seperti pada gambar dibawah ini!
Coding-Coding Pada Button
Tombol Hitung Tunjangan
procedure
TForm1.Button1Click(Sender: TObject);
begin
{T0}
gp:=strtoint(edit3.text);
{aksi}
jabatan:=gp*0.1;
istri:=gp*0.07;
anak:=gp*0.05;
{T1}
edit4.Text:=floattostr(jabatan);
edit5.Text:=floattostr(istri);
edit4.text:=floattostr(anak);
end;
|
Tombol Hitung Gaji Kotor
procedure
TForm1.Button2Click(Sender: TObject);
begin
{aksi}
gk:=gp+jabatan+istri+anak;
{T1}
edit7.Text:=floattostr(gk);
end;
|
Tombol Hitung Gaji Bersih
procedure
TForm1.Button3Click(Sender: TObject);
var
potongan:longint;
gaji:real;
begin
{t0}
potongan:=strtoint(edit8.Text);
{aksi}
gaji:=gk-potongan;
{T1}
edit9.Text:=floattostr(gaji);
end;
|
Tombol Ulang
procedure TForm1.Button4Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
end;
|
Tombol Keluar
procedure TForm1.Button5Click(Sender: TObject);
begin
close;
end;
|
sedikit Tutor pembelajaran yang saya berikan semoga bermanfaat........!!!
|
| Link Download |
Membuat Aplikasi Untuk Tanggal,Bulan & Tahun
klik file-new-application dan buat desain form seperti gambar di bawah
1
|
Label1
|
Caption
|
TANGGAL
|
2
|
Labe2
|
Caption
|
TANGGAL SEKARANG
|
3
|
Labe3
|
Caption
|
BULAN SEKARAN
|
4
|
Labe4
|
Caption
|
TAHUN SEKARANG
|
5
|
Button1
|
Caption
|
PROSES
|
Untuk memasukan TextEdit,Label,Button & Timepicker caranya sama seperti pembuatan penggajian karyawan. Dan untuk memilih Component DateTimePicker pada bagian pallete Component pilih Tab Win32 pada menu pallete component klik DateTimePicker atau pilih
icon seperti gambar dibawah yang di lingkar merah.untuk lebih jelasnya lihat gambar di bawah yang di beri garis lingkaran merah.
Sesudah anda membuat desain form seperti pada gambar di atas, Selanjutnya Merubah Tampilan Warna
Background pada Form Dialog Untuk mengganti warna background pilih properties
pada pallete atau seperti pada gambar di bawah.
bebas anda mau pilih warna apa saja tergantung selera anda sendiri.dan hasil akhir yang saya buat seperti pada gambar di bawah.
Langkah terakhir yaitu memasukan Coding Program.
Coding
Tombol
Tombol PROSES
Pada bagian uses di coding PROSES di
tambah DateUtils untuk menampilkan data tanggal,bulan dan tahun pada DateTimePicker
unit Date;
interface
uses
Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DateUtils, StdCtrls, ComCtrls;
|
procedure TForm1.Button1Click(Sender: TObject);
VAR
TANGGAL:TDate;
TGLS:SHORTINT;
BLNS:SHORTINT;
THNS:INTEGER;
begin
{T0}
TANGGAL:=DATETIMEPICKER1.Date;
{AKSI}
TGLS:=DAYOF(TANGGAL);
BLNS:=MONTHOF(TANGGAL);
THNS:=YEAROF(TANGGAL);
{T1}
EDIT1.Text:=INTTOSTR(TGLS);
EDIT2.Text:=INTTOSTR(BLNS);
EDIT3.Text:=INTTOSTR(THNS);
end;
end.
|
anda coba Run atau klik F9 pada keyboard............!!!!!!!!!! apabila tidak ada kesalahan maka anda berhasil membuat aflikasi untuk menampilkan tanggal,bulan & Tahun.
Aplikasi untuk menampilkan Kelompok Umur/Usia
Buat desain Form Seperti Gambar di bawah ini....!!! atau anda mau merubah dan menambahkan component pada aflikasi sebelumnya.(BEBAS KO)........hehehe.!!!!!!
MATERI
Operator percabangan
Percabangan adalah merupakan
operator yang di gunakan untuk menentukan pilihan terhadap beberapa pilihan
yang ada. Dengan menggunakan suatu pernyataan percabangan, alur program tidak
harus dari atas ke bawah tetapi dapat melompat menuju baris program yang lain.
Terdapat dua macam pernyataan percabangan bersyarat yang dapat digunakan yaitu
if dan case.
1. Percabangan If - Then - Else
Pernyataan percabangan If - Then -
Else digunakan untuk menjalankan suatu pernyataan atau satu blok pernyataan,
tergantung pada nilai yang diuji.
2.Case-Of
Memrupakan metode lain dari sebuah percabangan,
berfungsi sama seperti fingsi if yaitu untuk melakukan seleksi atas beberapa
pilihan dengan kondisi sebagai syarat yang harus terpenuhi.Secara fungsi Case
dan If tidak ada perbedaan tetapi untuk penulisan fungsi Case lebih mudah di
terapkan untuk pilihan atau kondisi lebih dari satu.
pada Coding ini menggunakan percabangan Case-Of............kalau anda mau anda juga bissa merubahnya ke percabangan If-Then-Else , namun yang lebih simpel untuk percabangan yaitu menggunakan Case-Of .Singkat saja saya akan Langsung memberi coding pada tombol Proses,
Coding
Tombol
Disini saya memakai operator Percabangan Case-Of
Tombol PROSES
procedure TForm1.Button1Click(Sender: TObject);
var
TGLS,TGLL:TDate;
THNS,THNL:INTEGER;
UMUR:SHORTINT;
KELUMUR:STRING;
begin
TGLS:=DATETIMEPICKER1.DATE;
TGLL:=DATETIMEPICKER2.DATE;
THNS:=YEAROF(TGLS);
THNL:=YEAROF(TGLL);
UMUR:=THNS-THNL;
CASE UMUR OF
0..5:BEGIN
KELUMUR:='MASA BALITA';
END;
6..11:BEGIN
KELUMUR:='MASA KANAK-KANAK';
END;
12..17:BEGIN
KELUMUR:='MASA REMAJA';
END;
18..40:BEGIN
KELUMUR:='MASA DEWASA';
END;
41..65:BEGIN
KELUMUR:='MASA TUA';
END;
ELSE
KELUMUR:='MASA
MANULA';
END;
EDIT1.TEXT:=INTTOSTR(UMUR);
EDIT2.Text:=KELUMUR;
end;
end.
|
Langkah terakhir anda Run Program Jika Jalan Maka Berhasil.
Untuk Program Hasilnya,Download Link Program.Klik download di bawah ini........!!!!!
Untuk Program Hasilnya,Download Link Program.Klik download di bawah ini........!!!!!
|
| Link Download |
silahkan beri komentar
EmoticonEmoticon