Menentukan Volume Dan Luas Permukaan Bola

Pada tutorial kali ini kita akan menciptakan sebuah progam untuk mencari volume sebuah bola, rumus dari sebuah volume bola yaitu 4 / 3 x  22 / 7 x r (pangkat) 3, dengan rumus tersebut kita kan menciptakan jadwal untuk menghitung sebuah volume bola, namun tak hanya volume bola, kita pun akan menciptakan jadwal untuk memilih luas permukaannya, oke berikut turotialnya :

1. Jalankan Visual Basic dengan project standar EXE
2. Lalu tambahkan 4 Label, 1 Text box, 1 combo box, 1 frame, dan 3 command button
3. Atur ptopertiesnya ibarat ini :

Tool BoxPropertiesKeterangan
Form 1Star Up PositionCenter Screen
Command 1CaptionRESET
Command 2CaptionHITUNG
Command 3CaptionEND
Label 1CaptionVolume Bola
Label 2CaptionASKED
Label 3CaptionR
Label 4Caption0
Frame 1Caption(Kosong)
Text 1Text(Kosong)
Combo 1Text(Kosong)

4. Jika sudah, tuliskan script berikut :
Private Sub Combo1_Click()
Frame1.Caption = Combo1.Text
Text1.Text = ""
label1.Caption = ""
End Sub

Private Sub Command1_Click()
With Combo1
.Clear
.AddItem "Volume"
.AddItem "Luas Permukaan"
End With
Text1.Text = ""
Frame1.Caption = ""
label1.Caption = ""
End Sub

Private Sub Command2_Click()
If Combo1 = "" Or Text1 = "" Then
MsgBox "Lengkapi Data", vbInformation, "Routeros Mikrotik"

ElseIf Combo1 = "Volume" Then
vol = 4 / 3 * 22 / 7 * (Val(Text1.Text) ^ 3)
label1.Caption = vol

ElseIf Combo1 = "Luas Permukaan" Then
vol = 4 * 22 / 7 * (Val(Text1.Text) ^ 2)
label1.Caption = vol
End If
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Call Command1_Click
End Sub

5. Untuk menguji kebenaran dan keakuratanya dalam perhitungan, maka saya akan mencobanya :

1. Pertama saya akan menguji keakuratan menghitung volume, semoga gampang dalam perhitunganya, untuk jari-jari saya menuliskan 21, maka volume bolanya yaitu :
V = 4/3 x 22/7 x 21 x 21 x 21
v = 4 x 22 x 21 x21
V = 38808

2. Menentukan Luas Permukaan Bola
untuk jari jari disini saya memakai 7, semoga gampang dalam perhitungannya
L = 4 x 22/7 x 7 x 7
L = 4 x 22 x 7
L = 616

Silahkan anda coba dengan angka lainya
sekian tutorial kali ini semoga bermanfaat

Comments