Membuat Form Pencarian Barang dan komplit dengan Step by step serta codingnya

Pada pembelajaran Visual Basic VB 2010 kali ini akan dibahas mengenai cara Membuat Form Pencarian Barang dengan VB 2010.

Berikut langkah-langkahnya :
Logikanya adalah pertama anda harus bisa mengkoneksikan VB 2010 dengan database terlebih dahulu, dan setelah bisa konek anda bisa menambahkan TexBox1 pada form dan buatlah koding pencarian tersebut.

Untuk Koneksi database anda bisa lihat pada pembelajaran kami sebelumnya (anda bisa memilih koneksi database dibawah ini) :

Koneksi VB 2010 Database Access 2007

Jika sudah bisa melakukan Koneksi database diatas, anda tambahkan TexBox1 dan terakhir masukan koding dibawah ini :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        CMD = New OleDbCommand("select * from Barang where NamaBarang like '%" & TextBox5.Text & "%'", CONN)
        RD = CMD.ExecuteReader
        RD.Read()
        If RD.HasRows Then
            DA = New OleDbDataAdapter("select * from Barang where NamaBarang like '%" & TextBox5.Text & "%'", CONN)
            DS = New DataSet
            DA.Fill(DS, "ketemu")
            DGV.DataSource = DS.Tables("ketemu")
            DGV.ReadOnly = True
        End If
    End Sub

Dengan langkah diatas anda sudah bisa Membuat Form Pencarian Barang dengan VB 2010.
Jika ada kesulitan dalam Pembelajaran diatas anda bisa berkomentar dibawah ini

Salam,
Japikinfo.com

Membuat Kalkurator Keren Nan Simpel dengan Visual Basic

cara membuat calculator dgn VB 6.

kali ini saya akan memberi sedikit ilmu cara membuat kalkulator sederhana,mang sudah banyak kalkulator diluarsana yang dibuat menggunakan Visual basic,tapi kali ini saya membuatnya sedikit berbeda. Dengan menambahkan Tombol ON/OFF pada kalkulator ini.
Langsung aja kita mulai
pertama sediakan dulu secangkir kopi buat menemani kitabelajar,hhe
langkah pertama kita buka aplikasi Visual Basic 6.0 dan buat project baru
udah pada tau kan caranya..?, kalo belum saya kasih tau deh.
klik aplikasi visual basic –> pilih Standart Exe –> lau pilih Ok
langkah kedua sekarang kita desain Project kalkulator ini seperti gambah di bawah ini

setelah form kita desain sekarang ubah Name setiap komponen

untuk componen Button numeric 0-9

ganti Name menjadi Comammand(angka button tersebut)

misalnya button 1 menjadi Command1,button 2 menjadi Command2 dan seterunya.

sedangkan untuk tombol oprasi sesuaikan dengan caption oprasinya.

misalkan button ” + ” name kita ganti menjadi “tambah” dan yang lainnya juga sama seperti itu.

oiya Untuk button kurang ganti captionnya menjadi “__” undescor dua kali bukan “–” strip.

dan untuk tombol “ON” ganti name menjadi “nyalah” sedangkan tombol “OFF” menjadi “mati

langkah selanjutnya kita klik kanan pada form lalu pilih “view code”

setelah itu kita bersihkan dulu  kolom codenya dengan cara CTRL+A dan tekan BackSpace atau delete.

nah kalo langkah diatas udah semua sekarang copy dan paste code dibawah ini:

Private Sub bagi_Click()

If Label1.Caption = “” Then

Label1.Caption = Text1.Text

Label5.Caption = bagi.Caption

End If

If Label5.Caption <> “” Then

Label5.Caption = “/”

End If

Text1.Text = “”

End Sub

Private Sub Command0_Click()

Text1.Text = (Text1.Text) + Command0.Caption

End Sub

Private Sub Command1_Click()

Text1.Text = (Text1.Text) + Command1.Caption

End Sub

Private Sub Command10_Click()

Text1.Text = “”

Label1.Caption = “”

Label2.Caption = “”

Label4.Caption = “”

Label5.Caption = “”

End Sub

Private Sub Command11_Click()

Text1.Text = “”

End Sub

Private Sub Command2_Click()

Text1.Text = (Text1.Text) + Command2.Caption

End Sub

Private Sub Command3_Click()

Text1.Text = (Text1.Text) + Command3.Caption

End Sub

Private Sub Command4_Click()

Text1.Text = (Text1.Text) + Command4.Caption

End Sub

Private Sub Command5_Click()

Text1.Text = (Text1.Text) + Command5.Caption

End Sub

Private Sub Command6_Click()

Text1.Text = (Text1.Text) + Command6.Caption

End Sub

Private Sub Command7_Click()

Text1.Text = (Text1.Text) + Command7.Caption

End Sub

Private Sub Command8_Click()

Text1.Text = (Text1.Text) + Command8.Caption

End Sub

Private Sub Command9_Click()

Text1.Text = (Text1.Text) + Command9.Caption

End Sub

Private Sub Form_Activate()

For Each Control In Me

If TypeName(Control) = “CommandButton” Then

Control.Enabled = False

End If

Next

nyalah.Enabled = True

Form1.BackColor = &H0&

Text1.BackColor = &H0&

Label1.BackColor = &H0&

Label2.BackColor = &H0&

Label4.BackColor = &H0&

Label5.BackColor = &H0&

Label3.BackColor = &H0&

End Sub

Private Sub hasil_Click()

If Label1.Caption And Text1.Text <> “” Then

Label2.Caption = Text1.Text

Select Case Label5.Caption

Case “+”

Label4.Caption = Val(Label1.Caption) + Val(Label2.Caption)

Case “/”

Label4.Caption = Val(Label1.Caption) / Val(Label2.Caption)

Case “X”

Label4.Caption = Val(Label1.Caption) * Val(Label2.Caption)

Case “__”

Label4.Caption = Val(Label1.Caption) – Val(Label2.Caption)

End Select

End If

Text1.Text = “”

End Sub

Private Sub kali_Click()

If Label1.Caption = “” Then

Label1.Caption = Text1.Text

Label5.Caption = kali.Caption

End If

If Label5.Caption <> “” Then

Label5.Caption = “X”

End If

Text1.Text = “”

End Sub

Private Sub kurang_Click()

If Label1.Caption = “” Then

Label1.Caption = Text1.Text

Label5.Caption = kurang.Caption

End If

If Label5.Caption <> “” Then

Label5.Caption = “__”

End If

Text1.Text = “”

End Sub

Private Sub nyalah_Click()

For Each Control In Me

If TypeName(Control) = “CommandButton” Then

Control.Enabled = True

End If

Next

Form1.BackColor = &HFFFF80

Text1.BackColor = &HFFFF80

Label1.BackColor = &HFFFF80

Label2.BackColor = &HFFFF80

Label4.BackColor = &HFFFF80

Label5.BackColor = &HFFFF80

Label3.BackColor = &HFFFF80

End Sub

Private Sub tambah_Click()

If Label1.Caption = “” Then

Label1.Caption = Text1.Text

Label5.Caption = tambah.Caption

End If

If Label5.Caption <> “” Then

Label5.Caption = “+”

End If

Text1.Text = “”

End Sub

Setelah itu tekan tombol F5 dan lihat hasilnya.