Follow & Dapatkan Artikel Terbaru Dari TauPintar Blog

Cara Membuat Program Sederhana Dengan Visual Basic 6.0 (VB 6.0)


CARA MEMBUAT PROGRAM SEDERHANA DENGAN VB.6


LANGKAH-LANGKAH MEMBUAT PROGRAM MENGHITUNG VOLUME KERUCUT

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
Kita akan mendesain form dengan menggunakan Label, TextBox, CommandButton yang terdapat pada toolbox( yang dilingkari ). Seperti gambar di bawah ini.
LANGKAH 3
Pengaturan Property (lihat yang dilingkari).
  1. Atur Formnya. Klik Form1, lihat properties, pada (Name) ganti dengan “VLMKERUCUT_FRM” , pada Caption ganti dengan “MENGHITUNG VOLUME KERUCUT”. Jika ingin menggunakan backgroundnya pilih Picture, klik kotak kecil di kiri (None) kemudian pilih gambar yang diinginkan.
  2. Klik Label1, lihat properties, pada Caption ganti dengan “MENGHITUNG VOLUME KERUCUT” , untuk mengatur letak tulisan pilih alignment (disini saya pilih 2-center), untuk memilih warna latar pada tulisan pilih BackColor klik palette( saya pilih warna kuning ), untuk memilih tipe tulisan dan besarnya pilih Font (saya pilih Kristen ITC, Bold, 14), untuk memilih warna tulisan pilihForeColor klik palette.
  3. Klik Label2, lihat properties, pada Caption ganti dengan “JARI JARI”. Atur juga tulisan dengan menggunakan alignment, BackColor, Font, ForeColor seperti pada contoh di atas.
  4. Klik Label3, lihat properties, pada Caption ganti dengan “TINGGI”. Atur juga tulisan dengan menggunakan alignment, BackColor, Font, ForeColor seperti pada contoh di atas.
  5. Klik Label4, lihat properties, pada Caption ganti dengan “VOLUME KERUCUT”. Atur juga tulisan dengan menggunakan alignment, BackColor, Font, ForeColor seperti pada contoh di atas.
  6. Klik Text1, lihat properties, pada (Name) ganti “TXTJARIJARI”, padaText kita kosongkan, atur tulisannya pada Font.
  7. Klik Text2, lihat properties, pada (Name) ganti “TXTTINGGI”, padaText kita kosongkan, atur tulisannya pada Font.
  8. Klik Text1, lihat properties, pada (Name) ganti “TXTVOLKERUCUT”, pada Text kita kosongkan, atur tulisannya pada Font.
  9. KLIK Command1, lihat properties, pada (Name) ganti “CMDPROSES”, pada Caption “PROSES” dan atur tulisan pada Font.
Setelah pengaturan properties dilakukan akan menghasilkan tampilan seperti gambar di bawah ini.
LANGKAH 4
Langkah 4 ini adalah membuat kode program. Kode ini sangat penting karena program bisa berjalan atau tidak ditentukan oleh kode ini. Pada pembuatan kode harus teliti dalam membuatnya.
Double klik pada PROSES nanti akan keluar seperti pada gambar di bawah ini.
Untuk kode menghitung volume kerucut ini adalah sebagai berikut.
Private Sub cmdproses_Click()
Dim JARIJARI, TINGGI, VOLKERUCUT As Integer
JARIJARI = Val(TXTJARIJARI.Text)
TINGGI = Val(TXTTINGGI.Text)
VOLKERUCUT = Val(22 / 7 * JARIJARI * JARIJARI * TINGGI / 3)
TXTVOLKERUCUT.Text = VOLKERUCUT
End Sub

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.
LANGKAH 5
Cara menyimpan file yaitu klik File, save project, pilih dimana tempat menyimpan yang diinginkan, buat folder (setiap program punya folder sendiri), buka folder yang dibuat, klik save.
Kemudian akan muncul lagi seperti ini di bawah ini. pilih save.
Setelah itu akan keluar pertanyaan “Add this project to SourceSafe?” pilih No.
Belun selesai sampai disana karena kita harus mengubah file ke dalam bentuk EXE.
Klik File, klik Make Project1.exe
Akan keluar seperti pada gambar di bawah ini. kemudian klik OK.
SELESAI……
SELAMAT MENCOBA

Jika Anda menyukai Artikel di blog ini, Silahkan klik disini untuk berlangganan gratis via email, dengan begitu Anda akan mendapat kiriman artikel setiap ada artikel yang terbit di TauPintar Blog
Blog, Updated at: 16:50
Posted by: Neci Purwanda TauPintar Blog Updated at : 16:50

31 komentar:

  1. Replies
    1. semoga bermanfaat buat agan,
      terima kasih telah berkunjung

      Delete
  2. makasih banyak buat infonya, di coba yaa..

    ReplyDelete
  3. makasih banyak buat infonya, di coba yaa..

    ReplyDelete
  4. Terimakasih Bang Atas Postingannya Cakep Tu Mantab Dan Bikin Ger dan semangat belajar.

    Oh Ya Bang Apakah Komponen OCX OsenXPSuite 2006 itu bisa Dipasang Di VB Net Mohon Solusi Ditunggu Balesannya,Maaf Masih Belajar

    ReplyDelete
  5. " Bagus juga informasinya, Gan. I'm AStronomer. " Visit :

    My Blogs / Web :

    http://alansr18.blogspot.com
    http://alansains.wordpress.com
    http://teknosains.com/user/AlanSR
    http://www.astro-nomi.science/author/alan/

    ReplyDelete
  6. The posts that I’ve been waiting for from fro to seek social bookmarking and met in this blog,

    ReplyDelete
  7. Thanks for posting this info. I just want to let you know that I just check out your site

    ReplyDelete
  8. Thanks for posting this info. I just want to let you know that I just check out your site

    ReplyDelete
  9. This comment has been removed by the author.

    ReplyDelete
  10. Gila membantu banget,klo bisa perbanyak program nya dong,biar bisa liat😂✌✌

    ReplyDelete
  11. kok aku ngak bisa make yah? tolong solusinya?

    ReplyDelete
  12. Tiket Pesawat Murah Online, dapatkan segera di SELL TIKET Klik disini:
    selltiket.com
    Booking di SELLTIKET.COM aja!!!
    CEPAT,….TEPAT,….DAN HARGA Di Jamin Murah!!!

    Ingin usaha menjadi agen tiket pesawat??
    Yang memiliki potensi penghasilan tanpa batas.
    Bergabung segera di agen.selltiket.com

    INFO LEBIH LANJUT HUBUNGI :
    No handphone : 085363402103
    PIN : D364EDCB

    ReplyDelete
  13. My full application MS Visual Basic 4.0 System Library 1.0
    https://goo.gl/19Ucqs

    Codes for the System Library 1.0
    https://goo.gl/FA26WS

    Google Profail
    https://goo.gl/wZ38Nv

    ReplyDelete
  14. untuk kalian yang menunggu liburan dan bingung untuk cari tempat yang NYAMAN,MURAH dan STRATEGIS :) langsung aja yu kunjungi di HOSTEL MURAH DI BANDUNG COCOK UNTUK BACKPACKER

    ReplyDelete
  15. Buat kalian ada yang BARU nih sayangi GEDGET kalian yaaa:) banyak INFORMASI yang bakal kalian tau dengan lihat link-link ini langsung saja yuuu:)
    http://zapplerepair.com/Macbook-Pro-2017-recovery-ambil-data-dari-ssd-onboard-logicboard.htm

    ReplyDelete
  16. artikelnya sangat menarik sy jadi ingin mencobanya. tp saya susah cr softwarenya, maklum pemula !

    ReplyDelete

Silahkan beri komentar dengan bijak dan sesuai dengan topik artikel.
Gunakan tombol balas dibawah komentar terkait jika ingin membalas komentar agar komunikasi lebih terstruktur.
Klik untuk melihat kode :) :( :s :D :-D ^:D ^o^ 7:( :Q :p T_T @-@ :-a :W *fck* :ngakak |o| :goodluck :smile

Please Enable JavaScript!
Mohon Aktifkan Javascript![ Enable JavaScript ]
Powered by Blogger.