Написать программу, которая будет рассчитывать площадь треугольника по различным формулам - Visual Basic .NET

Формулировка задачи:

Такая задача: написать программу, которая будет рассчитывать площадь треугольника по различным формулам. Формулу расчёта пользователь будет выбирать из предложенных. Данные для расчёта вводит пользователь. На форме должен рисоваться треугольник. Саму программу для рассчета написал. А вот как рисовать эти треугольники вообще понятия не имею. Вот код программы.

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Для начала расчета выберите формулу")
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, h, s As Single
        a = InputBox("Введите длину основания 'a'")
        h = InputBox("Введите длину высоты 'h'")
        s = 1 / 2 * a * h
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim a, b, y, s As Single
        a = InputBox("Введите длину стороны 'a'")
        b = InputBox("Введите длину стороны 'b'")
        y = InputBox("Введите угол 'y'")
        s = 1 / 2 * a * b * Math.Sin(y)
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim a, b, c, p As Single
        Dim s As VariantType
        a = InputBox("Введите длину стороны 'a'")
        b = InputBox("Введите длину стороны 'b'")
        c = InputBox("Введите длину стороны 'c'")
        p = (a + b + c) / 2
        s = Math.Sqrt(p * (p - a) * (p - b) * (p - c))
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim a, b, c, p, r As Single
        Dim s As VariantType
        a = InputBox("Введите длину стороны 'a'")
        b = InputBox("Введите длину стороны 'b'")
        c = InputBox("Введите длину стороны 'c'")
        r = InputBox("Введите радиус вписанной окружности 'r'")
        p = (a + b + c) / 2
        s = r * p
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim a, b, c, r As Single
        Dim s As VariantType
        a = InputBox("Введите длину стороны 'a'")
        b = InputBox("Введите длину стороны 'b'")
        c = InputBox("Введите длину стороны 'c'")
        r = InputBox("Введите радиус вписанной окружности 'r'")
        s = (a * b * c) / (4 * r)
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim a, b As Single
        Dim s As VariantType
        a = InputBox("Введите длину катета 'a'")
        b = InputBox("Введите длину катета 'b'")
        s = (1 / 2) * (a * b)
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button7_Click(sender As Object, k As EventArgs) Handles Button7.Click
        Dim d, e As Single
        Dim s As VariantType
        d = InputBox("Введите длину 'd'")
        e = InputBox("Введите длину 'e'")
        s = d * e
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Dim a, b, c, p As Single
        Dim s As VariantType
        a = InputBox("Введите длину стороны 'a'")
        b = InputBox("Введите длину стороны 'b'")
        c = InputBox("Введите длину стороны 'c'")
        p = (a + b + c) / 2
        s = (p - a) * (p - b)
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        Dim a, y As Single
        Dim s As VariantType
        a = InputBox("Введите длину сторон 'a'")
        y = InputBox("Введите угол 'y'")
        s = (1 / 2) * (a ^ 2) * Math.Sin(y)
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Dim a, b, y As Single
        Dim s As VariantType
        a = InputBox("Введите длину стороны 'a'")
        b = InputBox("Введите длину стороны 'b'")
        y = InputBox("Введите угол 'y'")
        s = (1 / 2) * a * b * Math.Sin(y)
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        Dim a, b, y As Single
        Dim s As VariantType
        a = InputBox("Введите длину стороны 'a'")
        b = InputBox("Введите длину стороны 'b'")
        y = InputBox("Введите угол 'y'")
        s = (b ^ 2) / (4 * Math.Tan(y / 2))
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        Dim a As Single
        Dim s As VariantType
        a = InputBox("Введите длину сторон 'a'")
        s = (Math.Sqrt(3) * (a ^ 2)) / 4
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        Dim a, r As Single
        Dim s As VariantType
        a = InputBox("Введите длину сторон 'a'")
        r = InputBox("Введите радиус 'r'")
        s = (3 * Math.Sqrt(3) * (r ^ 2)) / 4
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        Dim r As Single
        Dim s As VariantType
        r = InputBox("Введите радиус 'r'")
        s = 3 * Math.Sqrt(3) * (r ^ 2)
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
 
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        Dim h As Single
        Dim s As VariantType
        h = InputBox("Введите высоту 'h'")
        s = (h ^ 2) / (Math.Sqrt(3))
        MsgBox("Площадь треугольника равна = " & s)
    End Sub
End Class

Решение задачи: «Написать программу, которая будет рассчитывать площадь треугольника по различным формулам»

textual
                            Листинг программы 
                        

                            Public Class MainForm
    Dim Pen1 As New Pen(Color.Red, 2)
    Dim Pen2 As New Pen(Color.Blue, 2)
    Dim Pen3 As New Pen(Color.Red, 1)
    Dim drawBrush As New SolidBrush(Color.Black)
    Dim drawFont As New Font("Arial", 7)
 
    ''' Процедура для построения математической системы координат
    Private Sub DrawMathLines(gfx As Graphics)
        gfx.Clear(Color.White)
        'Печать шкал математической системы координат
        'в компьютерной системе координат
        For x = -100 To 100 Step 50
            gfx.DrawString(x, drawFont, drawBrush, x + 100, 105)
        Next x
        For y = 0 To 200 Step 50
            gfx.DrawString(y - 100, drawFont, drawBrush, 80, 200 - y)
        Next y
        'Преобразование компьютерной СК в математическую СК
        'Поворот оси Y
        gfx.ScaleTransform(1, -1)
        'Сдвиг по осям X и Y
        gfx.TranslateTransform(100, -100)
        'Рисование осей         'Ось X
        gfx.DrawLine(Pen1, -150, 0, 150, 0)
        'Ось Y
        gfx.DrawLine(Pen1, 0, -100, 0, 100)
        'Засечки на оси X
        For x = -100 To 100 Step 10
            gfx.DrawLine(Pen3, x, -5, x, 5)
        Next x
        'Засечки на оси Y
        For y = -100 To 100 Step 10
            gfx.DrawLine(Pen3, -5, y, 5, y)
        Next y
    End Sub
 
    Private Sub DrawGraph(gfx As Graphics)
        DrawMathLines(gfx)
        Dim x, y, x1, y1, x2, y2, x3, y3 As Integer
        Dim l1, l2, l3 As Integer
        If TextBox1.Text = "" And TextBox2.Text = "" And TextBox3.Text = "" _
        And TextBox4.Text = "" And TextBox5.Text = "" And TextBox6.Text = "" Then
            MsgBox("Введите координаты")
        Else
            x1 = Val(TextBox1.Text) : y1 = Val(TextBox2.Text)
            x2 = Val(TextBox3.Text) : y2 = Val(TextBox4.Text)
            x3 = Val(TextBox5.Text) : y3 = Val(TextBox6.Text)
            gfx.DrawEllipse(Pen2, x1 - 2, y1 - 2, 4, 4)
            gfx.DrawLine(Pen2, x1, y1, x2, y2)
            gfx.DrawEllipse(Pen2, x2 - 2, y2 - 2, 4, 4)
            gfx.DrawLine(Pen2, x2, y2, x3, y3)
            gfx.DrawEllipse(Pen2, x3 - 2, y3 - 2, 4, 4)
            gfx.DrawLine(Pen2, x1, y1, x3, y3)
        End If
        ' Вычисление длин сторон треугольника
        l1 = Math.Sqrt((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
        l2 = Math.Sqrt((x3 - x2) ^ 2 + (y3 - y2) ^ 2)
        l3 = Math.Sqrt((x3 - x2) ^ 2 + (y3 - y2) ^ 2)
        ' вычисление периметра
        Dim p = l1 + l2 + l3
        Label1.Text = Str(p)
        ' Вычисление площади треугольника по формуле Герона
        p = p / 2
        Dim s = Math.Sqrt((p - l1) * (p - l2) * (p - l3))
        Label2.Text = Str(s)
    End Sub
 
    Private Sub MainForm_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
        DrawGraph(e.Graphics)
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Invalidate()
    End Sub
End Class
                        