Mencari Luas dan Keliling Segitiga dan Trapesium

LUAS DAN KELILING

SEGITIGA DAN TRAPESIUM

Pada pembahasan sebelumnya kita membahas tentang Mencari Ukuran Persegi Panjang, dan kali ini saya akan membahas tentang pembuatan sebuah software sederhana untuk mencari luas dan keliling segitiga dan trapesium. Baiklah langsung saja ke proses pembuatannya dibawah ini.

1. Desain Awal Program

2. Atur Properties nya Sebagai Berikut

Properties Segitiga

Properties Trapesium

Setelah melakukan pengaturan sesuai dengan properties, maka hasil nya akan seperti ini :

3. Listing Coding Program

Public Class Form

    Private Sub tutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tutup.Click

        End

    End Sub

    Private Sub hs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hs.Click

        ls.Text = 0.5 * a.Text * t.Text

        ks.Text = Val(a.Text) + a.Text + a.Text

    End Sub

    Private Sub bs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bs.Click

        a.Clear()

        t.Clear()

        ls.Clear()

        ks.Clear()

    End Sub

    Private Sub ht_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ht.Click

        lt.Text = 0.5 * (Val(alas.Text) + atas.Text) * tinggi.Text

        kt.Text = Val(alas.Text) + miring.Text + atas.Text + miring.Text

    End Sub

    Private Sub bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt.Click

        alas.Clear()

        atas.Clear()

        miring.Clear()

        tinggi.Clear()

        lt.Clear()

        kt.Clear()

    End Sub

End Class

4. Hasil Program

    A. Hasil Hitung Segitiga

    

    B. Hasil Hitung Trapesium

    

    C. Hasil Bersih Segitiga

    

    D. Hasil Bersih Trapesium