tugas VB

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Nik.Items.Add("PM012")
        Nik.Items.Add("PS133")
        Nik.Items.Add("KU102")
        Nik.Items.Add("GD122")
        Nik.Items.Add("PM014")

        Jabatan.Items.Add("Kepala Divisi")
        Jabatan.Items.Add("Staff")
        Jabatan.Items.Add("Wakil Kepala")

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

        Dim d As Integer
        For d = 0 To 10
            Jumlah_anak.Items.Add(d)
        Next

    End Sub

    Private Sub Nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nik.SelectedIndexChanged
        Dim n As String
        n = Microsoft.VisualBasic.Left(Nik.Text, 2)
        If n = "PM" Then
            Bagian.Text = "Pemasokan"
            Nama.Text = "Adelina pangaribuan"
        ElseIf n = "PS" Then
            Bagian.Text = "Personalia"
            Nama.Text = "sovia"
        ElseIf n = "KU" Then
            Bagian.Text = "Keuangan"
            Nama.Text = "dorasi"
        Else
            Bagian.Text = "Gudang"
            Nama.Text = "tiurmida"
        End If

    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
        If Jabatan.Text = "Kepala Divisi" Then
            Gaji_pokok.Text = "8000000"
            Pajak.Text = 0.1 * Gaji_pokok.Text
        ElseIf Jabatan.Text = "Staff" Then
            Gaji_pokok.Text = "3000000"
            Pajak.Text = 0.1 * Gaji_pokok.Text
        Else
            Gaji_pokok.Text = "4500000"
            Pajak.Text = 0.1 * Gaji_pokok.Text
        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
            Tunjangan_keluarga.Text = 0.15 * Gaji_pokok.Text
        Else
            Tunjangan_keluarga.Text = 0
        End If

    End Sub

    Private Sub Jumlah_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah_anak.SelectedIndexChanged
        If Jumlah_anak.Text = "1" Then
            Tunjangan_anak.Text = 0.05 * Gaji_pokok.Text
        ElseIf Jumlah_anak.Text = "2" Then
            Tunjangan_anak.Text = 0.1 * Gaji_pokok.Text
        Else
            Tunjangan_anak.Text = 0
        End If

        Total_gaji.Text = Val(Gaji_pokok.Text) + Val(Tunjangan_keluarga.Text) + Val(Tunjangan_anak.Text) - Val(Pajak.Text)


    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        Nik.Text = ""
        Nama.Text = ""
        Bagian.Text = ""
        Jabatan.Text = ""
        Gaji_pokok.Text = ""
        Pajak.Text = ""
        Status.Text = ""
        Jumlah_anak.Text = ""
        Tunjangan_anak.Text = ""
        Tunjangan_anak.Text = ""
        Total_gaji.Text = ""

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim tanya As String
        tanya = MsgBox("Apakah Anda Yakin Mau Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        If tanya = vbYes Then
            Me.Close()
        Else
            Exit Sub
        End If

    End Sub
End Class

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("12110559")
        npm.Items.Add("12111045")
        npm.Items.Add("12110766")

        kode_dosen.Items.Add("MS")
        kode_dosen.Items.Add("GT")
        kode_dosen.Items.Add("HH")

        kode_dosen.Items.Add("KBTI4202")
        kode_dosen.Items.Add("KBTI4302")
        kode_dosen.Items.Add("KBTI4303")

        Dim N As Integer
        For N = 1 To 100
            nilai_kehadiran.Items.Add(N)
            nilai_tugas.Items.Add(N)
            nilai_uts.Items.Add(N)
            nilai_uas.Items.Add(N)
        Next

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        If NPM.Text = "12110559" Then
            Nama.Text = "Adelina Pangaribuan"
            jenjang.Text = "S1"
            jurusan.Text = "Sistem Informasi"
        ElseIf NPM.Text = "12111045" Then
            Nama.Text = "Tomi"
            jenjang.Text = "DIII"
            jurusan.Text = "Komputerisasi Akuntansi"
        Else
            Nama.Text = "Messi"
            jenjang.Text = "DI"
            jurusan.Text = "Desain Grafis"
        End If

    End Sub

    Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged
        If kode_dosen.Text = "MS" Then
            nama_dosen.Text = "Mesran M.Kom"
        ElseIf kode_dosen.Text = "GT" Then
            nama_dosen.Text = "Guidio Leonarde Tarigan,M.Kom"
        Else
            nama_dosen.Text = "Harvei D.Hutahaean,M.Kom"
        End If

    End Sub

    Private Sub kode_mtakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_mtakuliah.SelectedIndexChanged
        If kode_mtakuliah.Text = "KBTI4203" Then
            mata_kuliah.Text = "Vb.Net"
        ElseIf kode_mtakuliah.Text = "Guidio Leonarde Tarigan,M.kom" Then
            mata_kuliah.Text = "Komunikasi Data"
        Else
            mata_kuliah.Text = "Struktur Data"
        End If

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If nilai_akhir.Text = "" Then
            nilai_akhir.Text = 0.1 * nilai_kehadiran.Text + 0.15 * nilai_tugas.Text + 0.3 * nilai_uts.Text + 0.45 * nilai_uas.Text
            nilai_akhir.Focus()
        End If
        If nilai_akhir.Text >= 50 Then
            keterangan.Text = "Lulus"
        Else
            keterangan.Text = "Gagal"
        End If
        If nilai_akhir.Text >= 85 Then
            nilai_huruf.Text = "A"
        ElseIf nilai_akhir.Text >= 75 Then
            nilai_huruf.Text = "B"
        ElseIf nilai_akhir.Text >= 60 Then
            nilai_huruf.Text = "C"
        ElseIf nilai_akhir.Text >= 50 Then
            nilai_huruf.Text = "D"
        Else
            nilai_huruf.Text = "E"
        End If

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        NPM.Text = ""
        Nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        kode_dosen.Text = ""
        nama_dosen.Text = ""
        kode_mtakuliah.Text = ""
        mata_kuliah.Text = ""
        nilai_akhir.Text = ""
        nilai_tugas.Text = ""
        nilai_uts.Text = ""
        nilai_uas.Text = ""
        nilai_akhir.Text = ""
        nilai_huruf.Text = ""
        keterangan.Text = ""

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Dim tanya As String
        tanya = MsgBox("Apakah Anda Yakin Mau Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
        If tanya = vbYes Then
            Me.Close()
        Else
            Exit Sub
        End If

    End Sub
End Class

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kode_barang.Items.Add("TS001")
        kode_barang.Items.Add("TS002")
        kode_barang.Items.Add("VG001")
        kode_barang.Items.Add("VG002")

    End Sub

    Private Sub kode_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_barang.SelectedIndexChanged
        Dim x As String
        Dim a As String
        x = Microsoft.VisualBasic.Left(kode_barang.Text, 2)
        If x = "TS" Then
            Merk.Text = "Toshiba"
        ElseIf x = "VG" Then
            Merk.Text = "V-gen"
        End If
        a = Microsoft.VisualBasic.Right(kode_barang.Text, 3)
        If a = "001" Then
            Nama_barang.Text = "flasdisk 4GB"
        Else
            Nama_barang.Text = "flasdisk 2GB"

        End If

    End Sub
End Class