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.
V = \frac{1}{3}\cdot \pi r^2 \cdot t
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 BoxPropertiesKeterangan
Form 1Star Up PositionCenter Screen
Command 1CaptionCOUNT
Label 1CaptionP
Label 2CaptionL
Label 3CaptionT
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 = 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


Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+

0 Response to "Program Mencari Volume Limas"

Post a Comment