This is a Visual Basic program to find area of a rectangle, circle and triangle.
Manually we can find the area of a rectangle by using equation:
Area = Breadth * Length.
Also we can find the area of a circle by using equation:
Area = 3.14 * (radius)2
Also we can find the area of a triangle by using equation:
Area = sqrt(s*(s-a)*(s-b)*(s-c))
a = length of first side
b = length of second side
c = length of third side
s = (a + b+ c)/2
-where sqrt stands for square root
Program Code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = 3.14 * TextBox1.Text
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox5.Text = TextBox3.Text * TextBox4.Text
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim a As Integer = TextBox6.Text
Dim b As Integer = TextBox7.Text
Dim c As Integer = TextBox8.Text
Dim s As Double = (a + b + c) / 2
Dim findarea As Double = Math.Sqrt(s * (s - a) * (s - b) * (s - c))
TextBox9.Text = findarea
End Sub
End Class
Output:
area of circule code how to comeing