Masukan kode kupon "hosting2020" untuk mendapatkan diskon tambahan Hosting Unlimited Indonesia

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

0 Response to "Program Mencari Volume Limas"

Post a comment