Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
nik.Items.Add("PB121")
nik.Items.Add("PS122")
nik.Items.Add("KU123")
nik.Items.Add("IN124")
nik.Items.Add("PM125")
jabatan.Items.Add("supervaisor")
jabatan.Items.Add("marketing")
jabatan.Items.Add("consultan")
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 = "PB" Then
bagian.Text = "Pembukuan"
nama.Text = "ayu"
ElseIf n = "PS" Then
bagian.Text = "pemasaran"
nama.Text = "rudi"
ElseIf n = "KU" Then
bagian.Text = "Keuangan"
nama.Text = "elsi"
Else
bagian.Text = "informasi"
nama.Text = "adi"
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 = "3500000"
pajak.Text = 0.1 * gaji_pokok.Text
ElseIf jabatan.Text = "Staff" Then
gaji_pokok.Text = "1800000"
pajak.Text = 0.1 * gaji_pokok.Text
Else
gaji_pokok.Text = "2200000"
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
tunj_keluarga.Text = 0.1 * gaji_pokok.Text
Else
tunj_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
tunj_anak.Text = 0.06 * gaji_pokok.Text
ElseIf jumlah_anak.Text = "2" Then
tunj_anak.Text = 0.3 * gaji_pokok.Text
Else
tunj_anak.Text = 0
End If
total_gaji.Text = Val(gaji_pokok.Text) + Val(tunj_keluarga.Text) + Val(tunj_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 = ""
tunj_keluarga.Text = ""
tunj_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("12110075")
npm.Items.Add("12110092")
npm.Items.Add("12110559")
kode_dosen.Items.Add("MS")
kode_dosen.Items.Add("YH")
kode_dosen.Items.Add("sS")
kode_matakuliah.Items.Add("KBTI4306")
kode_matakuliah.Items.Add("KKTI4303")
kode_matakuliah.Items.Add("KBTI4305")
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 = "12110075" Then
nama.Text = "Ayu anggraini"
jenjang.Text = "S1"
jurusan.Text = "Teknik Informatika"
ElseIf npm.Text = "12110092" Then
nama.Text = "elvara"
jenjang.Text = "DIII"
jurusan.Text = "manajemen informasi"
Else
nama.Text = "adelina"
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 = "YH" Then
nama_dosen.Text = "Yasir Hasan,S.Kom"
Else
nama_dosen.Text = "Sinar Sinurat,ST,M.Kom"
End If
End Sub
Private Sub kode_matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_matakuliah.SelectedIndexChanged
If kode_matakuliah.Text = "KBTI4306" Then
mata_kuliah.Text = "Pemograman Visual"
ElseIf kode_matakuliah.Text = "KKTI4303" Then
mata_kuliah.Text = "Sistem Operasi"
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 >= 80 Then
nilai_huruf.Text = "A"
ElseIf nilai_akhir.Text >= 70 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_matakuliah.Text = ""
mata_kuliah.Text = ""
nilai_kehadiran.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
Private Sub Form3_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
Tidak ada komentar:
Posting Komentar