Menentukan Volume Limas dan Balok

Public Class Form1
    Private Function hmin(ByVal panjang As Integer, ByVal lebar As Integer, ByVal tinggi As Integer,       ByVal tinggi_limas As Integer) As Double
        Dim hitung, hitung2, total As Integer
        hitung = panjang * lebar * tinggi
        hitung2 = (panjang * lebar * tinggi_limas) / 3
        total = hitung - hitung2
        hmin = total
    End Function

    Private Function hplus(ByVal panjang As Integer, ByVal lebar As Integer, ByVal tinggi_limas As Integer, ByVal tinggi As Integer) As Double
        Dim hitung, hitung2, total As Integer
        hitung = panjang * lebar * tinggi
        hitung2 = (panjang * lebar * tinggi_limas) / 3
        total = hitung + hitung2
        hplus = total
    End Function


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pj, lb, t, ts As Integer
        pj = CType(TextBox1.Text, Integer)
        lb = CType(TextBox2.Text, Integer)
        t = CType(TextBox3.Text, Integer)
        ts = CType(TextBox4.Text, Integer)
        TextBox5.Text = CType(hplus(pj, lb, ts, t), String)
        TextBox6.Text = CType(hmin(pj, lb, t, ts), String)
    End Sub
End Class

Keterangan :

Hplus nilai yang diperoleh dari volume Limas ditambah volume  Balok
Hmin nilai yang diperoleh dari volume Limas dikurangi volume Balok

outputnya :

0 komentar:

Poskan Komentar