A simple program that I wrote using Microsoft Visual Foxpro 9 that will ask the user to give a number and then our program will check if the given number is a Prime or Not a Prime Number. The code is very easy to understand and use.
I am currently accepting programming and web development work kindly contact me in the following email address for further details. Thank you.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My telephone number at home here in Bacolod City, Negros Occidental is (034) 4335675.
Sample Program Output
Program Listing
Object: Form1 Procedure: Init
==============
thisform.txtvalue.Value=0
Check Button
=============
Object: Command1 Procedure: Click
IF empty(thisform.txtvalue.Value)
MESSAGEBOX("Can't be empty")
thisform.txtvalue.Value=0
thisform.txtvalue.SetFocus
RETURN .t.
ENDIF
a=0
for i=thisform.txtvalue.value to 1 step -1
if MOD(thisform.txtvalue.value,i)=0
a=a+1
ENDIF
endfor
if a=2 AND a#1
display_result="The given number " + transform(thisform.txtvalue.value)+" is a Prime number."
else
display_result="The given number " +transform(thisform.txtvalue.value)+" is not a Prime number"
endif
thisform.label2.Caption = display_result
Check Button
==================
Object: Command2 Procedure: Click
thisform.label2.Caption=""
thisform.txtvalue.Value=0
thisform.txtvalue.setfocus
Quit Button
==================
Object: Command3 Procedure: Click
thisform.release
