Jumat, 04 Oktober 2013

23.16 - No comments

Program Gaji Pegawai Mengunakan Visual Basic 6.0




CODING PROGRAM NYA =
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NIK.Items.Add("001")
        NIK.Items.Add("002")
        NIK.Items.Add("003")
        JABATAN.Items.Add("Mandor")
        JABATAN.Items.Add("Kepala Bagian")
        JABATAN.Items.Add("Staff")
        STATUS.Items.Add("Menikah")
        STATUS.Items.Add("Tidak Menikah")
        For i = 1 To 4
            Jlh_Anak.Items.Add(i)
        Next i
        For i = 1 To 10
            Jam_Lembur.Items.Add(i)
        Next i
        BuatTabel()
    End Sub
    Private Sub JABATAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JABATAN.SelectedIndexChanged
        Select Case JABATAN.Text
            Case "Mandor" : GAJI.Text = 1750000
            Case "Kepala Bagian" : GAJI.Text = 2500000
            Case "Staff" : GAJI.Text = 1250000
        End Select
        Pajak.Text = 0.015 * GAJI.Text
    End Sub
    Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged
        Select Case STATUS.Text
            Case "Menikah" : Tunjangan_Istri.Text = 0.09 * GAJI.Text
            Case "Tidak Menikah" : Tunjangan_Istri.Text = 0
        End Select
    End Sub
    Private Sub Jlh_Anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jlh_Anak.SelectedIndexChanged
        If Jlh_Anak.Text >= 2 And STATUS.Text = "Menikah" Then
            Tunjangan_Anak.Text = 0.07 * GAJI.Text
        ElseIf Jlh_Anak.Text = 1 And STATUS.Text = "Tidak Menikah" Then
            Tunjangan_Anak.Text = 0.03 * GAJI.Text
        Else
            Tunjangan_Anak.Text = 0
        End If
    End Sub
    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        If JABATAN.Text = "Mandor" Then
            Honor_Lembur.Text = Jam_Lembur.Text * 7500
        ElseIf JABATAN.Text = "Kepala Bagian" Then
            Honor_Lembur.Text = Jam_Lembur.Text * 310000
        ElseIf JABATAN.Text = "Staff" Then
            Honor_Lembur.Text = Jam_Lembur.Text * 5000
        Else
            Honor_Lembur.Text = 0
        End If
        Total.Text = Val(Honor_Lembur.Text) + Val(GAJI.Text) + Val(Tunjangan_Istri.Text) + Val(Tunjangan_Anak.Text) + Val(Pajak.Text)
    End Sub
    Private Sub BtnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBaru.Click
        NAMA.Text = ""
        NIK.Text = ""
        JABATAN.Text = ""
        GAJI.Text = ""
        STATUS.Text = ""
        Tunjangan_Istri.Text = ""
        Jlh_Anak.Text = ""
        Tunjangan_Anak.Text = ""
        Jam_Lembur.Text = ""
        Honor_Lembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
    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 = ""
        GAJI.Text = ""
        STATUS.Text = ""
        Tunjangan_Istri.Text = ""
        Jlh_Anak.Text = ""
        Tunjangan_Anak.Text = ""
        Jam_Lembur.Text = ""
        Honor_Lembur.Text = ""
        Pajak.Text = ""
        Total.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 LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged
    End Sub
    Sub BuatTabel()
        LV.Columns.Add("NIK", 80, HorizontalAlignment.Center)
        LV.Columns.Add("NAMA", 180, HorizontalAlignment.Left)
        LV.Columns.Add("JABATAN", 80, HorizontalAlignment.Center)
        LV.Columns.Add("GAJI", 80, HorizontalAlignment.Center)
        LV.Columns.Add("STATUS", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Tunjangan Istri", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Tunjangan Anak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jam Lembur", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Honor Lembur", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Total", 80, HorizontalAlignment.Center)
        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(GAJI.Text)
        Lst.SubItems.Add(STATUS.Text)
        Lst.SubItems.Add(Tunjangan_Istri.Text)
        Lst.SubItems.Add(Jlh_Anak.Text)
        Lst.SubItems.Add(Tunjangan_Anak.Text)
        Lst.SubItems.Add(Jam_Lembur.Text)
        Lst.SubItems.Add(Honor_Lembur.Text)
        Lst.SubItems.Add(Pajak.Text)
        Lst.SubItems.Add(Total.Text)
        LV.Items.Add(Lst)
    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 = "Ramadani Zuanda"
            Case "002" : NAMA.Text = "haris Lesmana"
            Case "003" : NAMA.Text = "jhon carlos"
            Case Else
                NAMA.Text = ""  'Apabila tidak ada yang sama
        End Select
    End Sub
End Class

Kamis, 03 Oktober 2013

22.23 - No comments

Mengaktifkan view thumbnails file gambar di windows 7

Fitur thumbnails pada windows explorer sangat berguna sekali untuk memudahkan pencarian file dalam bentuk gambar. Dengan menggunakan fitur thumbnails maka preview gambar akan tampil pada jendela explorer, sehingga akan lebih memudahkan user untuk mencari file gambar yang diinginkan.

Pada windows xp, fasilitas atau fitur thumbnails ini bisa langsung kita atur di jendela explorer pada menu views di toolbar. Disana biasanya terdapat beberapa pilihan yaitu thumbnails, tiles, icons, list dan details. Klik saja pada thumbnails, maka preview gambar sudah akan langsung tampil.

Berbeda dengan windows xp, di windows 7 secara default tampilan gambar pada jendela explorer adalah gambar default dari windows 7. Jadi gambar yang diinginkan tidak langsung bisa kelihatan di jendela windows explorer, sedangkan pilihan thumbnails pada menu views di toolbar juga tidak ada. Otomatis hal ini akan membuat lambat pencarian file-file gambar pada jendela explorer.


Agar file gambar bisa langsung dilihat secara thumbnails di jendela explorer, ikutilah langkah-langkah berikut ini :
  1. Buka jendela windows explorer ( tombol windows + E pada keyboard )
  2. Klik pada Organize kemudian pilih folder and search options
  3. Pada jendela folder options pilih tab view kemudian hilangkan tanda centang pada always show icons, never thumbnails
  4. Klik OK
Sekarang coba buka file gambar di windows explorer dan atur menu views di toolbar menjadi medium icons atau elarge icons, maka file gambar sahabat akan sudah tampil dengan preview, bukan dengan gambar default lagi.




sumber

Langganan: Postingan (Atom)