3 Contoh Program Delphi untuk Latihan

Dalam belajar programming, Anda sangat wajib untuk mempelajari macam-macam bahasa pemrograman. Agar Anda mahir, Anda harus sering latihan. Cara latihannya gimana? Yah dengan mencoba mempraktekkan program-program yang sudah ada. Jika sudah dipraktekkan, pelajari program tersebut agar Anda paham.

Salah satu bahasa pemrograman yang banyak digunakan oleh programmer adalah Delphi. Delphi adalah bahasa pemrograman untuk pengembangan aplikasi konsol, desktop, web, maupun perangkat mobile. Delphi awalnya dikembangkan oleh CodeGear sebagai divisi pengembangan software milik Embarcadero, dimana sebelumnya divisi tersebutadalah milik Borland. Pada mulanya, Delphi ditujukan hanya untuk OS Microsoft Windows saja, namun sekarang ini Delphi bisa digunakan untuk mengembangkan aplikasi di jenis sistem operasi komputer lainnya, seperti Mac OS X, iOS, dan Android. Kelebihan dan kekurangan bahasa pemrograman generasi ke-4 juga dimiliki oleh bahasa pemrograman ini.

Pada artikel kali ini, kami akan memberikan beberapa contoh program Delphi yang bisa menjadi bahan latihan Anda dalam programming. Berikut ini adalah beberapa contoh yang bisa kami berikan untuk Anda:

1. Program Menghitung Gaji Pegawai

Ketentuan dari program yang akan dibuat adalah sebagai berikut:
Besar gaji pokok: Direktur=5000000; Manajer=3000000; Karyawan=2000000
Besar tunjangan: Tetap=1000000; Honorer=500000
Rumus gaji bersih = Gaji pokok+tunjangan

Berikut ini adalah tampilan dari form-form di dalam program ini:

Properti dari tiap obyek di form dijelaskan dalam tabel berikut:

Berikut ini adalah listing dari programnya. Kami bagi menjadi beberapa bagian berdasarkan obyeknya:

• Combo Box

Sebelum ke bagian program, isi dahulu daftar jabatannya yang akan dipilih di combo box. Untuk mengisinya ada dua cara., yaitu diubah di Object Properties-nya, dan juga lewat program

Untuk cara pertama, masuklah ke Object Inspector > Properties > Items. Lalu, tuliskan nama-nama jabatannya di String List Editor. Jika sudah, klik OK.

Sedangkan untuk cara kedua, lakukan double klik pada form, lalu ketikkan program berikut:

procedure Tfrmgaji.FormCreate(Sender: TObject);
begin cbjabatan.Items.Add (‘Direktur’);
cbjabatan.Items.Add (‘Manager’ );
cbjabatan.Items.Add(‘Karyawan’) end;

• Menampilkan Gaji Pokok berdasarkan Data di Combo Box
  • Aktifkan combo box(cbjabatan)
  • Pada Object Inspector, pilih tab “Event” di samping “Properties”.
  • Pilih dan aktifkan “onclick”.
  • Double Click pada combo “On Click”
  • Ketik program berikut:

procedure Tfrmgaji.cbjabatanClick(Sender: TObject);
begin
if cbjabatan.Text = ‘Direktur’ then
edgajipokok.Text := ‘ 5000000’
else if cbjabatan.Text = ‘Manajer’ then
edgajipokok.Text := ‘3000000’
else if cbjabatan.Text = ‘Karyawan’ then
edgajipokok.Text := ‘2000000’
else edgajipokok.Text := ‘0’
end;

• Penghitung Tunjangan Karyawan Honorer

Double click pada obyek radio button “Honorer”, lalu ketik program berikut:

procedure Tfrmgaji.rbhonorerClick(Sender: TObject);
begin
if  rbhonorer.Checked = true then
edtunjangan.Text :=’500000′;
end;

• Penghitung Tunjangan Karyawan Tetap

Double click pada obyek radio button “Tetap”, lalu ketik program berikut:

procedure Tfrmgaji.rbtetapClick(Sender: TObject);
begin if  rbtetap.Checked = true then
edtunjangan.Text :=’1000000′;
end;

• Penghitung Gaji Bersih Karyawan

Double click pada button “Hitung”, lalu ketik program berikut:

procedure Tfrmgaji.bthitungClick(Sender: TObject);
var a,b,c:integer;
begin
a := StrToInt(edgajipokok.Text);
b := StrToInt(edtunjangan.Text);
c := a+b;
edgajibersih.Text := IntToStr(c);
end;

• Penerima Input Lagi

Double click pada button “Input Lagi”, lalu ketik program berikut:

procedure Tfrmgaji.edlagiClick(Sender: TObject);
begin cbjabatan.Text := ‘Jabatan’;
ednama.Text := ‘ ‘;
edgajibersih.Text := ‘0’;
Edtunjangan.Text := ‘0’;
edgajipokok.Text := ‘0’;
rbhonorer.Checked := false;
rbtetap.Checked := false;
end;

• Tanda program telah selesai

Ketikkan program berikut di baris-baris terakhir program:

procedure Tfrmgaji.btselesaiClick(Sender: TObject);
begin close;
end;

Berikut ini adalah hasil program ketika dijalankan:

2. Program untuk Membuat Bentuk Diamond pada Delphi

Ketentuan program:

1. Pertama membuat judul program “Mencetak Diamond 1/2”
2. Tahap selanjutnya yaitu membuat nama input beserta keterangan dengan caption “Masukkan angka”
3. Lalu, membuat listbox untuk berfungsi menampilkan hasil inputan
4. Terakhir, membuat 3 button dengan caption “Check”, ”Clear”, ”Exit”.

Tampilan Form:

Listing program berdasarkan obyek:

• Button Check

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c: integer;
bintang : string;
begin
bintang := ‘*’;
b := StrToInt (Edit1.Text);
for a:= 0 to b do
begin
ListBox1.Items.Add (bintang);
bintang := bintang + ‘*’;
end;
for a:= b downto 0 do
begin
bintang := ”;
for c:= 0 to a do
begin
bintang := bintang + ‘*’;
end;
ListBox1.Items.Add (bintang);
end;
end;

• Button Clear

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Clear;
Edit1.Clear;
end;

• Button Exit

procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;
end.

Output programnya nanti akan seperti berikut:

3. Program Transaksi Apotek

Pada contoh kali ini, Anda harus membuat beberapa tabel sebagai database. Anda bisa menggunakan Microsoft Access untuk membuatnya. Berikut ini adalah beberapa database untuk program ini:

tabel “data obat”

tabel “data konsumen”
 

table “transaksi”

table “detail transaksi”

Setelah database selesai dibuat, barulah Anda membuat program baru di Delphi 7. Pertama, buatlah form login dengan komponen – komponen di bawah ini:

Lalu, buatlah form menu utama dengan komponen seperti gambar di bawah ini:

Pada form “Master”, terdapat 2 sub menu, yaitu data obat dan data pelanggan. Berikut ini tampilan form dan komponennya:

Berikutnya, adalah membuat form transaksi. Buatlah seperti gambar di bawah ini:

Data transaksi tersebut selanjutnya akan dimasukkan ke dalam laporan data transaksi. Berikut ini adalah desain dari form laporan dengan menggunakan fitur “Quick Report”

Berikut ini adalah listing program dari tiap form-nya:

• form Login

var
Form5: TForm5;
time, i: integer;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm5.ButtonMasukClick(Sender: TObject);
begin
if (edit1.Text = ‘admin’) and (edit2.Text = ‘admin’)
then begin
progressbar1.Visible:=true;
timer1.Enabled:=true;
time := 0;
end else
ShowMessage(‘Maaf ID atau Password anda salah, silahkan mencoba kembali.’);
Edit1.clear;
Edit2.clear;
end;

procedure TForm5.p_0xClick(Sender: TObject);
begin
close;
end;

procedure TForm5.ButtonKeluarClick(Sender: TObject);
begin
if
(messagedlg(‘Tutup Aplikasi ?’,mtconfirmation,
[mbyes,mbno],0)=mryes)then
application.Terminate;
end;

procedure TForm5.Timer1Timer(Sender: TObject);
begin
inc(i);
progressbar1.Position:=i;
if progressbar1.Position=100 then

begin
timer1.Enabled:=false;
i:=0;
//showmessage(‘Login Berhasil ‘+edit1.Text);
edit1.Clear;
edit2.Clear;
progressbar1.Visible:=false;
form1.Show;
hide;
end;
end;
end.

• form “Main Menu”

var
Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}

procedure TForm1.p_0xClick(Sender: TObject);
begin
if
(messagedlg(‘Tutup Aplikasi ?’,mtconfirmation,
[mbyes,mbno],0)=mryes)then
form1.Close;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
form2.show;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form2.Show;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form4.Show;
end;

procedure TForm1.ButtonKeluarClick(Sender: TObject);
begin
if
(messagedlg(‘Logout ?’,mtconfirmation,
[mbyes,mbno],0)=mryes)then
begin
form5.show;
begin
form1.Hide;
end;
end;
end;
procedure TForm1.DataKonsumen1Click(Sender: TObject);
begin
form3.Show;
end;

procedure TForm1.DataObat1Click(Sender: TObject);
begin
form4.Show;
end;

procedure TForm1.TransaksiClick(Sender: TObject);
begin
form2.Show;
end;

procedure TForm1.LaporanClick(Sender: TObject);
begin
form6.QuickRep1.Preview;
end;
end.

• form “Data Obat”

var
Form4: TForm4;

implementation

uses Unit3, Unit1;

{$R *.dfm}

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
form3.show;
end;

procedure TForm4.BitBtn5Click(Sender: TObject);
begin
if
(messagedlg(‘Hapus Data ?’,mtconfirmation,
[mbyes,mbno],0)=mryes)then
adotable1.delete;
end;

procedure TForm4.BitBtn7Click(Sender: TObject);
begin
form1.show;
begin
form4.Hide;
end;
end;

end.

• form “Data konsumen”

var
Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
if
(messagedlg(‘Ingin Kembali ?’,mtconfirmation,
[mbyes,mbno],0)=mryes)then
form1.Show;
end;

procedure TForm3.BitBtn7Click(Sender: TObject);
begin
form1.Show;
begin
form3.Hide;
end;
end;

procedure TForm3.BitBtn5Click(Sender: TObject);
begin
if
(messagedlg(‘Hapus Data ?’,mtconfirmation,
[mbyes,mbno],0)=mryes)then
adotable1.delete;
end;

end.

• form “Transaksi”

var
Form2: TForm2;

implementation

uses Unit1, unit4;

{$R *.dfm}

procedure TForm2.Button3Click(Sender: TObject);
begin
form1.show;
end;

procedure TForm2.BitBtn3Click(Sender: TObject);
begin
if
(messagedlg(‘Hapus Data ?’,mtconfirmation,
[mbyes,mbno],0)=mryes)then
adotable1.Delete;
end;

procedure TForm2.BitBtn5Click(Sender: TObject);
begin
form1.Show;
begin
form2.Hide;
end;
end;

procedure TForm2.BitBtn4Click(Sender: TObject);
begin
bitbtn4.Refresh;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
DBEdit5.text := FormatDateTime(‘dd/mm/yyyy’,now);
end;

end.

Setelah Anda mempelajari beberapa contoh yang kami tulis di atas, mungkin Anda sudah paham beberapa kelebihan dan kekurangan Delphi yang Anda rasakan. Setidaknya, Anda sudah memiliki pengalaman untuk programming menggunakan Delphi. Sekian contoh-contoh program Delphi yang bisa kami berikan pada artikel kali ini. Semoga semua contoh di atas dapat menambah pemahaman Anda seputar programming menggunakan Delphi. Jika Anda hendak melihat beberapa contoh bahasa pemrogaman yang lain, simak contoh program Python yang ada di situs ini.