quiz online penggajian karyawan

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buattabel()
jabatan.Items.Add(“staff”)
jabatan.Items.Add(“mandor”)
jabatan.Items.Add(“kabag”)
status.Items.Add(“menikah”)
status.Items.Add(“belum menikah”)
End Sub
Sub buattabel()
With lv
.Columns.Add(“Nama”, 80, HorizontalAlignment.Center)
.Columns.Add(“Jabatan”, 80, HorizontalAlignment.Center)
.Columns.Add(“Gaji”, 80, HorizontalAlignment.Center)
.Columns.Add(“Status”, 80, HorizontalAlignment.Center)
.Columns.Add(“Jumlah Anak”, 80, HorizontalAlignment.Center)
.Columns.Add(“Tunjangan Istri”, 100, HorizontalAlignment.Center)
.Columns.Add(“Tunjangan Anak”, 100, HorizontalAlignment.Center)
.Columns.Add(“Lembur/jam”, 80, HorizontalAlignment.Center)
.Columns.Add(“Pajak”, 80, HorizontalAlignment.Center)
.Columns.Add(“Total Gaji”, 80, HorizontalAlignment.Center)
.GridLines = True
.FullRowSelect = True
.View = View.Details
End With
End Sub

Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
masuktabel()
End Sub
Sub masuktabel()
Dim lst As New ListViewItem
With lst
.Text = nama.Text
.SubItems.Add(jabatan.Text)
.SubItems.Add(gaji.Text)
.SubItems.Add(status.Text)
.SubItems.Add(anak.Text)
.SubItems.Add(tnjgistri.Text)
.SubItems.Add(tnjganak.Text)
.SubItems.Add(lembur.Text)
.SubItems.Add(pajak.Text)
.SubItems.Add(totgaji.Text)
lv.Items.Add(lst)
End With
End Sub

Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
If jabatan.Text = “staff” Then
gaji.Text = 1250000
pajak.Text = 0.015 * Val(gaji.Text)
ElseIf jabatan.Text = “mandor” Then
gaji.Text = 1750000
pajak.Text = 0.015 * Val(gaji.Text)
ElseIf jabatan.Text = “kabag” Then
gaji.Text = 2500000
pajak.Text = 0.015 * Val(gaji.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
tnjgistri.Text = 0.09 * Val(gaji.Text)
ElseIf status.Text = “belum menikah” Then
tnjgistri.Text = 0
tnjganak.Text = 0
End If
End Sub
Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
MsgBox(“terima kasih”)
End
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 hapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdipilih.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub

Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
nama.Text = “”
jabatan.Text = “”
gaji.Text = “”
status.Text = “”
anak.Text = “”
tnjgistri.Text = “”
tnjganak.Text = “”
lembur.Text = “”
totlembur.Text = “”
pajak.Text = “”
totgaji.Text = “”
nama.Focus()
End Sub
Private Sub anak_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles anak.TextChanged
If anak.Text = “1” Then
tnjganak.Text = 0.03 * Val(gaji.Text)
ElseIf anak.Text >= “1” Then
tnjganak.Text = 0.07 * Val(gaji.Text)
End If
End Sub

Private Sub lembur_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lembur.TextChanged
If jabatan.Text = “staff” Then
If lembur.Text = “0” Then
totlembur.Text = 0
ElseIf lembur.Text = “1” Then
totlembur.Text = 5000
ElseIf lembur.Text >= “1” Then
totlembur.Text = 5000 * Val(lembur.Text)
End If
ElseIf jabatan.Text = “mandor” Then
If lembur.Text = “0” Then
totlembur.Text = 0
ElseIf lembur.Text = “1” Then
totlembur.Text = 7500
ElseIf lembur.Text >= “1” Then
totlembur.Text = 7500 * Val(lembur.Text)
End If
ElseIf jabatan.Text = “kabag” Then
If lembur.Text = “0” Then
totlembur.Text = 0
ElseIf lembur.Text = “1” Then
totlembur.Text = 10000 * Val(lembur.Text)
ElseIf lembur.Text >= “1” Then
totlembur.Text = 10000 * Val(lembur.Text)
End If
End If
Call proses()
End Sub
Sub proses()
totgaji.Text = Val(gaji.Text) + Val(tnjgistri.Text) + Val(tnjganak.Text) + Val(totlembur.Text) – Val(pajak.Text)
End Sub
End Class

kasus

ini adalah jawaban soal kasus visual basic halaman 33 klik disini

kasus

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        buattabel()

        kdbarang.Items.Add(“TS001”)

        kdbarang.Items.Add(“TS002”)

        kdbarang.Items.Add(“VG001”)

        kdbarang.Items.Add(“VG002”)

    End Sub

    Sub buattabel()

        With lv

            .Columns.Add(“No Pembelian”, 80, HorizontalAlignment.Center)

            .Columns.Add(“Kode Barang”, 120, HorizontalAlignment.Left)

            .Columns.Add(“Nama Barang”, 100, HorizontalAlignment.Left)

            .Columns.Add(“Merk”, 100, HorizontalAlignment.Left)

            .Columns.Add(“Harga”, 100, HorizontalAlignment.Left)

            .Columns.Add(“Jumlah Beli”, 80, HorizontalAlignment.Left)

            .Columns.Add(“Total Harga”, 80, HorizontalAlignment.Left)

            .GridLines = True

            .FullRowSelect = True

            .View = View.Details

        End With

 

    End Sub

 

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        masuktabel()

    End Sub

    Sub masuktabel()

        Dim lst As New ListViewItem

        With lst

            .Text = nomor.Text

            .SubItems.Add(kdbarang.Text)

            .SubItems.Add(nama.Text)

            .SubItems.Add(merk.Text)

            .SubItems.Add(harga.Text)

            .SubItems.Add(jumlah.Text)

            .SubItems.Add(totharga.Text)

            lv.Items.Add(lst)

        End With

    End Sub

 

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click

        nomor.Text = “”

        kdbarang.Text = “”

        nama.Text = “”

        merk.Text = “”

        harga.Text = “”

        jumlah.Text = “”

        totharga.Text = “”

    End Sub

 

    Private Sub hapusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdata.Click

        lv.Items.Clear()

    End Sub

 

    Private Sub hapusdipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapusdipilih.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

 

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        MsgBox(“terima kasih”)

        End

    End Sub

 

    Private Sub kdbarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbarang.SelectedIndexChanged

        Dim x As String

        x = Microsoft.VisualBasic.Left(kdbarang.Text, 2)

        Select Case x

            Case “TS” : merk.Text = “Toshiba”

            Case “VG” : merk.Text = “V-GEN”

        End Select

        x = Microsoft.VisualBasic.Right(kdbarang.Text, 3)

        Select Case x

            Case “001” : nama.Text = “flashdisk 4GB”

            Case “002” : nama.Text = “flashdisk 2 GB”

        End Select

        If kdbarang.Text = “TS001” Then

            harga.Text = 105000

        ElseIf kdbarang.Text = “TS002” Then

            harga.Text = 75000

        ElseIf kdbarang.Text = “VG001” Then

            harga.Text = 90000

        ElseIf kdbarang.Text = “VG002” Then

            harga.Text = 60000

        End If

    End Sub

 

    Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            kdbarang_SelectedIndexChanged(sender, e)

        End If

        totharga.Text = Val(harga.Text) * Val(jumlah.Text)

    End Sub

 

End Class

 

tugas list view 12 januari 2012

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()
With Lv
.Columns.Add(“npm”, 80, HorizontalAlignment.Center)
.Columns.Add(“nama”, 120, HorizontalAlignment.Left)
.Columns.Add(“jenjang”, 100, HorizontalAlignment.Left)
.Columns.Add(“jurusan”, 100, HorizontalAlignment.Left)
.Columns.Add(“tahun”, 100, HorizontalAlignment.Left)
.Columns.Add(“nilai angka”, 80, HorizontalAlignment.Left)
.Columns.Add(“nilai huruf”, 80, HorizontalAlignment.Left)
.View = View.Details
.GridLines = True
.FullRowSelect = True
End With
End Sub

Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
masuktabel()
End Sub
Sub masuktabel()
Dim lst As New ListViewItem
With lst
.Text = npm.Text
.SubItems.Add(nama.Text)
.SubItems.Add(jenjang.Text)
.SubItems.Add(jurusan.Text)
.SubItems.Add(tahun.Text)
.SubItems.Add(angka.Text)
.SubItems.Add(huruf.Text)
Lv.Items.Add(lst)
End With
End Sub

Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
Dim x, y, z As String
x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)
y = Microsoft.VisualBasic.Mid(npm.Text, 4, 1)
z = Microsoft.VisualBasic.Left(npm.Text, 2)
If x = “0” Then
If y = “2” Then
jenjang.Text = “D3”
jurusan.Text = “manajemen informatika”
End If
ElseIf x = “1” Then
jenjang.Text = “SI”
If y = “1” Then
jurusan.Text = “teknik informatika”
ElseIf y = “2” Then
jurusan.Text = “sistem informasi”
End If
End If
End Sub

Private Sub angka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles angka.KeyPress
If e.KeyChar = Chr(13) Then
carinilai()
End If
End Sub
Sub carinilai()
If angka.Text >= 85 Then
huruf.Text = “A”
ElseIf angka.Text >= 75 Then
huruf.Text = “B”
ElseIf angka.Text >= 65 Then
huruf.Text = “C”
ElseIf angka.Text >= 55 Then
huruf.Text = “D”
Else
huruf.Text = “E”
End If
End Sub

Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
lv.Items.Clear()
End Sub

Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub

Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
npm.Text = “”
nama.Text = “”
jurusan.Text = “”
jenjang.Text = “”
tahun.Text = “”
angka.Text = “”
huruf.Text = “”
End Sub

Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
MsgBox(“terima kasih”)
End
End Sub
End Class