TUGAS VB 9

KONEKSI DATA BASE VISUAL BASIC 2010 DENGAN SQL SERVER 2005

Langkah-langkah yang kita ambil yaitu :

1. Membuat database dasi SQL Server dengan nama dbmahasiswa sebagai berikut :

    NIM   : varchar(50)

    Nama  : varchar(50)

    Alamat : varchar(50)

    Tanggal Lahir : datetime

    Jurusan : varchar(2)

    SPP Tetap : varchar(50)

2. Membuat Project baru pada Visual Basic ,
    File - New Project - Windows - Windows Form Aplication

    berikut tampilan Form ketika belum diisi datanya ,

3. Lalu kita membuat koneksi Visual Basic ke Database dengan langkah :

    Klik pada toolbar menu, Pilih

• -> Add New Data Souce
• -> Database
• -> Dataset
• -> Add New Connection

4. Lalu kita coba koneksikan, dan nantinya akan muncul tampilan sebagai berikut

   Setelah itu kita pilih mana saja yang akan dikoneksikan ke visual studio 2010, tunggu sampai isi database
   (dbmahasiswa) muncul, kemudian klik Finish

5. Lalu kita tampilkan Data Source di bawah menu toolbox,dengan cara :

    Data - Show Data Source

6. Kemudian kita atur control dbmahasiswanya,

    Nim = textbox

    Nama = textbox

    Alamat = textbox

    Tempatlahir = Textbox

    Tgllahir = datetime

    Jurusan = combobox

    Spptetap = textbox

7. Selanjutnya kita Drag and Drop semua table kedalam form.

8. Pada tbmahasiswabindingnavigator kita atur visible = false, untuk menyeembunyikan

    tombol – tombol bawaan SQL server, karena yang akan kita gunakan tombol tersendiri

    dari Visual Basic .

9. Tambahkan tombol navigasi : Prev, Next, Move First, Move Last, Add, Remove,

    Save, dan Exit dan kemudian kita masukkan codingnya sebagai berikut :

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 BtAwal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtAwal.Click

        Me.TbmahasiswaBindingSource.MoveFirst()

    End Sub

    Private Sub BtSebelum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSebelum.Click

        Me.TbmahasiswaBindingSource.MovePrevious()

    End Sub

    Private Sub BtBerikutnya_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtBerikutnya.Click

        Me.TbmahasiswaBindingSource.MoveNext()

    End Sub

    Private Sub BtAkhir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtAkhir.Click

        Me.TbmahasiswaBindingSource.MoveLast()

    End Sub

Menambahkan tombol : Tambah, Simpan, Hapus, Cari dan Filter

Kode programnya sebagai berikut  :

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

        Me.TbmahasiswaBindingSource.RemoveCurrent()

    End Sub

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

        Me.TbmahasiswaBindingSource.AddNew()

    End Sub

    Private Sub BtSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtSimpan.Click

        Me.Validate()

        Me.TbmahasiswaBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)

    End Sub

    Private Sub BtCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCari.Click

        Dim carinama As String

        Dim posisi As Integer = 1

        carinama = InputBox("Masukan Nama", "Cari nama")

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

            MsgBox("Data ditemukan", vbOKOnly, "Pencarian data")

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

            posisi = TbmahasiswaBindingSource.Find("Nama", carinama) + 1

        Else

            MsgBox("Data tidak ditemukan", vbOKOnly, "Pencarian data")

        End If

    End Sub

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

        Me.Close()

    End Sub

End Class

Berikut tampilan ketika tabel sudah terisi data,

Sekian dan Terima Kasih,

TUGAS 8

FUNCTION DENGAN RETURN VALUE BERUPA ARRAY
DAN FUNGSINYA

1.   Buatlah Form seperti gambar di bawah ini terlebih dahulu,

2.  Setelah Form di atas di buat  lalu masukan kordingnya. berikut kording yang akan di gunakan :

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

Berfungsi untuk deklarasi fungsi yang diberikan nama fstat yang memiliki tipe Single(), yang memiliki parameter berupa Array yang bernama args() dengan tipe Object. Dim hasil(3) As Single

Dim i As Integer

Pendeklarasian variabel yang bernama hasil() dan bertipe single yang memiliki kapasitas 3 dan variabel i yang bertipe integer tersebut.

For i = 0 To UBound(args)

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

If i = 0 Then

hasil(1) = args(i)

hasil(2) = args(i)

hasil(3) = args(i)

End If

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

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

hasil(3) = hasil(0) / 10

Next i

Proses perulangan akan dilakukan sebanyak jumlah perintah index dalam parameter array. Hasil(0) akan menghasilkan jumlah dari semua angka.

* Hasil (1) akan menghasilkan nilai terbesar dalam array.

* Hasil (2) akan menghasilkan nilai terkecil dalam array.

* Dan Hasil (3) akan menghasilkan nilai Rata-rata dalam array.

Return hasil

Perintah yang akan mengembalikan nilai hasil ke dalam fungsi sehingga ketika fungsi dipanggil harus menggunakan variabel yang bertipe array.

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, 10, 4, 7, 9, 8, 5, 3)

TextBox1.Text = statistik(0)

TextBox2.Text = statistik(1)

TextBox3.Text = statistik(2)

TextBox4.Text = statistik(3)

End Sub

End Class

Merupakan sebuah proses pemanggilan fungsi pada event Button1 pada saat di-klik. Pada pemanggilan fungsi terlebih dahulu dideklarasikan sebuah variabel yang bertipe array, Kemudian nilai pada index satu ditampilkan pada textbox yang kita inginkan.

Berikut tampilan gambar setelah program dijalankan,

MACAM-MACAM FUNCTION BAWAAN

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, nama fungsi bisa diisi sesuai kebutuhan , argumen-argumen bisa diisi dengan parameter, optiomal 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)

DAN SEKARANG KITA BAHAS SATU PERSATU FUNCTUIN BAWAAN PADA VB:

1. 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

2. 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

3. 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