Gbr. 1a
Sebelum kita memulai pembuatan Menu, Toolbar dan Statusbar,pertama – tama anda buat dilayar pertama form1 dan desainlah seperti Gbr.1a. Setelah anda sudah siap mendesainnya kemudian anda klik 2x pada tombol OK, dan anda masukkan rumus yang dibawah ini.
Public Class Form1
Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click
If USERNAME.Text = "FRICLES" And PASWORD.Text = "000" Then
FormMenu.Show()
Me.Hide()
Else
MsgBox("MAAF! PASSWORD SALAH!")
USERNAME.Text = ""
PASWORD.Text = ""
End If
End Sub
Setelah itu anda masukkan juga program untuk tombol KELUAR
Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
End
End Sub
End Class
Langkah berikutnya yaitu anda tambahkan 2 form lagi dengan nama yang berbeda, pada form2 anda buat namanya formmenu, dan form3 anda buat namanya karyawan, seperti gambar dibawah ini :
Gbr.1b
Setelah anda sudah siap desaign seperti gambar diatas anda buka layar formMenu, kemudian anda pilih pada toolboox yang namanya MENUSTRIP.
Ikutilah desaign gambar disamping.
Gbr.1c
Langkah berikutnya klik 2x pada DATA PEGAWAI dan anda masukka perintah berikut:
Private Sub DATAPENGGAJIANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAPENGGAJIANToolStripMenuItem.Click
karyawan.Show()
End Sub
Begitu juga dengan tombol KELUAR
Private Sub KELUARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUARToolStripMenuItem.Click
End
End Sub
End Class
Coba anda jalankan ( F5 ).
Setelah anda jalankan pasti hasilnya seperti diatas..
Langkah yang berikutnya kita akan bekerja pada layar karyawan, pada layar ini kita akan desaign seperti gambar dibawah ini :
Gambar diatas sudah di desaign dengan sempurna, sekarang kita masukkan program untuk data tersebut, anda perhatikan dibagian mana perintahnya diletakkan ea,,
Jangan sampai salah.
Public Class karyawan
Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged
If NIP.Text = "0001" Then
NAMAKARYAWAN.Text = "PARJOLI"
ElseIf NIP.Text = "0002" Then
NAMAKARYAWAN.Text = "RUTHMEYDA"
ElseIf NIP.Text = "0003" Then
NAMAKARYAWAN.Text = "FRICLES"
End If
End Sub
Private Sub GOL_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GOL.SelectedIndexChanged
If GOL.Text = "IIIA" Then
GAJI.Text = 2500000
ElseIf GOL.Text = "IIIB" Then
GAJI.Text = 2750000
ElseIf GOL.Text = "IIIC" Then
GAJI.Text = 3000000
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
TUNJANGANANAK.Text = GAJI.Text * 0.016
Else
TUNJANGANANAK.Text = 0
End If
If STATUS.Text = "LAJANG" Then
TUNJANGANANAK.Enabled = False
TUNJANGANANAK.Enabled = False
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
TUNJANGAN.Text = GAJI.Text * 0.1
ElseIf JUMLAHANAK.Text = "2" Then
TUNJANGAN.Text = GAJI.Text * 0.19
End If
End Sub
Private Sub PAJAK_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PAJAK.TextChanged
TOTAL.Text = Val(GAJI.Text) + Val(TUNJANGANANAK.Text) + Val(TUNJANGAN.Text) - Val(PAJAK.Text)
End Sub
Private Sub karyawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
BUATTABEL()
ISITABEL()
End Sub
Sub BUATTABEL()
LV.Columns.Add("NIP", 80, HorizontalAlignment.Center)
LV.Columns.Add("NAMA KARYAWAN", 180, HorizontalAlignment.Left)
LV.Columns.Add("GOL", 80, HorizontalAlignment.Left)
LV.Columns.Add("GAJI", 80, HorizontalAlignment.Left)
LV.Columns.Add("STATUS", 80, HorizontalAlignment.Left)
LV.Columns.Add("TUNJANGAN", 80, HorizontalAlignment.Left)
LV.Columns.Add("TUNJANGANANAK", 80, HorizontalAlignment.Left)
LV.Columns.Add("JUMLAH ANAK", 80, HorizontalAlignment.Left)
LV.Columns.Add("PAJAK", 80, HorizontalAlignment.Left)
LV.Columns.Add("TOTAL GAJI", 80, HorizontalAlignment.Left)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
End Sub
Sub ISITABEL()
For i = 1 To 3
NIP.Items.Add("000" & i)
Next
GOL.Items.Add("IIIA")
GOL.Items.Add("IIIB")
GOL.Items.Add("IIIC")
STATUS.Items.Add("MENIKAH")
STATUS.Items.Add("BELUM MENIKAH")
JUMLAHANAK.Items.Add(1)
JUMLAHANAK.Items.Add(2)
End Sub
Private Sub TUNJANGAN_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TUNJANGAN.TextChanged
TUNJANGANANAK.Text = GAJI.Text * 0.16
End Sub
Private Sub BTNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNOK.Click
Dim sublv As New ListViewItem
sublv.Text = NIP.Text
sublv.SubItems.Add(NAMAKARYAWAN.Text)
sublv.SubItems.Add(GOL.Text)
sublv.SubItems.Add("RP. " & GAJI.Text)
sublv.SubItems.Add(STATUS.Text)
sublv.SubItems.Add("RP. " & TUNJANGANANAK.Text)
sublv.SubItems.Add(" RP. " & TUNJANGAN.Text)
sublv.SubItems.Add(JUMLAHANAK.Text)
sublv.SubItems.Add("RP. " & PAJAK.Text)
sublv.SubItems.Add("RP. " & TOTAL.Text)
LV.Items.Add(sublv)
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
PAJAK.Text = ""
NAMAKARYAWAN.Text = ""
GOL.Text = ""
GAJI.Text = ""
STATUS.Text = ""
TUNJANGAN.Text = ""
TUNJANGANANAK.Text = ""
JUMLAHANAK.Text = ""
TOTAL.Text = ""
PAJAK.Focus()
End Sub
Private Sub GAJI_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GAJI.TextChanged
PAJAK.Text = GAJI.Text * 0.3
End Sub
End Class
Sekarang setelah siap anda masukkan program diatas kita akan lihat bagaimana hasilnya,,
Tekan tombol F5. Inilah hasilnya:
Siap dech...
Semoga anda dapat mempelajarinya Trima kasih.....
Tidak ada komentar:
Posting Komentar