JAWABAN QUIS NO. 2

Listing Program
Public Class Form1
Sub BuatTabel()
ListView1.Columns.Add("Npm", 100, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 180, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True

End Sub
Sub IsiTabel()
Dim Lst As New ListViewItem
Lst.Text = Npm.Text
Lst.SubItems.Add(Nama.Text)
ListView1.Items.Add(Lst)

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

Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
IsiTabel()
Npm.Text = ""
Nama.Text = ""

End Sub

Private Sub hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapussemua.Click
ListView1.Items.Clear()
End Sub

Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
End Class



Hasil Program

LINK SOAL QUIS

JAWABAN QUIS NO.3

LISTING PROGRAM LOGIN
Public Class Form1

Private Sub Masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Masuk.Click
If Nama.Text = "MUHAMMAD SUHAR" And Password.Text = "naruto" Then
formmenu.Show()
Me.Hide()
Else
MsgBox("Maaf! Password salah!")
Nama.Text = ""
Password.Text = ""
End If
End Sub

Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
End
End Sub

Private Sub Password_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Password.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
Masuk_Click(sender, e)
End If
End Sub
End Class



HASIL PROGRAM 

LISTING PROGRAM FORMMENU
Public Class formmenu

Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
penggajian.show()
End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
End Class


HASIL PROGRAM

LISTING PROGRAM PENGGAJIAN KARYAWAN
Public Class penggajian
    Sub addno()
        Dim i As Integer
        For i = 0 To 9
            No.Items.Add(i)
        Next i
    End Sub
    Sub clearisian()
        No.Text = ""
        Kode.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        Tistri.Text = ""
        Janak.Text = ""
        Tanak.Text = ""
        Jam.Text = ""
        Lembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
        No.Focus()
    End Sub
    Sub buattabel()
        Lv.Columns.Add("No", 30, HorizontalAlignment.Center)
        Lv.Columns.Add("Kode Pegawai", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Nama Pegawai", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("Jabatan", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Gaji", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Status", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Tunj Istri", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Tunj Anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jam", 50, HorizontalAlignment.Left)
        Lv.Columns.Add("Lembur", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Total Gaji", 80, HorizontalAlignment.Left)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim Lst As New ListViewItem
        Lst.Text = No.Text
        Lst.SubItems.Add(Kode.Text)
        Lst.SubItems.Add(Nama.Text)
        Lst.SubItems.Add(Jabatan.Text)
        Lst.SubItems.Add(Gaji.Text)
        Lst.SubItems.Add(Status.Text)
        Lst.SubItems.Add(Tistri.Text)
        Lst.SubItems.Add(Janak.Text)
        Lst.SubItems.Add(Tanak.Text)
        Lst.SubItems.Add(Jam.Text)
        Lst.SubItems.Add(Lembur.Text)
        Lst.SubItems.Add(Pajak.Text)
        Lst.SubItems.Add(Total.Text)
        Lv.Items.Add(Lst)
    End Sub
    Private Sub penggajian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call addno()
        buattabel()
        Kode.Items.Add("A001")
        Kode.Items.Add("A002")
        Kode.Items.Add("B001")
        Kode.Items.Add("B002")
        Jabatan.Items.Add("MANDOR")
        Jabatan.Items.Add("KEPALA BAGIAN")
        Jabatan.Items.Add("STAF")
        Status.Items.Add("MENIKAH")
        Status.Items.Add("TIDAK MENIKAH")
        Jam.Items.Add("1")
        Jam.Items.Add("2")
        Jam.Items.Add("3")
        Jam.Items.Add("4")
        Jam.Items.Add("5")
        Jam.Items.Add("6")
    End Sub
    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Me.Close()
    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        Call clearisian()
    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        isitabel()
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "A001" Then
            Nama.Text = "Muhammad Suhar"
        ElseIf Kode.Text = "A002" Then
            Nama.Text = "Bayu Pratama"
        ElseIf Kode.Text = "B001" Then
            Nama.Text = "Juliana"
        ElseIf Kode.Text = "B002" Then
            Nama.Text = "Nurhayati"
        End If
    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
        If Jabatan.Text = "MANDOR" Then
            Gaji.Text = 1750000
        ElseIf Jabatan.Text = "KEPALA BAGIAN" Then
            Gaji.Text = 2500000
        ElseIf Jabatan.Text = "STAF" Then
            Gaji.Text = 1250000
        End If
    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
        If Status.Text = "MENIKAH" Then
            Tistri.Text = (0.09 * Gaji.Text)
        ElseIf Status.Text = "TIDAK MENIKAH" Then
            Tistri.Text = 0
        End If
    End Sub
    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If Janak.Text = 1 Then
            Tanak.Text = (0.03 * Gaji.Text)
        ElseIf Janak.Text >= 2 Then
            Tanak.Text = (0.07 * Gaji.Text)
        End If


        If Jabatan.Text = "STAF" Then
            Lembur.Text = (Jam.Text * 5000)
        ElseIf Jabatan.Text = "MANDOR" Then
            Lembur.Text = (Jam.Text * 7500)
        ElseIf Jabatan.Text = "KEPALA BAGIAN" Then
            Lembur.Text = (Jam.Text * 10000)
        End If


        Pajak.Text = (0.015 * Gaji.Text)

        Total.Text = Val(Gaji.Text) + Val(Tistri.Text) + Val(Tanak.Text) + Val(Lembur.Text) - Val(Pajak.Text)

    End Sub


    Private Sub Hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapussemua.Click
        Lv.Items.Clear()
    End Sub

    Private Sub Hapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapuspilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub
End Class


HASIL PROGRAM 

LINK SOAL QUIZ

Pemograman Visual

Versi ini merupakan versi terbaru yang dirilis oleh Microsoft pada tanggal 19 November 2007, bersamaan dengan dirilisnya Microsoft Visual C# 2008, Microsoft Visual C++ 2008, dan Microsoft .NET Framework 3.5.
Dalam versi ini, Microsoft menambahkan banyak fitur baru, termasuk di antaranya adalah:
Operator If sekarang merupakan operator ternary (membutuhkan tiga operand), dengan sintaksis If (boolean, nilai, nilai). Ini dimaksudkan untuk mengganti fungsi IIF.

Contoh Pemrograman

Microsoft vb: Membuat Form Transaksi

Sudah lama juga tidak menulis artikel mengenai pemrograman.Kali ini saya akan mencoba berbagi sebuah tutorial VB.net tentang bagaimana membuat form transaksi.

Sebelum membaca artikel ini,anda perlu tahu bahwa disini saya mencoba meneruskan apa yang sudah saya tulis sebelumnya,bisa anda lihat disini: Microsoft Visual Basic .Net Tutorial 1: Mengkoneksikan VB.net Dengan Database Access.

Tutorial dan Contoh Program – Menggunakan Stored Procedure Pada ADO.NET – VB.NET

<< Sebelumnya : Tutorial dan Contoh Program – Menggunakan Data Reader Pada ADO.NET – VB.NET

Stored Procedure merupakan rangkaian program yang dapat disimpan dan dipanggil/dieksekusi oleh program lain atau dieksekusi oleh SQL-prompt. Umumnya suatu stored procedure yang dibuat oleh SQL Server berhubungan dengan database server dan menghasilkan sekumpulan record. Stored procedure ditulis dengan sebuah script. Pemakaian stored procedure akan meningkatkan performa database, meningkatkan sekuritas database, dan memungkinkan membuat program untuk database. Performansi ditingkatkan melalui pemakaian memori lokal, program yang telah dikompilasi terlebih dahulu dan pemakaian cache. Alasan lain adalah kebutuhan akan sebuah operasi yang sama sedangkan ada banyak client yang harus mengakses dengan bahasa pemrograman yang berbeda.

Stored procedure yang telah dibuat di server database dapat diakses melalui aplikasi program VB.NET, yaitu dengan membentuk objek command dan mengatur nilai dari CommandType untuk diisi dengan StoredProcedure. Contoh programnya adalah sebagai berikut :

MEMBUAT KONEKSI DARI VB 2008 KE MICROSOFT ACCSES (2007) KE DATABASE MENGGUNAKAN CONNECTION STRING

koneksi dari vb 2008 ke database Access menggunakan My.Settings class, pada kesempatan kali ini kita akan membahas bagaimana caranya membuat koneksi dari vb 2008 ke database Access menggunakan Connection String.
untuk contoh database, kita masih menggunakan database Access 2007 dengan nama “TestDatabase.accdb” yang sudah kita gunakan sebelumnya, yang disimpan di dalam drive “C:\Test Project\Database”,

tujuan kita adalah membuat koneksi dari vb 2008 ke database Access tsb dan menampilan isi record dari table “TestTable” ke DataGridView.

Membuat Connection String

Ok, langkah-langkahnya adalah sebagai berikut :

Buka Aplikasi Visual Studio 2008 – Pilih File – New Project
Ubah Nama Projectnya menjadi DbConnectionString, lalu klik OK

Pilih menu Project – Add Module – Kemudian Klik tombol Add

Kemudian di Jendela Solution Explorer, Double klik Module1

Pada jendela Code Module1, ketikkan perintah berikut

Kembali ke Design Form1.vb, tambahkan control Button Dan DataGridView

Double klik button1, lalu ketikkan perintah dengan urutan sebagai berikut :

Setelah selesai, coba jalankan project anda dengan menekan tombol F5, lalu klik Button1, jika koneksi berhasil maka datagridview akan terisi oleh record dari table “testTable” seperti gambar dibawah.

Ok,, Happy Coding !!! ^_^

cara membuat program penjumlahan dalam vb 2008

dihalaman kerja vb 2008, maka yang harus kalian lakukan adalah membuat form seperti dibawah ini.


Maaf kalau desain formnya kurang bagus. Tapi kita coba dulu lah seperti ini. Nah, untuk membuat form seperti ini, caranya drag label yang terdapat pada toolbox kedalam form lalu pada properties box cari tulisan Text, kemudian ganti text label1 dengan A:. Selanjutnya drag Textbox menuju form dan letakkan disamping tulisan A: atau disamping label1. Ikuti langkah diatas untuk membuat B. Kemudian drag Button dan letakkan dibawah textbox2. Pada properties box, ganti Text pada button1 dengan "hitung". Nah, sekarang kalian telah mengetahui bagaimana cara membuat desain program. Selanjutnya, tugas kalian adalah membuat desain form seperti gambar diatas. Anda dapat mendesain program sesuka hati kalian, asalkan rapi dan enak dipandang mata.
Selanjutnya klik dua kali pada button1 atau hitung. Kemudian masukkan kode berikut ini.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
End Class

Penjelasan: kode berwarna merah diatas adalah kode yang memang terdapat atau langsung ada ketika kita meng klik dua kali pada button1 atau hitung. Sedangkan yang kita tambahkan atau masukkan adalah kode berwarna orange.
Pengertian dari kode berwarna orange adalah, jika button1 di klik maka nilai pada teksbox3 adalah hasil dari penjumlahan nilai teksbox1 dan teksbox2.

Kemudian, klik dua kali pada button2 atau keluar. Selanjutnya tambahkan kode berikut:

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

Fungsi dari kode End adalah untuk menghentikan program.
Nah, jika sudah tekan F5 untuk meng compile dan menjalankan program. Jika sudah, dan sukses, maka program akan berjalan, kalian bisa mencoba menginputkan beberapa bilangan. Kira-kira hasilnya akan seperti gambar dibawah ini.


Nah, apabila program sudah berjalan dengan baik, Anda dapat meng-compile program yang Anda buat dengan cara mengklik menu Build, kemudian klik Build Desktop Windows dan tunggu proses compile selesai. Kemudian simpanlah program dengan cara mengklik File, Save All.