Positive and Negative Number Checker in Visual Foxpro

A very simple program that I wrote using Visual Foxpro 5 to ask the user to give a number and then our program will check if the given number is a Positive or Negative number. The code is very simple and short.  I hope you will find my work useful. Thank you.

I hope you will find my work useful and beneficial. If you have some questions about programming, about my work please send mu an email at jakerpomperada@gmail.com and jakerpomperada@yahoo.com. People here in the Philippines can contact me at  my mobile number 09173084360.

Thank you very much and Happy Programming.

Sample Program Output

Program Listing

** Positive and Negative Number Checker in Visual Foxpro

** Written By: Mr. Jake R. Pomperada, MAED-IT

** August 19, 2017  Saturday   6:35 PM

SET TALK OFF

SET ECHO OFF

CLEAR

STORE 0 TO a

@ 1,20 Say "Positive and Negative Number Checker in Visual Foxpro"

@ 3,25 Say "Written By Mr. Jake R. Pomperada, MAED-IT"

@ 6,1 Say "Enter A Number    : " Get A Pict "9999"

READ

if (A >=0) then

   @ 10,1 Say "It given number is POSITIVE."

else 

   @ 10,1 Say "It given number is NEGATIVE."

endif

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