CARA MEMBUAT PROGRAM APLIKASI DALAM SEBUAH TOKO

LANGKAH PERTAMA seperti biasa buka terlebih dulu VB 6.0

SELANJUTNYA desain sesuai dengan kebutuhan, contohnya seperti gambar ini
 

LANJUT kodenya seperti ini

KODE TOMBOL PROGRAM HITUNG
Private Sub cmdhitung_Click()
txttotal.Text = Val(txtjumlahbarang.Text) * Val(txtharga.Text) - Val(txtdiskon.Text)
End Sub

KODE TOMBOL PROGRAM KELUAR
Private Sub cmdkeluar_Click()
Unload Me
End Sub

KODE TOMBOL PROGRAM BELANJA LAGI
Private Sub cmdlagi_Click()
txtnomor.Text = ""
txtpembeli.Text = ""
txtbarang.Text = ""
txtharga.Text = ""
txtjumlahbarang = ""
txtdiskon = ""
txttotal.Text = ""
txtnomor.SetFocus
End Sub

TERAKHIR... coba jalankan programnya seperti ini

SELALU DIINGAT NAMA KODE TIDAK ADA PATOKAN. PENTING KITA BISA MENGINGATNYA DENGAN MUDAH.. SEMOGA BERMANFAAT

CARA MEMBUAT APLIKASI PENERIMAAN SISWA BARU

LANGKAH PERTAMA seperti biasa buka terlebih dulu VB 6.0

SELANJUTNYA desain sesuai dengan kebutuhan, contohnya seperti gambar ini

LANJUT kodenya seperti ini

KODE TOMBOL PROGRAM COMBO BOX JURUSAN YANG DIPILIH

Private Sub cbojurusan_Click()

If cboJurusan.Text = "S1 Sistem Informasi" Then

txtPropti.Text = "350000"

txtBiayaPendft.Text = "300000"

Else

txtPropti.Text = "300000"

txtBiayaPendft.Text = " 300000"

End If

txtHarus.Text = Val(txtBiaya.Text) + Val(txtPropti.Text) + Val(txtBiayaPendft.Text)

End Sub

KODE TOMBOL PROGRAM YANG DIPILIH

Private Sub cboProgram_Click()

If cboProgram.Text = "Reguler" Then

txtBiaya.Text = "3500000"

Else

txtBiaya.Text = "4000000"

End If

End Sub

KODE TOMBOL PROGRAM DAFTAR BARU

Private Sub cmdDaftar_Click()

txtNama.Text = ""

txtJenis.Text = ""

txtAlamat.Text = ""

txtAsal.Text = ""

txtBiaya.Text = ""

txtOrangtua.Text = ""

txtPropti.Text = ""

txtBiayaPendft.Text = ""

txtHarus.Text = ""

cboProgram.Text = ""

cboJurusan.Text = ""

cboTahun.Text = ""

txtNama.SetFocus

End Sub

KODE TOMBOL PROGRAM SELESAI

Private Sub cmdSelesai_Click()

Unload Me

End Sub

KODE TOMBOL PROGRAM SUB FORM LOAD

Private Sub Form_Load()

cboProgram.AddItem "Reguler"

cboProgram.AddItem "eksekutif"

cboJurusan.AddItem "S1 Sistem Informasi"

cboJurusan.AddItem "D3 Manajemen Informatika"

cboTahun.AddItem "2013"

cboTahun.AddItem "2014"

cboTahun.AddItem "2015"

cboTahun.AddItem "2016"

End Sub

KODE PROGRAM OPTION JENIS KELAMIN

Private Sub OptLaki_Click()

txtJenis.Text = "Laki-laki"

End Sub

KODE PROGRAM POTION JENIS KELAMIN

Private Sub OptPerempuan_Click()

txtJenis.Text = "Perempuan"

End Sub

KODE PROGRAM TXT YANG HARUS DIBAYAR

Private Sub txtHarus_Change()

txtHarus.Text = Val(txtBiaya.Text) + Val(txtPropti.Text) + Val(txtBiayaPendft.Text)

End Sub

TERAKHIR... coba jalankan programnya seperti ini

SEMOGA BERMANFAAT...

CARA MEMBUAT APLIKASI PENJUALAN ACCESSORIES KOPUTER MENGGUNAKAN ComboBox

LANGKAH PERTAMA seperti biasabuka terlebih dulu VB 6.0

SELANJUTNYA desain sesuai dengan kebutuhan, contohnya seperti gambar ini

LANJUT kodenya seperti ini

KODE TOMBOL PROGRAM COMBO BOX PILIH ITEM

Private Sub CboPilih_Click()

If CboPilih.Text = "Mouse" Then

TxtHarga.Text = "15000"

ElseIf CboPilih.Text = "Keyboard" Then

TxtHarga.Text = "30000"

ElseIf CboPilih.Text = "CPU" Then

TxtHarga.Text = "10000"

End If

TxtJumlah.SetFocus

End Sub

KODE TOMBOL PROGRAM HITUNG

Private Sub CmdHitung_Click()

TxtTotal.Text = Val(TxtUang.Text) - Val(TxtHarga.Text) * Val(TxtJumlah.Text)

End Sub

KODE TOMBOL PROGRAM BELI LAGI

Private Sub CmdLagi_Click()

TxtID.Text = ""

TxtNama.Text = ""

TxtAlamat.Text = ""

TxtNo.Text = ""

TxtNamaProduk.Text = ""

TxtHarga.Text = ""

TxtJumlah.Text = ""

TxtUang.Text = ""

TxtTotal.Text = ""

TxtID.SetFocus

End Sub

KODE TOMBOL PROGRAM SELESAI

Private Sub CmdSelesai_Click()

Unload Me

End Sub

KODE TOMBOL PROGRAM SUB FORM LOAD

Private Sub Form_Load()

CboPilih.AddItem "Mouse"

CboPilih.AddItem "Keyboard"

CboPilih.AddItem "CPU"

End Sub

TERAKHIR... coba jalankan programnya seperti ini

Selamat mencoba.. 

CARA MEMBUAT APLIKASI PENJUMLAHAN DUA BILANGAN MENGGUNAKAN VISUAL BASIC 6.0

PERTAMA  buka terlebih dulu VISUAL BASIC 6.0 seperti gambar di bawah ini

KEDUA desain seperti gambar di bawah ini

KETIGA setiap name TextBox diganti dengan "txtnilaipertama" txtnilaikedua" txthasil" dan tool Command diganti dengan "cmdhitung" "cmdlagi" "cmdselesai". Sebenarnya terserah mau dikasih nama apapun asal kita bisa paham ketika mengetik kodenya nanti. Perhatikan gambar dibawah ini 

Kemudian... mulai mengetik kodenya seperti ini

KODE TOMBOL PROGRAM HITUNG
Private Sub cmdhitung_Click(Index As Integer)
txthasil.Text = Val(txtnialipertama) + Val(txtnialikedua)
End Sub

KODE TOMBOL PROGRAM HITUNG LAGI
Private Sub cmdlagi_Click(Index As Integer)
txtnilaipertama.Text = ""
txtnilaikedua.Text = ""
txthasil.Text = ""
txtnilaipertama.SetFocus
End Sub

KODE TOMBOL PROGRAM SELESAI
Private Sub cmdselesai_Click(Index As Integer)
Unload Me
End Sub

SELANJUTNYA coba jalankan programnya, maka hasilnya seperti ini

Selesai......

BAGIAN - BAGIAN PADA VISUAL BASIC 6.0 DAN FUNGSINYA

Hallo sahabat ku...  Dipostingan perdana saya sebagai pemula membuat sebuah blog, saya akan berbagi sedikit ilmu untuk kalian semua yang masih sama-sama belajar tentang bahasa pemrogaman VB 0.6. 

Oke sebelum lanjut, kalian sudah tahu apasih Visual Basic itu?

Visual Basic 6.0 adalah sebuah software terkenal yang biasa digunakan untuk membuat Aplikasi berbasis database maupun tidak. Aplikasi yang dibangun dengan Visual Basic 6.0 atau yang dikenal dengan VB 6.0 adalah berbasis desktop. Di Indonesia sendiri masih banyak programmer yang menggunakan Visual Basic 6.0 untuk membangun di kantor-kantor di Indonesia. Oleh karena itu bagi anda yang ingin belajar VB 6.0 harus tahu dasarnya pemograman Visual Basic 6.0 itu sendiri. dimulai dari bagian-bagian pada Visual Basic 6.0 dan fungsinya.

Bagian-Bagian pada Visual Basic 0.6

 

 

Komponen atau bagian-bagian pada visual Basic antara lain:

Tampilan Visual Basic yang kita ketahui hampir sama dengan layar program-program aplikasi windows pada umumnya. Kita dapat menggeser, memindahkan, memperbesar atau memperkecil ukuran setiap komponen layar Visual Basic seperti kita memanipulasi layar windows. Seperti gambar diatas terdapat bagiam-bagian komponen yang sudah diberi angka yang dmana setia angka tersebut adalah bagian-bagian komponen dalam program Visual Basic 0.6.

• 1 dan 2

Form adalah bahan untuk pembuatan window.  Kita meletakkan control pada form. Kontrol ini misalnya tombol, check box, radio button, memo label, panel dan sebagainya. Pada form tersedia tombol minimize/restore dan close, ketiganya terletak di pojok kanan atas. Ukuran form bias diubah dengan drag dan drop tiga titik disebelah kanan, bawah dan pojok kanan bawah. Jika drag dan drop kearah ke luar akan memperbesar dan sebaliknya akan memperkecil.

Untuk mengaktifkan form ada tiga cara, yaitu :

1.     Klik tombol  View Objeck pada Window Project

2.     Dari menu View klik perintah Object

3.     Tekan tombol Shift+F7 pada keyboard

• Baris  Menu

Menu merupakan kumpulan perintah-perintah yang dikelompokan dalam criteria perasi yang dihasilkan. Visual Basic 6.0 mentediakan tiga belas menu.

• Toolbar

Tombol- tombol pada toolbar akan sangat membantu dalam mempercepat akses perintah (yang bias menjadi tersembunyi di dalam tingkat-tingkat hirarki). Sebab tombol speed berfungsi sama dengan perintah yang tersedia (dan tersembunyi) di dalam menu.  

• Windows Properties

Window ini bertugas menyiapkan segala property dari objek yang diperlukan dalam perencanaan user interface maupun pemrogaman. Pada window ini terdapat semua property yang dimiliki oleh objek terpilih (cara memilih objek adalah klik objek langsung pada diagram di projk explorer atau klik pada objeknya, misalnya form).

Pada windows ini terdapat dua tab yang menampilkan property dalam dua cara sesuai dengan nama tab yaitu tab Alphabet (diurutkan berdasarkan namanyasesuai dengan abjad, ini merupakan pilihan default) dan Categories (diurutkan berdasarkan fungsinya). Masing-masing properties memilii nilainya sendiri-sendiri yang telah disediakan Visual Basic 0.6 atau kita isikan sesuai dengan kebutuhan.

Cara menampilkan windows ini ada dua cara yaitu :

1.     Dari menu View pilih Properties Window

2.     Tekan tombol F4 pada keyboard

 

• Toolbox

Toolbox adalah tempat penyimpanan kontrol yang akan kita gunakan pada program yang dipasangkan pada form. VB 0.6 menyediakan 21 kontrol, masing-masing dapat dilihat pada table berikut :

• Fungsi - fungsi Komponen Toolbox di atas :

Pointer (untuk memilih control )   

PictureBox (menampilkan gambar)

 Label (teks pada form; tidak dapat langsung di ubah)

TextBox (tempat input/menampilkan teks -> bebas mengubah)

CheckBox (menampilkan kondisi Y/N atau T/F)

Command Button (menjalankan perintah/proses jika di tekan)

Option Button (mirip dengan checkbox, tapi hanya satu pilihan yg dapat di pilih)

ComboBox (kombinasi textbox & listbox, pilih dari list atau ketik)

ListBox (multiselect)

Horizontal Slinder ( untuk memberikan tombol left to right)

Vertical Slinder ( untuk memberikan tombol atas ke bawah)

Timer ( memberikan waktu)

Drivel List Box (memberikan alamat data)

Dir LIst Box ( Memberikan Folder baru)

File List Box (memberikan File baru)

Shape (memberikan bentuk grafik )

Line (membentuk garis)

Frame (pengelompokan kontrol-kontrol secara visual/fungsional)

Image (menampilkan gambar, tapi tidak bisa sebagai kontainer kontrol)

 OLE – Object Lingking and Embedding (lokasi program eksternal, ex : word ms, dll.) 

• Project Explorer

Project Explorer berfungsi berbagai saran pengakses bagian-bagian pembentuk project. Pada windows ini terdapat tiga tombol pengaktif untuk Windows Code,  Windows Object dan Toggle Folder. Juga terdapat diagram yang menampilkan susunan folder penyimpanan file-file project.

Secara default windows ini menempati dock-nya sendiri, yaitu di sebelah kanan atas. Namun kita bisa membuatnya mengambang keluar dock dengan cara mengklik atau drag keluar judul windows ini.

Untuk menampilkan windows ini dengan caranya adalah :

1.     Dari menu View pilihlah Project Explorer

2.     Tekan tombol CTRL +R pada keyboard

• Project Form

Project (sekumpulan modul aplikasi itu sendiri), sedangkan Event adalah peristiwa atau kejadian yang diterima oleh suatu objek, misalnya klik, seret, dan tunjuk.

Contoh : Private Sub Command1_Click( )

Baris di atas menunjukkan penggunaan Event Click pada objek command1, maka baris-baris kode program di bawahnya akan dilaksanakan.

• Components

Components, berfungsi untuk memilih komponen apa saja yang akan digunakan untuk ditampilkan pada Tool Box  dan yang akan nantinya digunakan.

Sekian informasi yang bisa saya share, semoga bermanfaat dan pastinya membantu kalian yang sedang belajar pemrogaman Visual Basic 6.0. Jika ada kesalahan mohon kritik dan sarannya untuk kemajuan saya. Trimakasih banyak untuk yang sudah berkunjung.

Jangan lupa follow blog saya untuk mendapatkan informasi seputar pemrogaman Visual Basic 6.0 yaa...