kasusjawaban soal 2 ( Sri Dinda Awaliyah Lubis )
listing program
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BuatTabel()
End Sub
Sub BuatTabel()
LV.Columns.Add("NPM", 80, HorizontalAlignment.Left)
LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub IsiTabel()
Dim Lst As New ListViewItem
Lst.Text = NPM.Text
Lst.SubItems.Add(Nama.Text)
LV.Items.Add(Lst)
End Sub
Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
IsiTabel()
NPM.Text = ""
Nama.Text = ""
End Sub
Private Sub BtnHapusSemuaData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemuaData.Click
LV.Items.Clear()
End Sub
Private Sub BtnHpsDataYgdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHpsDataYgdipilih.Click
LV.Items.Remove(LV.SelectedItems(0))
End Sub
End Class
hasil program
kasus
Minggu, 29 Januari 2012
penggajian karyawan
kasus
jawaban no 3 ( Sri Dinda Awaliyah Lubis )
listing program
Public Class Form1
Private Sub Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ok.Click
If username.Text = "dinda" And pass.Text = "111" Then
FormMenu.Show()
Me.Hide()
Else
MsgBox("maaf password salah")
username.Text = ""
pass.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
End Class
hasil program
listing program
Public Class FormMenu
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub
Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
karyawan.Show()
End Sub
End Class
hasil program
listing program
Public Class karyawan
Private Sub karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BuatTabel()
jabatan.Items.Add("kepala bagian")
jabatan.Items.Add("staf")
jabatan.Items.Add("mandor")
NIK.Items.Add("001")
NIK.Items.Add("002")
NIK.Items.Add("003")
NIK.Items.Add("004")
NIK.Items.Add("005")
status.Items.Add("menikah")
status.Items.Add("belum menikah")
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If status.Text = "belum menikah" Then
tunjangananak.Text = 0
tunjanganistri.Text = 0
ElseIf status.Text = "menikah" Then
tunjanganistri.Text = 0.09 * gajipokok.Text
End If
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
Lv.Items.Clear()
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
If status.Text = "belum menikah" Then
jumlahanak.Text = 0
tunjangananak.Text = 0
tunjanganistri.Text = 0
End If
If jumlahanak.Text <= 2 Then
tunjangananak.Text = jumlahanak.Text * gajipokok.Text
ElseIf jumlahanak.Text = 1 Then
tunjangananak.Text = 1 * 0.03 * gajipokok.Text
ElseIf jumlahanak.Text > 2 Then
tunjangananak.Text = 2 * 0.07 * gajipokok.Text
End If
pajak.Text = 0.15 * gajipokok.Text
If jabatan.Text = "kepala bagian" Then
gajilembur.Text = jmlhjamlembur.Text * 10000
ElseIf jabatan.Text = "staf" Then
gajilembur.Text = jmlhjamlembur.Text * 5000
ElseIf jabatan.Text = "mandor" Then
gajilembur.Text = jmlhjamlembur.Text * 7500
End If
totalgaji.Text = Val(gajipokok.Text) + Val(gajilembur.Text) + Val(tunjangananak.Text) + Val(tunjanganistri.Text) - Val(pajak.Text)
End Sub
Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
If jabatan.Text = "kepala bagian" Then
gajipokok.Text = 2500000
ElseIf jabatan.Text = "staf" Then
gajipokok.Text = 1250000
ElseIf jabatan.Text = "mandor" Then
gajipokok.Text = 1750000
Else : gajipokok.Text = 0
End If
End Sub
Sub BuatTabel()
Lv.Columns.Add("NIK", 80, HorizontalAlignment.Left)
Lv.Columns.Add("nama", 80, HorizontalAlignment.Left)
Lv.Columns.Add("jabatn", 80, HorizontalAlignment.Left)
Lv.Columns.Add("gaji pokok", 80, HorizontalAlignment.Left)
Lv.Columns.Add("jmlh jam lembur", 80, HorizontalAlignment.Left)
Lv.Columns.Add("gaji lembur", 80, HorizontalAlignment.Left)
Lv.Columns.Add("status", 100, HorizontalAlignment.Left)
Lv.Columns.Add("jumlah anak", 80, HorizontalAlignment.Left)
Lv.Columns.Add("tunjangan istri", 80, HorizontalAlignment.Left)
Lv.Columns.Add("tunjangan anak", 80, HorizontalAlignment.Left)
Lv.Columns.Add("total gaji", 80, HorizontalAlignment.Left)
Lv.Columns.Add("pajak", 80, HorizontalAlignment.Left)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
End Sub
Sub isitabel()
Dim Lst As New ListViewItem
Lst.Text = NIK.Text
Lst.SubItems.Add(nama.Text)
Lst.SubItems.Add(jabatan.Text)
Lst.SubItems.Add(gajipokok.Text)
Lst.SubItems.Add(jmlhjamlembur.Text)
Lst.SubItems.Add(gajilembur.Text)
Lst.SubItems.Add(status.Text)
Lst.SubItems.Add(jumlahanak.Text)
Lst.SubItems.Add(tunjanganistri.Text)
Lst.SubItems.Add(tunjangananak.Text)
Lst.SubItems.Add(totalgaji.Text)
Lst.SubItems.Add(pajak.Text)
Lv.Items.Add(Lst)
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
If NIK.Text = "001" Then
nama.Text = "rani"
ElseIf NIK.Text = "002" Then
nama.Text = "dodi"
ElseIf NIK.Text = "003" Then
nama.Text = "robi"
ElseIf NIK.Text = "004" Then
nama.Text = "dinda"
ElseIf NIK.Text = "005" Then
nama.Text = "diki"
End If
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
NIK.Text = ""
nama.Text = ""
jabatan.Text = ""
gajipokok.Text = ""
jmlhjamlembur.Text = ""
gajilembur.Text = ""
status.Text = ""
tunjangananak.Text = ""
tunjanganistri.Text = ""
jumlahanak.Text = ""
totalgaji.Text = ""
pajak.Text = ""
End Sub
Private Sub Btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdata.Click
Lv.Items.Remove(Lv.SelectedItems(0))
End Sub
End Class
hasil program
jawaban no 3 ( Sri Dinda Awaliyah Lubis )
listing program
Public Class Form1
Private Sub Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ok.Click
If username.Text = "dinda" And pass.Text = "111" Then
FormMenu.Show()
Me.Hide()
Else
MsgBox("maaf password salah")
username.Text = ""
pass.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
End Class
hasil program
listing program
Public Class FormMenu
Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub
Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
karyawan.Show()
End Sub
End Class
hasil program
listing program
Public Class karyawan
Private Sub karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BuatTabel()
jabatan.Items.Add("kepala bagian")
jabatan.Items.Add("staf")
jabatan.Items.Add("mandor")
NIK.Items.Add("001")
NIK.Items.Add("002")
NIK.Items.Add("003")
NIK.Items.Add("004")
NIK.Items.Add("005")
status.Items.Add("menikah")
status.Items.Add("belum menikah")
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
If status.Text = "belum menikah" Then
tunjangananak.Text = 0
tunjanganistri.Text = 0
ElseIf status.Text = "menikah" Then
tunjanganistri.Text = 0.09 * gajipokok.Text
End If
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
Lv.Items.Clear()
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
If status.Text = "belum menikah" Then
jumlahanak.Text = 0
tunjangananak.Text = 0
tunjanganistri.Text = 0
End If
If jumlahanak.Text <= 2 Then
tunjangananak.Text = jumlahanak.Text * gajipokok.Text
ElseIf jumlahanak.Text = 1 Then
tunjangananak.Text = 1 * 0.03 * gajipokok.Text
ElseIf jumlahanak.Text > 2 Then
tunjangananak.Text = 2 * 0.07 * gajipokok.Text
End If
pajak.Text = 0.15 * gajipokok.Text
If jabatan.Text = "kepala bagian" Then
gajilembur.Text = jmlhjamlembur.Text * 10000
ElseIf jabatan.Text = "staf" Then
gajilembur.Text = jmlhjamlembur.Text * 5000
ElseIf jabatan.Text = "mandor" Then
gajilembur.Text = jmlhjamlembur.Text * 7500
End If
totalgaji.Text = Val(gajipokok.Text) + Val(gajilembur.Text) + Val(tunjangananak.Text) + Val(tunjanganistri.Text) - Val(pajak.Text)
End Sub
Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
If jabatan.Text = "kepala bagian" Then
gajipokok.Text = 2500000
ElseIf jabatan.Text = "staf" Then
gajipokok.Text = 1250000
ElseIf jabatan.Text = "mandor" Then
gajipokok.Text = 1750000
Else : gajipokok.Text = 0
End If
End Sub
Sub BuatTabel()
Lv.Columns.Add("NIK", 80, HorizontalAlignment.Left)
Lv.Columns.Add("nama", 80, HorizontalAlignment.Left)
Lv.Columns.Add("jabatn", 80, HorizontalAlignment.Left)
Lv.Columns.Add("gaji pokok", 80, HorizontalAlignment.Left)
Lv.Columns.Add("jmlh jam lembur", 80, HorizontalAlignment.Left)
Lv.Columns.Add("gaji lembur", 80, HorizontalAlignment.Left)
Lv.Columns.Add("status", 100, HorizontalAlignment.Left)
Lv.Columns.Add("jumlah anak", 80, HorizontalAlignment.Left)
Lv.Columns.Add("tunjangan istri", 80, HorizontalAlignment.Left)
Lv.Columns.Add("tunjangan anak", 80, HorizontalAlignment.Left)
Lv.Columns.Add("total gaji", 80, HorizontalAlignment.Left)
Lv.Columns.Add("pajak", 80, HorizontalAlignment.Left)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
End Sub
Sub isitabel()
Dim Lst As New ListViewItem
Lst.Text = NIK.Text
Lst.SubItems.Add(nama.Text)
Lst.SubItems.Add(jabatan.Text)
Lst.SubItems.Add(gajipokok.Text)
Lst.SubItems.Add(jmlhjamlembur.Text)
Lst.SubItems.Add(gajilembur.Text)
Lst.SubItems.Add(status.Text)
Lst.SubItems.Add(jumlahanak.Text)
Lst.SubItems.Add(tunjanganistri.Text)
Lst.SubItems.Add(tunjangananak.Text)
Lst.SubItems.Add(totalgaji.Text)
Lst.SubItems.Add(pajak.Text)
Lv.Items.Add(Lst)
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
If NIK.Text = "001" Then
nama.Text = "rani"
ElseIf NIK.Text = "002" Then
nama.Text = "dodi"
ElseIf NIK.Text = "003" Then
nama.Text = "robi"
ElseIf NIK.Text = "004" Then
nama.Text = "dinda"
ElseIf NIK.Text = "005" Then
nama.Text = "diki"
End If
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
NIK.Text = ""
nama.Text = ""
jabatan.Text = ""
gajipokok.Text = ""
jmlhjamlembur.Text = ""
gajilembur.Text = ""
status.Text = ""
tunjangananak.Text = ""
tunjanganistri.Text = ""
jumlahanak.Text = ""
totalgaji.Text = ""
pajak.Text = ""
End Sub
Private Sub Btnhapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapusdata.Click
Lv.Items.Remove(Lv.SelectedItems(0))
End Sub
End Class
hasil program
Langganan:
Postingan (Atom)