Kasus : Lihat disini.

Listing Form Login :

Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "Soraya" And TextBox2.Text = "123" Then
Form1.Show()
Me.Hide()
Else
MsgBox("Harus Mengisi Username dan Password", 32, "Pesan")
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class



Berikut Tampilannya :

Listing Form Penggajian Karyawan :

Public Class Form1
Sub BuatTable()
LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
LV.Columns.Add("Jabatan", 100, HorizontalAlignment.Center)
LV.Columns.Add("Gaji Pokok", 100, HorizontalAlignment.Center)
LV.Columns.Add("Tunjangan Status", 100, HorizontalAlignment.Center)
LV.Columns.Add("Tunjangan Anak", 100, HorizontalAlignment.Center)
LV.Columns.Add("Lembur", 100, HorizontalAlignment.Center)
LV.Columns.Add("Pajak", 100, HorizontalAlignment.Center)
LV.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)
LV.GridLines = True
LV.View = View.Details
LV.FullRowSelect = True
End Sub

Sub isiTabel()
Dim lst As New ListViewItem
lst.Text = txtnama.Text
lst.SubItems.Add(CmbJabatan.Text)
lst.SubItems.Add(TxtGjPkk.Text)
lst.SubItems.Add(TxtTnjngnStts.Text)
lst.SubItems.Add(TxtTnjngnAnak.Text)
lst.SubItems.Add(TxtTtlLmbr.Text)
lst.SubItems.Add(TxtPjk.Text)
lst.SubItems.Add(LblTtlGaji.Text)
LV.Items.Add(lst)
End Sub
Private Sub CmbJabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbJabatan.SelectedIndexChanged
If CmbJabatan.Text = "Mandor" Then
TxtGjPkk.Text = "1750000"
TxtPjk.Text = (Val(TxtGjPkk.Text) * (0.015))
ElseIf CmbJabatan.Text = "Kepala Bagian" Then
TxtGjPkk.Text = "2500000"
TxtPjk.Text = (Val(TxtGjPkk.Text) * (0.015))
Else
TxtGjPkk.Text = "1250000"
TxtPjk.Text = (Val(TxtGjPkk.Text) * (0.015))
End If
End Sub
Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click
LblTtlGaji.Text = (Val(TxtGjPkk.Text) + Val(TxtTnjngnStts.Text) + Val(TxtTnjngnAnak.Text) + Val(TxtTtlLmbr.Text) - Val(TxtPjk.Text))
Call isiTabel()
End Sub
Private Sub btnUlang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUlang.Click
TxtNama.Text = ""
CmbJabatan.Text = "Pilihan"
RdMenkah.Checked = False
RdBelum.Checked = False
Rd1org.Checked = False
Rd2Org.Checked = False
RdLbh.Checked = False
TxtGjPkk.Text = ""
TxtTnjngnStts.Text = ""
TxtTnjngnAnak.Text = ""
TxtJmLmbr.Text = ""
TxtTtlLmbr.Text = ""
TxtPjk.Text = ""
LblTtlGaji.Text = ""
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call BuatTable()
TxtNama.Text = ""
CmbJabatan.Text = "Pilihan"
RdMenkah.Checked = False
RdBelum.Checked = False
Rd1org.Checked = False
Rd2Org.Checked = False
RdLbh.Checked = False
TxtGjPkk.Text = ""
TxtTnjngnStts.Text = ""
TxtTnjngnAnak.Text = ""
TxtJmLmbr.Text = ""
TxtTtlLmbr.Text = ""
TxtPjk.Text = ""
LblTtlGaji.Text = ""
CmbJabatan.Text = "Pilihan"
CmbJabatan.Items.Add("Mandor")
CmbJabatan.Items.Add("Kepala Bagian")
CmbJabatan.Items.Add("Staff")
End Sub

Private Sub RdMenkah_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdMenkah.CheckedChanged
If RdMenkah.Checked Then
TxtTnjngnStts.Text = (Val(TxtGjPkk.Text) * (0.09))
End If
Rd1org.Enabled = True
Rd2Org.Enabled = True
RdLbh.Enabled = True
End Sub

Private Sub RdBelum_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdBelum.CheckedChanged
If RdBelum.Checked Then
TxtTnjngnAnak.Text = ""
TxtTnjngnStts.Text = ""
Rd1org.Checked = False
Rd2Org.Checked = False
RdLbh.Checked = False
Rd1org.Enabled = False
Rd2Org.Enabled = False
RdLbh.Enabled = False
End If
End Sub

Private Sub Rd1org_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rd1org.CheckedChanged
If Rd1org.Checked Then
TxtTnjngnAnak.Text = (Val(TxtGjPkk.Text) * (0.03))
End If
End Sub

Private Sub Rd2Org_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Rd2Org.CheckedChanged
If Rd2Org.Checked Then
TxtTnjngnAnak.Text = (Val(TxtGjPkk.Text) * (0.07))
End If
End Sub

Private Sub RdLbh_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdLbh.CheckedChanged
If RdLbh.Checked Then
TxtTnjngnAnak.Text = (Val(TxtGjPkk.Text) * (0.07))
End If
End Sub

Private Sub TxtJmLmbr_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtJmLmbr.TextChanged
If CmbJabatan.Text = "Mandor" Then
TxtTtlLmbr.Text = (Val(TxtJmLmbr.Text) * (7500))
ElseIf CmbJabatan.Text = "Kepala Bagian" Then
TxtTtlLmbr.Text = (Val(TxtJmLmbr.Text) * (10000))
Else
TxtTtlLmbr.Text = (Val(TxtJmLmbr.Text) * (5000))
End If
End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
End
End Sub
End Class



Berikut Tampilan Form Penggajian :

Selengkapnya...

Kasus : Lihat di sini.


Listing Programnya :

Public Class Form1
Sub buatTable()
LV.Columns.Add("NPM", 60, HorizontalAlignment.Center)
LV.Columns.Add("Nama", 100, HorizontalAlignment.Center)
LV.Columns.Add("Jurusan", 80, HorizontalAlignment.Center)
LV.Columns.Add("Jenjang", 50, HorizontalAlignment.Center)
LV.Columns.Add("Tahun Masuk", 100, HorizontalAlignment.Center)
LV.Columns.Add("Nilai Angka", 50, HorizontalAlignment.Center)
LV.Columns.Add("Nilai Huruf", 100, HorizontalAlignment.Center)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub isiTable()
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(ThnMsk.Text)
lst.SubItems.Add(NA.Text)
lst.SubItems.Add(NH.Text)
LV.Items.Add(lst)
End Sub

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

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrsh.Click
NPM.Text = ""
Nama.Text = ""
Jurusan.Text = ""
Jenjang.Text = ""
ThnMsk.Text = ""
NA.Text = ""
NH.Text = ""
NPM.Focus()
End Sub

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

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call buatTable()
Jurusan.Items.Add("Teknik Informatika")
Jurusan.Items.Add("Sistem Informatika")
Jurusan.Items.Add("Manajemen Informatika")
Jurusan.Items.Add("Teknisi Komputer")
End Sub

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

Private Sub btnSmpn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSmpn.Click
Call isiTable()
NPM.Text = ""
Nama.Text = ""
Jurusan.Text = ""
Jenjang.Text = ""
ThnMsk.Text = ""
NA.Text = ""
NH.Text = ""
End Sub

Private Sub Jurusan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jurusan.SelectedIndexChanged
If Jurusan.Text = "Teknik Informatika" Then
Jenjang.Text = "S1"
ElseIf Jurusan.Text = "Sistem Informatika" Then
Jenjang.Text = "S1"
ElseIf Jurusan.Text = "Manajemen Informatika" Then
Jenjang.Text = "D3"
Else
Jenjang.Text = "D1"
End If
End Sub

Private Sub NA_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NA.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
If tombol = 13 Then
Label7_Click(sender, e)
End If
End Sub

Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
If NA.Text >= 100 Then
NH.Text = "A"
ElseIf NA.Text >= 80 Then
NH.Text = "B"
ElseIf NA.Text >= 60 Then
NH.Text = "C"
ElseIf NA.Text >= 50 Then
NH.Text = "D"
Else
NH.Text = "E"
End If
End Sub
End Class



Berikut Tampilannya :

Selengkapnya...