PROGRAM MENGHITUNG VOLUME PRISMA SEGITIGA

Nama : SRIWAHYUNI
NIM : 19010020

Public Class Form1

    Private Sub btnvolume_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnvolume.Click

        Dim Luas, Tinggi, hasil As Integer

        Luas = Val(txtluas.Text)

        Tinggi = Val(txttinggi.Text)

        hasil = Val(txtluas.Text * txttinggi.Text)

        txthasil.Text = hasil

    End Sub

End Class