Membuat Aplikasi Database Dengan VB 2008

Assalamualaikumm...

disini saya akan membahas tentang aplikasi database denga VB 2008.         

Untuk memanage sebuah organisasi pasti dibutuhkan database agar dapat mengatur data-data yang ada. Dengan menggunakan Visual Basic dengan mudah kita dapat membuat form dengan mudah dan menyimpannya sebagai database. Berikut adalah langkah-langkahnya:
1. Buatlah sebuah project baru kemudian klik kanan pada project dan pilih add >> new item

2.  Kemudian akan muncul jendela seperti dibawah ini, pilih service-based database. Namun dapat juga menggunakan local database untuk membuat database lokal pada pc Anda. dengan langkah-langkah yang sama dengan langkah pada service-based database.

 

3. Tuliskan namenya kemudian pilih Add >> tuliskan namanya>> Finish.

 

 

4. Maka akan muncul tab database explorer seperti gambar berikut:

 

 

5. Untuk membuat sebuah table baru klik kanan folder table >> add new table

 

6. Maka akan muncul tab dbo.table1:... isi nama kolom, tipe data, dan check pada allow null jika pada kolom tersebut diizinkan kosong. setelah selesai klik kanan pada tab >> save table isi nama tablenya.

 

7.Untuk mengeset id sebagai primary key , klik kanan pada id >> primary key

8. Untuk memasukkan table pada form aplikasi klik tab data source>>configure data set with wizard seperti gambar berikut

 

9. checklist apa saja yang mau dimasukkan pada form, misal table. Maka pada tab data source muncul tabel yang telah kita check tadi, klik pada table pilih details untuk memunculkan database pada form dengan format textboxt seperti gambar dibawah ini. Kemudian drag table coba ke form1

10. Buat form baru misal form2, kemudian klik table yang ada pada data source tadi kemudian yang tadinya dibikin detail diganti menjadi datagridview untuk menampilkan data yang sudah diinput dalam bentuk table. Drag table coba masukan pada form 2

 

 

11.Kembali ke form1 dan tambahkan button untuk menghubungkan antara form1 dan form2. Klik ganda pada button dan masukkan sorce code berikut:

        Form2.Show()
        Me.Visible = False // untuk mengvisible kan form1 jadi ketika masuk ke form 2 form 1 tidak terlihat

12.Karena menggunakan fungsi visible maka effectnya program tidak dapat berhenti ketika form2 sudah ditutup, maka menggunakan langkah tambahan. Klik pada form 1 kemudian klik event (tanda petir) pada properties pilih form closed >> klik ganda >> masukkan source berikut:

      System.Windows.Forms.Application.Exit()

 

13. Lakukan langkah 12 pada form2

 

14. Kemudian run dan lihat gambar dibawah ini

15. klik icon + / add new untuk mengisi data baru

15. klik button view untuk masuk ke form 2

 

 

16. Selesai.

Selamat mencoba...

Contoh Program Penggajian Pegawai Visual Basic.net 2008

Assalamualaikum...

Langsung  Saja Ya Sob  

1. Disainlah Lembar Kerja / Form Anda Seperti Gambar Dibawah :

Gambar Di Atas Terdiri Dari Label,Textbox,Combobox Dan Button

                             

         2.     Keterangan

·         Name Pada Textbox,ComboBox  Di Kotak Properties Diganti Berdasarkan Label

Contoh :

Label	Name
NIk	Nik
Nama	Nama
Bagian	Bagian
Jabatan	Jabatan

·         Teks pada button  menjadi :

Hapus dan Proses

     Baiklah ..Setelah Selesai Kita Mengubah Name Pada Textbox,Combobox Dan Teks Pada Button , selanjutnya kita akan membuat printahnya atau pun codingnya

Okee :

          3.  Klik Double Bebas Pada Form Dan Isi Kan Printah Dibawah Ini :

Public Class Form1

  

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        nik.Items.Add("PM010")

        nik.Items.Add("PS111")

        nik.Items.Add("KU101")

        nik.Items.Add("GD100")

        nik.Items.Add("PM0011")

        jabatan.Items.Add("KEPALA DIVISI")

        jabatan.Items.Add("STAFF")

        jabatan.Items.Add("WAKIL KEPALA")

        status.Items.Add("Menikah")

        status.Items.Add("Tidak Menikah")

        jumlah_anak.Items.Add("0")

        jumlah_anak.Items.Add("1")

        jumlah_anak.Items.Add("2")

    End Sub

     4.  Klik Double Pada Combobox Nik Dan Isikan Printah Ini :

     Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        Select Case nik.Text

            Case "PM010"

                nama.Text = "Awal"

            Case "PS111"

                nama.Text = "Satria"

            Case "KU101"

                nama.Text = "Ria Hartati"

            Case "GD100"

                nama.Text = "fitri ariska"

            Case Else

                nama.Text = "Selamat Bangun"

        End Select

        Dim j As String

        j = Microsoft.VisualBasic.Left(nik.Text, 2)

        If j = "PM" Then

            bagian.Text = "Pemasaran"

        ElseIf j = "PS" Then

            bagian.Text = "Personalia"

        ElseIf j = "KU" Then

            bagian.Text = "Keuangan"

        ElseIf j = "GD" Then

            bagian.Text = "Gudang"

        End If

    End Sub

  5.Klik Double Pada ComboBox Jabatan Dan Isikan Printah Ini :

  Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        Select Case jabatan.Text

            Case "KEPALA DIVISI"

                gaji.Text = "5000000"

            Case "STAFF"

                gaji.Text = "2000000"

            Case Else

                gaji.Text = "3500000"

        End Select

        pajak.Text = gaji.Text * 0.1

    End Sub

   6. Klik double pada combobox status dan isikan printah ini:

Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        Select Case status.Text

            Case "Menikah"

                tunjangan_keluarga.Text = gaji.Text * 0.15

            Case "Tidak Menikah"

                jumlah_anak.Text = ""

                tunjangan_keluarga.Text = 0

        End Select

    End Sub

     7.   Klik Double Pada Combobox Jumlah Anak :

           Namun.. Sebelumnya Saya Disini Menggunakan Keypress / Dengan Menekan Tombol Enter Untuk Mendapatkan Tunjangan Anak Dan Total Gaji…

Okeyy J

Setelah Di Ubah Di Kotak “Selectedchanged” Menjadi “Keypress”

Isikan printah ini : 

  Private Sub jumlah_anak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah_anak.KeyPress

        If e.KeyChar = Chr(13) Then

            Select Case jumlah_anak.Text

                Case "0"

                    tunjangan_anak.Text = 0

                Case "1"

                    tunjangan_anak.Text = gaji.Text * 0.05

                Case "2"

                    tunjangan_anak.Text = gaji.Text * 0.1

                Case Else

                    tunjangan_anak.Text = gaji.Text * 0.5

            End Select

        End If

 total.Text = (gaji.Text) + Val(tunjangan_anak.Text) + Val(tunjangan_keluarga.Text) - pajak.Text

        total.Enabled = False

    End Sub

      8.  Kemudian Klik Doble Pada Button Hapus Dan Isikan Printah :

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

        nama.Text = ""

        nik.Text = ""

        bagian.Text = ""

        jabatan.Text = ""

        tunjangan_anak.Text = ""

        tunjangan_keluarga.Text = ""

        pajak.Text = ""

        status.Text = ""

        gaji.Text = ""

        total.Text = ""

        jumlah_anak.Text = ""

    End Sub

9   9.  Kemudian Klik Doble Pada Button keluar Dan Isikan Printah :

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

        Dim tanya As String

        tanya = MsgBox("Apakah Anda ingin Keluar?", MsgBoxStyle.YesNo)

        If tanya = vbCancel Then

            Me.Close()

        ElseIf tanya = vbNo Then

            Me.Focus()

        ElseIf tanya = vbYes Then

            Me.Close()

        End If

    End Sub

End Class

Hasilnya :

mesran.blogspot.com 

.:: Selamat Mencoba ::.

Dan

Semoga Bermamfaat

Membuat program sederhana menggunakan VB 2008

Assalamualaikum....

Bagi anda yang sudah expert di dunia pemrograman, pasti sudah sangat mengenal Visual Basic 2008, pemrograman berbasis object ini, adalah salah satu bahasa pemrograman yang paling diminati oleh programmer expert, atau programmer newbie seperti saya. Visual Basic adalah bahasa pemrograman keluaran Microsoft Corp , relative mudah dipelajari untuk mereka yang baru mengenal bahasa pemrograman .

Kali ini saya akan berbagi ilmu mengenai VB 2008, yaitu bagaiman membuat program perhitungan biaya hotel J

1.       Yang pertama kali anda lakukan adalah klik shortcut VB 2008.

2.       Lalu setelah muncul, program VB 2008, pilih “New Project”

3.        

Pilih windows forms application, dan klik OK

4.       Anda akan dibawa menuju form, dimana anda bisa mendesain user interface dari program anda

Atur desain form anda sesuai dengan gambar diatas, disini saya menggunakan

·         2 buah groupbox

·         6 buah label

·         5 buah textbox

·         2 buah button

·         Dan 1 buah timer

6.       Lalu rubah properties dari object diatas,

·         groupbox1; text = Hotel ,

·         groupbox2; text = Command,

·         label1; text = Lama Menginap

·         label2; text =  Harga Sewa Perhari

·         label3; text = Biaya Sewa Kamar

·         label4; text = Jumlah Bayar

·         label5; text = kembali

·         label6; name = lblCreated, text = Created By : (isi terserah anda) , Font : Monotype Corsiva, 16pt, style=Italic

·         textbox1 ; name = txtLama

·         textbox2; name = txtHarga

·         textbox3; name = txtBiaya

·         textbox4; name = txtBayar

·         textbox5; name = txtKembali

·         button1; text = New, name = btnNew

·         button2; text = Close, name = btnClose

7.       Tampilan dari form tadi akan berubah menjadi seperti gambar dibawah ini

                

8.       Klik pada form, dan ketikkan koding berikut

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'HotelDataSet.Hotel' table. You can move, or remove it, as needed.

        Me.HotelTableAdapter.Fill(Me.HotelDataSet.Hotel)

        Me.Text = "Menghitung Biaya Sewa Kamar Sebuah Hotel"

        Me.StartPosition = FormStartPosition.CenterScreen

        Me.txtBiaya.Enabled = False

        Me.txtKembali.Enabled = False

    End Sub

9.       Lalu, klik pada txtHarga, dan ketikkan koding berikut

Private Sub Harga_sewa_perhariTextBox_TextChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles txtHarga.TextChanged

        Dim lama, harga, biaya, bayar, kembali As New Long

        lama = Val(Me.txtLama.Text)

        harga = Val(Me.txtHarga.Text)

        biaya = Val(Me.txtBiaya.Text)

        bayar = Val(Me.txtBayar.Text)

        kembali = Val(Me.txtKembali.Text)

        biaya = lama * harga

        kembali = bayar - biaya

        Me.txtBiaya.Text = Format(biaya, "RP###,###")

        Me.txtKembali.Text = Format(kembali, "RP###,###")

    End Sub

10.   Setelah itu klik dua kali pada txtBayar, dan masukkan koding berikut

               Private Sub txtBayar_TextChanged(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles txtBayar.TextChanged

        Dim lama, harga, biaya, bayar, kembali As New Long

        lama = Val(Me.txtLama.Text)

        harga = Val(Me.txtHarga.Text)

        biaya = Val(Me.txtBiaya.Text)

        bayar = Val(Me.txtBayar.Text)

        kembali = Val(Me.txtKembali.Text)

        biaya = lama * harga

        kembali = bayar - biaya

        Me.txtBiaya.Text = Format(biaya, "RP###,###")

        Me.txtKembali.Text = Format(kembali, "RP###,###")

    End Sub

11.   Lalu, pada btnNew masukkan koding berikut

Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnNew.Click

Dim answer = MsgBox("Apakah anda ingin memasukkan input baru, dan menghapus data yang baru di input ?", vbExclamation + vbYesNo)

        If answer = vbYes Then

        Me.txtBayar.Clear()

        Me.txtBiaya.Clear()

        Me.txtHarga.Clear()

        Me.txtKembali.Clear()

        Me.txtLama.Clear()

End if

    End Sub

End Class

12.   Pada btnClose masukkan koding berikut

Dim answer = MsgBox("Apakah anda ingin keluar ?", vbExclamation + vbYesNo)

        If answer = vbYes Then

            End

        End If

13.   Dan terakhir pada timer1, masukkan koding berikut

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Timer1.Tick

        If Me.lblCreated.Visible = True Then

            Me.lblCreated.Visible = False

        Else

            Me.lblCreated.Visible = True

        End If

    End Sub

Save dan, coba anda run. Selamat anda sudah berhasil membuat program penghitungan biaya sewa kamar !!! :D