pak ini tugas latihan vb.net saya......
dan ini hasil kasusnya
yulasmi
pemandangan indah
Senin, 23 Januari 2012
Data Gaji Pegawai
Public Class Form1
Dim LST As ListViewItem
Private Sub Form1_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("Staf")
buat_table()
End Sub
Sub
buat_table()
With LV
.Items.Clear()
.FullRowSelect = True
.GridLines = True
.View = View.Details
.Columns.Add("Jabatan", 100)
.Columns.Add("Gaji pokok", 100)
.Columns.Add("Tunjangan istri", 100,
HorizontalAlignment.Center)
.Columns.Add("Tunjngan anak", 100,
HorizontalAlignment.Left)
.Columns.Add("Pajak", 100, HorizontalAlignment.Left)
.Columns.Add("Gaji lembur", 100,
HorizontalAlignment.Left)
.Columns.Add("Jam lembur", 100,
HorizontalAlignment.Left)
.Columns.Add("Upah per jam", 100,
HorizontalAlignment.Left)
.Columns.Add("Total gaji", 100,
HorizontalAlignment.Left)
End With
End Sub
Sub
simpan()
LST = Me.LV.Items.Add(Me.jabatan.Text)
LST.SubItems.Add(Me.gaji_pokok.Text)
LST.SubItems.Add(Me.tunjangan_istri.Text)
LST.SubItems.Add(Me.tunjangan_anak.Text)
LST.SubItems.Add(Me.pajak.Text)
LST.SubItems.Add(Me.gaji_lembur.Text)
LST.SubItems.Add(Me.jam_lembur.Text)
LST.SubItems.Add(Me.upah_per_jam.Text)
LST.SubItems.Add(Me.total_gaji.Text)
End Sub
Sub
kosong()
jabatan.Text = ""
gaji_pokok.Text = ""
tunjangan_istri.Text = ""
tunjangan_anak.Text = ""
pajak.Text = ""
gaji_lembur.Text = ""
jam_lembur.Text = ""
upah_per_jam.Text = ""
total_gaji.Text = ""
gaji_pokok.Focus()
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_pokok.Text = "1750000"
ElseIf
jabatan.Text = "Kepala bagian" Then
gaji_pokok.Text = "2500000"
ElseIf
jabatan.Text = "Staf" Then
gaji_pokok.Text = "1250000"
Else
jabatan.Text = ""
End If
End Sub
Private Sub tunjangan_istri_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
tunjangan_istri.TextChanged
tunjangan_istri.Text = 0.09 *
gaji_pokok.Text
End Sub
Private Sub tunjangan_anak_TextChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs)
tunjangan_anak.Text = 0.03 *
gaji_pokok.Text
End Sub
Private Sub pajak_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles pajak.TextChanged
pajak.Text = 0.015 - gaji_pokok.Text
End Sub
Private Sub btnproses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnproses.Click
If
jam_lembur.Text <> "" Then
pajak.Text = 0.015 -
gaji_pokok.Text
gaji_lembur.Text = jam_lembur.Text
* upah_per_jam.Text
Else
MessageBox.Show("jumlah tidak boleh kosong")
Exit Sub
End If 'callbyname(jam
lembur_keypress)
End Sub
Private Sub btnsimpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnsimpan.Click
Call
simpan()
End Sub
Private Sub btnbersih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnbersih.Click
kosong()
gaji_pokok.Focus()
End Sub
Private Sub btnhapus_semua_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapus_semua.Click
LV.Items.Clear()
End Sub
Private Sub btnhapus_data_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapus_data.Click
If
LV.SelectedItems.Count <> 0 Then
LV.Items.Remove(LV.SelectedItems(0))
Else
MsgBox("maaf
anda belum" & "memilih yang
mana mau dihapus")
End If
End Sub
Private Sub btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkeluar.Click
Dim
tanya As String
tanya = MsgBox("Apakah
Anda Yakin Ingin Keluar?" & vbCrLf & "Harus Yakin", MsgBoxStyle.Question +
MsgBoxStyle.YesNo)
If
tanya = vbYes Then
Me.Close()
Else
Exit
Sub
End If
End Sub
Private Sub gaji_lembur_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
gaji_lembur.TextChanged
total_gaji.Text = Val(jabatan.Text) *
Val(jam_lembur.Text)
End Sub
Private Sub total_gaji_TextChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
total_gaji.TextChanged
total_gaji.Text = gaji_pokok.Text +
tunjangan_istri.Text + tunjangan_anak.Text + gaji_lembur.Text - pajak.Text
End Sub
End Class
Hal 33 (YULASMI)
Public Class Form1
Dim LST As ListViewItem
Private Sub kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles
kode.SelectedIndexChanged
Select Case kode.Text
Case
"TS001"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "Toshiba"
Case
"TS002"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk 2GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "Toshiba"
Case
"VG001"
Microsoft.VisualBasic.Right(kode.Text,
3)
nama.Text = "Flashdisk 4GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "V-Gen"
Case
"VG002"
Microsoft.VisualBasic.Right(kode.Text, 3)
nama.Text = "Flashdisk
2GB"
Microsoft.VisualBasic.Left(kode.Text, 2)
merk.Text = "V-gen"
End Select
If
kode.Text = "TS001" Then
harga.Text = "105000"
ElseIf
kode.Text = "TS002" Then
harga.Text = "75000"
ElseIf
kode.Text = "VG001" Then
harga.Text = "90000"
ElseIf
kode.Text = "VG002" Then
harga.Text = "60000"
End If
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
kode.Items.Add("TS001")
kode.Items.Add("TS002")
kode.Items.Add("VG001")
kode.Items.Add("VG002")
buat_table()
kosong()
End Sub
Sub buat_table()
With LV
.Items.Clear()
.FullRowSelect = True
.GridLines = True
.View = View.Details
.Columns.Add("No Pembelian", 100)
.Columns.Add("Kode Barang", 100)
.Columns.Add("Nama Barang", 100,
HorizontalAlignment.Center)
.Columns.Add("Merk", 100, HorizontalAlignment.Left)
.Columns.Add(" Harga ", 100,
HorizontalAlignment.Left)
.Columns.Add("Jumlah Beli", 100, HorizontalAlignment.Left)
.Columns.Add("Total Harga", 100,
HorizontalAlignment.Left)
End With
End Sub
Sub
simpan()
LST = Me.lv.Items.Add(Me.no.Text)
LST.SubItems.Add(Me.kode.Text)
LST.SubItems.Add(Me.nama.Text)
LST.SubItems.Add(Me.merk.Text)
LST.SubItems.Add(Me.harga.Text)
LST.SubItems.Add(Me.jumlah.Text)
LST.SubItems.Add(Me.tharga.Text)
End Sub
Sub
kosong()
nama.Text = ""
no.Text = ""
kode.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
tharga.Text = ""
no.Focus()
End Sub
Private Sub btnhapusdata_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnhapusdata.Click
If
lv.SelectedItems.Count <> 0 Then
lv.Items.Remove(lv.SelectedItems(0))
Else
MsgBox("maaf
anda belum" & "memilih yang
mana mau dihapus")
End If
End Sub
Private Sub btnsimpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnsimpan.Click
Call
simpan()
End Sub
Private Sub btnbersih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnbersih.Click
kosong()
no.Focus()
End Sub
Private Sub btnkeluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnkeluar.Click
Dim
tanya As String
tanya = MsgBox("Apakah
Anda Yakin Ingin Keluar?" & vbCrLf & "Harus Yakin", MsgBoxStyle.Question +
MsgBoxStyle.YesNo)
If
tanya = vbYes Then
Me.Close()
Else
Exit
Sub
End If
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 jumlah_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
jumlah.KeyPress
tharga.Text = Val(jumlah.Text) *
Val(harga.Text)
End Sub
End Class
Langganan:
Postingan (Atom)