Visual Basic 6.0 - Program Penjualan Barang

.::| PROGRAM PENJUALAN BARANG |::.

Visual Basic 6.0

-=:| Berikut adalah kode Syntax Program Penjualan Barang |:=-

/////////

Private Sub Command2_Click()

If List1.Text = "" Then

MsgBox "Anda belum memilih barang !!"

List1.ListIndex = 0

Exit Sub

End If

If Text1.Text = "" Then

MsgBox "Anda belum mengisi jumlah barang !!"

Text1.SetFocus

Exit Sub

End If

If Text2.Text = "" Then

MsgBox "Anda belum memasukan pembayaran !!"

Text2.SetFocus

Exit Sub

End If

Visual Basic 6.0 - Program Penjualan Barang v. Recordset

.::| PROGRAM PENJUALAN BARANG (V. Recordset) |::.

Visual Basic 6.0

-=:| Berikut kode Syntax Program Penjualan Barang menggunakan Recordset |:=-

/////////

Private Sub Command1_Click()

Adodc1.Recordset.AddNew

End Sub

Private Sub Command2_Click()

If Text1.Text = "" Then

MsgBox "Anda belum melengkapi pengisian data !!"

Exit Sub

End If

Adodc1.Recordset.Update

End Sub

Private Sub Command3_Click()

If Text1.Text = "" Then

MsgBox "Anda belum memilih data dari database !!"

Exit Sub

End If

Dim Form1 As Integer

Form1 = MsgBox("Apakah anda yakin ingin mengapus sebagian data dari database !!", vbYesNo)

If Form1 = vbYes Then

Adodc1.Recordset.Delete

End If

Visual Basic 6.0 - Program Database Mahasiswa

.::| PROGRAM DATABASE MAHASISWA |::.

Visual Basic 6.0

-=:| Berikut kode Syntax Program Database Mahasiswa |:=-

/////////

Private Sub CANCEL_Click()

End

End Sub

Private Sub CARI_Click()

Data1.Recordset.FindFirst "NIS='" + Text9 + "'"

If Data1.Recordset.NoMatch Then

MsgBox "NIM yang Anda cari Tidak Ditemukan", vbOKOnly, "cari"

Data1.Recordset.MoveFirst

Text9.SetFocus

End If

End Sub

Private Sub HAPUS_Click()

Delete = MsgBox("Anda Yakin Ingin menghapusnya", vbInformation + vbYesNo, "hapus")

If Delete = vbYes Then

Data1.Recordset.Delete

Data1.Recordset.MoveNext

Else

Data1.Recordset.MoveFirst

End If

End Sub

Private Sub SIMPAN_Click()

Data1.Recordset.Update

Data1.Recordset.MoveFirst

Call tidaktampil

End Sub

LMP Visual Basic 6.0 - Langkah membuat Program Penghitung Harga Barang

1.    Buatlah New Project pada software VB anda kemudian tambahkan empat buah kontrol label, empat TextBox dan satu commandButton pada form, kemudian atur letaknya seperti pada gambar berikut : 

 Gambar aplikasi penghitung harga barang dengan VB

LMP Visual Basic 6.0 - Langkah membuat Program Database Mahasiswa

Dalam membuat program database cukup mudah hanya saja dalam pembuatan programnya prosedural. Yang namanya database, sekarang sudah sangat diperlukan, hampir di semua instalsi baik dipemerintahan, pendidikan maupun perusahaan. Database merupakan Kumpulan dari item data yang saling berhubungan satu dengan yang lainnya yang diorganisasikan berdasarkan sebuah skema atau struktur tertentu, tersimpan di hardware komputer dan dengan software untuk melakukan manipulasi untuk kegunaan tertentu.

Mengapa Diperlukan Database alasannya antara lain :

• Salah satu komponen penting dalam sistem informasi, karena merupakan dasar dalam menyediakan informasi
• Menentukan kualitas informasi : akurat, tepat pada waktunya dan relevan.
•  Informasi dapat dikatakan bernilai bila manfaatnya lebih efektif dibandingkan dengan biaya mendapatkannya.
• Mengurangi duplikasi data (data redudancy)
• Hubungan data dapat ditingkatkan (data relatability)
• Mengurangi pemborosan tempat simpanan luar

Pertama kali dalam membuat program database ini adalah dengan visual data manager :

Berikut langkah-langkah dalam membuat program database :

1.    Buka program VB 6.0 anda

2.    Pilih menu Add-Ins >> Visual Data Manager >> File >> New >> Microsoft Access >> Version 7.0 MDB

3.    Beri nama database anda lalu simpan klik kanan Properties >> New Table

4.    Beri nama Tabel database anda >> Add Field >> tambahkan satu persatu komponen data yang ingin anda tampilkan seperti, NAMA, NIM, JURUSAN, IPK dan lain-lain >> close jika sudah

5.    Kemudian Build The Table hasilnya seperti berikut :

LMP Visual Basic 6.0 - Langkah membuat Aplikasi Pemutar Musik

Anda pasti hobi sekali bermain komputer sambil mendengar musik atau apalagi online sambil mendengarkan musik itu sangat mengasikkan, program yang anda buka pasti kalau bukan winamp, windows media player, GOM player atau yang lainnya.

Tapi kali ini kita akan membuat sendiri aplikasi pemutar musik atau mp3 player tersebut dengan Visual basic,  pasti anda menyangka sangat sulit untuk membuat aplikasi tersebut, jika prediksi saya itu benar berarti selama ini Anda salah besar karena dalam membuat program aplikasi mp3 player dengan program vb  wah itu sangat mudah sekali, berikut tutorialnya :

1. Jalankan program VB anda kemudian buat new project dan tetap pilih standar.exe
2. Klik Menu Project >> Components (CTRL+T) kemudian pilih dan tandai Microsoft Common   Dialog Control 6.0 dan Microsoft Multimedia Control 6.0 >> OK
3. Lalu tambahkan pada form proyek anda 2 buah label, 2 commandbutton, satu CommonDialog dan MMControl, desainlah seperti dibawah ini dan untuk picture background terserah anda

Gambar program aplikasi mp3 player dengan vb 6.0