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
