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

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



32 komentar:

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

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

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

    BalasHapus
  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

    BalasHapus
  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/

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

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

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

    BalasHapus
  9. Komentar ini telah dihapus oleh pengarang.

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

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

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

    BalasHapus
  13. uda dapat google adaense blom nih blog ?

    BalasHapus
  14. uda dapat google adsense ini blog??

    BalasHapus

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