by Nangyal Ghani Khan (4 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 31st October 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Find Area of a triangle by Hero's Formula
API Declarations
Event CLICK
'Name: - Area of triangle by HERO's Formula
'Date: - 16/10/04 3:03Pm
'Day: - Wednesday
Private Sub Command1_Click()
Dim a, b, c, s, area, p As Double
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
s = (a + b + c) / 2
p = (s - a) * (s - b) * (s - c)
area = (s * p) ^ 0.5
MsgBox "Area of the triangleby hero's Formula Is" & area
End Sub