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 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, "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



Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+

0 Response to "Menentukan Volume dan Luas Permukaan Bola"

Post a Comment