Minggu, 29 Januari 2012

 JAWABAN QUIS VISUAL BASIC
NOMOR 2
NAMA  : YENI AGUSTI
KELAS  :SI-P0905
NPM    : 0911653

kasus


Public Class btnhapus

    Sub buattabel()
        LV.Columns().Add("NPM", 90, HorizontalAlignment.Center)
        LV.Columns().Add("Nama", 95, HorizontalAlignment.Left)
        LV.Columns().Add("Tahun", 95, HorizontalAlignment.Right)
        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(tahun.Text)
        LV.Items.Add(lst)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click
        isitabel()
        npm.Text = ""
        nama.Text = ""
        tahun.Text = ""
    End Sub

    Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    End Sub

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

    Private Sub Btnhapuss_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapuss.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub
End Class



JAWABAN NOMOR  : 3


Public Class FormMenu

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

    Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
        fromKaryawan.Show()
    End Sub

End Class


Public Class FormMenu

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

    Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
        fromKaryawan.Show()
    End Sub


End Class

Public Class fromKaryawan

    Private Sub Nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nip.SelectedIndexChanged
        If NIP.Text = "11115" Then
            Nama.Text = "RASID"
        ElseIf NIP.Text = "11116" Then
            Nama.Text = "JUAINI"
        ElseIf NIP.Text = "11117" Then
            Nama.Text = "BEFRINA"
        ElseIf NIP.Text = "11118" Then
            Nama.Text = "RAFA"

        End If
    End Sub

    Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged
        If Golongan.Text = "IIIA" Then
            Gaji.Text = "3000000"
        ElseIf Golongan.Text = "IIIB" Then
            Gaji.Text = "2500000"
        ElseIf Golongan.Text = "IIIC" Then
            Gaji.Text = "2000000"
        ElseIf Golongan.Text = "IIID" Then
            Gaji.Text = "1500000"

        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
            tunjangankeluarga.Text = 16% * Gaji.Text
        ElseIf Status.Text = " TIDAK MENIKAH" Then
            tunjangankeluarga.Text = 0
        End If
    End Sub

    Private Sub jumlahAnak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlahAnak.SelectedIndexChanged
        If jumlahAnak.Text = "1" Then
            Tunjangananak.Text = 10% * Gaji.Text
        ElseIf jumlahAnak.Text = "2" Then
            Tunjangananak.Text = 19% * Gaji.Text
        End If
    End Sub

    Sub Buattabel1()
        LV.Columns.Add("NIP", 50, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Golongan", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji", 80, HorizontalAlignment.Center)
        LV.Columns.Add("status", 80, HorizontalAlignment.Center)
        LV.Columns.Add("tunjangan keluarga", 150, HorizontalAlignment.Center)
        LV.Columns.Add("jumlah anak", 120, HorizontalAlignment.Center)
        LV.Columns.Add("tunjangan anank", 120, 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 = Nip.Text
        Lst.SubItems.Add(Nama.Text)
        Lst.SubItems.Add(Golongan.Text)
        Lst.SubItems.Add(Gaji.Text)
        Lst.SubItems.Add(Status.Text)
        Lst.SubItems.Add(tunjangankeluarga.Text)
        Lst.SubItems.Add(jumlahAnak.Text)
        Lst.SubItems.Add(Tunjangananak.Text)
        Lst.SubItems.Add(Total.Text)
        LV.Items.Add(Lst)
    End Sub

    Private Sub fromKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Buattabel1()
        NIP.Items.Add("11115")
        NIP.Items.Add("11116")
        NIP.Items.Add("11117")
        NIP.Items.Add("11118")

        Golongan.Items.Add("IIIA")
        Golongan.Items.Add("IIIB")
        Golongan.Items.Add("IIIC")
        Golongan.Items.Add("IIID")

        Status.Items.Add("Menikah")
        Status.Items.Add("Belum Menikah")


        jumlahAnak.Items.Add("1")
        jumlahAnak.Items.Add("2")


    End Sub

    Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
        IsiTabel()

        Total.Text = Val(Gaji.Text) + Val(TunjanganKeluarga.Text) + Val(TunjanganAnak.Text)
    End Sub


    Private Sub Tunjangananak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tunjangananak.TextChanged
        Total.Text = Val(Gaji.Text) + Val(TunjanganAnak.Text)

    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        IsiTabel()
        NIP.Text = ""
        Nama.Text = ""
        Golongan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        TunjanganKeluarga.Text = ""
        TunjanganAnak.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
End Class






Diposting oleh di Tidak ada komentar:

Kamis, 26 Januari 2012

listview

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call Tabel()
End Sub
Sub Tabel()
ListView1.Columns.Add(“NPM”, 60, HorizontalAlignment.Center)
ListView1.Columns.Add(“Nama”, 110, HorizontalAlignment.Left)
ListView1.Columns.Add(“Jurusan”, 130, HorizontalAlignment.Center)
ListView1.Columns.Add(“Jenjang”, 70, HorizontalAlignment.Center)
ListView1.Columns.Add(“Tahun Masuk”, 90, HorizontalAlignment.Center)
ListView1.Columns.Add(“Nilai Angka”, 75, HorizontalAlignment.Center)
ListView1.Columns.Add(“Nilai Huruf”, 75, HorizontalAlignment.Center)
ListView1.GridLines = True
ListView1.FullRowSelect = True
ListView1.View = View.Details
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(TahunMasuk.Text)
Lst.SubItems.Add(Angka.Text)
Lst.SubItems.Add(Huruf.Text)
ListView1.Items.Add(Lst)
End Sub
Private Sub NPM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.TextChanged
Dim Lst As String
TahunMasuk.Text = “20″ & Microsoft.VisualBasic.Left(NPM.Text, 2)
Lst = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
If Lst = “01″ Then
Jenjang.Text = “Diploma I”
ElseIf Lst = “02″ Then
Jenjang.Text = “Diploma III”
ElseIf Lst = “03″ Then
Jenjang.Text = “Strata I”
End If
Lst = Microsoft.VisualBasic.Mid(NPM.Text, 5, 2)
If Lst = “01″ Then
Jurusan.Text = “Manajemen Informatika”
ElseIf Lst = “02″ Then
Jurusan.Text = “Sistem Informasi”
ElseIf Lst = “03″ Then
Jurusan.Text = “Teknik Komputer”
ElseIf Lst = “04″ Then
Jurusan.Text = “Akutansi”
End If
End Sub
Private Sub Angka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Angka.TextChanged
If Angka.Text >= “80″ Then
Huruf.Text = “A”
ElseIf Angka.Text >= “70″ Then
Huruf.Text = “B”
ElseIf Angka.Text >= “60″ Then
Huruf.Text = “C”
ElseIf Angka.Text >= “50″ Then
Huruf.Text = “D”
Else
Huruf.Text = “E”
End If
End Sub
Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
IsiTabel()
NPM.Text = “”
Nama.Text = “”
Jurusan.Text = “”
Jenjang.Text = “”
TahunMasuk.Text = “”
Angka.Text = “”
Huruf.Text = “”
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
Tabel()
End Sub
Private Sub BtnHapusData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusData.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
Private Sub BtnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusSemua.Click
ListView1.Items.Clear()
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
End
End Sub
End Class












Diposting oleh di Tidak ada komentar:
Langganan: Postingan (Atom)