PENGANTAR KOMPUTER DAN TEKNOLOGI INFORMASI 2B - VISUAL BASIC 6.0

PENGANTAR KOMPUTER DAN 

TEKNOLOGI INFORMASI 2B

Program Sederhana Aplikasi Bangun Ruang Kerucut Sebagai

Implentasi Tipe Data, Variabel, Konstanta & Operator 

Pada Visual Basic 6.0

Disusun Oleh:

Muhammad Ardillah 24219030

         Kelas       1EB01

Sebagai Pengumpulan Quiz melalui 

V-Class / Pembelajaran Jarak Jauh 

Dosen

Bu Wahyu Supriyatin

Fakultas Ekonomi

Jurusan Akuntansi

Universitas Gunadarma

Langkah – Langkah Membuat Aplikasi Bangun Ruang Kerucut

Pada Visual Basic 6.0

       1. Buka aplikasi Visual Basic 6.0 lalu pilih Standard EXE seperti gambar di bawah ini. Lalu Klik Open 

          2. Setelah terbuka seperti ini gambar di bawah ini. Berikut Merupakan                      Tampilan Awal Visual Basic.

          3. Selanjutnya, Dalam Membuat Aplikasi Tersebut kita membutuhkan                       komponen yang dibutuhkan, yaitu ; 8 Label, 6 Command Button, dan 3                Text Box, yang berada di  Sebelah kiri (ToolBox) dapat dilakukan dengan               click komponen tersebut, kemudian drag atau tarik pada posisi yang                      benar pada form.

      4. Lalu Desain & Letakkan Komponen – Komponen sesuai Kebutuhan                        seperti di bawah ini.

    5. Lalu Atur Desain Form Pada Tabel dibawah ini, Pengaturan dilakukan                    dalam jendela properties.

Object	Property	Value
Form 1	Caption	Aplikasi Bangun Ruang Kerucut
Label 1	Aligment BorderStyle Caption Font ( Font Style, Size )	2 – Center 1 – Fixed Single Menghitung Volume Kerucut,Luas Alas, Luas Selimut Kerucut, dan Luas Permukaan Kerucut Times New Roman, Bold, 12
Label 2	Aligment Caption Font ( Font Style, Size )	2 – Center Jari - Jari  (r) Times New Roman, Bold, 12
Label 3	Aligment Caption Font ( Font Style, Size )	2 – Center Tinggi  (t) Times New Roman, Bold, 12
Label 4	Aligment Caption Font ( Font Style, Size )	2 – Center Selimut (s) Times New Roman, Bold, 12
Label 5	Caption Font ( Font Style, Size )	Rumus Luas Alas  La = Phi * r * r Times New Roman, Bold, 12
Label 6	Caption Font ( Font Style, Size )	Rumus Luas Selimut  Ls = Phi *  r * s Times New Roman, Bold, 12
Label 7	Caption Font ( Font Style, Size )	Rumus Luas Permukaan  La + Ls  = Phi *  r * ( r + s ) Times New Roman, Bold, 12
Label 8	Caption Font ( Font Style, Size )	Rumus Volume V = 1/3 * Phi * r * t Times New Roman, Bold, 12
Command1	Caption	Luas Alas
Command2	Caption	Luas Selimut
Command3	Caption	Luas Permukaan
Command4	Caption	Volume
Command5	Caption	Hapus
Command6	Caption	Keluar
Text1	Text Name	- TXTJari
Text2	Text Name	- TXTtinggi
Text3	Text Name	- TXTSelimut

6. Setelah pengaturan properties dilakukan , Selanjutnya membuat kode                 program. Kode ini sangat penting karena program bisa berjalan atau tidak          ditentukan oleh kode ini. Pada pembuatan kode harus teliti dalam                          membuatnya.

• Klik tombol View Code pada Window Project), sehingga muncul tampilan script pastika Object Selector berisi (General) dan Event Selector berisi (Declarations).Disini akan mendeklarasikan  Variabel secar global sehingga bisa digunakan oleh semua blok kode program.

          Ketik Program Sebagai Berikut :

          Dim JariJari As Single

          Dim Luas_Alas As Single

          Dim Luas_Selimut As Single

          Dim Luas_Permukaan As Single

          Dim Volume As Single

          Const Phi = 22 / 7

          Deklarasi  Variabel Global JariJari, Luas_Alas, Luas_Selimut,                                    Luas_Permukaan, dan Volume untuk menyimpan  data bertype single. 

          Deklarasi Konstanta Phi untuk menyimpan nilai secara tetap.

• Click pada command1 (Tambah) , sehingga muncul tampilan script dengan disediakan perintah dari event command_click

          Ketik Program Sebagai Berikut :

          Private Sub Command1_Click() 

          JariJari = (TXTJari.Text)  

          Menyimpan angka yang diketik pada Text 1> JariJari

         Luas_Alas = (Phi * JariJari ^ 2)

         Menuliskan  Rumus Penghitungan Luas Alas Kerucut

         TXTSelimut.Visible = False

         Ketika Command clik di klik membuat TXTSelimut menjadi tidak terlihat

         TXTtinggi.Visible = False

         Ketika Command clik di klik membuat TXTtinggi menjadi tidak terlihat

        MsgBox "Luas Alas Kerucut : " & Luas_Alas, vbInformation, "Hasil"

        akan memuncul pesan (Informasi yang menampilkan Hasil sebagai nama              dari pesan tersebut serta jawaban dari perhitungan Luas Alas)

        End Sub

• Click pada command2 (Tambah) , sehingga muncul tampilan script dengan disediakan perintah dari event command_click

          Ketik Program Sebagai Berikut :

          Private Sub Command2_Click() 

          JariJari = (TXTJari.Text)  

          Menyimpan angka yang diketik pada Text 1> JariJari

          Selimut= (TXTSelimut.Text)  

          Menyimpan angka yang diketik pada Text3 > Selimut

         Luas_Selimut = (Phi * JariJari * Selimut)

         Menuliskan  Rumus Penghitungan Luas Selimut

        TXTtinggi.Visible = False

        Ketika Command clik di klik membuat TXTtinggimenjadi tidak terlihat

        MsgBox "Luas Selimut  Kerucut : " & Luas_Selimut, , vbInformation, "Hasil"

        akan memuncul pesan (Informasi yang menampilkan Hasil sebagai nama              dari pesan tersebut serta jawaban dari perhitungan Luas Selimut)

        End Sub

• Click pada command3 (Tambah) , sehingga muncul tampilan script dengan disediakan perintah dari event command_click

          Ketik Program Sebagai Berikut :

          Private Sub Command3_Click() 

          JariJari = (TXTJari.Text)  

          Menyimpan angka yang diketik pada Text 1> JariJari

          Selimut= (TXTSelimut.Text)  

          Menyimpan angka yang diketik pada Text3 > Selimut

         Luas_Permukaan = Phi * JariJari * (JariJari + Selimut)

         Menuliskan  Rumus Penghitungan Luas Permukaan Kerucut

        TXTtinggi.Visible = False

        Ketika Command clik di klik membuat TXTtinggimenjadi tidak terlihat

        MsgBox "Luas Permukaan Kerucut : " & Luas_Selimut, , vbInformation,                "Hasil" akan memuncul pesan (Informasi yang menampilkan Hasil sebagai            nama dari pesan tersebut serta jawaban dari perhitungan Permukaan                    Selimut)

        End Sub

• Click pada command4 (Tambah) , sehingga muncul tampilan script dengan disediakan perintah dari event command_click

          Ketik Program Sebagai Berikut :

          Private Sub Command4_Click() 

          JariJari = (TXTJari.Text)  

          Menyimpan angka yang diketik pada Text 1> JariJari

          Tinggi= (TXTtinggi.Text)  

          Menyimpan angka yang diketik pada Text2 > Tinggi

         Volume = (Phi * JariJari * JariJari * Tinggi / 3)

         Menuliskan  Rumus Penghitungan Volume Kerucut

        TXTSelimut.Visible = False

        Ketika Command clik di klik membuat TXTselimut menjadi tidak terlihat

        MsgBox "Volume  Kerucut : " & Volume , vbInformation, "Hasil"

        akan memuncul pesan (Informasi yang menampilkan Hasil sebagai nama              dari pesan tersebut serta jawaban dari perhitungan Volume Kerucut)

        End Sub

• Click pada command5 (Tambah) , sehingga muncul tampilan script dengan disediakan perintah dari event command_click

          Ketik Program Sebagai Berikut :

          Private Sub Command5_Click()

          TXTJari.Visible = True

          TXTtinggi.Visible = True

          TXTSelimut.Visible = True

          TXTJari.Text = ""

          TXTtinggi.Text = ""

          TXTSelimut.Text = ""

          End Sub

          Apabila command5 di tekan, akan membuat semua textbox menjadi                      kosong seperti semula

• Click pada command5 (Tambah) , sehingga muncul tampilan script dengan disediakan perintah dari event command_click

          Ketik Program Sebagai Berikut :

          Private Sub Command6_Click()

          End

          End Sub

          Membuat perintah keluar dari Program

          Berikut dilampirkan Kode Program yang utuh:

Project sudah selesai, untuk menjalankan tekan F5. Cobalah untuk mengisi semua operasi penghitungan, Bila hasilnya benar maka project aplikasi dikatakan benar. Untuk menyimpan project pilih menu [File] >> [Save Project]   Pilih Folder mana untuk menyimpan file, sebaiknya simpan  di default  folder visual basic. Isikan nama file dengan AplikasiKerucut.frm untuk form lalu tekan [Save]. Setelah itu muncul jendela yang sama untuk project, isikan nama project dengan AplikasiKerucut.vbp dan tekan [Save].

Cara Kerja & Uji Coba Aplikasi

Penulis membuat aplikasi rumus bangun ruang kerucut menggunakan Visual Basic 6.0. Aplikasi ini merupakan sebuah jenis perangkat lunak yang digunakan sebagai metode pembelajaran oleh user untuk mengetahui rumus sautu bangun ruang berdasarkan dari menu yang user pilih. Aplikasi bertujuan untuk menerangkan lebih lanjut bagaimana rumus bangun ruang itu berlaku dalam suatu sistem. Aplikasi ini juga meringkas rumus suatu bangun ruang sehingga mudah untuk dipelajari oleh user, dari tingkat manapun pendidikannya. Aplikasi ini juga dirancang untuk se-sederhana mungkin guna membantu user mendapatkan informasi yang akurat.

Disini Penulis akan menjelaskan Aplikasi Penghitungan Rumus Bangun Ruang Kerucut berikut dengan soalnya:

• Jalankan Program Aplikasi Bangun Ruang Kerucut,
• Berikut jika yang ditanyakan adalah Luas Alas Kerucut:

Sebuah kerucut mempunyai luas lingkaran dengan panjang jari-jari alasnya 7 cm. Hitunglah Luas Alas Kerucut, tersebut

Jawab, untuk mencari luas alas kita bisa menggunakan rumus luas lingkaran (π × r 2) jika yang sudah diketahui adalah jari-jarinya.

Lalu, masukkan nilai jari – jari pada Aplikasi, lalu pilih Luas Alas Kemudia, Otomatis Aplikasi menghitung Luas Alas Kerucut, dengan jawaban 154 cm.

• Selanjutnya  jika yang ditanyakan adalah Luas Selimut Kerucut:

Diketahui sebuah kerucut memiliki jari-jari sebesar 3 cm dan panjang garis pelukisnya adalah 5 cm. Maka tentukanlah Luas Selimut Kerucut

Jawab, untuk mencari Luas Selimut Kerucut kita bisa menggunakan rumus (π × r × s) jika yang sudah diketahui adalah jari-jari dan selimutnya.

Lalu, masukkan nilai pada Aplikasi, lalu pilih Luas Selimut Kerucut. Kemudian, Otomatis Aplikasi menghitung Luas Alas Kerucut, dengan jawaban 47,1 cm. 

• Selanjutnya  jika yang ditanyakan adalah Luas Permukaan Kerucut:

Berapakah luas permukaan kerucut yang mempunyai Jari-Jari 7 cm dan garis pelukis(selimut) 15 cm?

Jawab, untuk mencari Luas Permukaan Kerucut kita bisa menggunakan rumus (π × r ×( r +s ))  Karena ,Permukaan kerucut yaitu berupa gabungan dari selimut kerucut dan alas kerucut 

Lalu, masukkan nilai pada Aplikasi, lalu pilih Luas Permukaan Kerucut. Kemudian, Otomatis Aplikasi menghitung Luas Permukaan Kerucut, dengan jawaban 484 cm.

• Selanjutnya  jika yang ditanyakan adalah Volume Kerucut:

Sebuah nasi tumpeng dengan bentuk kerucut sempurna memiliki tinggi 30 cm. Jika panjang jari-jari kerucut adalah 7 cm, berapakah volume nasi tumpeng tersebut?

Jawab, untuk mencari Volume Kerucut kita bisa menggunakan rumus (1/3 × π × r × t).

Lalu, masukkan nilai pada Aplikasi, lalu pilih Luas Permukaan Kerucut. Kemudian, Otomatis Aplikasi menghitung Luas Permukaan Kerucut, dengan jawaban 1540 cm. 

• Jika Pada saat user menggunakan 1 rumus dan ingin mengganti rumus lainnya, user cukup piliha hapus, maka tampilan akan seperti semula dan Jika User telah selesai menggunakan Aplikasi, User bisa mengklik Keluar untuk keluar dari Aplikasi.