Program Mencari Volume Limas

Limas merupakan bangun ruang kerucut yang memiliki alas berbentuk persegi, rumus untuk mencari volume limas adalah 1/3 x Luas alas x Tinggi, dimana rumus luas alas tergantung dari alas limas tersebut, ummnya untuk rumus luas alas limas adalah panjang x lebar.

By : Wikipedia

Dari rumus tersebut akan kita buatkan sebuah program untuk mencari volume limas, berikut turtorialnya :

1. Seperti biasa, 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 Box	Properties	Keterangan
Form 1	Star Up Position	Center Screen
Command 1	Caption	COUNT
Label 1	Caption	P
Label 2	Caption	L
Label 3	Caption	T
Label 4	Caption	0
Frame 1	Caption	Result
Text 1	Text	(Kosong)
Text 2	Text	(Kosong)
Text 2	Text	(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 = 1 / 3 * 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

Private Sub Form_Load()
Skin1.LoadSkin App.Path & "\OrionNext.skn"
Skin1.ApplySkin Me.hWnd
End Sub



5. Jika sudah, jalankan program

Coba masukan angka  di text1, text 2, dan text3, disini saya mencoba dengan angka 4 (P), dan 4 (L),  dan 3 (T), lalu klik "Count", maka otomatis label 4 berisi hasil volume kerucut,

Perhitungan :
P = 4, L = 4, T = 3
V = 1/3 x Luas Alas x Tinggi
V = 1/3 x 4 x 4 x 3
V = 4 x 4
V Limas = 16

dan jika ingin mencobanya kembali, klik saja "TRY AGAIN", maka kondisinya akan seperti awal

Sekian tutorial VB kali ini,
Semoga bermanfaat