Menentukan Volume Limas dan Balok

Posted by Unknown on October 01, 2011 in VB.net,

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 :