Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kd_brg.Items.Add("TS001")
kd_brg.Items.Add("TS002")
kd_brg.Items.Add("VG001")
kd_brg.Items.Add("VG002")
End Sub
Private Sub kd_brg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_brg.SelectedIndexChanged
Dim x As String
Dim a As String
x = Microsoft.VisualBasic.Left(kd_brg.Text, 2)
If x = "TS" Then
merk.Text = "Toshiba"
ElseIf x = "VG" Then
merk.Text = "V-gen"
End If
a = Microsoft.VisualBasic.Right(kd_brg.Text, 3)
If a = "001" Then
Nm_brg.Text = "flasdisk 4GB"
Else
Nm_brg.Text = "flasdisk 2GB"
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
npm.Items.Add("12111033")
npm.Items.Add("12110175")
npm.Items.Add("12110081")
k_dosen.Items.Add("MS")
k_dosen.Items.Add("YH")
k_dosen.Items.Add("TL")
K_mk.Items.Add("KBTI4202")
K_mk.Items.Add("KBTI4306")
K_mk.Items.Add("PKTI4303")
Dim N As Integer
For N = 1 To 100
Nk.Items.Add(N)
Nt.Items.Add(N)
Nu.Items.Add(N)
N_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 = "12111033" Then
nama.Text = "yulia Dwi Santika"
jenjang.Text = "S1"
jurusan.Text = "Teknik Informatika"
ElseIf npm.Text = "12110175" Then
nama.Text = "Muhammad Rafly"
jenjang.Text = "DIII"
jurusan.Text = "Komputerisasi Akuntansi"
Else
nama.Text = "Robby Azhari"
jenjang.Text = "DI"
jurusan.Text = "Desain Grafis"
End If
End Sub
Private Sub k_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles k_dosen.SelectedIndexChanged
If k_dosen.Text = "MS" Then
N_dosen.Text = "Mesran M.kom"
ElseIf k_dosen.Text = "YH" Then
N_dosen.Text = "Yasir Hasan S.kom."
Else
N_dosen.Text = "Tonni Limbong, S.kom,M.kom."
End If
End Sub
Private Sub K_mk_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles K_mk.SelectedIndexChanged
If K_mk.Text = "KBTI4202" Then
m_kul.Text = "Vb.Net"
ElseIf K_mk.Text = "KBTI4306" Then
m_kul.Text = "Sistem Operasi"
Else
m_kul.Text = "Konsep Pemograman"
End If
End Sub
Private Sub Buttonproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonproses.Click
If Na.Text = "" Then
Na.Text = 0.1 * Nk.Text + 0.15 * Nt.Text + 0.3 * Nu.Text + 0.45 * N_uas.Text
Na.Focus()
End If
End Sub
Private Sub Na_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Na.KeyPress
If (e.KeyChar) = Chr(13) Then
If Na.Text >= 50 Then
Keterangan.Text = "Lulus"
Else
Keterangan.Text = "Gagal"
End If
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
End If
End Sub
Private Sub Buttonhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonhapus.Click
npm.Text = ""
nama.Text = ""
jenjang.Text = ""
jurusan.Text = ""
k_dosen.Text = ""
N_dosen.Text = ""
K_mk.Text = ""
m_kul.Text = ""
Nk.Text = ""
Nt.Text = ""
Nu.Text = ""
N_uas.Text = ""
Na.Text = ""
Nh.Text = ""
Keterangan.Text = ""
End Sub
Private Sub Buttonkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonkeluar.Click
Dim tanya As String
tanya = MsgBox("Apakah Anda ingin 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
nik.Items.Add("PM010")
nik.Items.Add("PS111")
nik.Items.Add("KU101")
nik.Items.Add("GD100")
nik.Items.Add("PM011")
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
J_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 = "Yulia"
ElseIf n = "PS" Then
bagian.Text = "Personalia"
nama.Text = "robby"
ElseIf n = "KU" Then
bagian.Text = "Keuangan"
nama.Text = "Deasy"
Else
bagian.Text = "Gudang"
nama.Text = "rizky"
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
gapok.Text = "5000000"
pajak.Text = 0.1 * gapok.Text
ElseIf jabatan.Text = "Staff" Then
gapok.Text = "2000000"
pajak.Text = 0.1 * gapok.Text
Else
gapok.Text = "3500000"
pajak.Text = 0.1 * gapok.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
T_kel.Text = 0.15 * gapok.Text
Else
T_kel.Text = 0
End If
End Sub
Private Sub J_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles J_anak.SelectedIndexChanged
If J_anak.Text = "1" Then
T_anak.Text = 0.05 * gapok.Text
ElseIf J_anak.Text = "2" Then
T_anak.Text = 0.1 * gapok.Text
Else
T_anak.Text = 0
End If
T_gaji.Text = Val(gapok.Text) + Val(T_kel.Text) + Val(T_anak.Text) - Val(pajak.Text)
End Sub
Private Sub btnhpus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhpus.Click
nik.Text = ""
nama.Text = ""
bagian.Text = ""
jabatan.Text = ""
gapok.Text = ""
pajak.Text = ""
status.Text = ""
J_anak.Text = ""
T_kel.Text = ""
T_anak.Text = ""
T_gaji.Text = ""
End Sub
Private Sub Buttonkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonkeluar.Click
Dim tanya As String
tanya = MsgBox("Apakah Anda ingin keluar??", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If tanya = vbYes Then
Me.Close()
Else
Exit Sub
End If
End Sub
End Class
0 komentar:
Speak up your mind
Tell us what you're thinking... !