TUGAS 6 PEMROGRAMAN VISUAL

MEMBUAT KONEKSI KE DATABASE

Assalamua’alaikum..

Saya akan sedikit menjelaskan cara membuat tombol navigasi NEXT, PREVIOUS, FIRST, LAST, SEARCH NAME dan KELUAR pada Visual Basic 2010 yang terkoneksi dengan SQL Server 2005. Langsung aja yuu..

Pertama kita membuat database dahulu di SQL Server 2005. Kali ini saya akan membuat database mahasiswa dengan nama dbmahasiswa, selanjutnya membuat tabel mahasiswa dengan nama tbmahasiswa. Kemudian isi data-data pada tbmahasiswa dan jangan lupa di save. Seperti gambar di bawah ini:

Setelah membuat dbmahasiswa, buka Microsoft Visual Studio dan buat satu Form. Untuk mengkoneksikan dengan SQL Server 2005, pilih Menu Data, Add New Data Source, klik Next terus sampai terlihat tombol New Connection, di klik. Isi perintah seperti di bawah ini, kemudian OK, klik Next, klik Finish.

Langkah selanjutnya, drag semua isi dbmahasiswa dan tbmahasiswa yang terdapat pada Data Sources, serta buat 5 button untuk membuat tombol FIRST, PREVIOUS, NEXT, LAST, dan KELUAR. Namun untuk SEARCH NAME dengan menggunakan TextBox. Pada SEARCH NAME ini, pencarian dilakukan dengan kriteria nama saja. Maka akan tampil seperti gambar berikut:

Pada saat kita menekan tombol navigator FIRST, maka akan terjadi seperti ini:

 Codingnya seperti berikut:

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

        TbmahasiswaBindingSource.MoveFirst()

    End Sub

Pada saat kita menekan tombol navigator LAST, maka akan terjadi seperti ini:

Codingnya seperti berikut:

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

        TbmahasiswaBindingSource.MoveLast()

    End Sub

Pada saat kita menekan tombol navigator PREVIOUS, maka akan terjadi seperti ini:

Codingnya seperti berikut:

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

        If TbmahasiswaBindingSource.Position > 0 Then

            TbmahasiswaBindingSource.MovePrevious()

        Else

            MsgBox("tidak ada data lagi")

        End If

    End Sub

Pada saat kita menekan tombol navigator NEXT, maka akan terjadi seperti ini:

Codingnya:

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

        Dim jmlrow = DbmahasiswaDataSet.Tables(0).Rows.Count

        If TbmahasiswaBindingSource.Position < jmlrow - 1 Then

            TbmahasiswaBindingSource.MoveNext()

        Else

            MsgBox("tidak ada data lagi")

        End If

    End Sub

 Pada saat kita menekan menulis nama yang ingin dicari pada SEARCH NAME, maka akan terjadi seperti ini:

 Apabila nama yang kita cari tidak ada, maka akan seperti ini:

Codingnya:

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

        Dim jmlrow = DbmahasiswaDataSet.Tables(0).Rows.Count

        If TbmahasiswaBindingSource.Position < jmlrow - 1 Then

            TbmahasiswaBindingSource.MoveNext()

        Else

            MsgBox("tidak ada data lagi")

        End If

    End Sub

Terakhir pada tombol KELUAR, codingnya sederhana:

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

        Me.Close()

    End Sub

Demikian sedikit penjelasan mengenai tombol navigator. Semoga bermanfaat bagi para pembaca.

Wassalamu’alaikum...

TUGAS 5 PEMROGRAMAN VISUAL

Return Value Function, Overloading Function & Function Bawaan Visual Basic

Assalamu'alaikum.. saya akan menjelaskan sedikit mengenai Function pada Visual Basic 2010. Langsung saja...

 RETURN VALUE FUNCTION
 


Coding gambar di atas sebagai berikut:

Public Class Form1

    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

    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

End Class

Function dengan nama fstat yang menggunakan ByVal ParamArray, parameter berupa array. Parameter tersebut diberi nama args yang bertipe data Object, sedangkan fstat bertipe data Single.

Dim hasil(3) As Single merupakan variabel lokal, hasil(3) berupa array yang menampung 3 elemen.
For i = 0 To UBound(args) melakukan perulangan sebanyak indeks terakhir pada array args.

If hasil(1) < args(i) Then hasil(1) = args(i)            

If hasil(2) > args(i) Then hasil(2) = args(i)

Jika hasil(1) < args(i), maka args(i) elemen dari array fstat maka nilai hasil(1) diganti args(i), dan jika hasil(2) > args(i) maka nilai hasil(2) diganti dengan args(i).

Return hasil , akan mengembalikan nilai.

Maka ketika kita menekan tombol Button1 maka akan muncul Total, Terbesar, Terkecil seperti gambar di atas.

 

 

 OVERLOADING FUNCTION

 
Coding gambar di atas sebagai berikut:

Public Class overloading

    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

    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

End Class

Terdapat 2 function yang sama-sama diberi nama hitung. Pada function pertama mendeklarasikan parameter menggunakan 2 keyword ByVal yang bertipe data Integer. Pada function kedua mendeklarasikan parameter menggunakan 3 keyword ByVal juga bertipe Integer.

coding program di atas, pada saat pemanggilan function menggunakan function kedua dengan  perintah hitung = bil1 + bil2 + bil3.Maka ketika kita menekan tombol Button1 pada TextBox1 akan menampilkan jumlah hitung yaitu 6, jumlah dari 1+2+3.

FUNCTION BAWAAN

 

Fungsi bawaan adalah suatu fungsi yang sudah ada dalam Visual Basic dan dapat digunakan secara langsung.

a.    Fungsi-fungsi konversi ke integer

Fungsi	Keterangan
Cint( )	Pembulatan nilai desimal 0.5 dan lebih ke integer yang lebih dekat
Fix( )	Pemotongan suatu nilai desimal menjadi integer
Int( )	Pembulatan ke bawah suatu nilai desimal

b.    Fungsi – fungsi konversi tipe data

Fungsi	Keterangan
Ccur( )	Mengkonversi argumen menjadi tipe data currency
Cdbul( )	Mengkonversi argumen menjadi tipe data double (presisi ganda)
CLng( )	Mengkonversi argumen menjadi tipe data long integer
CSng( )	Mengkoonversi argumen menjadi tipe data single
CStr( )	Mengkonversi argumen menjadi tipe data string
Ivar( )	Mengkonversi argumen menjadi tipe data variant

 

c.    Fungsi-fungsi matematika 

Fungsi	Keterangan
Abs( )	Mengembalikan nilai absolut dari argumen
Atn( )	Mengembalikan nilai arc tangen dari arguen dalam bentuk radian
Cos( )	Mengembalikan nilai cosinus dari argumen dalam radian
Exp( )	Mengembalikan nilai exponensial dari argumen
Log( )	Mengembalikan nilai logaritma dari argumen
Sin( )	Mengembalikan nilai sinus dar argumen dalam radian
Sqr( )	Mengembalikan nilai akar dari argumen
Tan( )	Mengembalikan nilai tangen dari argumen dalam radian

 

 

d.    Fungsi-fungsi String

Fungsi	Keterangan
Lcase$( )	Mengembalikan argumen string sebagai tipe data string huruf kecil
UCase( )	Mengembalikan argumen string sebagai tipe data variant huruf besar
Ucase$( )	Mengembalikan argumen string sebagai tipe data string huruf besar
Val( )	Mengembalikan nilai number dari argumen string
Len( )	Mengembalikan nilai number yang menunjukkan panjang string

 

e.    Fungsi-fungsi Tanggal dan Waktu

Fungsi	Keterangan
Now( )	Mengembalikan tanggal dan waktu sistem
Date( )	Mengembalikan tanggal dari sistem
Time( )	Mengembalikan waktu dari sistem

  

Demikian penjelasan singkatnya, semoga bermanfaat. 

Wassalamu'alaikum...