Area of the Circle in Visual Foxpro

Here is a sample program that will ask the user to give a value in radius and then the program will compute for the area of the circle. I wrote this sample program using Microsoft Visual Foxpro 5.0. I hope you will find my work useful. 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

set decimal to 2

SET FIXED ON

clear

radius = val(thisform.text1.value) 

area = (3.1416 * radius * radius);

final_solve= round(area,2)

thisform.label4.caption = "The area of the circle is " + alltrim(thisform.text3.value)

thisform.text3.value =  final_solve

Clear Button  Command2  Click

thisform.text1.value=""

thisform.text3.value=""

thisform.text1.setfocus

thisform.label4.caption =""

Quit Button Command2  Click

Quit