tugas 9

koneksi  Visual Basic 2010 dan  SQL Server 2005

Pembahasan kali ini adalah pembahasan mengenai koneksi  Visual Basic 2010 dan  SQL Server 2005.

Membuat Navigasi

Button Pertama

Button Berikutnya

Button Sebelumnya

Button Terahir

Button Tambah

Button Hapus

Button Cari

Button Simpan

Button Filter

Pertama form yang ini pada properties TbmahasiswaBindingNavigator pada Visible di buat False

Seperti gmabar di bawah ini

Setelah itu buat form dan button-buttonnya seperti ini

Navigasi Tambah

Klik dua 2x pada button tambah lalu masukan coding di bawah ini untuk menambah data

TbmahasiswaBindingSource.AddNew()

Navigasi Simpan

Klik dua 2x pada button simpan lalu masukan coding di bawah ini untuk menyimpan data

Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

Dan pada saat di run progam akan seperti ini nim dan lainya siap unutuk di isi

Lalu isi semua inputan contohnya seperti data di  bawah ini

Jangan lupa klik tombol simpan

Navigasi Hapus

Klik dua 2x pada button hapus lalu masukan coding di bawah ini untuk menghapus data

TbmahasiswaBindingSource.RemoveCurrent()

Contohnya pada gambar ini pada saat sudah di run,lalu pada barih Ahamd klik tombol hapus

Maka hasilnya

Navigasi Cari

Klik dua 2x pada button cari lalu masukan coding di bawah ini untuk mencari data

If (TbmahasiswaBindingSource.Count = 0) Then

            MsgBox("Belum Ada Data", vbOKOnly + vbInformation, "Peringatan!!!")

        Else

            Dim carinama As String

            carinama = InputBox("Masukkan Nama", "Cari Nama")

            If (TbmahasiswaBindingSource.Find("Nama", carinama)) > -1 Then

                MsgBox("Data Ditemukan", vbOKOnly, "Pencarian Data")

                Me.TbmahasiswaBindingSource.Position = TbmahasiswaBindingSource.Find("Nama", carinama)

            Else

                MsgBox("Data Tidak Ditemukan", vbOKOnly, "Pencarian Data")

            End If

        End If

Maka hasilnya jika di run,klik tombol cari maka akan mucul msgbox,lalu masukan nama yang anda cari contohnya seperti dibawah ini,

Lalu klik Ok.maka aka ada pemberitahuan seperti dibawah ini

Navigasi Pertama

Klik dua 2x pada button pertama  lalu masukan coding di bawah ini untuk pindah ke data yang paling pertama

TbmahasiswaBindingSource.MoveFirst()

Maka jika di run hasilnya seperti ini

Navigasi Berikutnya

Klik dua 2x pada button berikutnya  lalu masukan coding di bawah ini untuk pindah ke data selanjutnya

TbmahasiswaBindingSource.MoveNext()

Maka jika di run hasilnya seperti ini

Navigasi Sebelumnya

Klik dua 2x pada button sebelumnya  lalu masukan coding di bawah ini untuk pindah ke data sebelumnya

TbmahasiswaBindingSource.MovePrevious()

Maka jika di run hasilnya seperti ini

Navigasi Terahir

Klik dua 2x pada button terahir  lalu masukan coding di bawah ini untuk pindah ke data terahir

TbmahasiswaBindingSource.MoveLast()

Maka jika di run hasilnya seperti ini

Dan ini coding keseluruhan

Public Class Form1

    Private Sub TbmahasiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbmahasiswaBindingNavigatorSaveItem.Click

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'DbmahasiswaDataSet.tbmahasiswa' table. You can move, or remove it, as needed.

        Me.TbmahasiswaTableAdapter.Fill(Me.DbmahasiswaDataSet.tbmahasiswa)

    End Sub

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

        TbmahasiswaBindingSource.MoveFirst()

    End Sub

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

        TbmahasiswaBindingSource.MoveNext()

    End Sub

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

        TbmahasiswaBindingSource.MovePrevious()

    End Sub

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

        TbmahasiswaBindingSource.MoveLast()

    End Sub

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

        TbmahasiswaBindingSource.AddNew()

    End Sub

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

        TbmahasiswaBindingSource.RemoveCurrent()

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

    End Sub

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

        If (TbmahasiswaBindingSource.Count = 0) Then

            MsgBox("Belum Ada Data", vbOKOnly + vbInformation, "Peringatan!!!")

        Else

            Dim carinama As String

            carinama = InputBox("Masukkan Nama", "Cari Nama")

            If (TbmahasiswaBindingSource.Find("Nama", carinama)) > -1 Then

                MsgBox("Data Ditemukan", vbOKOnly, "Pencarian Data")

                Me.TbmahasiswaBindingSource.Position = TbmahasiswaBindingSource.Find("Nama", carinama)

            Else

                MsgBox("Data Tidak Ditemukan", vbOKOnly, "Pencarian Data")

            End If

        End If

    End Sub

End Class

Sekian penjelasannya.Semogabermanfaat bagi semua..amin

Tetap SEMANGAT ;)

Go..go…SEMANGAT!!!

TUGAS 8 Sub Program Function

TUGAS 8 Sub Program Function

Function Dengan Return Value Berupa Array

Buatlah Program Tampilan Form seperti Gambar diatas,

Tuliskan Coding dibawah ini :

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

Coba Jalankan Program (F5),

Setelah itu klik Tombol "Proses" pada program.

maka Hasil yg akan Keluar adalah :

Total = 55

Terbesar = 10

Terkecil = 1

Seperti Gambar dibawah ini :

Pada Button1 diatas dituliskan sebuah program Array yang jumlahnya ada 10 digit angka, dan terdapat Function Looping, yang menghailkan sebuah informasi Total, Terbesar, dan Terkecil dari Array yang ada pada Button1

Overloading Function

Beberapa Function mempunyai nama sama tetapi mempunyai Parameter berbeda,

Buatlah Program dengan Tampilan Form seperti gambar dibawah ini :

Setelah itu masukan Coding dibawah ini :

Public Class Overloading_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

    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

Jalankan Program (F5), klik Tombol Proses hasil "Textbox1" akan muncul angka Enam (6), Kenapa hasilnya Enam (6)

Dalam Program ini ada dua Sub Function, yang pertama Function hitung dengan jumlah parameter dua (2) yaitu bil1 dan bil2, dan yang Kedua adalah Function hitung ddengan jumlah parameter tiga (3), dan pada Button1, dituliskan sebuah perintah "hitung(1,2,3)" yang artinya jumlah parameter ada tiga, dan nilai dari parameternya adalah 1, 2 dan 3.. Karena pada Button1 dituliskan perintah dengan 3 parameter maka Function yang dijalankan adalah Function yang mempunyai Jumlah parameter 3, yaitu :

 hitung = bil1 + bil2 +bil3

Maka ketentuanya : bil1 = 1 , bil2 =2, bil3=3 maka Hasilnya adalah 1 + 2 + 3 = 6

Untuk Lebih jelasnya Kita Coba mengubah jumlah parameter pada Button1 dari 3 parameter menjadi 2  parameter, Seperti  dibawah ini

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

Ganti menjadi seperti ini

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

        TextBox1.Text = hitung(1, 2)

    End Sub

Jika Coding pada Button1 telah dirubah menjadi Parameter 2, maka jika program dijalankan dan b=tombol proses ditekan maka hasil pada textbox1 adalah 3, seperti gambar dibawah ini :

Mengapa demikian?ya, Karena kita telah mengubah parameter pada Button1 dari tiga menjadi 2, maka Function yang dijalankan adalah sebuah function yang jumlah parameternya Dua(2) yaitu hitung = bil1+bil2

dengan ketentuan bil1=1, bil2=2 maka hitung sama dengan 1+2 = 3...

Dan Apabila Jumlah Parameter pada button1 diubah menjadi 4 parameter, maka yang akan terjadi adalah Overloading Function, karena Maksimal Parameter yang ada adalah 3, dan sebaliknya jika parameternya hanya satu, juga akan terjadi sebuah Error program, karena jumlah minimal Function adalah Dua(2)


Macam - macam Fungsi Bawaan di Visual Basic

Function itu sendiri adalah sekumpulan tatement yang menghasilkan nilai balik (return Value). Nilai Balik ini akan akan dikembalikan pada blok perintah yang memanggil prosedur function.

Adapun syntax penulisan function procedure :

[Private/Public]  Function  namafungsi(argumen-argumen) [As type]

Baris perintah

End Function

Dari sytax diatas, namafungsi bisa diisi sesuai kebutuhan , argument-argumen bisa diisi dengan parameter,optional dan argumen lain, As type adalah tipe data yang digunakan

Sebuah Function  dapat dipanggil dengan menggabungkan  pernyataan lain, seperti contoh berikut ini

Variabel = nama Function Procedure

Cara lain untuk memanggil sebuah fungsi dapat dilakukan seperti kalau  memanggil sub prosedur yaitu :

Call NamaFunctionProcedure [Parameter]

Atau

NamaFunctionProcedure (Parameter)

Fungsi String

Left→mengambil karakter dari sebelah kiri

Right → mengambil karakter dari sebelah kanan

Mid → mengambil karakter dari tengah

LTrim → membuang semua semua awal spasi yang ada disebelah kiri

RTrim → membuang semua semua awal spasi yang ada disebelah kanan

Trim → membuang semua spasi yang ada disebelah kiri dan kanan

Len → memberikan nilai balik integer sebagai panjang string

LCase → mengubah string menjadi huruf kecil semua

UCase → mengubah string menjadi huruf besar semua

Str (int) → mengubah bilangan menjadi string (konversi)

Chr (Asscii) → konversi dari nilai ascii menghasilkan karakter

Fungsi Matematika

Val (Str) → konversi string menjadi integer

Asc(Char) → konversi karakter menghasilkan nilai ascii

Abs(Number) → memberikan nilai mutlak dari suatu nilai negatif

Round(Number,Decimal) → membulatkan suatu angka sampai beberapa digit decimal

Sqr(Number) → memberikan hasil akar kuadrat dari suatu nilai

Tan()→ mengembalikan nilai tangen dari argument dalam radian

Cos()→ mengembalikan nilai cosinus dari argument dalam radian

Atn()→ mengembalikan nilai arc tangen dari argument dalam bentuk radian

Long()→ mengembalikan nilai logaritma dari argument

CInt()→ pembulatan nilai decimal 0.5 dan lebih ke integer yang terdekat

Fix()→ pemotongan suatu nilai decimal menjadi integer

Int()→ pembulatan ke bawah suatu nilai decimal

Fungsi Tanggal dan Waktu

Date()→ mengambil tanggal system komputer

IsDate → memberikan nilai balik Boolean , true jika parameter adalah sebuah tanggal

DateValue → konversi string menjadi date

D(Date),M(Date),Y(Date) → memberikan nilai integer dari Variabel Date untuk hari , bulan dan tahun

Time()→ mengambil waktu dari system komputer

H(Date),M(Date),S(Date) → memberikan nilai integher dari variable date untuk jm, menit dan deik

TimeValue(str) → konversi string ke variable date

Itulah, function-function bawaan yang bisa diapplikasikan dalam visual basic

Sekian yang saya bisa kerjakan,semoga bias bermaanfaat bagi semua…amin

SEMANGAT!!!selalu..

Go..go..SEMANGAT!!!