Contoh Project dalam Visual Studio

Hii sahabat ku yg baik hatinya ... :)

Dalam info kali ini ,,,
kita akan membahas tentang pemograman visual dengan menggunakan aplikasi visual studio.
aku akan share sedikit pengetahuan mengenai cara membuat project baru.
contohnya membuat FORM GAJI PEGAWAI..

Design form seperti gambar berikut : 

 Listing program :


Public Class Form1

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

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        nik.Text = ""
        nama.Text = ""
        bag.Text = ""
        jab.Text = ""
        gpokok.Text = ""
        pajak.Text = ""
        status.Text = ""
        jlhanak.Text = ""
        tkeluarga.Text = ""
        tanak.Text = ""
        totalgaji.Text = ""
    End Sub

    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("PM011")
        jab.Items.Add("kepala divisi")
        jab.Items.Add("staff")
        jab.Items.Add("wakil kepala")
        status.Items.Add("menikah")
        status.Items.Add("tidak menikah")

        Dim x As Byte
        For x = 1 To 5
            jlhanak.Items.Add(x)
        Next

    End Sub

    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 = "apryanita"
            Case "PS111"
                nama.Text = "katarina"
            Case "KU101"
                nama.Text = "christina"
            Case "GD100"
                nama.Text = "putra"
            Case "PM011"
                nama.Text = "shido"
        End Select

        Dim x As String
        x = Microsoft.VisualBasic.Left(nik.Text, 2)
        If x = "PM" Then
            bag.Text = "Pemasaran"
        ElseIf x = "PS" Then
            bag.Text = "Personalia"
        ElseIf x = "KU" Then
            bag.Text = "Keuangan"
        ElseIf x = "GD" Then
            bag.Text = "Gudang"
        End If


    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jab.SelectedIndexChanged
        Select Case jab.Text
            Case "kepala divisi"
                gpokok.Text = 5000000
            Case "staff"
                gpokok.Text = 2000000
            Case "wakil kepala"
                gpokok.Text = 3500000
        End Select
        pajak.Text = 0.1 * gpokok.Text
    End Sub


    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
        If status.Text = "menikah" Then
            tkeluarga.Text = 0.15 * gpokok.Text
        Else
            tkeluarga.Text = 0
        End If
    End Sub

    Private Sub jumlahanak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlhanak.SelectedIndexChanged
        If jlhanak.Text = 1 Then
            tanak.Text = 0.05 * gpokok.Text
        Else
            tanak.Text = 0.1 * gpokok.Text
        End If

        totalgaji.Text = Val(gpokok.Text) + Val(tkeluarga.Text) + Val(tanak.Text) - Val(pajak.Text)
    End Sub
End Class








Sekian guyss,, semoga membantu .. :)