berlandhasian: 2012

Nama : Berlan Hutajulu
Npm : 0911141
Kelas : TI-M 0911

Contoh Kasus lihat Disini...

Listing Program

Public Class Form1

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

    Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
        Dim i As String
        Dim x As String
        Dim y As String
        i = Microsoft.VisualBasic.Left(npm.Text, 2)
        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 1)
        y = Microsoft.VisualBasic.Mid(npm.Text, 4, 2)

        If i = "09" Then
            tahun.Text = "2009"
        ElseIf i = "10" Then
            tahun.Text = "2010"
        ElseIf i = "11" Then
            tahun.Text = "2011"
        ElseIf i = "12" Then
            tahun.Text = "2012"
        End If
        If x = "0" Then
            jenjang.Text = "D3"
            If y = "03" Then
                jurusan.Text = "Komputerisasa Akuntansi"
            ElseIf y = "23" Then
                jurusan.Text = "Manejemen Informatika"
            End If
        ElseIf x = "1" Then
            jenjang.Text = "S1"
            If y = "11" Then
                jurusan.Text = "Teknik-Informatika"
            ElseIf y = "33" Then
                jurusan.Text = "Sistem Informasi"
            End If
        End If

    End Sub

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

    Sub rancangtabel()
        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jurusan", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Jenjang", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Tahun Masuk", 90, HorizontalAlignment.Center)
        LV.Columns.Add("N_Huruf", 80, HorizontalAlignment.Center)
        LV.Columns.Add("N_Angka", 80, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.SubItems.Add(nama.Text)
        lst.SubItems.Add(jurusan.Text)
        lst.SubItems.Add(jenjang.Text)
        lst.SubItems.Add(tahun.Text)
        lst.SubItems.Add(n_angka.Text)
        lst.SubItems.Add(nhuruf.Text)
        LV.Items.Add(lst)
    End Sub

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

    Private Sub btnhsemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhsemua.Click
        LV.Items.Clear()
    End Sub

    Private Sub btnhdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhdata.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
        isitabel()
    End Sub

    Private Sub n_angka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles n_angka.KeyPress
        If e.KeyChar = Chr(13) Then
            If n_angka.Text >= 80 Then
                nhuruf.Text = "A"
            ElseIf n_angka.Text >= 70 Then
                nhuruf.Text = "B"
            ElseIf n_angka.Text >= 60 Then
                nhuruf.Text = "C"
            ElseIf n_angka.Text >= 50 Then
                nhuruf.Text = "D"
            Else
                nhuruf.Text = "E"
            End If
        End If
    End Sub
End Class

Hasil Program....

Nama : Berlan Hutajulu
NPM : 0911141
Kelas : TI-M0911

Kasus lihat Disini
=======================================================

Listing Program Login

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

Public Class Login

    Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasuk.Click
        If user.Text = "Berlan Hutajulu" And pasword.Text = "0911141" Then
            menufile.Show()
            Me.Hide()
        Else
            MsgBox("Pasword Anda Salah,,,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

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

Tampilan Program Login, kalau berhasil tampilan menu akan muncul....

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

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
        Penggajian_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 Penggajian Pegawai
=======================================================

Public Class Penggajian_Karyawan

    Private Sub nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nip.SelectedIndexChanged
        If nip.Text = "0911141" Then
            nama.Text = "Berlan Hutajulu "
        ElseIf nip.Text = "000111" Then
            nama.Text = "Mordong"
        ElseIf nip.Text = "998908" Then
            nama.Text = "Jaultop"
        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("0911141")
        nip.Items.Add("000111")
        nip.Items.Add("998908")
        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 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.Text = "0"
            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
=======================================================
    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
=======================================================
    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
=======================================================

berlandhasian

Minggu, 29 Januari 2012

Jawaban Dari Quis No 02

Jawaban Dari Quis No 03