Jawaban Dari No 03

Nama : Hendri Syam
Npm :0911118
kelas : TI S-0908

Contoh kasus lihat Disini!



penyelesaian...........

================================================
Listing Program Login
 ================================================
Public Class Form1

    Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasuk.Click
        If user.Text = "Hendry Syam" And pasword.Text = "oyon" Then
            menufile.Show()
            Me.Hide()
        Else
            MsgBox("Mungkin Anda Salah Bro,,,Coba Ulangi Sekali Lagi....!!!")
            user.Text = ""
            pasword.Text = ""
        End If
    End Sub
================================================
    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class
================================================
dan hasil tampilannya seperti di bawah ini.....
 ================================================

 ================================================
kalau tidak berhasil, maka akan keluar tampilan message box  seperti ini..
 ================================================

 ==============================================


Listing Program Menu..
================================================
Public Class menufile


    Private Sub DataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataKaryawanToolStripMenuItem.Click
        Data_Karyawan.Show()
    End Sub
================================================
    Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        End
    End Sub
End Class
================================================
Tampilan program Menu.
 ================================================

 

 ================================================

Listing Program Pegawai

================================================

Public Class Data_Karyawan

    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged
        If nip.Text = "IIIA" Then
            nama.Text = "Hendri Syam"
        ElseIf nip.Text = "IIIB" Then
            nama.Text = "Ucup"
        ElseIf nip.Text = "IIIC" Then
            nama.Text = "Komeng"
        End If
    End Sub
================================================
    Private Sub data_pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nip.Items.Add("IIIA")
        nip.Items.Add("IIIB")
        nip.Items.Add("IIIC")
        jabatan.Items.Add("Kepala Bagian")
        jabatan.Items.Add("Mandor")
        jabatan.Items.Add("Staf")
        status.Items.Add("Menikah")
        status.Items.Add("Tidak-Menikah")
        rancangtabel()
    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
            gaji.Text = "2500000"
        ElseIf jabatan.Text = "Mandor" Then
            gaji.Text = "1750000"
        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
            tunistri.Text = (9 / 100 * gaji.Text)
            junak.Enabled = True
            tunak.Enabled = True
        ElseIf status.Text = "Tidak-Menikah" Then
            tunistri.Text = "0"
            tunak.Enabled = False
            tunak.Text = "0"
            junak.Enabled = False
            junak.Text = "0"
        End If
        pajak.Text = (1.5 / 100) * (gaji.Text)
    End Sub
================================================
    Private Sub junak_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles junak.KeyPress
        If e.KeyChar = Chr(13) Then
            If junak.Text = "1" Then
                tunak.Text = (junak.Text) * (3 / 100 * gaji.Text)
            ElseIf junak.Text = "2" Then
                tunak.Text = (junak.Text) * (7 / 100 * gaji.Text)
            ElseIf junak.Text >= 2 Then
                tunak.Text = (2 * 7 / 100 * gaji.Text)
            End If
        End If
    End Sub
================================================
    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        If status.Text = "Menikah" Then
            gatal.Text = Val(gaji.Text) + (tunistri.Text) + (tunak.Text) + (galem.Text) - (pajak.Text)
        ElseIf status.Text = "Tidak-Menikah" Then
            gatal.Text = Val(gaji.Text) + (galem.Text) - (pajak.Text)
        End If
================================================
    End Sub
    Sub rancangtabel()
        LV.Columns.Add("NIP", 40, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 90, HorizontalAlignment.Center)
        LV.Columns.Add("Jabatan", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji Pokok", 60, HorizontalAlignment.Center)
        LV.Columns.Add("Status", 60, HorizontalAlignment.Center)
        LV.Columns.Add("T_Istri", 60, HorizontalAlignment.Center)
        LV.Columns.Add("J_Anak", 60, HorizontalAlignment.Center)
        LV.Columns.Add("T_Anak", 60, HorizontalAlignment.Center)
        LV.Columns.Add("J_Lembur", 60, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji Lembur", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 40, HorizontalAlignment.Center)
        LV.Columns.Add("Total Gaji", 50, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub masuktabel()
        Dim lst As New ListViewItem
        lst.Text = nip.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(jabatan.Text)
        lst.SubItems.Add(gaji.Text)
        lst.SubItems.Add(status.Text)
        lst.SubItems.Add(tunistri.Text)
        lst.SubItems.Add(junak.Text)
        lst.SubItems.Add(tunak.Text)
        lst.SubItems.Add(Lembur.Text)
        lst.SubItems.Add(galem.Text)
        lst.SubItems.Add(pajak.Text)
        lst.SubItems.Add(gatal.Text)
        LV.Items.Add(lst)
    End Sub
================================================
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        nip.Text = ""
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        gatal.Text = ""
        status.Text = ""
        tunistri.Text = ""
        junak.Text = ""
        Lembur.Text = ""
        galem.Text = ""
        tunak.Text = ""
        pajak.Text = ""
    End Sub
================================================
    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
================================================
    Private Sub btnsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsemua.Click
        LV.Items.Clear()
    End Sub
================================================
    Private Sub btnsatu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsatu.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
================================================
    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        masuktabel()
    End Sub
================================================
    Private Sub Lembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lembur.TextChanged
        If jabatan.Text = "Kepala Bagian" Then
            galem.Text = (Lembur.Text * 10000)
        ElseIf jabatan.Text = "Mandor" Then
            galem.Text = (Lembur.Text * 7500)
        ElseIf jabatan.Text = "Staf" Then
            galem.Text = (Lembur.Text * 5000)
        End If
    End Sub
End Class

================================================

Hasil tampilan program Data Pegawai

 ================================================