Public Class Form1
Private Sub btnluas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnluas.Click
Dim Panjang, Lebar, Tinggi, Hasil As Integer
Panjang = Val(txtpanjang.Text)
Lebar = Val(txtlebar.Text)
Tinggi = Val(txttinggi.Text)
Hasil = Val(2 * txtpanjang.Text * txtlebar.Text + 2 * txtpanjang.Text * txttinggi.Text + 2 * txtlebar.Text * txttinggi.Text)
txthasil.Text = Hasil
End Sub
End Class
Komentar
Posting Komentar