Program Mencari Volume Balok Di Visual Basic

Balok merupakan berdiri ruang yang berbentuk persegi panjang yang terdiri dari 3 pasang sisi yang berbeda, untuk rumusnya pun hampir sama dengan kubus, ialah tinggal mengalikan 3 panjang sisi tersebut (Panjang (W), Lebar (L) dan Tinggi (H)), dari rumus volume balok tersebut W x L x H, kita dapat menciptakan aktivitas memakai rumus tersebut untuk cara pembuatanya pun sangatlah mudah, berikut tutorialnya :

1. Jalankan VB dengan project standar EXE, lalu
2. Tambahkan 3 label, 3 text box, 1 command button, dan 1 frame, kemudian sehabis frame di tambahkan tambahkan lagi 1 label di atas frame.
3. Ubahlah propertienya, menyerupai ini :

Tool Box	Properties	Keterangan
Form 1	Star Up Position	Center Screen
Command 1	Caption	COUNT
Label 1	Caption	W
Label 2	Caption	H
Label 3	Caption	L
Label 4	Caption	0
Frame 1	Caption	Result
Text 1	Text	(Kosong)
Text 2	Text	(Kosong)
Text 2	Text	(Kosong)

sehingga menyerupai ini :

4. kemudian Tambahkan script berikut :

Private Sub Command1_Click()
If Command1.Caption = "COUNT" Then
    If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
    MsgBox "Please, Complete the form !", vbInformation, "BLUES PEDIA"
    Else
    Label4.Caption = Val(Text1) * Val(Text2) * Val(Text3)
    Command1.Caption = "TRY AGAIN"
    Text1.Enabled = False
    Text2.Enabled = False
    Text3.Enabled = False
    End If

ElseIf Command1.Caption = "TRY AGAIN" Then
    Text1.Enabled = True
    Text2.Enabled = True
    Text3.Enabled = True
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Label4.Caption = ""
    Text1.SetFocus
    Command1.Caption = "COUNT"
End If
End Sub

5. Jika sudah, jalankan program

Coba masukan angka di text1, text 2, dan text 3, disini aku mencoba dengan angka 2, 3, 5, dan saat di klik "Count", maka otomatis label 4 berisi hasil dari perkalian ke 3 angka tersebut,