Membuat Navigasi Database

Membuat Navigasi Next, Previous, Move Last, Move First

New, Delete, Update, Save, Filter, dan Find

Pada VB2010 dengan Database dari Microsoft SQL Server 2005

                Kali ini “Blogger” akan membahas mengenai Koneksi Database Microsoft SQL Server ke dalam VB2010, dan juga membuat Navigasi – Navigasi yang bisa merubah data Pada Database SQL Server 2005. Pertama-tama, Kita membuat dahulu Database menggunakan Microsoft SQL Server 2005 (Penulis tidak menjelaskan cara penginstallan SQL Server dan membuat Database SQL Server, jika ingin ditanyakan tolong beri komentar...).

Buat project baru, beri nama project sesuai keinginan. Lalu buatlah connection VB dengan SQL Server dengan cara sebagai berikut::

Pertama, pilih Menu “Data” >> “Add New Data Source”. Lalu akan muncul “Tab Wizard” seperti beikut::

 

Pilih “Database” >> Next, lalu Pilih “Dataset” >> Next. Lalu pilih “New Connection”

 

Lalu Pilih dengan ketentuan sebagai berikut ::

Setelah itu, buatlah form seperti berikut ::

Untuk Cara memberi NIM, Nama, dll, dan Table, pertama caranya hanya tinggal drag & Drop, seperti berikut::

Lalu, untuk Coding Navigasi seperti berikut ::

1. Melihat awal Record

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Awal.Click

        Me.TbmhsBindingSource.MoveFirst()

    End Sub

2. Melihat Sebelum Record

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Sebelumnya.Click

        Me.TbmhsBindingSource.MovePrevious()

    End Sub

3. Melihat Sesudah Record

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Selanjutnya.Click

        Me.TbmhsBindingSource.MoveNext()

 

    End Sub

4. Melihat Akhir Record

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Akhir.Click

        Me.TbmhsBindingSource.MoveLast()

    End Sub

5. Menambah Record

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah.Click

        Me.TbmhsBindingSource.AddNew()

    End Sub

6. Menghapus Record

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click

        Me.TbmhsBindingSource.RemoveCurrent()

    End Sub

7. Menyimpan Record

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click

        Me.Validate()

        Me.TbmhsBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmhsDataSet)

    End Sub

8. Mencari Record

Dim str As String = "Data Source=.;uid=sa;pwd=123;database=master"

        Dim con As New SqlConnection(str)

        Dim cmd As New SqlCommand("select * from logn where username like '%" + TextBox1.Text + "%'", con)

        Dim Adpt As New SqlDataAdapter(cmd)

        Dim ds As New DataSet()

        If (Adpt.Fill(ds, "logn")) Then

            DataGridView1.DataSource = ds.Tables(0)

            MessageBox.Show("match found")

        Else

            MessageBox.Show("match not found")

        End If

    umumnya coding coneksi sudah otomatis terbentuk oleh VB2010. Jadi tidak usah khawatir.

Tugas 8

Tugas Pertama

- Buat program ini.

- Isikan kode ini .

Public Class Form1
    Private Function fstat(ByVal ParamArray args() As Object) As Single()
        Dim hasil(3) As Single
        Dim i As Integer
        For i = 0 To UBound(args)
            hasil(0) = hasil(0) + args(i)
            If i = 0 Then
                hasil(1) = args(i)
                hasil(2) = args(i)
            End If
            If hasil(1) < args(i) Then hasil(1) = args(i)
            If hasil(2) > args(i) Then hasil(2) = args(i)
        Next i
        Return hasil
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim statistik As Single() = fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)
    End Sub
End Class

-Tampilan program

Penjelasan :

Penjelasan dari aplikasi Array di atas :
A.kenapa dapat keluar angka 55, karena hasil dari jumlah array yang terdapat pada  kooding method nya yaitu  ”fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)”.

B.kenapa dapat keluar angka 10, karena bilangan terbesar dari array tersebut adalah 10.
C. kenapa dapat keluar angka 1, karena bilangan terkecil dari array tersebut adalah 1.


Private Function fstat(ByVal ParamArray args() As Object) As Single()

        Dim hasil3 As Single


"memesan variabel hasil berjumlah 3 yaitu hasil , hasil1 , hasil3 "

    

  Dim i As Integer

        For i = 0 To UBound(args)


"mendeklarasi kan variabel 'i' sebagai integer dan perualangan 'i' sebanyak array yang di pesan (To UBound(args))"

    



      hasil = hasil + args(i)

            If i = 0 Then

                hasil1 = args(i)

                hasil2 = args(i)

            End If

            If hasil1 < args(i) Then hasil1 = args(i)

            If hasil2 > args(i) Then hasil2 = args(i)

        Next i

        Return hasil

    End Function


"jika i= 0 maka maka hasil 1 = args jumlah index nya demikian juga hasil2

Jika hasil1 kurang dari args(i) maka hasil1 sama dengan hasil args (i) nya demikian juga hasil dua lebih besar dari args (i) maka hasil2 sama dengan args (i) dan terus mengulang sampai jumlah index"







    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim statistik As Single()= fstat(1, 6, 2, 7, 3, 9, 4, 10, 8, 5)

        TextBox1.Text = statistik(0)

        TextBox2.Text = statistik(1)

        TextBox3.Text = statistik(2)

    End Sub

End Class


"Penjelasan pada button 1 memesan variable statistik

Pada textbox 1 untuk menampilkan jumlah keseluruhan dari array yang telah di pesan d atas

Textbox2 untuk menampilkan nilai atau angka terbesar dari array tersebut

Textbox3 untuk menampilkan nilai atau angka terkecil dari array tersebut"

2. Tugas Kedua

-Buat form seperti ini.

- Isikan kode ini.

Public Class Form1
   
Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
        hitung = bil1 + bil2
    End Function

    Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer, ByVal bil3 As Integer) As Integer
        hitung = bil1 + bil2 + bil3
    End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = hitung(1, 2, 3)
    End Sub
End Class

-Hasil Program.

- Penjelasan :

sama dengan array sebelumnya, namun dalam aray ini dideklarasikan lebih dari satu fungsi dan hitung untuk menampung penjumlahan array dari beberapa fungsi, tapi yang akan di tampilkan pada textbox yaitu fungsi terakhir tergantung dari kita memesan angkanya
dan angka 1 di deklarasikan untuk bil1, angka 2 untuk bil2, dan angka 3 untuk bil3, masih bisa d tambahkan sesuai dengan yang di inginkan dan ada  bil4 untuk angka 10.

3. Tugas 3

Ada beberapa jenis procedure yang digunakan dalam Visual Basic
1.  Sub Procedure yang tidak mengembalikan nilai
2.  Function Procedure yang mengembalikan nilai
3.  Property Procedure  yang dapat  mengembalikan nilai dan diisi  nilai  yang mengacu pada suatu objek.
Function Procedure
Pada Visual Basic telah tersedia berbagai fungsi bawaan seperti Sqr, Cos, dan Chr, tetapi fungsi-fungsi yang tersedia tersebut bersifat umum dan kadang-kadang  tidak  memenuhi   kebutuhan  programmer,  untuk  keperluan  tersebut  anda  dapat menciptakan fungsi-fungsi sendiri yang dikenal dengan Function Procedure.

Syntax penulisan Function Procedure
[Private|Public][Static] Function nama_procedure(argumen) [As type]
                Pernyataan-pernyataan
End Function

Ada tiga perbedaan antara function dan procedure
1.  Umumnya  anda  dapat  memanggil suatu  function dengan mengikut  nama function sisi kanan dari statement atau ekspresi.
2.  Function memiliki type data seperti suatu variabel. Ini menentukan type yang  dari nilai yang di kembalikan
3.  Nilai  kembali  dimasukkan  ke  nama  function  itu  sendirinya,  dan  suatu function dapat menjadi bagian dari suatu ekspresi  yang panjang.

untuk function nya :
a.       MsgBox() Function
Untuk menampilkan suatu pesan baik itu dengan cara mengklik suatu tombol atau suatu perintah dari suatu ekspresi.
b.      The InputBox() Function
Untuk menampilkan pesan dimana user bisa memasukkan suatu teks atau nilai kedalam form.
c.       The Mid Function
Untuk mengambil teks dari suatu kata yang berada di tengah.
d.      The Right Function
Untuk mengambil teks dari suatu kata dari kanan.
e.      The Left Function
Untuk mengambil teks dari suatu kata dari kiri.
f.        The Trim Function
Untuk mengatur space kosong pada kedua sisi dari suatu kata.
g.       The Ltrim Function
Untuk menghapus space kosong pada bagian kiri suatu teks.
h.      The Rtrim Function
Untuk menghapus space kosong pada bagian kanan suatu teks.
i.         The lnStr Function
Untuk mengetahui panjang suatu string.
j.        The Ucase and The Lcase Function
The Ucase function berfungsi mengubah semua karakter menjadi huruf kapital semua, dan sebaliknya dengan Lcase, yaitu mengubah semua karakter menjadi huruf kecil semua.
k.       The Chr and The Asc Functions
The Chr berfungsi mengubah ASCII Code ke string dan sebaliknya dengan The Asc, yaitu mengubah  Karakter atau string atau simbol ke ASCII Code.
l.         The Abs Function
Mengembalikan nilai absolut dari suatu angka yang diberikan.
m.    The Exp Function
Eksponensi (pangkat) nilai.
n.      The Fix Function
Untuk membulatkan suatu bilangan desimal.
o.      The Int Function
Mengubah suatu angka ke integer atau sama saja dengan the fix function.
p.      The Log Function
Untuk mendapatkan nilai algoritma dari suatu angka.
q.      The Rnd() Function
Untuk mengacak suatu perintah.
r.        The Round Function
Untuk mengatur tempat nilai desimal yang kita inginkan.
s.       The Format Function
Untuk memformat fungsi dimana ia menampilkan nilai angka. Style argumentnya bermacam-macam yaitu general number, fixed, standard, currency, percent) Predefined Formats of date and time
Untuk mengatur tanggal dan waktu.

MEMODIFIKASI PROGRAM DAN MEMBUAT GAME PUZZLE

MEMODIFIKASI PROGRAM IF CASE

Program ini adalah Program pada pertemuan sebelumnya yang sudah di modifikasi dan apabila program di jalankan semua tombol akan mati kecuali isi data dan keluar

berikut gambar printscrennya :

Pada saat button isi data di klik maka semua tombol akan aktif kecuali button isi data

berikut gambar printscrennya :

Kemudian ketika button clear di tekan maka tampilan akan seperti semula

Berikut koding2 program tersebut :

MEMBUAT GAME PUZZLE

Untuk membuat game puzzle kita membutuhkan, 11 button dan 1 timmer.

Seperti ini gambar puzzlenya :

 

Dan berikut ketika gambar pada saat game puzzle di tekan tombol keluar :

Dan inilah tampilan kodingnya :

Semoga bermanfaat , Terima kasih .

Menganalisa Kesalahan Program Visual Basic

Soal Latihan 1

1.    Pada btalamat1_Click terjadi error yang disebabkan oleh belum dideklarasikannya variabel tersebut.

*Sebelum :

alamat = "Kuningan"

Txtalamat.Text = alamat

*Sesudah :

Dim alamat As String

alamat = "Kuningan"

Txtalamat.Text = alamat

2.    Mengapa saat ditekan button nama 1 dan nama 2 nama yang muncul pada textbox nama berbeda yaitu karena pada button nama 1 telah dideklarasikan langsung sehingga muncul nama “Nandang” . Sedangkan pada button 2 pendeklarasinya diletakan di module sehingga menghasilkan nama “Nandang Hermanto” pada textbox nama.

Dan yang menyebabkan munculnya alamat yang sama pada textbox alamat saat tombol alamat1 dan alamat2 ditekan adalah karena terdapat Const alamat = “Kuningan” pada Public Class FormSatu . jika script tersebut dihapus ,ketika  button alamat 1 ditekan maka akan tetap muncul “Kuningan” di textboxt alamat . tetapi jika button alamat 2 yang ditekan maka akan muncul “Purwokerto” pada textbox alamat karena diambil dari “Public Const alamat” pada Module .

3.    saat tombol "tambah umur 1" ditekan selalu mengeluarkan angka satu karena tombol tersebut menggunakan variabel  Dim (selalu tetap). Sehingga pada saat tombol "tambah umur 1" kita tekan, nilai yang keluar adalah 1, dan saat kita tekan lagi nilainya pun akan selalu satu, karena nilai dari variabel "umur" akan selalu "umur += 1".

Sedangkan varabel umur pada Bttambahumur2_Click yang menggunakan  Static (selalu berubah), nilainya tidak akan berubah sehingga akan selalu bertambah sesuai dengan nilai pada tekanan tombol sebelumnya ditambah dengan 1 "umur +=1".

4.    Form2 tidak bisa di jalankan sebelum form1 di jalankan karena form2 hanya dapat di panggil melalui tombol show form 2 yang ada di form1. Pada form 2 terdapat statement di atas public class form2, yaitu Option Explicit off, artinya tidak mengharuskan variable dipesan terlebih dahulu, karena akan mengambil di public form manapun, di program ini output Form2 mengambil public dari Module yang telah dibuat, sehingga output button Nama, Alamat, Umur pada Form 2, akan sama dengan isi pesan pada module.

Soal Latihan 2

Menurut saya kekurangan pada program ini adalah kode combobox "TAS" yang belum ada listing programnya, maka jika program ini dijalankan akan menghasilkan gambar seperti di bawah ini.

gambar di atas menunjukan kode "TAS" tidak perlu ada pada combobox. Tapi bisa juga ditambakan listing programnya, agar kode "TAS" dapat dijialankan. 

inilah listing program yang saya gunakan untuk memperbaiki kode "TAS" :

case "TAS"

namabarang = "Tas"

harga = 100000

Dan hasilnya akan menjadi seperti gambar dibawah ini:

Demikian Analisa yang dapat saya sampaikan Semoga Bermanfaat. TERIMAKASIH