A very simple program that I wrote using Visual Basic for Application in Microsoft Access to compute the area of the circle. Our program will ask the user to give the radius of the circle and then it will compute then area. 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
'Written By Mr. Jake R. Pomperada, MAED-IT
'December 31, 2017 Sunday
' Microsoft Access 2000
Option Compare Database
Private Sub Command5_Click()
Dim val_radius, display As Double
If Len(Trim(Me.Text2) & vbNullString) = 0 Then
MsgBox "Enter the Radius Please", vbInformation
Me.Text2.SetFocus
Exit Sub
End If
val_radius = val(Me.Text2)
area = 3.14 * (val_radius * val_radius)
display = Round(area, 2)
Label8.Caption = "The area of the circle is " + Trim(Str(display)) + "."
End Sub
Private Sub Command6_Click()
Me.Label8.Caption = ""
Me.Text2 = ""
Me.Text2.SetFocus
End Sub
Private Sub Command7_Enter()
MsgBox ("This program was written by Mr. Jake R. Pomperada")
End Sub
