Membuat Program Penghitung Usia menggunakan delphi

Pembuaran Program Penghitung Usia. Pada Program yang akan kita buat ini kita bisa menghitung secara otomatis berapa umur kita atau umur seseorang secara tepat bengan membandingkan tanggal lahir dengan tanggal sekarang. logikanya cukup simple sih tapi kalo ga belajar ya ga mungkin bisa.
Ok langsung aja nih sob tutorialnya sudah saya susun secara acak-acakan, hehe.

Pertama Buat desain Form Seperti Gambar di bawah ini.. atau anda mau berekpresi dan menambahkan component pada aplikasi sebelumnya.(BEBAS)........hehehe.

Untuk Design Formnya sama saja seperti pembuatan design Sebelumnya pada TUTORIAL LENGKAP DELPHI yang telah saya tulis pada waktu yang lalu tinggal di tambahkan component DateTimePicker saja.

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 untuk algoritmanya.

Langsung saja mengisi source code pada 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.

Jika semua stepnya telah selesai Langkah terakhir anda adalah Run Program. Saya yakin semua yang mengikuti dan membaca secara cermat tutorial ini pasti berhasil membuat program yang sederhana ini.

Membuat Program Tanggal Bulan dan Tahun pada Delphi

Membuat Program Tanggal Bulan dan Tahun

Aplikasi ini ditujukan untuk pembelajaran mengenai pembuatan tanggal yang diinput secara DropDown menu pada sebuah aplikasi yang sebenarnya sering kalian jumpai pada setiap aplikasi. Kali ini saya akan coba share cara pembuatannya yah.. Semoga kita bisa belajar bersama melalui blog SOURCE CODE ini.

Mari kita ikuti step by step pembuatan program tanggal bulan dan tahun berikut ini.

Pertama klik file-new-application pada Delphi kemudian lanjutkan dengan membuat desain form seperti gambar di bawah

Tabel Properties Componen pada Label dan Button

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.

Coding Tombol

Langkah terakhir yaitu memasukan Coding atau pengisian sorce code Program pada 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.

Sekarang coba Runing Programnya dengan menekan tombol F9 pada keyboard. Apabila tidak ada kesalahan maka anda berhasil membuat aflikasi untuk menampilkan tanggal,bulan & Tahun.

Tentunya mudah kan ? . Tidak ada yang sulit jika Kemauan sudah angkat bicara. hehehe
semangat trus yah mas mbak smua..

Tutorial Lengkap DELPHI

Tutorial Lengkap DELPHI - MEMBUAT PROGRAM PENGGAJIAN KARYAWAN

MEMBUAT PROGRAM PENGGAJIAN KARYAWAN

Sebelum menjalani tutorial alangkah baiknya jika kita mengenal dulu apa itu DELPHI...

Delphi adalah 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

Di pertemuan awal ini saya akan berbagi tentang bagaimana membuat Program Penggajian Karyawan. Langsung saja ikuti Langkah-langkahnya.

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.

Untuk masukan label pada form, klik kursor pada bagian form dialog maka akan tampil seperti gambar dibawah

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

Maka akan nampak seperti gambar dibawah.......!!!

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;

Setelah semua selesai coba jalankan program yang sudah kalian buat tasi. Sedikit Tutor pembelajaran yang saya berikan semoga bermanfaat........!!!

Membuat Program Penghitung Usia menggunakan delphi