Pembuatan Tombol Navigasi dan Pencarian


Posting kali ini saya akan membahas tetang pembuatan tombol navigasi (First, Previous, Next, Last) dan tombol pencarian yang digunakan untuk mencari data di dalam database yang kali saya menggunakan Microsoft SQL Server 2005. Sebelumnya buat dahulu sebuah tabel yang berisi kolom : nim, nama, alamat, tgllahir, jurusan, serta spptetap dan isilah tabel tersebut.

Tabel Yang Sudah Terisi

Tabel Yang Sudah Terisi

Setelah database dibuat, kita koneksikan dengan Microsoft Visual Studio 2010 dengan menu Data > Add New Data Source
pada menu di Microsoft Visual Studio 2010. Setelah terkoneksi dengan database, kemudian kita buat tampilan formnya agar menjadi seperti berikut :

Tampilan Form

Tampilan Form

Kemudian kita akan memberi coding pada tombol-tombol navigasi dan pencarian yang telah kita buat. Coding untuk masing-masing tombol adalah sebagai berikut :

  • Tombol First :
    TbmahasiswaBindingSource.MoveFirst()
  • Tombol Previous :
    TbmahasiswaBindingSource.MovePrevious()
  • Tombol Next :
    TbmahasiswaBindingSource.MoveNext()
  • Tombol Last :
    TbmahasiswaBindingSource.MoveLast()
  • Tombol Cari :
    If (TbmahasiswaBindingSource.Find(“Nama”, TextBox1.Text)) > -1 Then
    MsgBox(“Data Ditemukan”)
    Else
    MsgBox(“Data Tidak Ditemukan”)
    End If
  • Tombol Keluar :
    Me.Close()

Tampilan jika data ditemukan dalam record :

Jika Data Ditemukan

Jika Data Ditemukan

Tampilan jika data tidak ditemukan dalam record :

Jika Data Tidak Ditemukan

Jika Data Tidak Ditemukan

Sekian post saya kali ini, Terima kasih.

Iklan

Return Value Function, Overloading Functon & Beberapa Function Bawaan Visual Basic


Return Value Function
Berikut ini adalah contoh function dengan menggunakan return value berupa array :

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)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)
End Sub

Hasil dari contoh diatas kita bisa melihatnya pada form berikut ini :

Tampilan Form

Tampilan Form

Dari contoh diatas kita bisa lihat terdapat sebuah function bernama fstat yang berfungsi untuk menghasikan hasil berupa jumlah, nilai terbesar dan nilai terkecil yang semuanya ditampung di dalam variabel array hasil(3). Ketiga isi dari variabel yang dihasilkan dari function diatas yaitu :

  • hasil(0)/ jumlah
  • hasil(1)/ nilai terbesar
  • hasil(2)/ nilai terkecil

kemudian di kirimkan melaui perintah : Return hasil
ke variabel statistik yang ada pada Private Sub Button1_Click dan menampilkannya  pada :

  • TextBox1 sebagai jumlah/ statistik(0)
  • TextBox2 sebagai nilai terbesar/ statistik(1)
  • TextBox3 sebagai nilai terkecil/ statistik(2)

Overloading Function
Overloading function dalah beberapa fungsi yang memiliki perintah berbeda tetapi namanya sama. Sebagai contoh adalah program dibawah ini. Terdapat 2 Fuction hitung pada program ini namun program hanya akan menjalankan salah satunya saja.

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

Program memilih sendiri function yang tepat, tergantung pada perintah di tombol.

Program memilih sendiri function yang tepat, tergantung pada perintah di tombol “Tampilkan”.

Pada contoh diatas program menjalankan function hitung yang ke-2 yang memiliki perintah :
hitung = bil1 + bil2 + bil3

Beberapa Function Bawaan Visual Basic

  • Msg Box()
    Fungsi dari MsgBox adalah untuk menghasilkan kotak pesan/ pop-up dan meminta pengguna untuk mengklik pada tombol perintah yang disediakan, sebelum bisa melanjutkan ke perintah selanjutnya.
    Contoh :
    MsgBox(“Apa anda akan lanjut belajar VB?”, MsgBoxStyle.OkCancel, “MsgBox”)
Tampila MsgBox

Tampilan MsgBox

  • InputBox()
    Fungsi InputBox () akan menampilkan kotak pesan di mana pengguna dapat memasukkan nilai atau pesan kedalamnya.
    Contoh :
    InputBox(“Masukan nilai VB anda!”, “InputBox”)
Tampilan InputBox

Tampilan InputBox

Sekian post saya kali ini, Teguh Pramono.

Perancangan Menu & Toolbar pada Visual Basic 2010


Oke, jumpa lagi dengan saya. Kali ini saya akan sedikit berbagi dengan anda mengenai pembuatan menu pada Microsoft Visual Basic 2010. Langung saja, rancangan program saya kali ini adalah “Database Toko Sumber Makmur“. Di dalam program ini terdapat berbagai macam sub menu, seperti Input, Edit, Laporan, Jendela dan juga menu Bantuan. Berikut ini tampilan saat program dijalankan :

Tampilan Awal

Tampilan Awal

Dari tampilan ini bisa kita lihat menu-menu yang tersedia, sebagai contoh menu Input yang yang didalamnya terdapat 4 sub menu seperti gambar dibawah.

Menu Input

Menu Input

Saat kita klik kanan di area kosong pada program akan muncul dua menu yaitu : Cara Penggunaan dan Tentang Program

Saat klik kanan muncul 2 buah menu.

Saat Klik Kanan pada area kosong muncul 2 buah menu

Ketika kita meng-klik menu Input Data Barang dan Input Data Pegawai program akan menampilkannya secara Cascade/ Bertumpukan dan terkesan kurang rapi.

Sub Program ditampilkan secara Cascade

Sub Program ditampilkan secara Cascade

Kita bisa membuat tampilan sub form yang terbuka menjadi susuai keinginan yaitu dengan membuat menu utuk mengatur tampilan tersebut seperti dibawah ini :

Tampilan Sub Form secara Horizontal

Tampilan Sub Form secara Horizontal

Koding dari tombol-tombol tersebut adalah :

  1. Tombol Cascade: Me.LayoutMdi(MdiLayout.Cascade)
  2. Tombol Vertical : Me.LayoutMdi(MdiLayout.TileVertical)
  3. Tombol Horizotal : Me.LayoutMdi(MdiLayout.TileHorizontal)

Oke sekian dulu, Teguh Pramono.