DESAIN TAMPILAN AWAL
Syntax:
Public Class Form1
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 = "YAYUK SULISTIAWATI"
Case
"PS111"
NAMA.Text = "WANI MELANIE"
Case
"KU101"
NAMA.Text = "RINA PANCARI"
Case
Else
NAMA.Text = "DWI NUR'AINI"
End Select
Dim Y As String
Y =
Microsoft.VisualBasic.Left(NIK.Text, 2)
If Y = "PM" Then
BAGIAN.Text = "pemasaran"
ElseIf
Y = "PS" Then
BAGIAN.Text = "Personalia"
ElseIf
Y = "KU" Then
BAGIAN.Text = "Keuangan"
ElseIf
Y = "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
TOTALGAJI.Enabled = False
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 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
Private Sub HAPUS_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles HAPUS.Click
NAMA.Text = ""
NIK.Text = ""
BAGIAN.Text = ""
JABATAN.Text = ""
TUNJANGANANAK.Text = ""
TUNJANGANKELUARGA.Text = ""
PAJAK.Text = ""
STATUS.Text = ""
GAJIPOKOK.Text = ""
TOTALGAJI.Text = ""
JUMLAHANAK.Text = ""
End Sub
End Class
Tampilan hasil proses
