by radioman (1 Submission)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 28th January 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Calculates the area of a circle and other polygons.
API Declarations
'the letters b,h,s,c,r,a are names of textboxes. It's up to you to design the interface. pls vote!!!!!
lblangle.Caption = "Angle: " & an * 3.141592654 * txtrad ^ 2
End Sub
Private Sub cmdbres_Click()
lblradius.Caption = "Radius: " & a / 3.141592654
End Sub
Private Sub cmdresult_Click()
lblarea.Caption = "Area: " & 3.141592654 * r ^ 2
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub cresult_Click()
lblcenter.Caption = "Center: " & 2 * 3.141592654 * c
End Sub
Private Sub Presult_Click()
lblparabola.Caption = 2 / 3 * b * h
End Sub
Private Sub sresult_Click()
lblsector.Caption = "Sector: " & s / 180
End Sub