Menghitung luas dan keliling segiempat

Cara kerja program ini adalah : pada saat tombol HITUNG diklik, maka hasil LUAS dan KELILING akan muncul secara bersamaan. (PANJANG dan LEBAR harus diisi terlebih dahulu)

Pada jendela kode tuliskan koding di bawah ini : 

Private Sub CmdHAPUS_Click()

TxtPanjang.Text = ""

TxtLebar.Text = ""

TxtLuas.Text = ""

TxtKeliling.Text = ""

End Sub

Private Sub CmdHITUNG_Click()

TxtLuas.Text = Val(TxtPanjang.Text) * Val(TxtLebar.Text)

TxtKeliling.Text = 2 * (Val(TxtPanjang.Text) + Val(TxtLebar.Text))

End Sub

Private Sub CmdKeluar_Click()

End

End Sub