Tugas Visual Basic 9 : Koneksi SQL 2005 ke VB 2010

Tugas Visual Basic 9 : Koneksi SQL ke Visual Basic 2010

Langkah-langkah koneksi :

1.       Yang jelas harus ada program SQL 2005 dan VB 2010, setelah itu kita buat dulu database di SQL 2005. Misal dengan nama Dbmahasiswa, dan untuk membuat tabel yaitu dengan klik kanan pada table lalu pilih new table, dan beri nama tbmahasiswa.

Klik kanan pada tbmahasiswa lalu pilih open, isilah tabelnya sesuai kebutuhan. Disitu ada 5 record yaitu NIM, Nama, Jurusan, Alamat, SPP. Lalu save.

Ini tampilan di SQL nya

 

2.       Selanjutnya yaitu membuat projek baru di vb, terserah apa namanya. Pilih menu data > add new data source > database > next > dataset > new connection > continue > pilih servername, yaitu ATIKAH-PC/SA . isi username dan passwordnya. Pilih select enter lalu Klik tes connection untuk mengetes, jika sukses maka terhubung. Lalu klik ok > yes > next > yes >next >finish.

Tampilan projek

                Tambahkan button first, previous, next, last, clear, search, close dan textboxt1. Dan isi codenya seperti ini

Public Class Form1

    'tugas vb yang ke9 : koneksi sql ke vb,dan menambahkan tombol"

    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, data yang kita ambil dari tabel yang sudah kita buat di sql

        'code untuk pindah ke record pertama

        TbMahasiswaBindingSource.MoveFirst()

    End Sub

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

        'code untuk pindah ke record sebelumnya

        TbMahasiswaBindingSource.MovePrevious()

    End Sub

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

        'code untuk pindah ke record selanjutnya

        TbMahasiswaBindingSource.MoveNext()

    End Sub

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

        'code untuk pindah ke record terakhir

        TbMahasiswaBindingSource.MoveLast()

    End Sub

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

        End

    End Sub

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

        'pencarian nama dengan find, jika ada dia akan menampilkan pesan data ditemukan

        If (TbMahasiswaBindingSource.Find("nama", TextBox1.Text)) > -1 Then

            MsgBox("Data di temukan ")

        Else

            'jika tidak ada,maka menampilkan pesan dibawah ini

            MsgBox("Data yang anda cari tidak tersedia")

        End If

    End Sub

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

        'tombol untuk menghapus textbox1

        TextBox1.ResetText()

    End Sub

End Class

Langkah penggunaan programnya sangat sederhana, bisa melalui toolbar yang tersedia ataupun tombol-tombol yang sudah dibuat. Jika ingin menambahkan record baru tinggal pilih toolbar + berwarna kuning yang ada diatas, lalu isi pada record dibawahnya lalu pilih toolbar save. Jika ingin dihapus tinggal pilih tanda x berwarna merah. Untuk pencarian, disini dimaksudkan untuk mengetahui apakah nama yang kita tuliskan apakah ada dalam data tersebut atau tidak. Caranya tinggal mengetikkan nama pada textbox1 lalu pilih search. Selesai.

Contoh data yang ditemukan

Tombol clear untuk menghapus isi textbox1

Contoh data yang tidak ditemukan

Klik tombol close untuk keluar. Selesaii.

Tugas Visual Basic 8 : Sub dan Fungsi

TUGAS PEMPROGRAMAN VISUAL 8

MENJELASKAN SUB DAN FUNGSI

1.     Penjelasan fungsi return value pada form dibawah ini

Tampilan form diatas kita buat dulu, lalu pada code nya kita tulis seperti ini

Public Class Form6

    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

        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

Ketentuannya, jika kita mengklik tombol button1 akan muncul total, terbesar dan terkecil. Nilai-nilai tersebut mengambil dari array fstat.

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

Disitu ada fungsi fstat dengan menggunakan paramater ByVal ParramArray, yang artinya dia melewatkan secara nilai dan berupa array yang bisa menampung banyak elemen.  Nama parameternya yaitu args() dan bertipe data object sedang fstat nya single.

Dim hasil(3) As Single

Dim i As Integer

       Diatas adalah pendeklarasian variabel secara lokal, variabel hasil(3) artinya dia menampung 3 elemen yaitu hasil(0), hasil(1) dan hasil(2).

For i = 0 To UBound(args)

            hasil(0) = hasil(0) + args(i)

Fungsi for diatas yaitu untuk melakukan perulangan sebanyak Ubonds(args), artinya sebanyak batas atas array args yang tidak lain array args sama dengan array fstat dan melakukan perintah seperti diatas

            If i = 0 Then

                hasil(1) = args(i)

                hasil(2) = args(i)

            End If

dia akan melakukan perintah tersebut jika i = 0, dan perintah tersebut hanya dilakukan satu kali saja yaitu pada saat pertama.

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

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

        Next

        Return hasil

Jika hasil(1) > args(i), 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) yang tadi. Sebagai contoh, hasil (1) sebelumnya nilainya 1, berarti dia memnuhi syarat yang pertama yaitu 1  < dari 6 (args(i)) lalu nilai 1 diganti 6, begitupun seterusnya, jadi melihat kondisinya. Dan hasil(2) yang nilainya 1 tidak memenuhi syarat yang kedua jadi hasil(2) nilainya tetap 1. Disitu ada fungsi return, yang artinya dia kan mengembalikan nilai. Jadi si pemanggil meminta ke fungsi tersebut dan langsung mengembalikan ke pemanggil yaitu hasil.

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

Perintah diatas yaitu memanggil fungsi fstat, dimana ia disamakan dengan variabel statistika. Dan sekaligus, elemen array pada fstat diisi.

Textbox1 yang tidak lain adalah total, dia akan menampilkan jumlah keseluruhan elemen array fstat, textbox1 akan menampilkan nilai terbesar dari elemen array fstat dan textbox2 akan menampilkan nilai terkecil dari elemen array fstat.

2.     Penjelasan overloading

Public Class Form7

    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

Jadi ada 2 buah fungsi dengan nama yang sama yaitu hitung, tapi berbeda jumlah parameternya. Hitung yang pertama berjumlah 2 parameter sedang hitung ke2 ada 3 parameter

Contoh

Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer

        hitung = bil1 + bil2

    End Function

ByVal bil1 As Integer itu sama saja dengan bil1. Begitupun dengan bil2.

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

Button1 memanggil fungsi hitung, dan dia memilih hitung yang ke2 karna jumlah elemennya tiga, dan bisa diibaratkan 1 sama dengan bil1 yang mana bil1 sama dengan ByVal bil1 As Integer, 2 sama dengan bil2 yang mana bil2 sama dengan ByVal bil2 As Integer, 3 sama dengan bil3 yang mana bil3 sama dengan ByVal bil2 As Integer. Jadi ia memmilih sub yang hampir mendekati si pemanggil.

Jadi hasil akhirnya yaitu 6, karna ia menjumlahkan 1+2+3.

3.     Macam-macam function bawaan visual basic 2010

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)

t.        Predefined Formats of date and time

Untuk mengatur tanggal dan waktu.