Pendaftaran Email untuk Mata Kuliah Pemrograman Aplikasi Bisnis 1 Semester Ganjil 2013/2014, data akan di gunakan untuk invite akun di Dropbox, silahkan diisi lengkap formulir berikut :
Tugas dokumentasi praktikum, dikirim ke dropbox sebelum ujian UTS. terima kasih
Bagi yang masih mengembangkan aplikasi dengan VB 6 termasuk saya sendiri, di windows 8 ada beberapa hal yang perlu di perhatikan. Setelah cari sana sini, akhirnya menemukan solusi untuk install VB 6 di windows 8 agar berjalan dengan normal, berikut ini tip dan trik nya :
Selamat mencoba semoga sukses.
Setelah sekian lama, utak atik untuk setting aplikasi VB 6 yang membutuhkan OCX external di Windows 8, akhirnya ketemu solusi nya, alhamdulillah, simple dan mudah, berikut ini trik nya.
Kesalahan yang muncul saat register OCX biasanya seperti ini "dll register failed with error code 0x80040200"
cara mengatasi :
- buka command prompt, search cmd.exe di windows/syswow64
- sudah ketemu, klik kanan run administrator
- lakukan C:\Windows\SysWOW64>regsvr32 ctrlNSDataCombo.ocx
- sukses deh register OCX
Bagi Mahasiswa yang belum ter invite di DropBox kelompok masing-masing, silahkan tuliskan email, mata kuliah dan kelompok atau dapat mengirim email. jangan lupa semua dokumentasi hasil praktikum program di kirim ke DropBox dan buat folder sendiri-sesuai dengan kelompoknya.
Sebelum berlangsungnya ujian tengah semester seluruh dokumentasi harus sudah terkirim, pastikan jangan ketinggan dan jangan copast, ingat "sesuai dengan amal perbuatan" masing-masing.
terima kasih.
Daftar Nilai Sementara UAS Genap 2011-2012 mahasiswa Teknik Informatika S1 dan Sistem Informasi S1 dapat dilihat di SIADIN, silahkan konfirmasi apabila ada nilai yang tidak memuaskan.
Mata Kuliah :
Daftar Nilai Sementara UTS Genap 2011-2012 mahasiswa Teknik Informatika S1 dan Sistem Informasi S1 dapat dilihat di SIADIN, silahkan konfirmasi apabila ada nilai yang tidak memuaskan.
Mata Kuliah : Terima kasih atas perhatiannya.
Daftar Nilai UAS Ganjil 2011/2012, silahkan akses di SIADIN, untuk melihat nilai detail dapat download di Materi yang ada di masing-masing kelas.
Untuk komfirmasi nilai, ditunggu sampai 1 feb 2012, silahkan dimanfaatkan, di luar ketentuan tsb mohon maaf konfirmasi nilai tidak dilayani.
Terima kasih
Daftar nilai ujian tengah semester dapat di lihat di SIADIN, konfirmasi nilai yang belum puas dilayani sampai jum'at, 18 Nopember 2011.
Bagi yang belum ujian, diberi kesempatan sampai Jum'at, 18 Nopember 2011 untuk mengikuti ujian susulan, apabila tidak ada konfirmasi dianggap TIDAK MENGIKUTI UJIAN....
Terima kasih.
Daftar Nilai UAS Semester Genap 2010/2011 dapat di download di SIADIN.
Konfirmasi Nilai Maximal hari Rabu, 27 Juli 2011, lewat dari tanggal tersebut MOHON MAAF tidak dilayani. Terima Kasih
Tambahkan kode program berikut :
Dim rsbarang As New ADODB.Recordset
Dim strsql As String
Dim cek As Integer
Private Sub cmbsatuan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtharga.SetFocus
End Sub
Private Sub cmdakhir_Click()
rsbarang.MoveLast 'pindah akhir record
End Sub
Private Sub cmdawal_Click()
rsbarang.MoveFirst 'pindah awal record
End Sub
Private Sub cmdbatal_Click()
tombol True
aktif False
End Sub
Private Sub cmdhapus_Click()
strsql = "delete from barang where kd_brg='" & _
txtkd_brg.Text & "'"
hapus = MsgBox("Yakin diHapus", vbYesNo, "Konfirmasi")
If hapus = vbYes Then
dbcon.Execute strsql
End If
rsbarang.Requery
End Sub
Private Sub cmdkeluar_Click()
dbcon.Close
Unload Me
End Sub
Private Sub cmdkoreksi_Click()
cek = 2
aktif True
tombol False
txtkd_brg.Enabled = False
txtnm_brg.SetFocus
End Sub
Private Sub cmdsebelum_Click()
On Error GoTo GoPrevError
If Not rsbarang.BOF Then rsbarang.MovePrevious
If rsbarang.BOF And rsbarang.RecordCount > 0 Then
Beep
'moved off the end so go back
rsbarang.MoveFirst
End If
'show the current record
Exit Sub
GoPrevError:
MsgBox Err.Description
End Sub
Private Sub cmdsesudah_Click()
On Error GoTo GoNextError
If Not rsbarang.EOF Then rsbarang.MoveNext
If rsbarang.EOF And rsbarang.RecordCount > 0 Then
Beep
'moved off the end so go back
rsbarang.MoveLast
End If
'show the current record
Exit Sub
GoNextError:
MsgBox Err.Description
End Sub
Private Sub cmdsimpan_Click()
On Error GoTo errSimpan
If cek = 1 Then
'tambah data
strsql = "insert into barang values('" & txtkd_brg.Text _
& "','" & txtnm_brg.Text & "','" & cmbsatuan.Text & "'," & _
Val(txtharga.Text) & "," & _
Val(txtstok.Text) & "," & Val(txtstok_min.Text) & ")"
Else
'edit data
strsql = "update barang set nm_brg='" & txtnm_brg.Text & _
"',satuan='" & cmbsatuan.Text & _
"',harga=" & Val(txtharga.Text) & _
",stok=" & Val(txtstok.Text) & _
",stok_min=" & Val(txtstok_min.Text) & _
" where kd_brg='" & txtkd_brg.Text & "'"
End If
' MsgBox strsql
dbcon.Execute (strsql) ' eksekusi perintah SQL
rsbarang.Requery
tombol True
aktif False
MsgBox "Sukses disimpan", vbOKOnly, "Konfirmasi Simpan"
Exit Sub
errSimpan:
MsgBox Err.Description, vbCritical, "Error Simpan"
End Sub
Private Sub cmdtambah_Click()
cek = 1
tombol False
aktif True
kosong
txtkd_brg.SetFocus
End Sub
Private Sub DgBarang_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
baca_data
End Sub
Private Sub Form_Activate()
tombol True
aktif False
baca_data
End Sub
Private Sub tombol(x)
cmdtambah.Enabled = x
cmdsimpan.Enabled = Not x
cmdkoreksi.Enabled = x
cmdhapus.Enabled = x
cmdbatal.Enabled = Not x
cmdkeluar.Enabled = x
cmdawal.Enabled = x
cmdakhir.Enabled = x
cmdsebelum.Enabled = x
cmdsesudah.Enabled = x
End Sub
Private Sub aktif(x)
txtkd_brg.Enabled = x
txtnm_brg.Enabled = x
cmbsatuan.Enabled = x
txtharga.Enabled = x
txtstok.Enabled = x
txtstok_min.Enabled = x
End Sub
Private Sub kosong()
txtkd_brg.Text = ""
txtnm_brg.Text = ""
cmbsatuan.Text = ""
txtharga.Text = ""
txtstok.Text = ""
txtstok_min.Text = ""
End Sub
Private Sub Form_Load()
nyambung
strsql = "select * from barang order by kd_brg asc"
rsbarang.Open strsql, dbcon
Set dgbarang.DataSource = rsbarang
rsbarang.Requery
load_cbocari "barang", cbocari
End Sub
Private Sub Form_Unload(Cancel As Integer)
tutup_koneksi
End Sub
Private Sub txtcari_Change()
strsql = "select * from barang where barang." & _
cbocari.Text & " LIKE ('%" & txtcari.Text & "%')"
rsbarang.Close
rsbarang.Open strsql, dbcon, adOpenStatic
rsbarang.Requery
dgbarang.Refresh
'lebar_grid
End Sub
Private Sub txtharga_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtstok.SetFocus
End Sub
Private Sub txtkd_brg_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtnm_brg.SetFocus
End Sub
Private Sub txtnm_brg_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then cmbsatuan.SetFocus
End Sub
Private Sub txtstok_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtstok_min.SetFocus
End Sub
Private Sub baca_data()
On Error Resume Next
If rsbarang.RecordCount > 0 Then 'untuk cek jumlah record
txtkd_brg.Text = rsbarang!kd_brg 'pindahkan data dr tabel ke form
txtnm_brg.Text = rsbarang!nm_brg
cmbsatuan.Text = rsbarang!satuan
txtharga.Text = rsbarang!harga
txtstok.Text = rsbarang!stok
txtstok_min.Text = rsbarang!stok_min
End If
End Sub
Buka projek yang sudah dibuat atau buat projek baru yang diinginkan, pada project explorer klik kanan pilih add, module.
Ditampilkan menu dialog modul yaitu New dan Existing, pilih New untuk membuat baru dan Existing untuk modul yang sudah pernah dibuat, Selanjutnya ditampilkan halaman untuk memulai membuat code pada modul.
Rubah nama modul pada properties modul, misal MdlPenjualan dan mulailah memasukkan code program yang akan ditempatkan pada modul. Perlu diingat bahwa variabel, fungsi atau prosedur yang diletakkan di modul adalah yang bersifat publik atau yang nantinya digunakan saat memrogram diseluruh projek yang dibuat.
Koneksi Visual Basic dengan Database
Untuk dapat menghubungkan Visual BASIC dengan database MySQL, kita akan menggunakan komponen ADO Data Control (ADODC). Komponen ini dapat dihubungkan dengan beberapa komponen yang digunakan untuk mengakses data seperti textbox, datagrid, dsb.
Sebelum dapat menggunakan ADODC maka perlu diaktifkan terlebih dahulu ActiveX Data Objects dan ActiveX Data Object Recordset
Sebagai contoh untuk membuat koneksi VB dengan database MySQL seperti pada contoh di modul, sebelumnya harus sudah terinstall MyODBC-3.51.11-2-win, paketnya dapat di download http://dev.mysql.com/downloads/.
Public Sub nyambung()
' Koneksi dengan MYSQL
dbcon.CursorLocation = adUseClient
connstr = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;" & _
"DATABASE=penjualan;USER=root;PASSWORD=;OPTION=3;"
dbcon.ConnectionString = connstr
dbcon.Open
End Sub
Keterangan :
DRIVER ={MySQL ODBC 3.51 Driver}
Driver ODBC yang digunakan untuk koneksi ke MySQL.
SERVER=localhost
Nama server yang digunakan, jika MySQL yang diinstall di PC biasa standart namanya adalah localhot.
DATABASE=penjualan
Nama database, missal penjualan
USER=root
Nama User yang mempunyai akses ke MySQL, misal root
PASSWORD=
Password yang digunakan untuk akses user MySQL, contoh di atas password user kosong.
Menutup Koneksi Database
Public Sub tutup_koneksi()
dbcon.Close
End Sub
Memanggil Koneksi Database
Untuk memanggil prosedur koneksi database cukup dengan mengetikkan nama prosedurnya sebagai berikut :
nyambung() atau
call nyambung()
Jika menginginkan source code komplit silahkan email ke a71b_2008@yahoo.co.id.
