Program Mencari Volume Balok di Visual Basic


Balok merupakan bangun ruang yang berbentuk persegi panjang yang terdiri dari 3 pasang sisi yang berbeda, untuk rumusnya pun hampir sama dengan kubus, yaitu tinggal mengalikan 3 panjang sisi tersebut (Panjang (W), Lebar (L) dan Tinggi (H)), dari rumus volume balok tersebut W x L x H, kita bisa membuat program menggunakan 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, lalu setelah frame di tambahkan tambahkan lagi 1 label di atas frame.
3. Ubahlah propertienya, seperti ini :

Tool BoxPropertiesKeterangan
Form 1Star Up PositionCenter Screen
Command 1CaptionCOUNT
Label 1CaptionW
Label 2CaptionH
Label 3CaptionL
Label 4Caption0
Frame 1CaptionResult
Text 1Text(Kosong)
Text 2Text(Kosong)
Text 2Text(Kosong)
sehingga seperti ini :
4. lalu 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 saya mencoba dengan angka 2, 3, 5, dan ketika di klik "Count", maka otomatis label 4 berisi hasil dari perkalian ke 3 angka tersebut,

dan jika ingin mencobanya kembalik, klik saja "TRY AGAIN", maka kondisinya akan seperti awal
Sekian tutorial VB kali ini,
Semoga bermanfaat


Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+



0 Response to "Program Mencari Volume Balok di Visual Basic"

Post a Comment