Berikut adalah contoh form untuk Condition & Looping pada Visual Foxpro
1. Condition
Buat Layout seperti gambar dibawah : Tambahkan Control : 3 Label, 3 Textbox, 1 Command
Isikan scrib/ pada comman "Condition" :
if VAL(text1.Value) > VAL(text2.Value) then
text3.Value="Nilai 1 lebih besar dari Nilai 2"
else
text3.Value="Nilai 1 lebih kecil dari Nilai 2"
endif
Hasil Layout saat dijalankan , silahkan isikan data Nilai 1 dan Nilai 2 lalu klik Command Condition untuk melihat keterangan:
2. Looping
Buat Layout seperti gambar dibawah : Tambahkan 2 Label 2 TextBox, 1 Command
Isikan scrib/ pada comman "Looping" :
thisform.text3.Value=""
for a=1 to thisform.text1.value Step thisform.text2.Value
thisform.text3.Value=thisform.text3.Value+STR(a,2,0)+" "
next a
Hasil Layout saat dijalankan , silahkan isikan data Nilai 1 dan Nilai 2 lalu klik Command Looping untuk melihat keterangan:
