Area of the Square in Visual Foxpro

Here is a sample program that will ask the user to give a length of the side of the square and then the program will compute for the area of the square. 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

side = val(thisform.text1.value) 

area_square = (side * side);

final_solve= round(area_square,2)

thisform.label4.caption = "The area of the square 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