Kasus:
“ Form Login”
Listing Program:
Public Class frmLogin
Private
Sub btnBatal_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnBatal.Click
End
End
Sub
Private
Sub txtUsername_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtUsername.KeyPress
If e.KeyChar = Chr(13) Then
txtPassword.Focus()
End If
End
Sub
Private
Sub btnLogin_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnLogin.Click
Call Masuk()
End
Sub
Sub
Login()
If txtUsername.Text = "yusuf"
Then
If txtPassword.Text = "fahlevi"
Then
Me.Hide()
frmMenuUtama.Show()
Else
MsgBox("ConfrimPassword!",
MsgBoxStyle.Critical, "Not Login")
txtPassword.Text = ""
txtPassword.Focus()
End If
Else
MsgBox("Anda tidak dapat mengakses program
ini!", MsgBoxStyle.Critical, "Not
Login")
txtUsername.Text = ""
txtPassword.Text = ""
txtUsername.Focus()
End If
End
Sub
Sub
Masuk()
If Not
txtUsername.Text = "" Then
If Not
txtPassword.Text = "" Then
Call Login()
Else
MsgBox("masukkan Password!",
MsgBoxStyle.Information, "Login")
txtPassword.Focus()
End If
Else
MsgBox("Masukkan Username!",
MsgBoxStyle.Information, "Login")
txtUsername.Focus()
End If
End
Sub
Private
Sub txtPassword_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPassword.KeyPress
If e.KeyChar = Chr(13) Then
Call Masuk()
End If
End
Sub
End Class
Hasil
Program:
“Form
Menu File Utama”:
Listing
Program:
Public Class frmMenuUtama
Private
Sub Timer1_Tick(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
sttTanggal.Text = Now.Date
sttJam.Text
= Format(Now, "HH:mm:ss")
End
Sub
Private
Sub frmMenuUtama_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Timer1.Start()
End
Sub
Private
Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click
End
End
Sub
Private
Sub PenggajianKaryawanToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
PenggajianKaryawanToolStripMenuItem.Click
frmKaryawan.Show()
frmKaryawan.MdiParent = Me
End
Sub
End Class
Hasil
Program:
“Form
Penggajian Karyawan”:
Listing
Program:
Public Class frmKaryawan
Sub
RancangTabel()
With LV
.Columns.Add("NIK", 50,
HorizontalAlignment.Left)
.Columns.Add("Nama", 90,
HorizontalAlignment.Left)
.Columns.Add("Jabatan", 90,
HorizontalAlignment.Left)
.Columns.Add("Gaji", 70,
HorizontalAlignment.Right)
.Columns.Add("Status", 90,
HorizontalAlignment.Center)
.Columns.Add("Jlh Anak", 60,
HorizontalAlignment.Center)
.Columns.Add("Lembur", 50,
HorizontalAlignment.Center)
.Columns.Add("Jlh Jam", 60,
HorizontalAlignment.Center)
.Columns.Add("Tunj. Istri", 60,
HorizontalAlignment.Right)
.Columns.Add("Tunj. Anak",
70, HorizontalAlignment.Right)
.Columns.Add("Bonus Lembur", 90,
HorizontalAlignment.Right)
.Columns.Add("Pajak", 50,
HorizontalAlignment.Right)
.Columns.Add("Total Gaji", 70,
HorizontalAlignment.Right)
.GridLines = True
.FullRowSelect = True
.View = View.Details
End With
End
Sub
Private
Sub frmKaryawan_Load(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles MyBase.Load
Call RancangTabel()
cmbJabatan.Items.Add("Mandor")
cmbJabatan.Items.Add("Kepala Bagian")
cmbJabatan.Items.Add("Staff")
cmbStatus.Items.Add("Belum Menikah")
cmbStatus.Items.Add("Menikah")
cmbLembur.Items.Add("Ya")
cmbLembur.Items.Add("Tidak")
End
Sub
Private
Sub cmbJabatan_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles cmbJabatan.SelectedIndexChanged
Call Proses()
End
Sub
Sub
Proses()
Select Case
cmbJabatan.Text
Case "Mandor"
txtGaji.Text = 1750000
Case "Kepala
Bagian"
txtGaji.Text = 2500000
Case "Staff"
txtGaji.Text = 1250000
End Select
Select Case
cmbStatus.Text
Case "Belum
Menikah"
txtJumlahAnak.Text = 0
txtJumlahAnak.Enabled = False
txtTunjanganIstri.Text = 0
txtTunjanganAnak.Text = 0
Case "Menikah"
txtJumlahAnak.Enabled = True
txtTunjanganIstri.Text = 0.09 * txtGaji.Text
If Not
txtJumlahAnak.Text = "" Then
If txtJumlahAnak.Text = 1 Then
txtTunjanganAnak.Text = 0.03 * txtGaji.Text
ElseIf txtJumlahAnak.Text >= 2 Then
txtTunjanganAnak.Text = 0.07 * txtGaji.Text
Else
txtTunjanganAnak.Text = 0
End If
End If
End Select
Select Case
cmbLembur.Text
Case "Tidak"
txtJumlahJamLembur.Text = 0
txtJumlahJamLembur.Enabled = False
txtBonusLembur.Text = 0
Case "Ya"
txtJumlahJamLembur.Enabled = True
If Not
txtJumlahJamLembur.Text = "" Then
Select Case
cmbJabatan.Text
Case "Mandor"
txtBonusLembur.Text = 7500 * txtJumlahJamLembur.Text
Case "Staff"
txtBonusLembur.Text = 5000 * txtJumlahJamLembur.Text
Case "Kepala
Bagian"
txtBonusLembur.Text = 10000 * txtJumlahJamLembur.Text
End Select
End If
End Select
If Not txtGaji.Text =
"" Then
txtPajak.Text = txtGaji.Text * 0.015
End If
txtTotalGaji.Text = Val(txtGaji.Text) + Val(txtTunjanganIstri.Text) +
Val(txtTunjanganAnak.Text) + Val(txtBonusLembur.Text) - txtPajak.Text
End
Sub
Private
Sub cmbLembur_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
cmbLembur.SelectedIndexChanged
Call Proses()
End
Sub
Private
Sub cmbStatus_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles cmbStatus.SelectedIndexChanged
Call Proses()
End
Sub
Private
Sub txtJumlahAnak_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
txtJumlahAnak.TextChanged
Call Proses()
End
Sub
Private
Sub txtJumlahJamLembur_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
txtJumlahJamLembur.TextChanged
Call Proses()
End
Sub
Private
Sub btnBersih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnBersih.Click
Call BersihkanIsian()
End
Sub
Sub
BersihkanIsian()
txtNIK.Text
= ""
txtNama.Text = ""
cmbJabatan.Text = ""
txtGaji.Text = ""
cmbStatus.Text = ""
txtJumlahAnak.Text = ""
cmbLembur.Text = ""
txtJumlahJamLembur.Text = ""
txtTunjanganIstri.Text = ""
txtTunjanganAnak.Text = ""
txtBonusLembur.Text = ""
txtPajak.Text = ""
txtTotalGaji.Text = ""
txtNIK.Focus()
End
Sub
Private
Sub btnSimpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnSimpan.Click
Call IsiTabel()
Call BersihkanIsian()
End
Sub
Sub
IsiTabel()
Dim lst As New ListViewItem
With lst
.Text = txtNIK.Text
.SubItems.Add(txtNama.Text)
.SubItems.Add(cmbJabatan.Text)
.SubItems.Add(txtGaji.Text)
.SubItems.Add(cmbStatus.Text)
.SubItems.Add(txtJumlahAnak.Text)
.SubItems.Add(cmbLembur.Text)
.SubItems.Add(txtJumlahJamLembur.Text)
.SubItems.Add(txtTunjanganIstri.Text)
.SubItems.Add(txtTunjanganAnak.Text)
.SubItems.Add(txtBonusLembur.Text)
.SubItems.Add(txtPajak.Text)
.SubItems.Add(txtTotalGaji.Text)
LV.Items.Add(lst)
End With
End
Sub
Private
Sub btnHapusSemua_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnHapusSemua.Click
LV.Items.Clear()
End
Sub
Private
Sub btnHapusSatu_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnHapusSatu.Click
LV.Items.Remove(LV.SelectedItems(0))
End
Sub
Private
Sub btnKeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnKeluar.Click
Me.Hide()
End
Sub
End Class
Hasil
Program: