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