Pembuatan Tombol Navigasi dan Pencarian

Desember 21, 2012 ~ pramonoteguh

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

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

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

Tampilan jika data tidak ditemukan dalam record :

Jika Data Tidak Ditemukan

Sekian post saya kali ini, Terima kasih.

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

Desember 15, 2012 ~ pramonoteguh

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

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 “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”)

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”)