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

Kali ini saya akan membahas tentang aplikasi penggabungan antara Visual Basic 2010 dan database SQL Server 2005. Walaupun terlambat, karena saya harus menginstal ulang windows terlebih dahulu sebelum saya menginstal SQL Server 2005.

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. 

 

Kemudian klik save all dan jangan lupa berikan nama jika sudah lalu klik OK.

Kemudian klik kanan pada table yang anda buat kemudian klik open table dan isikan kolom pada table tersebut, bila semuanya sudah terisi klik save all.

2. Membuat form pada Visual Basic 2010. 

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

3. Menggabungkan 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 Next pilih New Connection

Pilih Microsoft SQL Server, lalu Continue.

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.  

 

 

 

Drag atau tarik tabel (database mahasiswa) ke from, ganti jurusan dengan combobox

Kemudian buat label, textbox, combobox (Masukan TI dan SI yaitu klik kanan edit text dst), button awal, akhir, sebelum, selanjutnya, tambah, hapus, simpan ,cari, filter, dan terakhir keluar.

Koding Programnya :

 1. Button Awal :

Private Sub Btawal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btawal.Click
        DbmahasiswaBindingSource.MoveFirst()
    End Sub

Printscrennya: 

 

2. Button Akhir : 

Private Sub Btakhir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btakhir.Click
        DbmahasiswaBindingSource.MoveLast()
    End Sub

Printscrennya: 

 

3. Button Sebelumnya :

 Private Sub Btsebelum_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsebelum.Click
        DbmahasiswaBindingSource.MovePrevious()
    End Sub

 Printscrennya: 

4. Button Selanjutnya:

 Private Sub Btselanjutnya_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btselanjutnya.Click
        DbmahasiswaBindingSource.MoveNext()
    End Sub

Printscrennya : 

5. Button Tambah :

Private Sub Bttambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttambah.Click
        DbmahasiswaBindingSource.AddNew()
    End Sub

Printscrennya :

6. Button Hapus

Private Sub Bthapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bthapus.Click
        DbmahasiswaBindingSource.RemoveCurrent()
    End Sub

Printscrennya : 

7. Button Simpan

Private Sub Btsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsimpan.Click
        Me.Validate()
        Me.DbmahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
    End Sub

Printscrennya :

8. Button Cari

Private Sub Btcari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btcari.Click
        If (DbmahasiswaBindingSource.Find("Nama", TextBox4.Text)) > -1 Then
            MsgBox("Data yang anda cari berhasil ditemukan")
        Else
            MsgBox("Data yang anda cari tidak berhasil ditemukan")
        End If

    End Sub

Printscrennya :

9. Button Keluar

Private Sub Btkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btkeluar.Click
        Me.Close()
    End Sub
End Class

BACA SELANJUTNYA >>>>

Gadget Lebih Awet

Ada banyak faktor yang menyebabkan barang - barang elektronik menjadi cepat rusak. Simak tips dan trik berikut ini agar barang elektronik anda awet dan tahan lama.

1. Beli Elektronik dengan merek dan kualitas yang telah teruji

2. Simpan barang - barang elektronik tersebut di ruangan terbuka yang mempunyai aliran udara yang baik agar pada saat dipakai barang - barang tersebut tidak cepat panas.
3. Segera matikan barang elektronik anda saat cuaca tidak bagus (banyak petir)
4. Jika rusak karena usia, segera bawa ke toko atau dealer tempat membeli barang tersebut.

Demikian yang dapat saya sampaikan, semoga dapat membantu. Terima Kasih

BACA SELANJUTNYA >>>>

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

Return Value Function

Tampilan awal : 

Tampilan saat di tekan Button 1:

 

Koding programnya:

Public Class Form1 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, 7, 8)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)
    End Sub
End Class

 Penjelasan :

 Private Function fstat(ByVal ParamArray args() As Object) As Single()
        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
        Return hasil
    End Function

Jika i=0 maka hasil 1 = args jumlah index nya demikian juga hasil2

jika hasil1 kurang dari args(i) maka hasil1 sama dengan hasil args(i) nya, demikian juga hasil2 lebih besar dari args (i) maka hasil2 sama dengan args (i) dan terus mengulang sampai jumlah index 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim statistik As Single() = fstat(1, 7, 8)
        TextBox1.Text = statistik(0)
        TextBox2.Text = statistik(1)
        TextBox3.Text = statistik(2)
    End Sub
End Class

Sebuah proses pemanggilan fungsi pada Button1 pada saat di-klik, pada textbox1 untuk menampilkan jumlah keseluruhan dari array yang telah di pesan, pada textbox2 untuk menampilkan nilai atau angka terbesar dari array tersebut, pada textbox3 ubtuk menampilkan nilai atau angka terkecil dari array tersebut.

 

OVERLOADING FUNCTION 

Tampilan awal:

Tampilan saat di tekan Button 1:

Koding Programnya:

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

Penejelasan :

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

 Proses ini bertugas untuk menjumlahkan bil1 dengan bil2. 

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

        hitung = bil1 + bil2 + bil3
    End Function

Dan proses ini berfungsi untuk menjumlahkan bil1, bil2, dan bil3.

 

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

Proses di atas pemanggilan fungsi pada Button1 ketika di klik. Jadi pada saat Button1 kita klik, maka pada textbox1 akan menampilkan 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.

 

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

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 

Sebagai contoh misalkan sebuah data yang merupakan hasil bagi (1 / 7) .

c) Fungsi-fungsi matematika   

 2.Fungsi-fungsi String
Selain fungsi-fungsi numerik, Visual Basic juga mempunyai sejumlah fungsi-fungsi String diantaranya seperti berikut 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)

 contoh : 

3.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 tabel di bawah :

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 SELANJUTNYA >>>>

Tugas ke 5 Membuat Aplikasi Menu dan Tollbar di Visul Basic 2010

Senang sekali saya dapat membuat posting baru dengan adanya tugas dari Pak Nandang. Kali ini saya akan membahas tentang cara membuat aplikasi menu dan toolbar di visual basic 2010. Tidak usah panjang lebar, berikut adalah tampilan utama :

Untuk menghasilkan program seperti di atas kita memerlukan berbagai komponen seperti MenuStrip, ContextMenuStrip, Groupbox . Kemudian akan menghasilkan yang seperti ini :

 

Berikut Penjelasannya :

Untuk membuat Menu kita gunakan MenuStrip yang ada pada Toolbax kemudian isikan satu-satu sperti Latihan, Tugas, Posisi dan Keluar. Untuk lebih jelas liat gambar di bawah 

Di dalam menu kita dapat menampilkannya dengan dua cara yaitu dengan mengklik atau bisa juga dengan cara mengklik Ctrl + 1 untuk menampilkan Latihan 1, cara ini juga dapat digunakan untuk menu yang lainnya dengan cara (Ctrl + . . . ). Dan untuk mengisikan perintah tersebut kita harus mencarinya di properties kemudian cari yang ShortcutKeys isikan pada modifiers, centak pada Ctrs kemudian key kita pilih angka 1. Agar lebig jelasnya saya tampilkan gambarnya :

 

Dan pada saat Latihan 1 di tekan akan menghasilkan seperti berikut :

 

Supaya form tersusun rapi kita gunakan menu Posisi, di dalam menu posisi terdapat pilihan Cascade, Vertikal, dan Horizontal . Jika di pilih akan menghasilkan seperti berikut :

Posisi Cascade 

 

Posisi Vertikal 

Posisi Horizontal

Kemudian untuk menu Tugas hampir sama seperti menu Latihan bedanya hanya tidak bisa menampilkan form secara bersamaan karena berbeda koding. Berikut printscrennya :

Berikut adalah semua koding programnya :

Public Class Form1

    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub Latihan1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1ToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

    Private Sub Latihan2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan2ToolStripMenuItem.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

    Private Sub Latihan3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan3ToolStripMenuItem.Click
        Form4.MdiParent = Me
        Form4.Show()
    End Sub

    Private Sub Latihan4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan4ToolStripMenuItem.Click
        Form5.MdiParent = Me
        Form5.Show()
    End Sub

    Private Sub Tugas11ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas11ToolStripMenuItem.Click
        Form2.ShowDialog()
    End Sub

    Private Sub Tugas12ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas12ToolStripMenuItem.Click
        Form3.Show()
    End Sub

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

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

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

End Class

BACA SELANJUTNYA >>>>