PROGRAM SEDERHANA VISUAL BASIC 6.0 - KERUCUT

Membuat program sederhana untuk menghitung luas permukaan kerucut dan volume kerucut dengan menggunakan deklarasi tipe data, variabel, konstanta dan operator dalam Visual Basic

 Menjelaskan hasil bentuk program yang dibuat

• Bentuk kode program:

Variabel

TIPE DATA

KONSTANTA

OPERATOR

Private Sub Command1_Click()

Dim Jari_jari As Integer

Dim Tinggi As Integer

Dim Sisi As Integer

Dim LuasPermukaan, Volume As Double

Const Phi = 22 / 7

Text1.Text = Val(Text1.Text)

Text2.Text = Val(Text2.Text)

Text3.Text = Val(Text3.Text)

Text4.Text = Val(Phi * Text1.Text * Text1.Text + Phi * Text1.Text * Text3.Text)

Text5.Text = Val(1 / 3 * Phi * Text1.Text * Text1.Text * Text2.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

End Sub

Private Sub Command3_Click()

End

End Sub

• Program ini saya buat untuk menghitung luas permukaan kerucut dan volume kerucut.
• Terlihat pada gambar ke 1, saya menggunakan 5 Label yang terdiri dari jari-jari, tinggi, sisi, luas permukaan, dan volume. Menggunakan 5 TextBox untuk hasil perhitungannya. Menggunakan 3 CommandButton yang terdiri dari hasil, hapus, dan keluar.
• Pada gambar ke 2 saya memasukan rumus luas permukaan dan volume kerucut yaitu :

Luas permukaan = 22/7 x jari-jari x jari-jari + 22/7 x jari-jari x sisi

Volume = 1/3 x 22/7 x jari-jari x jari jari x tinggi

Bentuk rumus yang dimasukkan kedalam kode program yaitu:

Text4.Text = Val(Phi * Text1.Text * Text1.Text + Phi * Text1.Text * Text3.Text)

Text5.Text = Val(1 / 3 * Phi * Text1.Text * Text1.Text * Text2.Text)

• untuk variabel yang berwarna kuning
• untuk tipe data yang berwarna ungu
• untuk konstanta yang berwarna hijau
• untuk operator yang berwarna biru aqua

• Untuk hasil perhitungannya akan terlihat pada form di gambar ke 3. Contohnya saya memasukan jari-jarinya yaitu 3, lalu tingginya 3, dan sisinya 3 jika di klik commandbutton "HASIL" maka akan mucul di bagian textbox luas permukaan  yaitu 56 dan volumenya yaitu 28. Pada gambar ke 4, jika ingin menghitung dengan angka lain klik commandbutton "HAPUS" lalu ketik ulang angka yang diinginkan. Pada gambar ke 5, jika ingin mengakhiri  perhitungannya klik commandbutton "KELUAR".