Penggajian Karyawan

Ini adalah desain sederhana dalam penggajian karyawan.
Berikut adalah desain awalnya :

Public Class Form1

    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 = "Ratna"

                bagian.Text = "Pemasaran"

            Case "PS11"

                nama.Text = "Santi"

                bagian.Text = "Personalia"

            Case "KU101"

                nama.Text = "jono"

                bagian.Text = "Keuangan"

            Case "GD100"

                nama.Text = "juni"

                bagian.Text = "Gudang"

            Case "PM011"

                nama.Text = "yanna"

                bagian.Text = "Pemasaran"

        End Select

    End Sub

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

        Select Case gol.Text

            Case "IIIA"

                gp.Text = "1000000"

            Case "IIIB"

                gp.Text = "2000000"

            Case "IIIC"

                gp.Text = "3000000"

        End Select

        pajak.Text = 0.03 * gp.Text

    End Sub

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

        Select Case status.Text

            Case "Menikah"

                tk.Text = 0.1 * gp.Text

            Case "Belum menikah"

                tk.Text = 0

        End Select

    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")

        gol.Items.Add("IIIA")

        gol.Items.Add("IIIB")

        gol.Items.Add("IIIC")

        status.Items.Add("Menikah")

        status.Items.Add("Belum menikah")

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        nik.Text = ""

        nama.Text = ""

        bagian.Text = ""

        gol.Text = ""

        gp.Text = ""

        pajak.Text = ""

        status.Text = ""

        gol.Text = ""

        tk.Text = ""

        tg.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        tg.Text = Val(gp.Text) + Val(tk.Text) - Val(pajak.Text)

    End Sub

End Class

Kemudian setelah dilaksanakan perintah diatas,maka hasil akhirnya akan seprti dibawah ini:

http://sinndia.blogspot.com/2013/11/ini-adalah-desain-sederhana-dalam.html

Sekian dan terimakasih.

Penilaian Mahasiswa

Berikut ini adalah desain form perhitungan nilai mahasiswa dengan menggunakan visual studio 2008 :

Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Select Case npm.Text
            Case "12110213"
                nama.Text = "Adriani"
                jenjang.Text = "S1"
                jurusan.Text = "Teknik informatika"
            Case "12110345"
                nama.Text = "Dini nugraha"
                jenjang.Text = "D3"
                jurusan.Text = "Manajemen informatika"
            Case "12110934"
                nama.Text = "Budi hasiolan"
                jenjang.Text = "S1"
                jurusan.Text = "Sistem informatika"
            Case "12110789"
                nama.Text = "Tini santiana"
                jenjang.Text = "S1"
                jurusan.Text = "Sistem informatika"
        End Select
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodedosen.SelectedIndexChanged
        Select Case kodedosen.Text
            Case "001"
                nd.Text = "Tonni Limbong S.Kom,M.Kom"
            Case "002"
                nd.Text = "Garuda Ginting,ST,M.Kom"
            Case "003"
                nd.Text = "Mesran,S.Kom,M.Kom"
            Case "004"
                nd.Text = "Sinar sinurat,ST,M.Kom"
        End Select

    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmatakul.SelectedIndexChanged

        Select Case kdmatakul.Text
            Case "01"
                matakul.Text = "Sistem basis data"
            Case "02"
                matakul.Text = "Visual basic"
            Case "03"
                matakul.Text = "Struktur data"
            Case "04"
                matakul.Text = "Interaksi Manusia dan Komputer"
        End Select

    End Sub


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

        npm.Items.Add("12110213")
        npm.Items.Add("12110345")
        npm.Items.Add("12110934")
        npm.Items.Add("12110789")

        kodedosen.Items.Add("001")
        kodedosen.Items.Add("002")
        kodedosen.Items.Add("003")
        kodedosen.Items.Add("004")

        kdmatakul.Items.Add("01")
        kdmatakul.Items.Add("02")
        kdmatakul.Items.Add("03")
        kdmatakul.Items.Add("04")

        Dim i As Integer
        For i = 0 To 100
            nilaikehadiran.Items.Add("" & i)
            nilaitugas.Items.Add("" & i)
            nilaiuts.Items.Add("" & i)
            nilaiuas.Items.Add("" & i)

        Next
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        na.Text = 0.1 * nilaikehadiran.Text + 0.2 * nilaitugas.Text + 0.4 * nilaiuts.Text + 0.6 * nilaiuas.Text

        If na.Text >= 80 Then
            nh.Text = "A"
        ElseIf na.Text > 70 Then
            nh.Text = "B"
        ElseIf na.Text >= 60 Then
            nh.Text = "C"
        ElseIf na.Text >= 50 Then
            nh.Text = "D"
        Else
            nh.Text = "E"
        End If
        If na.Text >= 50 Then

            keterangan.Text = "Lulus"
        Else
            keterangan.Text = "Gagal"
        End If
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kodedosen.Text = ""
        nd.Text = ""
        kdmatakul.Text = ""
        matakul.Text = ""
        nilaikehadiran.Text = ""
        nilaitugas.Text = ""
        nilaiuts.Text = ""
        nilaiuas.Text = ""
        na.Text = ""
        nh.Text = ""
        keterangan.Text = ""

    End Sub

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

berikut ini adalah hasil dari desain diatas:

http://sinndia.blogspot.com/2013/11/penilaian-mahasiswa.html

Terimakasih... ^^