listing Logika DO CASE Visual Foxpro

listing program aplikasi Foxpro "umur" dengan logika IF-ENDIF:

*Dengan logika "DO CASE"
1. buat Form seperti

2. listing

=> masukkan scrib/listing ke comman "proses":

DO case
CASE VAL(thisform.text2.Value)=>60
thisform.text3.Value="Lansia"
CASE VAL(thisform.text2.Value)=>21 and VAL(thisform.text2.Value)=<60
thisform.text3.Value="Dewasa"
CASE VAL(thisform.text2.Value)=>17 and VAL(thisform.text2.Value)=<20
thisform.text3.Value="Remaja"
CASE VAL(thisform.text2.Value)=>5 and VAL(thisform.text2.Value)<17
thisform.text3.Value="Anak-anak"
CASE VAL(thisform.text2.Value)<5
thisform.text3.Value="Balita"
otherwise
thisform.text3.Value=""
endcase

3. Silahkan Run aplikasi dan lihat hasil..
kurang lebih hasilnya seperti ini..