Positive and Negative Number Checker in Visual Foxpro

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