Senin, 22 Oktober 2012
Minggu, 29 Januari 2012
Kasus
JAWABAN QUIZ VISUAL BASIC ( VB.NET )
JAWABAN SOAL NO 3
NAMA : SRI RAHAYU
KELAS : SI-P0905
JAWABAN QUIZ VISUAL BASIC ( VB.NET )
JAWABAN SOAL NO 3
NAMA : SRI RAHAYU
KELAS : SI-P0905
Public Class Form1
Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
If Username.Text = "AYU" And Password.Text = "231" Then
FormMenu.Show()
Me.Hide()
Else
MsgBox("MAAF!Password Salah !")
Username.Text = ""
Password.Text = ""
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
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
Private Sub FormMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
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 = "118346" Then
Nama.Text = "ADE MUNANDAR"
ElseIf NIP.Text = "113794" Then
Nama.Text = "RHEINA JASMINE"
ElseIf NIP.Text = "114820" Then
Nama.Text = "TYO FIRMANSYAH"
ElseIf NIP.Text = "113465" Then
Nama.Text = "DHEA OLIVIA"
End If
End Sub
Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged
If Golongan.Text = "238Z" Then
Gaji.Text = "3000000"
ElseIf Golongan.Text = "241R" Then
Gaji.Text = "2500000"
ElseIf Golongan.Text = "354G" Then
Gaji.Text = "2000000"
ElseIf Golongan.Text = "293F" 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", 80, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
LV.Columns.Add("Golongan", 80, HorizontalAlignment.Center)
LV.Columns.Add("Gaji", 80, HorizontalAlignment.Center)
LV.Columns.Add("status", 80, HorizontalAlignment.Center)
LV.Columns.Add("tunjangan keluarga", 80, HorizontalAlignment.Center)
LV.Columns.Add("jumlah anak", 80, HorizontalAlignment.Center)
LV.Columns.Add("tunjangan anank", 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 = 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(pajak.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("118346")
NIP.Items.Add("113794")
NIP.Items.Add("114820")
NIP.Items.Add("113465")
Golongan.Items.Add("238Z")
Golongan.Items.Add("241R")
Golongan.Items.Add("354G")
Golongan.Items.Add("293F")
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()
Pajak.Text = 3% * Gaji.Text
Total.Text = Val(Gaji.Text) + Val(TunjanganKeluarga.Text) + Val(TunjanganAnak.Text) + Val(Pajak.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 = ""
Pajak.Text = ""
NIP.Focus()
End Sub
Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
End
End Sub
End Class
JAWABAN SOAL 2
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
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
Langganan:
Postingan (Atom)