Program Mencari Volume Kerucut di Visual Basic

Kerucut merupakan bangun ruang yang berbentuk seperti tabung, tetapi memiliki sebuah ujung kerucut, rumus untuk mencari volume kerucut adalah 1/3 x Luas alas x Tinggi, atau

 Dari rumus tersebut akan kita buatkan sebuah program untuk mencari volum kerucut, berikut turtorialnya :

1. Seperti biasa, jalankan VB dengan project standar EXE, lalu
2. Tambahkan 2 label, 2 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	R
Label 2	Caption	T
Label 3	Caption	0
Frame 1	Caption	Result
Text 1	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 = "" Then
    MsgBox "Please, Complete the form !", vbInformation, "BLUES PEDIA"
    Else
    Label3.Caption = 1 / 3 * 22 / 7 * (Val(Text1) ^ 2) * Val(Text2)
    Command1.Caption = "TRY AGAIN"
    Text1.Enabled = False
    Text2.Enabled = False
    End If
ElseIf Command1.Caption = "TRY AGAIN" Then
    Text1.Enabled = True
    Text2.Enabled = True
    Text1.Text = ""
    Text2.Text = ""
    Label4.Caption = ""
    Text1.SetFocus
    Command1.Caption = "COUNT"
End If
End Sub

5. Jika sudah, jalankan program

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

Perhitungan :
R adalah 7 maka r kuadrat = 49
T = 21
phi = 22/7, sehingga
= 1/3 x 22/7 x 49 x 21 (21 di bagi 1/3 = 7, 22/7 dikali 49 = 154)
= 7 x 154
= 1078
dan jika ingin mencobanya kembali, klik saja "TRY AGAIN", maka kondisinya akan seperti awal

Sekian tutorial VB kali ini,
Semoga bermanfaat