3 Contoh Program Delphi untuk Latihan

3 Contoh Program Delphi untuk Latihan

Dalam penuh arti programming, Anda terutama wajib untuk mempelajari macam-macam bahasa asing pemrograman komputer. Agar Anda mahir, Anda perlu biasanya teknik. Cara latihannya gimana? Yah bersama mencoba mempraktekkan program-program yang saat ini ada. Jika saat ini dipraktekkan, pelajari sistem tersebut agar Anda paham.

Salah satu bahasa asing pemrograman komputer yang beberapa digunakan melalui programmer adalah Delphi. Delphi adalah bahasa asing pemrograman komputer untuk pertumbuhan fungsi konsol, desktop, internet, maupun satuan cellular. Delphi pada awalnya dikembangkan melalui CodeGear sebagai distribusi pertumbuhan software program milik Embarcadero, dimana baru-baru ini distribusi tersebutadalah milik Borland. Pada mulanya, Delphi ditujukan eksklusif untuk OS Microsoft Windows saja, setelah mengatakan itu saat ini ini Delphi bisa dengan mudah digunakan untuk mengembangkan fungsi di jenis tubuh perawatan bedah komputer pribadi berbagai lainnya, seperti Mac OS X, iOS, juga Android. Kelebihan juga kelangkaan bahasa asing pemrograman komputer produksi ke-4 selanjutnya dimiliki melalui bahasa asing pemrograman komputer ini.

Pada artikel pendek kali ini, perusahaan kita pasti akan memberikan sejumlah {contoh} sistem Delphi yang bisa dengan mudah jadilah komponen teknik Anda secara mendalam programming. Berikut ini adalah sejumlah {contoh} yang bisa dengan mudah perusahaan kita menawarkan untuk Anda:

1. Program Menghitung Gaji Pegawai

Ketentuan berasal dari sistem yang pasti akan dibuat adalah sebagai berikut:
Besar pendapatan pokok: Direktur=5000000; Manajer=3000000; Karyawan=2000000
Besar tunjangan: Tetap=1000000; Honorer=500000
Rumus pendapatan jaring = Gaji pokok+tunjangan

Berikut ini adalah layar berasal dari form-form di secara mendalam sistem ini:

formgaji

Properti berasal dari tiap obyek di type dijelaskan secara mendalam tabel berikut:

Objek Name Caption
Form1 frmgaji Form Hitung Gaji
Label1 Label1 Menghitung Gaji Pegawai
Label2 Label2 Nama
Label3 Label3 Jabatan
Label4 Label4 Gaji pokok
Label5 Label5 Tunjangan
Label6 Label6 Gaji Bersih
GroupBox1 GroupBox1 Status
RadioButton1 RbHonorer Honorer
RadioButton2 RbTetap Tetap
Button1 Bthitung tentukan
Button2 Btinput Input Lagi
Button3 BtSelesai Selesai
obyek Name Text
Edit1 ednama
Edit2 edgajipokok
Edit3 edtunjangan
Edit4 edgajibersih
ComboBox1 cbjabatan

Berikut ini adalah itemizing berasal dari programnya. Kami bagi jadilah sejumlah segmen berdasarkan obyeknya:

Sebelum langsung ke segmen sistem, isian dahulu ikut jabatannya yang pasti akan memutuskan di combo field. Untuk mengisinya ada sepasang teknik., yaitu diubah di Object Properties-nya, juga selanjutnya lewat sistem

Lihat lebih banyak:  Algoritma Knapsack Problem - DosenIT.com

Untuk teknik memulai dengan, masuklah langsung ke Object Inspector > Properties > Items. Lalu, tuliskan nama-nama jabatannya di String List Editor. Jika saat ini, memukul OK.

list

Sedangkan untuk teknik ke-2, melakukan double memukul pada type, setelah itu ketikkan sistem berikut:

process Tfrmgaji.FormCreate(Sender: TObject);
start cbjabatan.Items.Add (‘Direktur’);
cbjabatan.Items.Add (‘Manager’ );
cbjabatan.Items.Add(‘Karyawan’) finish;

  • Menampilkan Gaji Pokok berdasarkan Data di Combo Box
    • Aktifkan combo field(cbjabatan)
    • Pada Object Inspector, putuskan tab “Event” dekat dengan “Properties”.
    • Pilih juga memungkinkan untuk “onclick”.
    • Double Click pada combo “On Click”
    • Ketik sistem berikut:

process Tfrmgaji.cbjabatanClick(Sender: TObject);
start
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’
finish;

  • Penghitung Tunjangan Karyawan Honorer

Double click on pada obyek siaran button “Honorer”, setelah itu jenis sistem berikut:

process Tfrmgaji.rbhonorerClick(Sender: TObject);
start
if  rbhonorer.Checked = true then
edtunjangan.Text :=’500000′;
finish;

  • Penghitung Tunjangan Karyawan Tetap

Double click on pada obyek siaran button “Tetap”, setelah itu jenis sistem berikut:

process Tfrmgaji.rbtetapClick(Sender: TObject);
start if  rbtetap.Checked = true then
edtunjangan.Text :=’1000000′;
finish;

  • Penghitung Gaji Bersih Karyawan

Double click on pada button “Hitung”, setelah itu jenis sistem berikut:

process Tfrmgaji.bthitungClick(Sender: TObject);
var a,b,c:integer;
start
a := StrToInt(edgajipokok.Text);
b := StrToInt(edtunjangan.Text);
c := a+b;
edgajibersih.Text := IntToStr(c);
finish;

Double click on pada button “Input Lagi”, setelah itu jenis sistem berikut:

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

  • Tanda sistem telah pelapis

Ketikkan sistem berikut di baris-baris kedua sistem:

process Tfrmgaji.btselesaiClick(Sender: TObject);
start shut;
finish;

Berikut ini adalah hasil akhir sistem ketika dijalankan:

run

2. Program untuk Membuat Bentuk Diamond pada Delphi

Ketentuan sistem:

  1. Pertama membuat mengizinkan sistem “Mencetak Diamond 1/2”
  2. Tahap selain itu yaitu membuat name enter beserta keterangan bersama caption “Masukkan angka”
  3. Lalu, membuat listbox untuk berfungsi menampilkan hasil akhir inputan
  4. Terakhir, membuat 3 button bersama caption “Check”, ”Clear”, ”Exit”.
Lihat lebih banyak:  60 Kelebihan dan Kekurangan Jaringan LAN, MAN, WAN dan PAN

Tampilan Form:
(*3*)

Listing sistem berdasarkan obyek:

process TForm1.Button1Click(Sender: TObject);
var a,b,c: integer;
superstar : tali;
start
superstar := ‘*’;
b := StrToInt (Edit1.Text);
for a:= 0 to b do
start
ListBox1.Items.Add (superstar);
superstar := superstar + ‘*’;
finish;
for a:= b downto 0 do
start
superstar := ”;
for c:= 0 to a do
start
superstar := superstar + ‘*’;
finish;
ListBox1.Items.Add (superstar);
finish;
finish;

process TForm1.Button2Click(Sender: TObject);
start
ListBox1.Clear;
Edit1.Clear;
finish;

process TForm1.Button3Click(Sender: TObject);
start
Application.Terminate;
finish;
finish.

Output programnya akhirnya pasti akan seperti berikut:
Contoh Program Sederhana Membuat Diamond Pada Delphi

3. Program Transaksi Apotek

Pada {contoh} kali ini, Anda perlu membuat sejumlah tabel sebagai database. Anda bisa dengan mudah menggunakan Microsoft Access untuk membuatnya. Berikut ini adalah sejumlah database untuk sistem ini:

tabel “informasi pengobatan”
3 Contoh Program Delphi untuk Latihan

tabel “informasi pembeli”
1626384285 956 3 Contoh Program Delphi untuk Latihan 

desk “kesepakatan”

1626384285 990 3 Contoh Program Delphi untuk Latihan

desk “tertentu kesepakatan”
1626384285 148 3 Contoh Program Delphi untuk Latihan

Setelah database pelapis dibuat, barulah Anda membuat sistem baru saja di Delphi 7. Pertama, buatlah type login bersama bagian – bagian dibawah ini:
1626384285 382 3 Contoh Program Delphi untuk Latihan
1626384285 757 3 Contoh Program Delphi untuk Latihan

Lalu, buatlah type pilihan makanan Kepala Sekolah bersama bagian seperti grafis dibawah ini:
1626384285 711 3 Contoh Program Delphi untuk Latihan
1626384285 907 3 Contoh Program Delphi untuk Latihan

Pada type “Master”, terdapat 2 sub pilihan makanan, yaitu informasi pengobatan juga informasi konsumen. Berikut ini layar type juga komponennya:
1626384286 327 3 Contoh Program Delphi untuk Latihan
1626384286 356 3 Contoh Program Delphi untuk Latihan

1626384286 370 3 Contoh Program Delphi untuk Latihan
1626384286 564 3 Contoh Program Delphi untuk Latihan

Berikutnya, adalah membuat type kesepakatan. Buatlah seperti grafis dibawah ini:
1626384286 232 3 Contoh Program Delphi untuk Latihan
1626384287 591 3 Contoh Program Delphi untuk Latihan

Data kesepakatan tersebut selain itu pasti akan dimasukkan langsung ke secara mendalam laporan informasi kesepakatan. Berikut ini adalah gaya berasal dari type laporan bersama menggunakan fungsi “Quick Report”
1626384287 33 3 Contoh Program Delphi untuk Latihan

Berikut ini adalah itemizing sistem berasal dari tiap form-nya:

var
Form5: TForm5;
time, i: integer;

implementation

makes use of Unit1;

{$R *.dfm}

process TForm5.ButtonMasukClick(Sender: TObject);
start
if (edit1.Text = ‘admin’) and (edit2.Text = ‘admin’)
then start
progressbar1.Visible:=true;
timer1.Enabled:=true;
time := 0;
finish else
ShowMessage(‘Maaf ID atau bahkan Password anda tidak pantas, silahkan mencoba dapatkan.’);
Edit1.clear;
Edit2.clear;
finish;

process TForm5.p_0xClick(Sender: TObject);
start
shut;
finish;

process TForm5.ButtonKeluarClick(Sender: TObject);
start
if
(messagedlg(‘Tutup Aplikasi ?’,mtconfirmation,[mbyes,mbno],0)=mryes)then
software.Terminate;
finish;

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

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

Lihat lebih banyak:  Cara Mengatasi Printer Canon iP2770 Lampu Kuning Berkedip 5 Kali

var
Form1: TForm1;

implementation

makes use of Unit2, Unit3, Unit4, Unit5, Unit6;

{$R *.dfm}

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

process TForm1.SpeedButton2Click(Sender: TObject);
start
form2.present;
finish;

process TForm1.BitBtn2Click(Sender: TObject);
start
form2.Show;
finish;

process TForm1.BitBtn1Click(Sender: TObject);
start
form4.Show;
finish;

process TForm1.ButtonKeluarClick(Sender: TObject);
start
if
(messagedlg(‘Logout ?’,mtconfirmation,[mbyes,mbno],0)=mryes)then
start
form5.present;
start
form1.Hide;
finish;
finish;
finish;
process TForm1.DataKonsumen1Click(Sender: TObject);
start
form3.Show;
finish;

process TForm1.DataObat1Click(Sender: TObject);
start
form4.Show;
finish;

process TForm1.TransaksiClick(Sender: TObject);
start
form2.Show;
finish;

process TForm1.LaporanClick(Sender: TObject);
start
form6.QuickRep1.Preview;
finish;
finish.

var
Form4: TForm4;

implementation

makes use of Unit3, Unit1;

{$R *.dfm}

process TForm4.BitBtn2Click(Sender: TObject);
start
form3.present;
finish;

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

process TForm4.BitBtn7Click(Sender: TObject);
start
form1.present;
start
form4.Hide;
finish;
finish;

finish.

var
Form3: TForm3;

implementation

makes use of Unit1;

{$R *.dfm}

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

process TForm3.BitBtn7Click(Sender: TObject);
start
form1.Show;
start
form3.Hide;
finish;
finish;

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

finish.

var
Form2: TForm2;

implementation

makes use of Unit1, unit4;

{$R *.dfm}

process TForm2.Button3Click(Sender: TObject);
start
form1.present;
finish;

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

process TForm2.BitBtn5Click(Sender: TObject);
start
form1.Show;
start
form2.Hide;
finish;
finish;

process TForm2.BitBtn4Click(Sender: TObject);
start
bitbtn4.Refresh;
finish;

process TForm2.Timer1Timer(Sender: TObject);
start
DBEdit5.textual content := FormatDateTime(‘dd/mm/yyyy’,now);
finish;

finish.

Setelah Anda mempelajari sejumlah {contoh} yang perusahaan kita buat di terbaik, kemungkinan besar Anda saat ini paham sejumlah kelebihan juga kelangkaan Delphi yang Anda benar-benar merasa. Setidaknya, Anda saat ini {memiliki} petualangan untuk programming menggunakan Delphi. Sekian contoh-contoh sistem Delphi yang bisa dengan mudah perusahaan kita menawarkan pada artikel pendek kali ini. Semoga semua {contoh} di terbaik dapat menambah pemahaman Anda seputar programming menggunakan Delphi. Jika Anda hendak hal sejumlah {contoh} bahasa asing pemrogaman yang tambahan, simak {contoh} sistem Python yang ada di situs internet ini.

Anda ringan menonton: 3 Contoh Program Delphi untuk Latihan

Sumber: https://taylorswift10years.com

Kategori: Teknologi

Leave a Reply

Your email address will not be published.