VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



Calculates the area of a circle and other polygons.

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!!!!!

Rate Calculates the area of a circle and other polygons.



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


Download this snippet    Add to My Saved Code

Calculates the area of a circle and other polygons. Comments

No comments have been posted about Calculates the area of a circle and other polygons.. Why not be the first to post a comment about Calculates the area of a circle and other polygons..

Post your comment

Subject:
Message:
0/1000 characters