Program Untuk Menghitung Luas dan Volume Bola dengan menggunakan Bahasa Pemograman Microsoft Visual Basic 6.0

Langkah - langkah pembuatan program:

·          Buka proyek Standard EXE yang baru

·          Disain tampilan form seperti gambar berikut dengan menggunakan objek Label dan TextBox dan CommandButton

Gbr 1

·     Atur Properties masing - masing kontrol seperti dibawah ini :

Kontrol	Properties	Pengaturan
TextBox1	Name        Text	txt_jarijari [dikosongkan]
Label1	Name Caption Appearance Border Style	lbl_luas [dikosongkan] 0 - Flat 1 - Fixed Single
Label2	Name Caption Appearance Border Style	lbl_volume [dikosongkan] 0 - Flat 1 - Fixed Single
Label3	Caption	Jari - Jari  ( r )
Label4	Caption	Luas
Label5	Caption	Volume
CommandButton1	Name Caption	cmd_exit E&xit

Form1

Name Caption

Frm_Bola Program untuk mencari Luas dan Volume Bola

·          Klik menu View  =>  Code, lalu kode program di bawah ini :

Const Pi = 3.14159265

Private Sub cmd_exit_Click()

End

End Sub

Private Sub txt_jarijari_Change()

'On Error Resume Next

If Me.txt_jarijari.Text = "" Then

    Me.lbl_volume.Caption = ""

    Me.lbl_luas.Caption = ""

Else

    Me.lbl_luas.Caption = Format((4 * (Pi * (Val(Me.txt_jarijari.Text) ^ 2))), "###,##0.##0")

    Me.lbl_volume.Caption = Format(((4 / 3) * (Pi * (Val(Me.txt_jarijari.Text) ^ 3))), "###,##0.##0")

End If

End Sub

·          Jalankan Program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run  => Start

·          Hasilnya ketika program dijalankan :

 

 Gbr 2

Download Source Codenya  disini  atau disini