Langkah-langkah dalam membuat program menghitung volume kerucut menggunakan Class Module

      Salah satu contoh dalam peritungan rumus luas, volume, serta keliling untuk bangun ruang dan bangun datar dengan metode Class Modul dengan menggunakan bahasa pemrograman Visual Basic 6.0.

Berikut ini adalah langkah-langkah dalam membuat program menghitung volume kerucut.

LANGKAH 1

Buka aplikasi Visual Basic 6.0 lalu pilih Standard EXE seperti gambar di bawah ini.

Setelah terbuka seperti ini gambar di bawah ini.

Kita bisa mengatur besarnya tampilan program dengan menarik ke bawah atau ke samping Project1-Form1(Form) dan Form1.

LANGKAH 2

Untuk menambahkan sebuah class modul ke Project, Klik Project > Add Class Module. Pilih Class Module, lalu klik Open.

LANGKAH 3

Mengganti nama class modul dan isikan rumus rumus di dalam class modul seperti dibawah ini

LANGKAH 4

Buka volumeKerucut di dalam form selanjutnya Double klik pada HITUNG nanti akan keluar seperti pada gambar di bawah ini.

Untuk kode memanggil untuk menghitung volume kerucut adalah sebagai berikut

Private Sub Form_Unload(Cancel As Integer)

    End

End Sub

Private Sub tombolKembali_Click()

    home.Visible = True

    volumeKerucut.Visible = False

    hasilVolKerucut.Text = ""

    jariVolKerucut.Text = ""

End Sub

Private Sub tombolVolKerucut_Click()

    hasilVolKerucut.Text = fungsi.vol_kerucut(Val(jariVolKerucut.Text), Val(tinggiVolKerucut.Text))

    hasilVolKerucut.Text = Format(hasilVolKerucut.Text, "###,###")

    hasilVolKerucut.Text = Replace(hasilVolKerucut.Text, ",", ".")

End Sub

LANGKAH 5

Setelah selesai mengetik kodenya, klik close (tanda X lihat bagian yang dilingkari pada gambar di atas).

Untuk mengecek/menjalankan program tekan F5 atau tanda play yang dilingkar merah pada gambar di atas.

Tampilan output program menghitung volume kerucut sebagai berikut.

Setelah selesai mencoba klik tanda close.