PENGGAJIAN
Unknown






 



Public Class penggajian

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

        jabatan.Items.Add("KEPALA DIVISI")
        jabatan.Items.Add("STAFF")
        jabatan.Items.Add("WAKIL KEPALA")

        status.Items.Add("Menikah")
        status.Items.Add("Tidak Menikah")

        jumlahanak.Items.Add("0")
        jumlahanak.Items.Add("1")
        jumlahanak.Items.Add("2")


    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 = "Enda"
            Case "PS111"
                nama.Text = "Mela"
            Case "KU101"
                nama.Text = "Ani"
            Case Else
                nama.Text = "Wimvy"
        End Select
        Dim p As String
        p = Microsoft.VisualBasic.Left(nik.Text, 2)
        If p = "PM" Then
            bagian.Text = "Pemasaran"
        ElseIf p = "PS" Then
            bagian.Text = "Personalia"
        ElseIf p = "KU" Then
            bagian.Text = "Keuangan"
        ElseIf p = "GD" Then
            bagian.Text = "Gudang"

        End If

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "KEPALA DIVISI"
                gajipokok.Text = "5000000"
            Case "STAFF"
                gajipokok.Text = "2000000"
            Case Else
                gajipokok.Text = "3500000"
        End Select
        pajak.Text = gajipokok.Text * 0.1

    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"
                tunjangankeluarga.Text = gajipokok.Text * 0.15
            Case "Tidak Menikah"
                jumlahanak.Text = ""
                tunjangankeluarga.Text = 0
        End Select


    End Sub

    Private Sub jumlahanak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlahanak.KeyPress
        If e.KeyChar = Chr(13) Then
            Select Case jumlahanak.Text
                Case "0"
                    tunjangananak.Text = 0
                Case "1"
                    tunjangananak.Text = gajipokok.Text * 0.05
                Case "2"
                    tunjangananak.Text = gajipokok.Text * 0.1
                Case Else
                    tunjangananak.Text = gajipokok.Text * 0.5
            End Select
        End If
        totalgaji.Text = (gajipokok.Text) + Val(tunjangananak.Text) + Val(tunjangankeluarga.Text) - pajak.Text

    End Sub


    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        nama.Text = ""
        nik.Text = ""
        bagian.Text = ""
        jabatan.Text = ""
        gajipokok.Text = ""
        pajak.Text = ""
        status.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.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

 

                                                                      Gambar Hasil
0 komentar | edit post
FORM PENILAIAN MAHASISWA
Unknown









Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110381")
        NPM.Items.Add("12110382")
        NPM.Items.Add("12110383")
        NPM.Items.Add("12110384")
        NPM.Items.Add("12110385")
        Kd_Dosen.Items.Add("301")
        Kd_Dosen.Items.Add("302")
        Kd_Dosen.Items.Add("303")
        Kd_Dosen.Items.Add("304")
        Kd_Dosen.Items.Add("305")
        Kd_Makul.Items.Add("401")
        Kd_Makul.Items.Add("402")
        Kd_Makul.Items.Add("403")
        Kd_Makul.Items.Add("404")
        Kd_Makul.Items.Add("405")
        Dim s As Integer
        For s = 1 To 100
            Kehadiran.Items.Add(s)
            Tugas.Items.Add(s)
            Uts.Items.Add(s)
            UAS.Items.Add(s)
        Next s
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110381"
                Nama.Text = "Dwi"
                Jenjang.Text = "S1"
                Jurusan.Text = "T1"
            Case "12110382"
                Nama.Text = "Rina"
                Jenjang.Text = "D3"
                Jurusan.Text = "MI"
            Case "12110383"
                Nama.Text = "Wani"
                Jenjang.Text = "S1"
                Jurusan.Text = "SI"
            Case "12110384"
                Nama.Text = "Fitri"
                Jenjang.Text = "D3"
                Jurusan.Text = "MI"
            Case "12110385"
                Nama.Text = "Ria"
                Jenjang.Text = "S1"
                Jurusan.Text = "TI"
        End Select
    End Sub

    Private Sub Kd_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_Dosen.SelectedIndexChanged
        Select Case Kd_Dosen.Text
            Case "301"
                Nm_Dosen.Text = "Yasir Hasan, S.Kom"
            Case "302"
                Nm_Dosen.Text = "Tonni Limbong, S.Kom,M.Kom"
            Case "303"
                Nm_Dosen.Text = "Surya Darma Nasution, S.Kom"
            Case "304"
                Nm_Dosen.Text = "Kennedi Tampubolon, S.Si"
            Case "305"
                Nm_Dosen.Text = "Pristiwanto, S.Kom"

        End Select
    End Sub

    Private Sub Kd_Makul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kd_Makul.SelectedIndexChanged
        Select Case Kd_Makul.Text
            Case "401"
                Makul.Text = "Struktur Data"
            Case "402"
                Makul.Text = "Sistem Operasi"
            Case "403"
                Makul.Text = "Sistem Basis Data"
            Case "404"
                Makul.Text = "Pemrograman Visual"
            Case "405"
                Makul.Text = "Komunikasi Data"


        End Select
    End Sub

    Private Sub Btn_Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Proses.Click
        NA.Text = 0.1 * Kehadiran.Text + 0.15 * Tugas.Text + 0.4 * Uts.Text + 0.6 * UAS.Text
        If NA.Text >= 80 Then
            Huruf.Text = "A"
            Keterangan.Text = "Lulus"
        ElseIf NA.Text >= 70 Then
            Huruf.Text = "B"
            Keterangan.Text = "Lulus"
        ElseIf NA.Text >= 60 Then
            Huruf.Text = "C+"
            Keterangan.Text = "Lulus"
        ElseIf NA.Text >= 50 Then
            Huruf.Text = "C"
            Keterangan.Text = "Perbaikan"
        ElseIf NA.Text >= 40 Then
            Huruf.Text = "D"
            Keterangan.Text = "Mengulang"
        Else
            Huruf.Text = "E"
            Keterangan.Text = "Tidak Lengkap"
        End If
    End Sub

    Private Sub Btn_Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Hapus.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        Kd_Dosen.Text = ""
        Nm_Dosen.Text = ""
        Kd_Makul.Text = ""
        Makul.Text = ""
        Kehadiran.Text = ""
        Tugas.Text = ""
        Uts.Text = ""
        UAS.Text = ""
        NA.Text = ""
        Huruf.Text = ""
        Keterangan.Text = ""
    End Sub

    Private Sub Btn_Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Keluar.Click
        Me.Close()
    End Sub
End Class

0 komentar | edit post