Public Class Form1
Private Sub Masuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Masuk.Click
If Nama.Text = "MUHAMMAD SUHAR" And Password.Text = "naruto" Then
formmenu.Show()
Me.Hide()
Else
MsgBox("Maaf! Password salah!")
Nama.Text = ""
Password.Text = ""
End If
End Sub
Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
End
End Sub
Private Sub Password_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Password.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
Masuk_Click(sender, e)
End If
End Sub
End Class
Public Class formmenu
Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
penggajian.show()
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub
End Class
Public Class penggajian
Sub addno()
Dim i As Integer
For i = 0 To 9
No.Items.Add(i)
Next i
End Sub
Sub clearisian()
No.Text = ""
Kode.Text = ""
Nama.Text = ""
Jabatan.Text = ""
Gaji.Text = ""
Status.Text = ""
Tistri.Text = ""
Janak.Text = ""
Tanak.Text = ""
Jam.Text = ""
Lembur.Text = ""
Pajak.Text = ""
Total.Text = ""
No.Focus()
End Sub
Sub buattabel()
Lv.Columns.Add("No", 30, HorizontalAlignment.Center)
Lv.Columns.Add("Kode Pegawai", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Nama Pegawai", 180, HorizontalAlignment.Left)
Lv.Columns.Add("Jabatan", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Gaji", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Status", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Tunj Istri", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Tunj Anak", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Jam", 50, HorizontalAlignment.Left)
Lv.Columns.Add("Lembur", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
Lv.Columns.Add("Total Gaji", 80, HorizontalAlignment.Left)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
End Sub
Sub isitabel()
Dim Lst As New ListViewItem
Lst.Text = No.Text
Lst.SubItems.Add(Kode.Text)
Lst.SubItems.Add(Nama.Text)
Lst.SubItems.Add(Jabatan.Text)
Lst.SubItems.Add(Gaji.Text)
Lst.SubItems.Add(Status.Text)
Lst.SubItems.Add(Tistri.Text)
Lst.SubItems.Add(Janak.Text)
Lst.SubItems.Add(Tanak.Text)
Lst.SubItems.Add(Jam.Text)
Lst.SubItems.Add(Lembur.Text)
Lst.SubItems.Add(Pajak.Text)
Lst.SubItems.Add(Total.Text)
Lv.Items.Add(Lst)
End Sub
Private Sub penggajian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call addno()
buattabel()
Kode.Items.Add("A001")
Kode.Items.Add("A002")
Kode.Items.Add("B001")
Kode.Items.Add("B002")
Jabatan.Items.Add("MANDOR")
Jabatan.Items.Add("KEPALA BAGIAN")
Jabatan.Items.Add("STAF")
Status.Items.Add("MENIKAH")
Status.Items.Add("TIDAK MENIKAH")
Jam.Items.Add("1")
Jam.Items.Add("2")
Jam.Items.Add("3")
Jam.Items.Add("4")
Jam.Items.Add("5")
Jam.Items.Add("6")
End Sub
Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
Me.Close()
End Sub
Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
Call clearisian()
End Sub
Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
isitabel()
End Sub
Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
If Kode.Text = "A001" Then
Nama.Text = "Muhammad Suhar"
ElseIf Kode.Text = "A002" Then
Nama.Text = "Bayu Pratama"
ElseIf Kode.Text = "B001" Then
Nama.Text = "Juliana"
ElseIf Kode.Text = "B002" Then
Nama.Text = "Nurhayati"
End If
End Sub
Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
If Jabatan.Text = "MANDOR" Then
Gaji.Text = 1750000
ElseIf Jabatan.Text = "KEPALA BAGIAN" Then
Gaji.Text = 2500000
ElseIf Jabatan.Text = "STAF" Then
Gaji.Text = 1250000
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
Tistri.Text = (0.09 * Gaji.Text)
ElseIf Status.Text = "TIDAK MENIKAH" Then
Tistri.Text = 0
End If
End Sub
Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
If Janak.Text = 1 Then
Tanak.Text = (0.03 * Gaji.Text)
ElseIf Janak.Text >= 2 Then
Tanak.Text = (0.07 * Gaji.Text)
End If
If Jabatan.Text = "STAF" Then
Lembur.Text = (Jam.Text * 5000)
ElseIf Jabatan.Text = "MANDOR" Then
Lembur.Text = (Jam.Text * 7500)
ElseIf Jabatan.Text = "KEPALA BAGIAN" Then
Lembur.Text = (Jam.Text * 10000)
End If
Pajak.Text = (0.015 * Gaji.Text)
Total.Text = Val(Gaji.Text) + Val(Tistri.Text) + Val(Tanak.Text) + Val(Lembur.Text) - Val(Pajak.Text)
End Sub
Private Sub Hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapussemua.Click
Lv.Items.Clear()
End Sub
Private Sub Hapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapuspilih.Click
Lv.Items.Remove(Lv.SelectedItems(0))
End Sub
End Class
typing services arlington hts il
BalasHapus123.hp.com/setup 2600
BalasHapus123.hp.com/dj3723
BalasHapushttps://setup-wireless-printer.com/hp-deskjet-2060-wireless-driver-mac/
BalasHapushp officejet 6000 wireless driver mac
BalasHapusEnergy
BalasHapushp envy 5052 ìnstall
BalasHapushp envy 4510 driverhp envy 4510 driverhp envy 4510 driverhp envy 4510 driverhp envy 4510 driver
BalasHapus123.hp.vom/setup, 123hp,com, help with hp printer problems, hp printers setup, hp123.com setup,
BalasHapusI am getting jam in the middle of the setup process of the HP printer. What to do? I am unable to guess the setup process of the HP printer. It has become a risky task for me, so I need to take the master technical www.123.hp.com help from a certified technical specialist. I am sharing the HP setup procedure, this discussion with all of you, guys. So please anyone can urge the simple ways to set up the HP printer perfectly. Your guidence would be praise.
BalasHapus