Mencari Ukuran Persegi Panjang

APLIKASI SEDERHANA MENCARI UKURAN PERSEGI PANJANG

Kali ini kita akan membuat sebuah program sederhana mencari luas dan keliling persegi panjang. Oke tanpa basa basi langsung saja kita ke tahapan pembuatan aplikasinya.

1. Desain Awal Program

2. Atur Properties Setiap Objek Sebagai Berikut

Setelah diatur sesuai dengan Properties diatas, maka tampilan akan seperti berikut :

3. Listing Coding Program

Public Class Form1

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        luas.Text = p.Text * l.Text

        kel.Text = 2 * (Val(p.Text) + l.Text)

    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click

        p.Clear()

        l.Clear()

        kel.Clear()

        luas.Clear()

    End Sub

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

        End

    End Sub

End Class

4. Hasil Program

    A. Hasil Pemrosesan

         

    B. Hasil Button Bersih

   

Semoga Bermanfaat :)