ICTL F5 : Coding VB - Area Of Cuboid

Pautan Imej Ini :
https://docs.google.com/drawings/d/1KadsNr0TSMJWqR-g1Uxbq2rvcFCFrjW0TJCEGHKgIn4/pub?w=597&h=473

ANALYSIS
Problem Statement
Required Input
Expected Output
Formula Used
DESIGN
Flowchart / Pseudocode
Input Interface
Output Interface
CODING
Program File Name	.vbp
Write Source Code
TESTING & DEBUGGING
Fix Error
Input Item, Input Data
Output Item, Actual Output
Executable File Name	.exe
DOCUMENTATION
Complete Assessment Form

SOURCE CODE

Private Sub calculate_Click()
'declare variables in the program
Dim length As Double
Dim width As Double
Dim height As Double
Dim areaofcuboid As Double

'capaian maklumat dari FORM
length = Val(inlength.Text)
width = Val(inwidth.Text)
height = Val(inheight.Text)

'pernyataan rumus yg diguna
areaofcuboid = length * width * height

'display hasil kiraan pada FORM
display.Print "Answer = "; areaofcuboid; "unit3"
display.Print "Program ini berjaya"
End Sub

Private Sub Command1_Click()
inlength.Text = ""
inwidth.Text = ""
inheight.Text = ""
End Sub

Private Sub Command2_Click()
MsgBox ("INFO : Program ini dibina oleh MOHD FARID." & vbCrLf & "Terima Kasih Kerana Menggunakan Program Ini.")
End Sub