CONTOH PROGRAM SEDERHANA MENGGUNAKAN FOXPRO

 Fungsi If Satu Tingkat
Disini kita akan menggunakan fungsi if untuk menentukan nilai Lebih Besar atau Lebih Kecil ( >/ < ). Berikut contoh program sederhananya:

a. Check
with thisform
if val(.text1.value)>val(.text2.value)
.ket.value="Nilai A lebih besar dari nilai B"
else
.ket.value="Nilai A lebih kecil dari nilai B"
endif
endwith

b. Clear
with thisform
.text1.value=""
.text2.value=""
.ket.value=""
.text1.setfocus()
Endwith

c. Exit
thisform.release

Semoga bermanfaat…...^_^..