Tugas Ke-7 Menggabungkan Antara Visual Basic 2010 Dan Database SQL Server 2005

Postingan kali ini saya akan membahas tentang aplikasi penggabungan antara Visual Basic 2010 dan database SQL Server 2005. Pertama-tama saya terlebih dahulu akan menjelaskan tentang urutan-urutan pembuatan table di SQL Server 2005 dan membuat form pada Visual Basic 2010 dan selanjutnya proses menghubungkan kedua program tersebut. Untuk lebih jelasnya akan saya jelaskan langkah-langkahnya dibawah ini :

1. Buatlah tabel pada SQL Server.
Langkah pertama bukalah aplikasi SQL Server, kemudian klik connect

Kemudian klik kanan database, lalu pilih new database, beri nama dan kemudian simpan pada drive D atau E terserah sesuaikan dengan keinginan anda. Setelah selesai maka klik OK.

Klik database yang telah anda buat tadi kemudian cari folder table setelah ketemu klik kanan lalu pilih new table, buatlah table tersebut dengan formatnya sesuai dengan kebutuhan, setelah itu selesai kemudian klik save all dan jangan lupa berikan nama jika sudah lalu klik OK. 

Dilanjutkan dengan klik kanan pada table tadi yang anda telah buat kemudian klik open table dan isikan kolom pada table tersebut sesuai ketentuan atau sesuaikan dengan kebutuhan anda, bila semuanya sudah klik save all.

2. Membuat form pada Visual Basic 2010. 

Bukalah aplikasi Visual Basic 2010 kemudian klik menu file lalu klik new project, pilih visual basic dan  pilih windows form application setelah selese klik OK.

3. Menggabungkan antara Visual Basic 2010 dan database SQL Server 2005 

 Klik menu data kemudian pilih Add New Data Source

Kemudian pilih Database kemudian klik next, pilih Dataset klik next kembali

Klik new conection, isi server name dengan nama server yang anda gunakan, untuk kli ni saya menggunakan nama server "ZHA_REZA-PC\SA" kemudian isikan User SQL Server Authentication lalu  pilihlah Select or enter a database name pilih nama database yang telah dibuat sebelumnya, kemudian klik test conection bila sukses klik ok, kemudian klik next, kemudian cetang pilihan sesuai kebutuhan kemudian klik finish.

Klik data sourch dan masukan isi dari table tersebut ke dalam form dengan ca mendrag satu-satu. Setelah selesa drag jaga databasenya lalu tambahkan tombol-tobol button sesauikan dengan kebutuhan.

Penjelasan Program Pada Tombol-tombol Button
1. Tombol Awal

coding program :

Private Sub Btawal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btawal.Click
        DabesMahasiswaBindingSource.MoveFirst()
    End Sub
Tampilan Gambar :

2. Tombol Akhir

coding program :

Private Sub Btakhir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btakhir.Click
        DabesMahasiswaBindingSource.MoveLast()
    End Sub
Tampilan Gambar :

3. Tombol Sebelumnya

coding program :

Private Sub Btsebelumnya_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsebelumnya.Click
        Dim b As Integer = Me.DabesMahasiswaBindingSource.Position
        If b <> 0 Then
            Me.DabesMahasiswaBindingSource.MovePrevious()
        Else : MsgBox("Merukapan Data Yang Paling Awal")
        End If
   End Sub
Tampilan Gambar :

4. Tombol Sesudahnya

coding program :

Private Sub Btsesudahnya_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsesudahnya.Click
        Dim a As Integer = Me.DabesMahasiswaBindingSource.Count
        Dim b As Integer = Me.DabesMahasiswaBindingSource.Position
        If b < a - 1 Then
            Me.DabesMahasiswaBindingSource.MoveNext()
        Else : MsgBox("Merukapan Data Yang Paling Akhir")
        End If
  End Sub
Tampilan Gambar :

5. Tombol Cari

coding program :

Private Sub Btcari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btcari.Click
        If (DabesMahasiswaBindingSource.Find("Nama", TextBox1.Text)) > -1 Then
            MsgBox("Selamat Data Yang Anda Cari Telahditemukan")
        Else
            MsgBox("Maaf Data Yang Anda Cari Tidak Ditemukan")
        End If
    End SubTampilan Gambar :

6. TextBox

coding program :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Me.DabesMahasiswaBindingSource.Filter = "nama='" & TextBox1.Text & "'"
    End Sub

7. Tombol Keluar

coding program :

Private Sub Btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btkeluar.Click
 If MsgBox("Apakah ada yakin akan mengakhirinya ?", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then
    Me.Close()
  End If

End Sub
Tampilan Gambar :

SEKIAN SEMOGA BERMANFAAT

Baca Selengkapnya

Tugas Ke-6 Return Value Function, Overloading Function Dan Function Bawaan Visual Basic

RETURN VALUE FUNCTION

Tampilan Awal Program 

 Tampilan Saat Program Dijalankan

Koding Programnya :
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 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
End Class

Penjelasan Program :

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

Berfungsi untuk deklarasi fungsi yang diberikan nama fstat yang memiliki tipe Singe(), 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.

 

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
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.
• Dan hasil (2) akan menghasilkan nilai terkecil 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)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)
End Sub

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

OVERLOADING FUNCTION

Tampilan Awal Program 

Tampilan Saat Program Dijalankan 

Koding Programnya : 
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


Penjelasan Program :

Function hitung(ByVal bil1 As Integer, ByVal bil2 As Integer) As Integer
    hitung = bil1 + bil2
End Function

Pendeklarasian fungsi dengan nama hitung yaitu antara bil1 dan bil2 yang bertipe integer. Proses ini bertugas untuk menjumlahkan bil1 dengan bil2. Maka pada saat kita memanggil fungsi dengan nama hitung kemudian secara langsung fungsi inilah yang akan terpanggil. 

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

     hitung = bil1 + bil2 + bil3
End Function

Mendeklarasikan fungsi yang memiliki nama hitung, yaitu bil1, bil2,dan bil3 yang bertipe integer juga. Proses berfungsi untuk menjumlahkan bil1, bil2, dan bil3. Maka ketika kita memanggil fungsi dengan nama hitung maka akan seara langsung fungsi inilah yang akan terpanggil.

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

Merupakan proses pemanggilan fungsi pada event Button_1 ketika di-klik. Sehingga pada saat Button1 kita klik, maka pada textbox1 akan ditampilkan hasil dari proses yang dilakukan oleh fungsi hitung tersebut.

FUNCTION BAWAAN VISUAL BASIC

Dalam Visual Basic, fungsi bawaan adalah suatu fungsi yang sudah ada dalam Visual Basic dan dapat digunakan secara langsung. Ada sejumlah fungsi-fungsi bawaan dalam VB diantaranya adalah fungsi untuk mengubah suatu tipe data String dari suatu TextBox menjadi tipe data numerik agar dapat digunakan untuk melakukan operasi perhitungan, fungsi yang berkaitan dengan matematika, dll.

A. Fungsi-fungsi Numerik 

Dengan menggunakan fungsi-fungsi bawaan yang disediakan, waktu pembuatan sebuah program dapat disingkat. Fungsi-fungsi numerik merupakan fungsi-fungsi yang berkaitan dengan tipe data numerik. Fungsi-fungsi ini dapat dikelompokkan sebagai berikut :
a) Fungsi-fungsi konversi ke integer. 

Ada tiga macam fungsi yang melakukan konversi ke tipe data integer yaitu seperti terlihat pada gambar tabel dibawah ini :

                                                 Tabel Fungsi-fungsi Konversi ke Integer

Untuk bilangan positif, fungsi Fix() dan Int() memberikan perlakuan yang sama. Sebagai contoh, kedua pernyataan berikut ini mengembalikan nilai yang sama :

Namun fungsi Fix() dan Int() memberikan perlakuan berbeda pada bilangan negatif. Kedua pernyataan berikut memberikan pengembalian yang berbeda :

Sedangkan fungsi CInt() mengembalikan pembulatan angka yang terdekat. Berikut ni contoh penggunaan CInt() :

b) Fungsi – fungsi konversi tipe data
Gambar tabel dibawah ini merupakan fungsi – fungsi yang melakukan konversi ke tipe data.

Fungsi-fungsi Konversi ke Tipe Data. Sebagai contoh misalkan sebuah data yang merupakan hasil bagi (1 / 7) .

c) Fungsi-fungsi matematika  

Fungsi-fungsi yang bekaitan dengan matematika seperti terlihat pada gambar tabel berikut.

B. Fungsi-fungsi String
Selain fungsi-fungsi numerik, Visual Basic juga mempunyai sejumlah fungsi-fungsi String diantaranya seperti pada gambar dibawah ini.

Substring merupakan bagian dari suatu string. Untuk memperoleh substring dari suatu string dapat digunakan 3 fungsi berikut :
a) Left$(StringVal, length) 

Fungsi ini mengembalikan nilai string dari sebelah kiri sebanyak length karakter .

b) Right$(StringVal, length) 

Fungsi ini mengembalikan nilai string dari sebelah kanan sebanyak length karakter .

c) Mid$(StringVal, startVal, length)

Fungsi ini mengembalikan nilai string dari startVal sebanyak length karakter .

Contoh :

C. Fungsi-fungsi Tanggal dan Waktu
Jika dalam suatu aplikasi diperlukan pengambilan tanggal atau waktu dari sistem, Visual Basic menyediakan fungsi – fungsi Now(), Date(), dan Time(). Lihat table dibawah ini.

Selain fungsi-fungsi diatas terdapat sebuah fungsi yaitu format() yang berkaitan dengan fungsi-fungsi Tanggal dan waktu.

Fungsi ini mengembalikan nilai variant atau string sesuai dengan format yang ditentukan.

Baca Selengkapnya

Tugas Ke-5 Merancang Aplikasi Menu dan Toolbar di Visul Basic 2010

Rasanya sudah cukup lama gak posting, nah kali ini saya akan mencoba berbagi pengetahuan lewat postingan ini. Pada kesempatan ini  saya akan menjelaskan tentang merancang Menu Dan Toolbar yang ada pada Visual Basic 2010. Oke lah biar mempersingkat langsung saja masuk ke materi, berikut ini adalah tampilan awalnya :

Untuk membuat desain seperti diatas kita memerlukan berbagai komponen-komponen yang digunakan seperti Panel, TabControl, ToolStrip dan StatusStrip. Sehingga akan menghasilkan tampilan-tampilan seprti berikut :

Tampilan Menu Latihan 

 Tampilan Menu Tugas

Tampilan Menu Posisi

  

Tampilan Menu Keluar

Tampilan Tab Menu

Nah bisa kita lihat pada Gambar 001 ada garis pemisah antara kolom yang bagian atas dan bawah. Untuk menyatukanya bisa dengan cara merubah pengaturannya, langkah pertama klik panelnya trus masuk ke Propertiesnya kemudian cari Dock lalu ubah None menjadi Top. Biar lebih jelanya lihat pada Gambar 002 dibawah :

Gambar 001

Gambar 002

 

Setelah itu maka akan menampilkan seperti berikut :

Dan setelah selesai maka saya lanjutkan saja pada menu-menu yang ada :

• Menu Latihan

Pada menu latihan tersebut kita bisa menampilkanya dengan berbagai cara dan langkah yaitu bisa dengan cara mengeklik icon yang ada di menu latihan dan bisa juga dengan cara meng klik Ctrl+1 untuk menampilkan Latihan 1 dan juga cara yang hampir sama (Ctrl+ . . .) untuk menampilkan Latihan-latihan lainya.

• Menu Tugas

Caranya masih sama dengan menu latihan yaitu bisa dengan cara mengeklik icon yang ada di menu tugas dan bisa juga dengan cara meng klik Alt+1 untuk menampilkan Tugas 1 dan juga cara yang sama (Alt+ . . .) untuk menampilkan Tugas-tugas lainya.

• Menu Posisi

Begitu juga dengan menu posisi sama dengan menu-menu sebelumnya bisa dengan cara mengeklik icon yang ada di menu posisi dan bisa juga dengan cara meng klik Ctrl+H untuk menampilkan Horizontal, Ctri+V untuk Vertical dan Ctrl+C untuk Cascade.

• Menu Keluar

Caranya mengeklik icon yang ada di menu keluar dan bisa juga dengan cara meng klik Alt+F4 untuk keluar secara langsung.

Dan selantutnya ketika kita mengklik menu / icon latihan ataupun tugas yang ada pada program maka akan menampilkannya pada form aplikasi tersebut dengan tampilanya yang berantakan dan tidak rapih. Untuk merapihkanya kita bisa lakukan dengan cara mengeklik menu/icon berikut :

• Horizontal

 Berikut adalah koding programnya : 
                Me.LayoutMdi(MdiLayout.TileHorizontal)

• Vertical

 Berikut adalah koding programnya : 
               Me.LayoutMdi(MdiLayout.TileVertical)

• Cascade

 Berikut adalah koding programnya : 
               Me.LayoutMdi(MdiLayout.Cascade)

•  Keluar

Berikut adalah koding programnya :

Private Sub TabKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabKeluar.Click
  If MsgBox("Anda yakin akan mengakhirinya??", vbYesNo + vbQuestion + vbDefaultButton2, "keluar") = vbYes Then
         Me.Close()
        End If
 End Sub

Berikut adalah semua koding programnya :

Public Class TugasSetelahUTS

Private Sub MenuLatihan1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuLatihan1.Click
        Doc1.MdiParent = Me
        Doc1.Show()
    End Sub

Private Sub MenuLatihan2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuLatihan2.Click
        Doc2.MdiParent = Me
        Doc2.Show()
    End Sub

Private Sub MenuLatihan3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuLatihan3.Click
        Doc3.MdiParent = Me
        Doc3.Show()
    End Sub

Private Sub MenuLatihan4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuLatihan4.Click
        Doc4.MdiParent = Me
        Doc4.Show()
    End Sub

 

Private Sub MenuTugas1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuTugas1.Click
        Doc1.MdiParent = Me
        Doc1.Show()
    End Sub

Private Sub MenuTugas2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuTugas2.Click
        Doc2.MdiParent = Me
        Doc2.Show()
    End Sub

Private Sub MenuTugas3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuTugas3.Click
        Doc3.MdiParent = Me
        Doc3.Show()
    End Sub

Private Sub MenuTugas4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuTugas4.Click
        Doc4.MdiParent = Me
        Doc4.Show()
    End Sub

 

Private Sub Horizontal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Horizontal.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

Private Sub Vertical_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Vertical.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

Private Sub Cascade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cascade.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
 

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        If MsgBox("Anda yakin akan mengakhirinya??", vbYesNo + vbQuestion + vbDefaultButton2, "keluar") = vbYes Then
            Me.Close()
        End If
    End Sub

 

Private Sub Latihan1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1.Click
        Doc1.MdiParent = Me
        Doc1.Show()
    End Sub

Private Sub Latihan2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan2.Click
        Doc2.MdiParent = Me
        Doc2.Show()
    End Sub

Private Sub Latihan3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan3.Click
        Doc3.MdiParent = Me
        Doc3.Show()
    End Sub

Private Sub Latihan4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan4.Click
        Doc4.MdiParent = Me
        Doc4.Show()
    End Sub
 

Private Sub Tugas1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas1.Click
        Doc1.MdiParent = Me
        Doc1.Show()
    End Sub

Private Sub Tugas2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas2.Click
        Doc2.MdiParent = Me
        Doc2.Show()
    End Sub

Private Sub Tugas3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas3.Click
        Doc3.MdiParent = Me
        Doc3.Show()
    End Sub

Private Sub Tugas4_Click(ByVal
        Doc4.MdiParent = Me
        Doc4.Show()
    End Sub

 

Private Sub TabHorizontal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabHorizontal.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

Private Sub TabVertical_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabVertical.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub
 

Private Sub TabCascade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabCascade.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
 

Private Sub TabKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabKeluar.Click
        If MsgBox("Anda yakin akan mengakhirinya??", vbYesNo + vbQuestion + vbDefaultButton2, "keluar") = vbYes Then
            Me.Close()
        End If
    End Sub

 

Private Sub IconHorizontal_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IconHorizontal.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

Private Sub IconVertical_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IconVertical.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

Private Sub IconCascade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IconCascade.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
End Class

Baca Selengkapnya