lihat kasus disini
listing program
login
Public Class Form1
Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
If username.Text = "dessy" And password.Text = "ayah" Then
menuutama.Show()
Me.Hide()
Else
MsgBox("data username/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
Private Sub username_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles username.TextChanged
End Sub
End Class
Public Class menuutama
Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click
End Sub
Private Sub DataPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPegawaiToolStripMenuItem.Click
pegawai.show()
End Sub
Private Sub menuutama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class pegawai
Sub BuatTabel()
ListView1.Columns.Add("nama", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("jabatan", 180, HorizontalAlignment.Left)
ListView1.Columns.Add("gaji pokok", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("status", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("pajak", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("tunjangan istri", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("tunjangan anak", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("jumlah anak", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("jam lembur", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("gaji lembur", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("total gaji", 100, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.FullRowSelect = True
End Sub
Sub isitabel()
Dim lst As New ListViewItem
lst.Text = nama.Text
lst.SubItems.Add(jabatan.Text)
lst.SubItems.Add(gajipokok.Text)
lst.SubItems.Add(status.Text)
lst.SubItems.Add(pajak.Text)
lst.SubItems.Add(tunjanganistri.Text)
lst.SubItems.Add(tunjangananak.Text)
lst.SubItems.Add(jumlahanak.Text)
lst.SubItems.Add(jamlembur.Text)
lst.SubItems.Add(gajilembur.Text)
lst.SubItems.Add(totalgaji.Text)
ListView1.Items.Add(lst)
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
nama.Text = ""
jabatan.Text = ""
gajipokok.Text = ""
status.Text = ""
tunjanganistri.Text = ""
tunjangananak.Text = ""
totalgaji.Text = ""
jamlembur.Text = ""
gajilembur.Text = ""
pajak.Text = ""
End Sub
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
Select Case status.Text
Case "Tidak Menikah"
tunjanganistri.Text = 0
tunjangananak.Text = 0
Case "Menikah"
tunjanganistri.Text = (9 / 100 * gajipokok.Text)
If jumlahanak.Text = 1 Then
tunjangananak.Text = jumlahanak.Text * (3 / 100 * gajipokok.Text)
ElseIf jumlahanak.Text = 2 Then
tunjangananak.Text = (7 / 100 * gajipokok.Text)
ElseIf jumlahanak.Text >= 2 Then
tunjangananak.Text = (7 / 100 * gajipokok.Text)
End If
End Select
totalgaji.Text = Val(tunjanganistri.Text) + Val(tunjangananak.Text) + Val(gajipokok.Text + Val(gajilembur.Text) - Val(pajak.Text))
pajak.Text = (1.5 / 100 * gajipokok.Text)
End Sub
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")
status.Items.Add("Tidak Menikah")
status.Items.Add("Menikah")
Dim halaman As Byte
For halaman = 1 To 3
jamlembur.Items.Add(halaman)
Next
Call BuatTabel()
End Sub
Private Sub pajak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pajak.TextChanged
End Sub
Private Sub jamlembur_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jamlembur.SelectedIndexChanged
Select Case jabatan.Text
Case "mandor"
gajilembur.Text = (7500 * jamlembur.Text)
Case "kepala bagian"
gajilembur.Text = (10000 * jamlembur.Text)
Case "staf"
gajilembur.Text = (5000 * jamlembur.Text)
End Select
End Sub
Private Sub gajipokok_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gajipokok.TextChanged
End Sub
Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
If jabatan.Text = "mandor" Then
gajipokok.Text = "1750000"
ElseIf jabatan.Text = "kepala bagian" Then
gajipokok.Text = "2500000"
ElseIf jabatan.Text = "staf" Then
gajipokok.Text = "1250000"
End If
End Sub
Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
isitabel()
nama.Text = ""
jabatan.Text = ""
gajipokok.Text = ""
status.Text = ""
tunjanganistri.Text = ""
tunjangananak.Text = ""
totalgaji.Text = ""
jamlembur.Text = ""
gajilembur.Text = ""
pajak.Text = ""
End Sub
End Class
hasil program
Minggu, 29 Januari 2012
Kamis, 26 Januari 2012
jawaban soal no,2 ( Dessy Purwandani )
untuk kasus lihat disini
listing program
Public Class form1
Sub BuatTabel()
ListView1.Columns.Add("NPM", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 180, HorizontalAlignment.Left)
ListView1.Columns.Add("Jurusan", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Jenjang", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Nilai Angka", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Nilai Huruf", 100, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.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(Angka.Text)
lst.SubItems.Add(Huruf.Text)
ListView1.Items.Add(lst)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call BuatTabel()
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 Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
isitabel()
NPM.Text = ""
Nama.Text = ""
Jurusan.Text = ""
Jenjang.Text = ""
Tahun.Text = ""
Angka.Text = ""
Huruf.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 Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
NPM.Text = ""
Nama.Text = ""
Jurusan.Text = ""
Jenjang.Text = ""
Tahun.Text = ""
Angka.Text = ""
Huruf.Text = ""
End Sub
End Class
hasil program
listing program
Public Class form1
Sub BuatTabel()
ListView1.Columns.Add("NPM", 80, HorizontalAlignment.Center)
ListView1.Columns.Add("Nama", 180, HorizontalAlignment.Left)
ListView1.Columns.Add("Jurusan", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Jenjang", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Nilai Angka", 100, HorizontalAlignment.Left)
ListView1.Columns.Add("Nilai Huruf", 100, HorizontalAlignment.Left)
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.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(Angka.Text)
lst.SubItems.Add(Huruf.Text)
ListView1.Items.Add(lst)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call BuatTabel()
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 Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
ListView1.Items.Remove(ListView1.SelectedItems(0))
End Sub
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
isitabel()
NPM.Text = ""
Nama.Text = ""
Jurusan.Text = ""
Jenjang.Text = ""
Tahun.Text = ""
Angka.Text = ""
Huruf.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 Btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnbersih.Click
NPM.Text = ""
Nama.Text = ""
Jurusan.Text = ""
Jenjang.Text = ""
Tahun.Text = ""
Angka.Text = ""
Huruf.Text = ""
End Sub
End Class
hasil program
Langganan:
Postingan (Atom)