Tuesday, 10 January 2017T1/10/2017 08:24:00 pm

PROGRAM SEDERHANA MENCARI UMUR SESEORANG MENGGUNAKAN DELPHI

Salam blogger…pada postingan saya kali ini saya  akan membahasa tentang bagaimana cara sederhana membuat sebuah program mencari jumlah usia seseorang dengan menggunakan bahasa pemprograman Delphi, program sederhana ini dapat di buat di di Delphi versi apa saja, baik itu Delphi 7, Delphi 2010 maupun di Delphi series XE, pada dasarnya membuat program mencari jumlah usia seseorang ini tidak lah sulit, cara kerja nya hanya dengan mengurangi inputan angka tahun sekarang dengan tahun lahir. Saya membahas tentang program ini hanya untuk sebagai penambah wawasan sobat – sobat semua saja. Tidak menutup kemungkinan cara ini juga akan dipakai jika sobat membuat sebuah aplikasi project deplhi.

Berikut ini saya akan mencoba menjelaskan langkah – langkah pembuatanya, mari disimak dengan seksama.  Pertama – tama yang harus kita lakukan adalah membuat sebuah project baru di dephi, lalu selanjutnya desain form nya seperti pada gambar dibawah ini :

Adapun komponen yang diperlukan pada form diatas adalah sebagai berikut :
- 5 buah label
- 3 buah edit text
- 2 buah button
Jika sudah maka selanjutnya kita akan membuat coding program nya, masukan koding program di bawah ini kedalam form yang sudah sobat desain sebelumnya.

unit Unit1;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if not(edit2.Text <>'') or not(edit3.Text <>'') then
begin
Application.MessageBox('Masih Ada Data Yang Belum Di Isi, Cek Kembali !','Peringatan',
mb_Ok + Mb_IconExclamation);
edit2.SetFocus;
exit;
end;
label1.Caption:=inttostr(strtoint(edit3.Text)-strtoint(edit2.Text))+' Tahun';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
label1.Caption:='';
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not  (key in['0'..'9', #8, #13, #32]) then
begin
key :=#0;
MessageDlg('Tahun yang dimasukan harus angka !!!',mtError,[mbOK],0);
edit2.Clear;
edit2.SetFocus;
end;
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not  (key in['0'..'9', #8, #13, #32]) then
begin
key :=#0;
MessageDlg('Tahun yang dimasukan harus angka !!!',mtError,[mbOK],0);
edit3.Clear;
edit3.SetFocus;
end;
end;
end.


Jika sudah maka selanjutnya coba sobat jalankan programnya dengan menekan F9/RUN. dan isi inputan datanya lalu klik proses dan lihat hasilnya. Demikian artikel yang dapat saya share kali ini, semoga dapat bermanfaat dan selamat mencoba.
Previous
Next Post »
0 Komentar untuk "PROGRAM SEDERHANA MENCARI UMUR SESEORANG MENGGUNAKAN DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status