Link Referensi Belajar VB

Berikut ini saya sertakan link referensi belajar vb yg indonesian semua.. c0s penulis suka buatan anak dalam negeri sendiri [padahal mang englishnya pas2an .kwkk!!] . met belajar yah... :)

http://junindar.blogspot.com/
http://www.geocities.com/indoprog/tutorial/vb/index3.html

Read More......

• 
• 
• 
• 
• 

Bikin Aplikasi db wit ADO

Sudah lama juga y g tulis tutorial diblog.. tutorial kali ini saya akan coba garap dari kuliah yg tertanggal ….
Wah ! saya lupa tuh.mungkin bisa ditanyakan sama sang dosen hehe…he..
Dari kesimpulan saya sepertina si dosen pgn mahasiswanya buat aplikasi kecil”lan database berbasis ADO (bener g Pa Aris hehe..he,meski terbilang aplikasi kecil tapi ini adalah starting point utk calon programmer muda seperti kalian.. halah padahal yg baca tutor ini kan g smua muda :D

Nyok qt mulai …

Hal pertama adalah kita buat dulu database dalam access seperti ini:

Pastinya kalian biasa dunk hanya buat table seperti itu… dg semua type data text semua ditiap field.
Save dg nama db_mahasiswa jg table na table_mahasiswa..

Buka Project VB qm dengan options VB Enterprise Edition Controls

Nah terlihat lebih banyak kan tools pada toolbox kalian J .saya kan g perna boong! Halah.
n lo buat deh layout form kayak gini pada form1:


------------------------
Kontrol + Property + Setting
------------------------
Frame1 + Name + frm_Pncr
+ Caption + Pencarian

Frame2 + Name + frm_hsl
+ Caption + Hasil

Label1 + Name + Label1
+ Caption + Cari Kode:

Label2 + Name + Label2
+ Caption + Cari Nama:

Label3 + Name + Label3
+ Caption + Kode:

Label4 + Name + Label4
+ Caption + Nama:

Label5 + Name + Label5
+ Caption + Kode_Jurusan:

CommandButton1 + Name + CmdNew
+ Caption + New

CommandButton2 + Name + CmdEdit
+ Caption + Edit

CommandButton3 + Name + CmdDelete
+ Caption + Delete

CommandButton4 + Name + cmd_first
+ Caption + <<

CommandButton5 + Name + cmd_prv
+ Caption + <

CommandButton6 + Name + cmd_next
+ Caption + >

CommandButton7 + Name + cmd_last
+ Caption >>

Frame2 + Name + Fram_Hasil
+ Caption + Hasil

DataGrid1 + Name + DataGrid1
+ Caption

Sekarang tugas kalian

Ketik coding berikut pada masing”objek cuy!;

Private Sub cmd_cari_kode_Click()
rs.MoveFirst
rs.Find "kode = '" & txt_kode1 & "'"
If rs.EOF Then
MsgBox "data tidak ditemukan"
rs.MoveLast
End If
IsiData
End Sub

Sub IsiData()
txt_kode = rs!Kode
txt_nama = rs!Nama
txt_jurusan = rs!Kode_Jurusan
End Sub

Private Sub cmd_cari_nama_Click()
rs.MoveFirst
rs.Find "nama = '" & txt_nama1 & "'"
If rs.EOF Then
MsgBox "data tidak ditemukan"
rs.MoveLast
End If
IsiData
End Sub

Private Sub cmd_first_Click()
rs.MoveFirst
IsiData
End Sub

Private Sub cmd_last_Click()
rs.MoveLast
IsiData
End Sub

Private Sub cmd_next_Click()
rs.MoveNext
If rs.EOF Then rs.MoveLast
IsiData
End Sub


Private Sub cmd_prv_Click()
rs.MovePrevious
If rs.BOF Then rs.MoveFirst
IsiData
End Sub

Private Sub CmdDelete_Click()
rs.Delete
End Sub

Private Sub CmdEdit_Click()
fedit = True
FrmEntry.Show 1
End Sub

Private Sub CmdNew_Click()
fedit = False
FrmEntry.Show 1
End Sub

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Lat_ADO1_complicated1_\db_mahasiswa.mdb;Persist Security Info=False"
cn.CursorLocation = adUseClient
Set rs = New ADODB.Recordset
rs.Open "table_mahasiswa", cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub

Utk qm penjelasan skilas coding diatas adalah;

Dim cn è deklarasi variable cn {var cn sbg penampung nilai atas databases}
Dim rs è deklarasi variable rs {var rs sbg penampung nilai atas table mahasiswa}
ADODB.Connection è jenis method
Set cn = New ADODB.Connection è setting awal sebuah koneksi databases ADODB baru
cn.Open è membuka file databases + berikut file location dimana database diletakan
cn.CursorLocation = adUseClient
Set rs = New ADODB.Recordset è setting awal sebuah koneksi table dlm databases
rs.Open "table_mahasiswa", cn, adOpenStatic, adLockOptimistic è membuka table_mahasiswa

Set DataGrid1.DataSource = rs è menampilkan table_mahasiswa dlm form pake DataGrid

Nah cukup ngerti kan ade”sekalian hehe…he J

Kalaw merasa masi kurang penjelasanya yah ntr om coba gy tanya dosen,temen”,blooging, gooling :D

Setelah dapet penjelasan coding dari saya meski kadang da yg terbilang lum puas,

Qm” harus tambahkan modul dg klik kanan pada project explorer (sebelah kanan ntu lho) dibagian project qm n pilih modul. Truz ketik coding niy…

Global fedit As Boolean
Global cn As ADODB.Connection
Global rs As ADODB.Recordset

Sub main()
Form1.Show
End Sub

Modul uda jadi

d’next ur task is qm tambahkan form.. dg klik menu project add form
Buat deh layout kayak gini:


:gambar:


Jgn lupa tulis coding berikut bro!

Private Sub CmdBatal_Click()
Unload Me
End Sub

Private Sub CmdSimpan_Click()
If fedit = False Then
rs.AddNew
End If
rs!Kode = txt_kode
rs!Nama = txt_nama
rs!Kode_Jurusan = txt_jurusan
rs.Update
Unload Me
End Sub

Private Sub Form_Load()
If fedit = True Then
txt_kode = rs!Kode
txt_nama = rs!Nama
txt_jurusan = rs!Kode_Jurusan
End If
End Sub

Penjlasan coding diatas:

2 b continue y .. gy males niy cuap” hehehe..

Sekian tutorial dari saya moga bermanfaat utk kalian. Oops ! iia bagi yg da expert bantu saya utk sermpurnakan tulisan saya. Bisa layangkan kritik n sarannya via shoutbox. Ataw via YM, eF-Bian jg leh ;)

Read More......

• 
• 
• 
• 
• 

Membuat File .dll dan Menkoneksikan Pada Form Berekstensi exe Standar

Contoh Kasus Menghitung Luas Segitiga

Langkah pertama buka project vb dengan Active X dll,
Kemudian tulis coding class Luas Segitiga berikut:


Private mVarAlas As Double
Private mVarTinggi As Double

Public Property Let Tinggi(ByVal vdata As Double) 'Prosedur untuk mengubah nilai
mVarTinggi = vdata
End Property

Public Property Get Tinggi() As Double 'Mengambil nilai property
Tinggi = mVarTinggi
End Property

Public Property Let Alas(ByVal vdata As Double)
mVarAlas = vdata
End Property

Public Property Get Alas() As Double
Alas = mVarAlas
End Property

Public Function HitungLuas() As Double
HitungLuas = 0.5 * Alas * Tinggi
End Function

Dan save dalam folder lo..
Dengan nama Project Lsegitiga & name Classnya segitiga.
Lalu lo buat file ekstensi .dll dengan klik File Make Project.dll

Langkah berikutnya..
Registerkan server file dll tadi dengan perintah regsvr32 c:\has1\Lsegitiga.dll pada Command Prompt. Ket: c:\has1\Lsegitiga.dll alamat direktori file dll diletakan.
Pada windows xp memang harus diregisterkan terlebih dahulu untuk menkoneksikan file dll pada project lain.

Trussszz…

Buka project baru dengan standar exe,
klik Project, References, klik Browse, cari file dll tadi (ini utk menkoneksikan pada file dll) dan ok.

n then..
Buat Layout seperti ini:

Doble klik pada CmdProses dan ketik coding ini..

Dim Lsegitiga As segitiga

Private Sub CmdProses_Click()

Set Lsegitiga = New segitiga

Lsegitiga.Alas = TxtAlas.Text

Lsegitiga.Tinggi = TxtTinggi.Text

TxtLuas.Text = Lsegitiga.HitungLuas

End Sub

Dan untuk CmdEndnya..

Private Sub CmdEnd_Click()

End

End Sub

***slamat mencoba***
n gud luaack! :)

Read More......

• 
• 
• 
• 
• 

Membuat Class dalam VB (mencari Luas Segitiga)

Sebelum qt bahas dari judul diatas, maka qt perlu tahu juga apa si class dalam vb itu & berikut fungsi dari keberadaan class ntu ndiri 

Class adalah…

Class divb berfungsi utk …

Langsung yach ke kasus az.. :D
1. Buka project VB dengan option standard exe
2. Klik menu project, pili add class module, klik open
3. Ketik coding ini..

Private mVarAlas As Double
Private mVarTinggi As Double

Public Property Let Tinggi(ByVal vdata As Double)
mVarTinggi = vdata
End Property

Public Property Get Tinggi() As Double
Tinggi = mVarTinggi
End Property

Public Property Let Alas(ByVal vdata As Double)
mVarAlas = vdata
End Property

Public Property Get Alas() As Double
Alas = mVarAlas
End Property

Public Function HitungLuas() As Double
HitungLuas = 0.5 * Alas * Tinggi
End Function

4. Lalu beralih ke jendela form
5. Buat layout kayak gini

Read More......

• 
• 
• 
• 
• 

Koneksi databases Access-VB

ADO (Active Data Object)
Yg berfungsi utk mengakses, mengolah databases.

Connection: utk menghubungkan objek dengan databases.
Recordset: utk menghubungkan objek dengan objek didalam databases itu sendiri.
Contoh objek dlm databases Access terdapat yang namanya tabl, query, form, dll.
Ngerti ora son!?!

Awal” Lo-lo harus..
Buat table dalam databases Access seperti demikian BeB! :)

Nah! Niy diee,studi kasus sesungguhna;
Menkoneksikan databases Access dengan VB
1. Buka Project VB dengan options VB Enterprise Edition Controls
2. Ketik coding berikut;

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\College WK\Exc On Cmpz\Semester 2\VB II\Lat_ADO1\db_mahasiswa.mdb;Persist Security Info=False"
cn.CursorLocation = adUseClient
Set rs = New ADODB.Recordset
rs.Open "table_mahasiswa", cn, adOpenStatic, adLockOptimistic

Set DataGrid1.DataSource = rs
End Sub

3. Ups! Penjelasan codingna mana..
Nih abang kasi,

Dim cn => deklarasi variable cn {var cn sbg penampung nilai atas databases}
Dim rs => deklarasi variable rs {var rs sbg penampung nilai atas table mahasiswa}
ADODB.Connection => jenis method
Set cn = New ADODB.Connection => setting awal sebuah koneksi databases ADODB baru
cn.Open => membuka file databases + berikut file location dimana database diletakan
cn.CursorLocation = adUseClient
Set rs = New ADODB.Recordset => setting awal sebuah koneksi table dlm databases
rs.Open "table_mahasiswa", cn, adOpenStatic, adLockOptimistic => membuka table_mahasiswa
Set DataGrid1.DataSource = rs => menampilkan table_mahasiswa dlm form pake DataGrid



***Selamat Mencoba***
gud luaack! :)

Read More......

• 
• 
• 
• 
• 

Membuat User Control pada Sebuah Aplikasi Form

Sebelum qt-qt orang baca-pelajari tutorial kali niy yah…minimal qt khan harus tau dulu pa

Definisi UserControl..

UserControl is:

(cari deh di mbah google)

Buka new Project exe qm divb,

Klik kanan di form pada jendela project sebelah kanan pilih add dan klik user control..

Maka muncul dialog add user control, pilih user control pada tab new kemudian klik open.

Klik TextBox pada toolbox, n Buat layout seperti ini… okay bro!

Di property TextBox dihilangkan nama text1 pada text,

Sedangkan pada property UserControl ganti textku pada name di tab alphabetic.

Ketik coding ini pada UserControl;

Dim keterangan As kode

Public Enum kode

angkasaja = 1

HurufBesar = 2

HurufKecil = 3

End Enum

Public Property Get status() As kode

status = keterangan

End Property

Public Property Let status(edata As kode)

keterangan = edata

End Property

Private Sub Text1_KeyPress(KeyAscii As Integer)

If keterangan = 1 Then

If KeyAscii = 8 Then Exit Sub '8 -> backspace

If KeyAscii <> 57 Then

KeyAscii = 0

End If

ElseIf keterangan = 2 Then

KeyAscii = Asc(UCase(Chr(KeyAscii)))

Else

KeyAscii = Asc(LCase(Chr(KeyAscii)))

End If

End Sub

Public Property Let tulisan(edata As Variant)

Text1 = edata

End Property

Lalu tutup jendela UserControl. Maka akan muncul UserControl yang tadi kita buat diarea toolbox. Biasanya ia ada dipaling bawah area toolbox.

Kembali ke Form1 n qm..

Buat layout seperti dibawah ini:

Eit!! Inga-inga’ utk pembuatan TextBox gunakan UserControl yang telah kita buat tadi. Tinggal lo klik, drag n drop

Tulis coding ini..

Private Sub Bersih_Click()

Textku1.tulisan = ""

Textku2.tulisan = ""

Textku3.tulisan = ""

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Textku1.status = angkasaja

Textku2.status = HurufBesar

Textku3.status = HurufKecil

End Sub

**selamat mencoba**
gud luaack! :)

Read More......

• 
• 
• 
• 
•