Menentukan Volume dan Luas Permukaan Bola

Pada tutorial kali ini kita akan membuat sebuah progam untuk mencari volume sebuah bola, rumus dari sebuah volume bola adalah 4 / 3 x  22 / 7 x r (pangkat) 3, dengan rumus tersebut kita kan membuat program untuk menghitung sebuah volume bola, namun tak hanya volume bola, kita pun akan membuat program untuk menentukan luas permukaannya, baiklah 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 seperti ini :

Tool Box	Properties	Keterangan
Form 1	Star Up Position	Center Screen
Command 1	Caption	RESET
Command 2	Caption	HITUNG
Command 3	Caption	END
Label 1	Caption	Volume Bola
Label 2	Caption	ASKED
Label 3	Caption	R
Label 4	Caption	0
Frame 1	Caption	(Kosong)
Text 1	Text	(Kosong)
Combo 1	Text	(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, "Blues Pedia"

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, agar mudah dalam perhitunganya, untuk jari-jari saya menuliskan 21, maka volume bolanya adalah :
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 menggunakan 7, agar mudah 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