My Team (LOOP Community)

My Team (LOOP Community)

Sabtu, 08 September 2012

CODING DELPHI MEMBUAT APLIKASI PENGUKUR UMUR

CODING DELPHI MEMBUAT APLIKASI PENGUKUR UMUR


isikan kalimat" ini bdasarkan tempatnya

Di kotak sebelah umur dan kotak tulisan proses jg klik 2x lalu tuliskan :
if(StrToFloatDef(Edit1.Text,0)>=60) Then
Edit2.Text:='LANSIA';
if(StrToFloatDef(Edit1.Text,0)>=40)and (StrToFloatDef(Edit1.Text,0)<60)Then
Edit2.Text:='TUA';
if(StrToFloatDef(Edit1.Text,0)>=25) and (StrToFloatDef(Edit1.Text,0)<40)Then
Edit2.Text:='DEWASA';
if(StrToFloatDef(Edit1.Text,0)>=17) and (StrToFloatDef(Edit1.Text,0)<25)Then
Edit2.Text:='REMAJA';
if(StrToFloatDef(Edit1.Text,0)>0) and (StrToFloatDef(Edit1.Text,0)<17)Then
Edit2.Text:='ANAK-ANAK';
if(StrToFloatDef(Edit1.Text,0)<1)Then
Edit2.Text:='INPUT SALAH';


Di kotak tulisan hapus klik 2x lalu tuliskan :
Edit1.Clear;
Edit2.Clear;

Di kotak X klik 2x lalu tulskan : 
 If (application.MessageBox('Keluar?','Masivers',mb_yesno))=idyes then
close;

Tidak ada komentar:

Posting Komentar