Cara Menghitung Volume dan Luas permukaan Bola dengan Visual Basic 6.0
Pada pertemuan kali ini Saya akan membagikan sebuah tips bagaimana Cara Menghitung Volume dan Luas permukaan Bola denganVisual Basic 6.0.Sebelum kita membahas rumus sebuah bola mari kita bahas dulu pengertian dari sebuah bola dalam bangun ruang
Pengertian Bola dalam bangun ruang
Siapa yang tidak kenal dengan bola yaitu salah satu bentuk bangun ruang yang mempunyi sisi lengkung dan tak besudut atau bola juga bisa di artikan sebagai himpunan semua titik dalam dimensi tiga yang berjarak sama.
Rumus sebuah Bola :
Kali ini kita akan membahas beberapa rumus yang berhubungan dengan bangun ruang Bola yaitu Rumus permukaan bola dan Rumus volume bola.
A. Rumus Luas Permukaan Bola
Lp =4 x π x r^2
Keterangan:
Lp = Luas Permukaan Bola
R = Jari-jari bola
π = Konstanta yang bernilai 3,14
B. Rumus Volume Bola
V= (4/3) x π x r3
Keterangan :
V = Volume Bola
r = Jarijari Bola
π = Konstanta yang bernilai 3,14
Setelah kita menegetahui pengertian dan rumus bola, sekarang kita akan menghitungnya dengan membuat sebuah aplikasi penghitung luas dan volume bola dengan menggunakan Visual Basic 6.0
Cara Menghitung Volume dan Luas permukaan Bola denganVisual Basic 6.0
- Buka VB 6.0 Anda
- File – NewProject – Standar EXE
Desainlah Form sesuai pada gambar dibawah ini :
 |
| Form Rumus Volume dan Luas Bola |
Atur propertinya sebagai berikut:
Tabel Properti
| No | Toll Box | Properties | Keterangan |
|---|---|---|---|
| 1 | label1 | Caption : Mencari Volume dan Luas Permuaan Bola | form1 |
| 2 | label 2 | Caption : Rumus | form1 |
| 3 | Label 3 | Caption : Jari-jari(R) | Form 1 |
| 4 | Label 4 | Caption : 0 | Form 1 |
| 5 | Command1 | Caption : Atur Ulang | Form 1 |
| 6 | Command2 | Caption : Hitung | Form 1 |
| 7 | Command3 | Caption : Keluar | Form 1 |
| 8 | Combo1 | Text : Pilih Rumus | Form 1 |
| 9 | Text1 | Caption : Text1 | Form 1 |
| 10 | Frame1 | Caption : Hasil | Form 1 |
Source Kode Rumus Volume da Luas Permukaan Bola
With Combo1
.Clear
.AddItem "Volume"
.AddItem "Luas Permukaan Bola"
.Text = "Pilih Rumus"
End With
Label4.Caption = "0"
Text1.Text = ""
Text1.SetFocus
End Sub
Private Sub Command2_Click()
If Combo1 = "" Or Text1 = "" Then
MsgBox "Lengkapi Data", vbInformation, "tipandtrikunikvb"
Text1.SetFocus
ElseIf Combo1 = "Volume" Then
vol = 4 / 3 * 22 / 7 * (Val(Text1.Text) ^ 3)
Label4.Caption = vol
Frame1.Caption = Combo1.Text
ElseIf Combo1 = "Luas Permukaan Bola" Then
vol = 4 * 22 / 7 * (Val(Text1.Text) ^ 2)
Label4.Caption = vol
Frame1.Caption = Combo1.Text
ElseIf Combo1 = "Pilih Rumus" Then
MsgBox "Pilih Jenis Rumus", vbInformation, "tipandtrikunikvb"
Combo1.SetFocus
End If
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Private Sub Form_Load()
Combo1.AddItem "Volume"
Combo1.AddItem "Luas Permukaan Bola"
Text1.Text = ""
Combo1.Text = "Pilih Rumus"
End Sub
Simpan kode tersebut kemudian jalankan, maka hasilnya akan tampak seperti gambar dibawah ini:
 |
| Hasil Rumus Volume Bola |
Cara Pengoperasian hasil program
Plih rumus yang di inginkan yang ada di dalam ComboBox misal “Volume Bola” kemudian isikan nilai jari jari pada textbox kosong lalu tekan hitung dan hasilnya tampak seperti gambar di atas.
Sekian tips dari saya Cara Menghitung Volume dan Luas permukaan Bola dengan Visual Basic 6.0, semoga bermanfaat
No comments:
Post a Comment