Tugas : Membuat Database Mahasiswa dengan VB.NET

pada postingan kali ini saya akan membahas tentang pembuatan database dengan menggunakan aplikasi VISUAL STUDIO 2012, namun sebelum itu saya menggunakan SQL 2005 untuk membuat databasenya dahulu.

berikut beberapa langkah untuk bisa membuat aplikasi mahasiswa ini :

Pembuatan Database

untuk membuat database ini saya menggunaka aplikasi  SQL SERVER 2005, berikut langkah langkah pembuatan databsenya.


Pertama tama buka aplikasi SQL Server managemen studio , pastikan sudah bisa connecting ,setelah itu pilihdatabase , kemudian klik kanan pilih  "New Database" , lalu akan muncul menu seperti  gambar di bawah ini

 

jangan lupa isikan nama database, setelah itu tekan OK

Selanjutnya kita akan membuat tabel di dalam database yang tadi telah kita buat, lihat gambar di bawah ini

 Pada menu sebelah kiri , klik tanda + pada databse, lalu klik lagi pada database yang telah kita buat tadi, disini saya menggunakan nama dbmahasiswa,lalu klik tanda + lagi dan cari folder table dan klik kanan pilih "New Table" buat tabel seperti gambar di bawah ini

 stelah selesai, simpan dan buka tabel yang sudah kita buat, pada folder tabel >> "nama tabel" klik kanan open tabel, isikan data base seperti format di bawah ini

jika telah selesai meng inputkan data, simpan tabel.

Mengoneksikan database ke visual studio


berikut adalah tampilan utama apliaksi yang saya buat, sebenarnya untuk tampilan sesuai selera saja :v , terlebih dahulu koneksikan database yang sudah anda buka dengan cara berikut.

pilih menu "DATA" lalu pilih Add New Data Source, steleh itu akan muncul menu pop up, pilih " Data Base" tekan next pilih dataset tekan next add conection, lalu muncul tampilan seperti di bawah ini

pastikan pengisian poin-poin seperti gambar di atas bisa terisi dengan benar, 1 karena kita menggunakan lokal database, jadi cukup menggunakan "titik", 2 sesuaikan dengan login awal pada sat membuka sql server managemen, 3 pilih nama database yang tadi kita buat pada sql server, lalu tekan ok dan next

langkah terakhir centang table dan finish

Perancanngan interface aplikasi

pertama kita buka data source dimana pada menu ini terdapat tabel tabel yang telah kita buat di SQL server tadi, perhatikan gambar di bawah ini


tentukan dulu data yang akan kita masukan, sebagai contoh nama = texbox. dan tentukan juga yang lainya .
setelah selesai drag satu persatu, seperti gambar di bawah ini

setelah selesai, memasukan semua, jika di run akan tampil seperti gambar di bawah ini

disini saya memfokuskan pada penerapan database pada aplikasi VB, jika anda mengalami masalah pada penempatan tombol, silakan kesini aja " tuing"

Berikut listing program yang saya gunakan

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 'DbmahasiswaDataSet2.tblmahasiswa' table. You can move, or remove it, as needed.
        Me.TblmahasiswaTableAdapter.Fill(Me.DbmahasiswaDataSet2.tblmahasiswa)
        'TODO: This line of code loads data into the 'DbmahasiswaDataSet11.tbmahasiswa' table. You can move, or remove it, as needed.
        Me.TbmahasiswaTableAdapter2.Fill(Me.DbmahasiswaDataSet11.tbmahasiswa)
        '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 Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If (TbmahasiswaBindingSource.Find("nama", tx1.Text)) > -1 Then
            MsgBox("Data tersedia ")
        Else
            MsgBox("Data tidak tersedia")
        End If
    End Sub


    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Me.TbmahasiswaBindingSource.Filter = "nama='" & tx1.Text & " '"
    End Sub


    Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DbmahasiswaDataSet1.tbmahasiswa' table. You can move, or remove it, as needed.
        Me.TbmahasiswaTableAdapter1.Fill(Me.DbmahasiswaDataSet1.tbmahasiswa)

    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttmbh.Click
        Me.TbmahasiswaBindingSource.AddNew()
    End Sub

    Private Sub btfp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btfp.Click
        Me.TbmahasiswaBindingSource.MoveFirst()
    End Sub

    Private Sub btpre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btpre.Click
        Me.TbmahasiswaBindingSource.MovePrevious()
    End Sub

    Private Sub btnex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnex.Click
        If Me.TbmahasiswaBindingSource.Current > Me.TbmahasiswaBindingSource.Count Then
            Me.TbmahasiswaBindingSource.MoveNext()
        End If
    End Sub

    Private Sub btlp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btlp.Click
        Me.TbmahasiswaBindingSource.MoveLast()

    End Sub

    Private Sub bthap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bthap.Click
        Me.TbmahasiswaBindingSource.RemoveCurrent()
    End Sub

    Private Sub btsim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsim.Click
        Me.Validate()
        Me.TbmahasiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmahasiswaDataSet)
    End Sub

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

    Private Sub btcar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btcar.Click
        If (TbmahasiswaBindingSource.Find("nama", TextBox1.Text)) > -1 Then
            MsgBox("Data tersedia ")
        Else
            MsgBox("Data tidak tersedia")
        End If
    End Sub

    Private Sub btsar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsar.Click
        Me.TbmahasiswaBindingSource.Filter = "nama='" & TextBox1.Text & " '"
    End Sub
End Class

Sekian posting dari saya, semoga bisa bermanfaat bagi kita semua.......

continue reading

TUGAS : RETURN VALUE, OVERLOADING dan FUNGSI BAWAAN VISUAL BASIC

Return Value

Now Loading.................................


Overloading Function

Overloading function yang merupakan fungsi pada program VB yang memiliki perintah yang berbeda tetapi memiliki nama yang sama, seperti program di bawah ini

Program ini memiliki  2 Fuction hitung ,tapi hanya salah satu perintah yang akan di jalankan,tergantung dari tombol perintah.

Beberapa Function Bawaan Visual Basic

MsgBox() Function
Untuk menampilkan suatu pesan baik itu dengan cara mengklik suatu tombol atau suatu perintah dari suatu ekspresi.

Public Function MsgBox( _
   ByVal Prompt As Object, _
   Optional ByVal Buttons As MsgBoxStyle = MsgBoxStyle.OKOnly, _
   Optional ByVal Title As Object = Nothing _
) As MsgBoxResult

 InputBox() Function
Untuk menampilkan pesan dimana user bisa memasukkan suatu teks atau nilai kedalam form.

InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])

 
Mid Function
Mid () di Visual Basic.net adalah fungsi string yang digunakan untuk mengekstrak salinan karakter atau set karakter dari string.

   Function Mid( ByVal Str As String, ByVal Start As Integer, 
             Optional ByVal Length As Integer) As String

continue reading

TUGAS KE 4 : BELAJAR MEMBUAT MENU

Puji syukur saya panjatkan kepada ALLOH SWT yang telah memberikan kesempatan kepada saya untuk kembali meng update blog ini :v

pada posting kali ini saya akan memaparkan beberapa cara membuat menu pada program MICROSOFT VISUAL STUDIO 2010.Apliaksi yang nantinya kita akan buat seperti yang kita liat di bawah ini

Pada gambar di atas terdapat 3 menu, Context,toolstrip, dan tab control yang letaknya berbeda dan memiliki fungsi tertentu,berikut beberapa cara dalam membuat menu dalam aplikasi VB.NET

1. Membuat Menu Context Strip

Gambar di atas terdapat menu FILE yang berisi Data baru,Laporan Baru, Tugas Baru dan Keluar, gunakan menu CONTEXTMENUSTRIP pada toolbox seperti gambar di samping

2 .Membuat Menu Library 

Selanjutnya kita akan membuat menu Library dengan menggunakan TAB CONTROL, tab control ini merupakan  menu yang memiliki beberapa tab yang berisi tool sesuai kategori, pada aplikasi ini terdapat dua kategori yaitu Menu dan tampilan, Menu berisi beberapa menu yaitu data,laporan,tugas semua yang memiliki fungsi memanggil form lain

Dan pada menu TAMPILAN terdapat beberapa menu yaitu Vertikal, Horizontal, Casecade yang memiliki untuk  menata form yang terbuka

Untuk membuat menu seperti diatas, kita gunakan TOOL TABCONTROL pada toolbox di sebelah kiri

3.Membuat menu Tool Strip

membuat menu toolstrip pada menggunakan pada Toolbox sebelah kiri,dan hasilnya seperti gambar di bawah ini

pada aplikasi ini juga bisa membuat Shortcut key menelalu propertis pada menu yang akan di sisipi shortcut,perhatikan gambar berikut

 

 

BERIKUT CODING YANG DIGUNAKAN UNTUK MEMBUAT APLIKASI INI

 Public Class Form1
    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

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

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

    Private Sub TugasBaruToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TugasBaruToolStripMenuItem1.Click
        Form4.MdiParent = Me
        Form4.Show()
    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 HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub CasecadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CasecadeToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Form4.Show()
    End Sub

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

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

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

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

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

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form3.MdiParent = Me
        Form3.Show()
        Form2.MdiParent = Me
        Form2.Show()
        Form4.MdiParent = Me
        Form4.Show()
    End Sub

    Private Sub HelpToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripButton.Click
        MsgBox("jika anda mengalami kendala dalam menjalankan aplikasi ini,silahkan anda hubungi pembuat atau dosen yang bersangkutan ^_^.....")
    End Sub
End Class

TERIMAKASIH.....SEMOGA BERMANFAAT

continue reading