Sabtu, 28 Januari 2012

Jawaban soal 3 (Tanti Wardani)

Published : 03.00 Author :
Kasus : Klik disini

Listing Program Form Login
Public Class Login

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        If NIK.Text = "0006" And Pasword.Text = "tanty" Then
            FromMenu.Show()
            Me.Hide()
        Else
            MsgBox("Maaf!! Password Salah !")
            NIK.Text = ""
            Pasword.Text = ""
        End If
    End Sub

Hasil Program

 


Listing Program FromMenu
Public Class FromMenu

    Private Sub DataPerusahaanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPerusahaanToolStripMenuItem.Click
        Form1.MdiParent = Me
        Form1.Show()
    End Sub

    Private Sub FromMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Login.MdiParent = Me
        Login.Show()
    End Sub
End class
Hasil Program

 

Listing Program Form Penggajian

Public Class Form1
    Sub BuatTabel()
        LV.Columns.Add("NIK", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jabatan", 70, HorizontalAlignment.Center)
        LV.Columns.Add("Gajipokok", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Status Kerja", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Jam Lembur", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Upah Lembur", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Status", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlahanak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Tunjanganistri", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Tunjangananak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub

    Sub IsiTabel()
        For i = 1 To 3
            NIK.Items.Add("00" & i)
        Next
        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(StatusKerja.Text)
        Lst.SubItems.Add(Jamlembur.Text)
        Lst.SubItems.Add(Upahlembur.Text)
        Lst.SubItems.Add(Pajak.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)
        LV.Items.Add(Lst)
    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
        If Jabatan.Text = "Mandor" Then
            Gajipokok.Text = 1750000
            Pajak.Text = (0.015 * Val(Gajipokok.Text))
        ElseIf Jabatan.Text = "Kepala Bagian" Then
            Gajipokok.Text = 2500000
            Pajak.Text = (0.015 * Val(Gajipokok.Text))
        ElseIf Jabatan.Text = "Staf" Then
            Gajipokok.Text = 1250000
            Pajak.Text = (0.015 * Val(Gajipokok.Text))
        Else
            Gajipokok.Text = 0
        End If

    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        NIK.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        Gajipokok.Text = ""
        StatusKerja.Text = ""
        Jamlembur.Text = ""
        Upahlembur.Text = ""
        Pajak.Text = ""
        status.Text = ""
        Jumlahanak.Text = ""
        Tunjanganistri.Text = ""
        Tunjangananak.Text = ""
        Totalgaji.Text = ""
        NIK.Focus()
        LV.Items.Clear()
    End Sub
    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Jabatan.Items.Add("Mandor")
        Jabatan.Items.Add("Kepala Bagian")
        Jabatan.Items.Add("Staf")

        StatusKerja.Items.Add("Lembur")
        StatusKerja.Items.Add("Tidak Lembur")

        status.Items.Add("MENIKAH")
        status.Items.Add("BELUM MENIKAH")
        Jumlahanak.Enabled = False

        Dim i As Integer
        For i = 1 To 5
            Jamlembur.Items.Add(i)
        Next
        BuatTabel()
        IsiTabel()

    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
            Jumlahanak.Enabled = False
        ElseIf status.Text = "MENIKAH" Then
            Jumlahanak.Enabled = True
            Tunjanganistri.Text = (0.09 * Val(Gajipokok.Text))
        End If
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Totalgaji.Text = Val(Gajipokok.Text) + Val(Tunjangananak.Text) + Val(Tunjanganistri.Text) + Val(Upahlembur.Text) - Val(Pajak.Text)
    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged

        Select Case NIK.Text
            Case "001"
                Nama.Text = "Tanty"
            Case "002"
                Nama.Text = "Dian"
            Case "003"
                Nama.Text = "Gizza"
            Case "004"
                Nama.Text = "Rangga"

        End Select
    End Sub

  

    Private Sub Jumlahanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlahanak.TextChanged
        If Jumlahanak.Text = "" Then
            Tunjangananak.Text = 0
        ElseIf Jumlahanak.Text = 1 Then
            Tunjangananak.Text = Val(Jumlahanak.Text) * (0.03 * Val(Gajipokok.Text))
        ElseIf Jumlahanak.Text = 2 Then
            Tunjangananak.Text = 2 * (0.07 * Val(Gajipokok.Text))
        ElseIf Jumlahanak.Text >= 2 Then
            Tunjangananak.Text = 2 * (0.07 * Val(Gajipokok.Text))

        End If
    End Sub

    Private Sub StatusKerja_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StatusKerja.SelectedIndexChanged

        If Jabatan.Text = "Mandor" Then
            If Jamlembur.Text = "1" Then
                Upahlembur.Text = 1 * (5000)

            ElseIf Jamlembur.Text = "2" Then
                Upahlembur.Text = 2 * (5000)
            ElseIf Jamlembur.Text = "3" Then
                Upahlembur.Text = 3 * (5000)
            ElseIf Jamlembur.Text = "4" Then
                Upahlembur.Text = 4 * (5000)
            ElseIf Jamlembur.Text = "5" Then
                Upahlembur.Text = 5 * (5000)
            Else
                Upahlembur.Text = 0
            End If

        ElseIf Jabatan.Text = "Kepala Bagian" Then
            If Jamlembur.Text = "1" Then
                Upahlembur.Text = 1 * (10000)
            ElseIf Jamlembur.Text = "2" Then
                Upahlembur.Text = 2 * (10000)
            ElseIf Jamlembur.Text = "3" Then
                Upahlembur.Text = 3 * (10000)
            ElseIf Jamlembur.Text = "4" Then
                Upahlembur.Text = 4 * (10000)
            ElseIf Jamlembur.Text = "5" Then
                Upahlembur.Text = 5 * (10000)
            Else
                Upahlembur.Text = 0
            End If


        ElseIf Jabatan.Text = "Staf" Then
            If Jamlembur.Text = "1" Then
                Upahlembur.Text = 1 * (7500)
            ElseIf Jamlembur.Text = "2" Then
                Upahlembur.Text = 2 * (7500)
            ElseIf Jamlembur.Text = "3" Then
                Upahlembur.Text = 3 * (7500)
            ElseIf Jamlembur.Text = "4" Then
                Upahlembur.Text = 4 * (7500)
            ElseIf Jamlembur.Text = "5" Then
                Upahlembur.Text = 5 * (7500)
            Else
                Upahlembur.Text = 0
            End If


        End If
        If StatusKerja.Text = "Tidak Lembur" Then
            Jamlembur.Text = 0
            Upahlembur.Text = 0


        End If
    End Sub


    Private Sub SimpanLV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpanLV.Click
        Dim sublv As New ListViewItem
        sublv.Text = NIK.Text
        sublv.SubItems.Add(Nama.Text)
        sublv.SubItems.Add(Jabatan.Text)
        sublv.SubItems.Add("RP. " & Gajipokok.Text)
        sublv.SubItems.Add(StatusKerja.Text)
        sublv.SubItems.Add(Jamlembur.Text)
        sublv.SubItems.Add("RP. " & Upahlembur.Text)
        sublv.SubItems.Add("RP. " & Pajak.Text)
        sublv.SubItems.Add(status.Text)
        sublv.SubItems.Add(Jumlahanak.Text)
        sublv.SubItems.Add("RP. " & Tunjanganistri.Text)
        sublv.SubItems.Add("RP. " & Tunjangananak.Text)
        sublv.SubItems.Add("RP. " & Totalgaji.Text)
        LV.Items.Add(sublv)
    End Sub

    Private Sub Jamlembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jamlembur.SelectedIndexChanged

        If Jabatan.Text = "Mandor" Then
            Upahlembur.Text = 7500 * Jamlembur.Text
        ElseIf Jabatan.Text = "Kepala Bagian" Then
            Upahlembur.Text = 10000 * Jamlembur.Text
        ElseIf Jabatan.Text = "Staf" Then
            Upahlembur.Text = 5000 * Jamlembur.Text
        End If

    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
End Class


Hasil Program

| 0 komentar
Langganan: Postingan (Atom)

Postingan Populer

  • Contoh Program VB Net
    Contoh program sederhana dalam bahasa Visual Basic .NET yang dipakai untuk menghitung jumlah pembayaran dari m_item buah barang dengan harg...
  • Validasi alamat email menggunakan VB.NET
    Using RegEx this VB.NET code validates an email address. Menggunakan regex kode VB.NET memvalidasi alamat email. It's checking for a st...
  • Dilema
      Selama ini aq cuma bisa membuat mu kecewa dan putus asa Mungkin aq hanya dapat memberikan harapan yang taq pasti Aq bingung akan perasaa...
  • VB. NET
      Biasanya kalo kita mengakses sebuah program database, kita akan dipertanyakan password untuk memasuki program tersebut. Berikut ini car...
  • Perbandingan Visual Basic dan Visual Basic Net
      Setelah dipegang-pegang, ternyata perbedaan antara visual basic.net dengan visual basic tidak terlalu kentara, yang dimaksud tentu saj...
  • Jawaban soal 2 (Tanti Wardani)
     Kasus : Klik disini Public Class Form1     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles My...
  • Resep Cantik Wanita Berkerudung
      MESKI berkerudung, bukan berarti tak bisa tampil cantik. Guna memenuhi kebutuhan tersebut, maka jangan ragu untuk memakai kosmetik. Ada...
  • Perbedaan VB dan VB.NET serta ASP.NET
    Ada cukup beberapa perbedaan di VB6 dan VB.NET. Kita akan menyoroti beberapa di poin:  Perubahan terbesar di VB6 dan VB.NET adalah lingkun...
  • Jawaban soal 3 (Tanti Wardani)
    Kasus : Klik disini Listing Program Form Login Public Class Login     Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As...
  • June
    Add caption

Mengenai Saya

Foto saya
Medan, SUMUT, Indonesia

Pengikut

Recent Posts

Download