PROGRAM LUAS BALOK

Nama : SRIWAHYUNI
NIM : 19010020

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