Cara Menghitung Umur dengan Delphi
Cara menghitung umur dengan menggunakan pemograman delphi, untung menghitung umur tidak harus dengan bahasa delphi bisa juga menggunakan bahasa pemograman lainnya seperti bahasa C dan C++ atau dengan Java atau juga bisa secara manual. Pada kesempatan kali ini saya sedikit akan berbagi tentang bagaimana caranya mengitung umur dengan menggunakan bahasa pemograman delphi, ini penting karena buat pengingat kita, supaya tidak merasa muda terus, sehingga lupa untuk menyaipkan bekal untuk diakherat nanti.
Pada dasarnya cara menghitung umur adalah dengan mengurangkan tanggal dan tahun sekarang dengan tanggal dan tahun lahir, dengan cara ini juga kita bisa mengetahui sudah berapa lama kita menghirup oksigen di dunia ini. Pada kesempatan ini apabila ingin mengeceknya dengan menggunakan aplikasi yang bisa kita buat, karena sangat gampang hanya dengan beberapa menit saja kita sudah bisa memastikan umur kita sudah berapa tahun.
Untuk membuatnya ikuti langkah-langkah berikut ini:
- Membuat sebuah project baru di delphi, kemudian design formnya seperti pada gambar di bawah ini:
- Apabilah sudah maka selanjutnya buat Code programnnya, dengan cara kopy kode program dibawah ini kedalam form yang anda design sebelumnya.
Pada form diatas ada beberapa komponen yang dibutuhkan antara lain:
5 Buah Label
3 Buah edit text
2 buah Button
unit Unit1;
interface
use
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.
Semoga berhasil..
Sumber : http://www.uduymacal.com
