Kamis, 13 September 2012

stok lama






sekilas tentang yang terjadi pada ku hari ne

tak sengaja ku melihat suatu account cewek yang masih ku cintai,tapi hasil yang buruk ku dapat kan dia sudah tidak mau lagi dengan aku.tapi kenapa? aku sudah berusaha untuk bisa menjadi yang seperti dia inginkan.ya sudah lah mungkin dia bkn jodoh yang diberikan TUHAN kpd ku dan mungkin ini jga salah ku yang terlalu berlebihan kpd nya.

Sabtu, 28 Januari 2012

Jawaban No 2 ( M. JOKO HARIADI)

Lihat kasus


Public Class Form1

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

    End Sub
    Sub bersih()
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        tahun.Text = ""
        nilai_angka.Text = ""
        Nilai_Huruf.Text = ""

    End Sub

    Sub RancangTabel()
        With LV
            .Columns.Add("NPM", 70, HorizontalAlignment.Center)
            .Columns.Add("Nama", 120, HorizontalAlignment.Left)
            .Columns.Add("Jurusan", 100, HorizontalAlignment.Left)
            .Columns.Add("Jenjang", 100, HorizontalAlignment.Left)
            .Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Left)
            .Columns.Add("Nilai Angka", 90, HorizontalAlignment.Center)
            .Columns.Add("Nilai Huruf", 90, HorizontalAlignment.Center)
            .GridLines = True
            .FullRowSelect = True
            .View = View.Details


        End With
    End Sub
    Sub IsiTabel()
        Dim ist As New ListViewItem
        With ist
            .Text = npm.Text
            .SubItems.Add(nama.Text)
            .SubItems.Add(jurusan.Text)
            .SubItems.Add(jenjang.Text)
            .SubItems.Add(tahun.Text)
            .SubItems.Add(nilai_angka.Text)
            .SubItems.Add(nilai_huruf.Text)
            lv.Items.Add(ist)

        End With
    End Sub

    Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
        Dim x As String

        tahun.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)

        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
        If x = "11" Then
            jurusan.Text = "Teknik Informatika"
        ElseIf x = "21" Then
            jurusan.Text = "Sistem Informasi"
        ElseIf x = "31" Then
            jurusan.Text = "Manajemen Informatika"
        End If



        x = Microsoft.VisualBasic.Mid(npm.Text, 4, 1)
        If x = "1" Then
            jenjang.Text = "Strata I"
        ElseIf x = "2" Then
            jenjang.Text = "Diploma III"
        ElseIf x = "3" Then
            jenjang.Text = "Diploma I"
        End If
    End Sub

    Private Sub nilai_angka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nilai_angka.TextChanged
        Select Case nilai_angka.Text
            Case Is >= 80
                nilai_huruf.Text = "A"
            Case 70 To 79
                nilai_huruf.Text = "B"
            Case 60 To 69
                nilai_huruf.Text = "C"
            Case 50 To 59
                nilai_huruf.Text = "D"
            Case Is <= 49
                nilai_huruf.Text = "E"
        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        IsiTabel()
        bersih()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        jurusan.Text = ""
        tahun.Text = ""
        nilai_angka.Text = ""
        nilai_huruf.Text = ""
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        bersih()
    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

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class


Jumat, 27 Januari 2012

Jawaban No 3 (Muhammad joko hariadi)

 Lihat KASUS

Public Class Form1

    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
        If username.Text = "joko hariadi" And password.Text = "merahmuda" Then
            menuutama.Show()
            Me.Hide()
        Else
            MsgBox("Data Username/Password Salah?")
            username.Text = ""
            password.Text = ""
        End If
    End Sub
End Class


Public Class gajipegawai

    Private Sub gajipegawai_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("Staff")

        status.Items.Add("Tidak Nikah")
        status.Items.Add("Menikah")

        Dim jmlh As Byte
        For jmlh = 1 To 30
            jlh_anak.Items.Add(jmlh)
        Next

        Dim lama As Byte
        For lama = 1 To 30
            lama_lembur.Items.Add(lama)
        Next

        bersih()
        RancangTabel()
        nama.Focus()
    End Sub
    Sub RancangTabel()
        With LV
            .Columns.Add("Nama", 70, HorizontalAlignment.Center)
            .Columns.Add("Jabatan", 120, HorizontalAlignment.Left)
            .Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Left)
            .Columns.Add("Status", 100, HorizontalAlignment.Left)
            .Columns.Add("Tunj Istri", 120, HorizontalAlignment.Left)
            .Columns.Add("Jmlah Anak", 90, HorizontalAlignment.Center)
            .Columns.Add("Tunj Anak", 90, HorizontalAlignment.Center)
            .Columns.Add("Pajak", 120, HorizontalAlignment.Left)
            .Columns.Add("Lama Lembur", 120, HorizontalAlignment.Left)
            .Columns.Add("Upah Lembur", 120, HorizontalAlignment.Left)
            .Columns.Add("Gaji", 120, HorizontalAlignment.Left)
            .GridLines = True
            .FullRowSelect = True
            .View = View.Details


        End With
    End Sub
    Sub MasukTabel()
        Dim ist As New ListViewItem
        With ist
            .Text = nama.Text
            .SubItems.Add(jabatan.Text)
            .SubItems.Add(gaji.Text)
            .SubItems.Add(status.Text)
            .SubItems.Add(tjg_i.Text)
            .SubItems.Add(jlh_anak.Text)
            .SubItems.Add(tjg_a.Text)
            .SubItems.Add(pajak.Text)
            .SubItems.Add(lama_lembur.Text)
            .SubItems.Add(lembur.Text)
            .SubItems.Add(totgaji.Text)
            LV.Items.Add(ist)

        End With
    End Sub
    Sub bersih()
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        tjg_a.Text = ""
        tjg_i.Text = ""
        jlh_anak.Text = ""
        lembur.Text = ""
        lama_lembur.Text = ""
        totgaji.Text = ""
        pajak.Text = ""
        status.Text = ""
    End Sub

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

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        If jabatan.Text = "Mandor" Then
            gaji.Text = 1750000
        ElseIf jabatan.Text = "Kepala Bagian" Then
            gaji.Text = 2500000
        ElseIf jabatan.Text = "Staff" Then
            gaji.Text = 1250000
        Else
            gaji.Text = 0
        End If
        pajak.Text = 0.015 * gaji.Text

    End Sub

    Private Sub lama_lembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lama_lembur.SelectedIndexChanged
        If jabatan.Text = "Mandor" Then
            lembur.Text = lama_lembur.Text * 7500
        ElseIf jabatan.Text = "Kepala Bagian" Then
            lembur.Text = lama_lembur.Text * 10000
        ElseIf jabatan.Text = "Staff" Then
            lembur.Text = lama_lembur.Text * 5000
        Else
            lembur.Text = 0
        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
            tjg_i.Text = 0.09 * gaji.Text
            If jlh_anak.Text = "1" Then
                tjg_a.Text = 0.03 * gaji.Text
            ElseIf jlh_anak.Text >= "2" Then
                tjg_a.Text = 0.07 * gaji.Text
            End If
        Else
            tjg_i.Text = "0"
            tjg_a.Text = "0"
        End If

    End Sub

    Private Sub jlh_anak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jlh_anak.SelectedIndexChanged
        If status.Text = "Menikah" Then
            tjg_i.Text = 0.09 * gaji.Text
            If jlh_anak.Text = "1" Then
                tjg_a.Text = 0.03 * gaji.Text
            ElseIf jlh_anak.Text >= "2" Then
                tjg_a.Text = 0.07 * gaji.Text
            End If
        Else
            tjg_i.Text = "0"
            tjg_a.Text = "0"
        End If

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        nama.Text = ""
        jabatan.Text = ""
        gaji.Text = ""
        tjg_a.Text = ""
        tjg_i.Text = ""
        jlh_anak.Text = ""
        lembur.Text = ""
        lama_lembur.Text = ""
        totgaji.Text = ""
        pajak.Text = ""
        status.Text = ""

    End Sub

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

   

    Private Sub lembur_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lembur.TextChanged
        totgaji.Text = Val(gaji.Text) + Val(tjg_i.Text) + Val(tjg_a.Text) + Val(lembur.Text) - Val(pajak.Text)
    End Sub

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub


End Class