Program Mencari Volume Kerucut Di Visual Basic

Kerucut merupakan berdiri ruang yang berbentuk ibarat tabung, tetapi mempunyai sebuah ujung kerucut, rumus untuk mencari volume kerucut yaitu 1/3 x Luas bantalan x Tinggi, atau

 Dari rumus tersebut akan kita buatkan sebuah aktivitas 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, kemudian sesudah frame di tambahkan tambahkan lagi 1 label di atas frame.
3. Ubahlah propertienya, ibarat ini :

Tool BoxPropertiesKeterangan
Form 1Star Up PositionCenter Screen
Command 1CaptionCOUNT
Label 1CaptionR
Label 2CaptionT
Label 3Caption0
Frame 1CaptionResult
Text 1Text(Kosong)
Text 2Text(Kosong)
sehingga ibarat ini :
4. kemudian 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 aku mencoba dengan angka 7 (R), dan 21 (T), kemudian klik "Count", maka otomatis label 3 berisi hasil volume kerucut,

Perhitungan :
R yaitu 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 kalau ingin mencobanya kembali, klik saja "TRY AGAIN", maka kondisinya akan ibarat awal

Sekian tutorial VB kali ini,
Semoga bermanfaat

Comments