Here is a very simple program that I wrote using Microsoft Visual Foxpro to ask the user to give a number and then our program will check and determine if the given number is a POSITIVE or NEGATIVE number based on the given number by our user. The version of Visual Foxpro that I am using in this sample program is 5.0. Thank you.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
Sample Program Output
Program Listing
Ok Button Command1 Click
number_val = val(thisform.text1.value)
if (number_val >= 0) then
MESSAGEBOX("The given number is a POSITIVE number.",0,"The Result")
thisform.text1.value=""
thisform.text1.setfocus
else
MESSAGEBOX("The given number is an NEGATIVE number.",0,"The Result")
thisform.text1.value=""
thisform.text1.setfocus
endif
Clear Button Command2 Click
thisform.text1.value=""
thisform.text1.setfocus
Quit Button Command2 Click
Quit
