Scribd
Upload
5 views2 pages

Calculate Volume & Surface Area of Box

The document contains a Visual Basic code for a Windows Forms application that calculates the volume and surface area of a rectangular prism (balok). It includes two versions of the calculation method: one using separate functions for volume and surface area, and another using a single subroutine to compute both values. The results are displayed in text boxes upon clicking a button.

Uploaded by

Alfredo Tarigan
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
5 views2 pages

Calculate Volume & Surface Area of Box

The document contains a Visual Basic code for a Windows Forms application that calculates the volume and surface area of a rectangular prism (balok). It includes two versions of the calculation method: one using separate functions for volume and surface area, and another using a single subroutine to compute both values. The results are displayed in text boxes upon clicking a button.

Uploaded by

Alfredo Tarigan
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd

Public Class Form1

Private Sub btnHitung_Click(ByVal sender As [Link], _


ByVal e As [Link]) Handles [Link]
Dim dblPjg As Double, dblLbr As Double, dblTgi As Double

dblPjg = Val([Link])
dblLbr = Val([Link])
dblTgi = Val([Link])
[Link] = VolumeBalok(dblPjg, dblLbr, dblTgi)
[Link] = LuasPermukaan(dblPjg, dblLbr, dblTgi)
End Sub

Function VolumeBalok(ByVal dblPjg As Double, ByVal dblLbr As Double, _


ByVal dblTgi As Double) As Double
VolumeBalok = dblPjg * dblLbr * dblTgi
'atau Return dblPjg * dblLbr * dblTgi
End Function

Function LuasPermukaan(ByVal dblPjg As Double, ByVal dblLbr As Double, _


ByVal dblTgi As Double) As Double
Return 2 * (dblPjg * dblLbr + dblPjg * dblTgi + dblLbr * dblTgi)
End Function
End Class

Public Class Form1

Private Sub btnHitung_Click(ByVal sender As [Link], _


ByVal e As [Link]) Handles [Link]
Dim dblPjg As Double, dblLbr As Double, dblTgi As Double, dblVol As Double, _
dblLP As Double

dblPjg = Val([Link])
dblLbr = Val([Link])
dblTgi = Val([Link])

VolumeDanLuasPermukaanBalok(dblPjg, dblLbr, dblTgi, dblVol, dblLP)


[Link] = dblVol
[Link] = dblLP
End Sub

Sub VolumeDanLuasPermukaanBalok(ByVal dblPjg As Double, ByVal dblLbr As Double, _


ByVal dblTgi As Double, ByRef dblVol As Double, _
ByRef dbLP As Double)
dblVol = dblPjg * dblLbr * dblTgi
dbLP = 2 * (dblPjg * dblLbr + dblPjg * dblTgi + dblLbr * dblTgi)
End Sub
End Class

You might also like