Coding Proses Usia

Buat Terlebih dahulu

Label 1 diberi caption Umur

Label2 diberi caption “” (tidak diisi)

Edit1 diberi text “” (tidak diisi)

Button1 diberi caption proses

Button2 diberi caption keluar

Coding pada button proses

Procedure TForm1. Button1Click(Sender: TObject) ;
var usia: integer;
Begin
Usia: =StrToInt(Edit1.text) ;
Case usia of
0..5: Label2.caption: = ‘Balita’;
6..10: Label2.caption: = ‘Anak-anak’;
11..20: Label2.caption: = ‘Remaja’;
21..40: Label2.caption: = ‘Pemuda’;
41..60: Label2.caption: = ‘Orang Tua’;
61..100: Label2.caption: = ‘Lansia’;
Else
Label2.caption:= ‘Anda berumur panjang’;
End;
End;

end.

Coding pada button keluar

procedure TForm1.Button2Click(Sender:TObject);

Begin

Application.terminate;

end;

end.