Program penghitung luas persegi panjang

     Program penghitung luas persegi panjang

Keterangan:

1 buah form

1 buah shape

6 buah label

3 buah textbox

1 buah command button

Codingnya:

Private Sub Command1_Click()

luas.Text = panjang.Text * lebar.Text

End Sub

Private Sub lebar_Change()

Label5.Caption = lebar.Text

End Sub

Private Sub luas_Change()

Label6.Caption = luas.Text

End Sub

Private Sub panjang_Change()

Label4.Caption = panjang.Text

End Sub