PROGRAM MENGHITUNG LUAS TRAPESIUM

Kali ini kita menggunakan APLIKASI VB.2010 untuk program menghitung pada luas trapesium.

Berikut contoh desainnya:

Script pada Form:

Public Class Form1

    Dim alas, tinggi, hasil As Double

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'Menghitung Luas Trapesium

        If TextBox1.Text = "" Then

            MsgBox("Data Belum Diisi")

        Else

            alas = Val(TextBox1.Text)

            tinggi = Val(TextBox2.Text)

            hasil = alas * tinggi / 2

            TextBox3.Text = hasil

        End If

    End Sub

End Class

OUTPUT: