Saya
akan membuat aplikasi untuk menghitung gaji perusahaan utnutk tugas pertemuan 6
ini. Lanngkah pertama membuat splash terlebih dahulu. Tampilan sebagai berikut
:
Public Class FormSplash
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
FormLogin.Show()
End Sub
End Class
Pada tombol Log in
kemudian akan muncul form yang memunculkan untk mengisi username dan password
yang menandakan kita adalah sebagai karyawan di prusahaan CMY tersebut atau
bukan
Public Class FormLogin
Sub
bersihkan()
ComboBox1.Text = ""
ComboBox1.Text = ""
ComboBox1.Focus()
End Sub
Private Sub Button1_Click_1(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
If
(ComboBox1.Text = "ambarwati" And Txtpassword.Text = "001")
Then
MDIParent1.Show()
Me.Close()
Else
MsgBox("Username
atau Password yang Anda Masukkan Salah!", , "Peringatan")
Call
bersihkan()
End If
End Sub
Private Sub Button2_Click_1(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Dim x As Integer
x = MsgBox("Apakah
Anda yakin ingin keluar dari aplikasi?", MsgBoxStyle.YesNo +
MsgBoxStyle.Question, "Konfirmasi")
If x =
vbYes Then
Me.Close()
FormSplash.Close()
End If
End Sub
End Class
setelah akun yang dimiliki benar maka muncul form
untuk pengisian data gaji karyawaan sebagai berikut :
Imports
Microsoft.Office.Interop.Word
Public Class Form3
Sub
bersih()
TextBoxNIP.Text = ""
TextBoxNama.Text = ""
TextBoxJabatan.Text = ""
TextBoxGapok.Text = ""
TextBoxAnggota.Text = ""
ComboBoxStatus.Text = ""
TextBoxTunjIstriSuami.Text = ""
TextBoxTunjAnak.Text = ""
TextBoxTunjKesehatan.Text = ""
ComboBoxGol.Text = ""
ComboBoxJmlAnak.Text = ""
End Sub
Function
tunjanganistrisuami()
If
ComboBoxStatus.Text = "Lajang" Then
tunjanganistrisuami = 0
ElseIf
ComboBoxStatus.Text = "Menikah" Then
tunjanganistrisuami = 8 / 100 *
TextBoxGapok.Text
End If
End Function
Function
tunjangananak(ByVal jumlahanak)
'Dim
jumlahanak As Integer
If
ComboBoxStatus.Text = "Menikah" Then
If
(jumlahanak = "0") Then
tunjangananak = 0
ElseIf
(jumlahanak = "1") Then
tunjangananak =
TextBoxGapok.Text * 10 / 100
ElseIf
(jumlahanak = "2") Then
tunjangananak =
TextBoxGapok.Text * 10 / 100 * 2
ElseIf
(jumlahanak = "3") Then
tunjangananak =
TextBoxGapok.Text * 10 / 100 * 3
Else
tunjangananak =
TextBoxGapok.Text * 10 / 100 * 3
End
If
Else
MsgBox("Terjadi
Kesalahan Pada Status Anda!", , "Peringatan")
End If
End Function
Private Sub ButtonMulai_Click(ByVal
sender As Object,
ByVal e As
EventArgs) Handles ButtonMulai.Click
Call
bersih()
End Sub
Private Sub ButtonHitung_Click(ByVal
sender As Object,
ByVal e As
EventArgs) Handles ButtonHitung.Click
Dim
kelasgaji As ClassGaji
kelasgaji = New
ClassGaji
LabelGaKot.Text =
kelasgaji.gajikotor(TextBoxGapok.Text, TextBoxTunjIstriSuami.Text,
TextBoxTunjAnak.Text, TextBoxTunjKesehatan.Text)
Dim
penghasilannetto As Integer
Dim pkp
As Integer
Dim
pph21 As Integer
penghasilannetto = LabelGaKot.Text -
(0.05 * LabelGaKot.Text)
If
ComboBoxStatus.Text = "Lajang" Then
pkp = penghasilannetto - 2025000
pph21 = 0.05 * pkp
Labelpph.Text = pph21
ElseIf
ComboBoxStatus.Text = "Menikah" Then
If
ComboBoxJmlAnak.Text = "1" Then
pkp = penghasilannetto - 2025000
- 168750 - 168750
pph21 = 0.05 * pkp
Labelpph.Text = pph21
ElseIf
ComboBoxJmlAnak.Text = "2" Then
pkp = penghasilannetto -
2025000 - 168750 - 168750
pph21 = 0.05 * pkp
Labelpph.Text = pph21
ElseIf
ComboBoxJmlAnak.Text = "3" Then
pkp = penghasilannetto -
2025000 - 168750 - 168750
pph21 = 0.05 * pkp
Labelpph.Text = pph21
Else
pkp = penghasilannetto -
2025000 - 168750 - 168750
pph21 = 0.05 * pkp
Labelpph.Text = pph21
End
If
End If
Labelgaber.Text = Val(LabelGaKot.Text)
- Val(Labelpph.Text)
End Sub
Private Sub ComboBoxGol_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles
ComboBoxGol.SelectedIndexChanged
Dim
kelasgaji As ClassGaji
kelasgaji = New
ClassGaji
TextBoxJabatan.Text =
kelasgaji.jabatan(ComboBoxGol.Text)
TextBoxGapok.Text =
kelasgaji.gajipokok(ComboBoxGol.Text)
End Sub
Private Sub ComboBoxStatus_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles
ComboBoxStatus.SelectedIndexChanged
TextBoxTunjIstriSuami.Text =
tunjanganistrisuami()
End Sub
Private Sub TextBoxAnggota_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles
TextBoxAnggota.TextChanged
Dim
kelasgaji As ClassGaji
kelasgaji = New
ClassGaji
TextBoxTunjKesehatan.Text =
kelasgaji.tunjangankesehatan(TextBoxAnggota.Text)
End Sub
Private Sub ComboBoxJmlAnak_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles
ComboBoxJmlAnak.SelectedIndexChanged
TextBoxTunjAnak.Text =
tunjangananak(ComboBoxJmlAnak.Text)
End Sub
Private Sub ButtonSelesai_Click(ByVal
sender As Object,
ByVal e As
EventArgs) Handles ButtonSelesai.Click
Dim x As Integer
x = MsgBox("Apakah
Anda yakin ingin keluar dari program?", MsgBoxStyle.YesNo +
MsgBoxStyle.Question, "Konfirmasi")
If x =
vbYes Then
Me.Close()
End If
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim
myapp As New
Microsoft.Office.Interop.Word.Application
Dim
mybook As New
Microsoft.Office.Interop.Word.Document
mybook = myapp.Documents.Open("D:\ambar\datagajikaryawan.doc")
mybook.Bookmarks("nama") = TextBoxNama.Text
mybook.Bookmarks("NIP") = TextBoxNIP.Text
mybook.Bookmarks("golongan") = ComboBoxGol.Text
mybook.Bookmarks("jabatan") = TextBoxJabatan.Text
mybook.Bookmarks("gapok") = TextBoxGapok.Text
mybook.Bookmarks("status") = ComboBoxStatus.Text
mybook.Bookmarks("jumnak") = ComboBoxJmlAnak.Text
mybook.Bookmarks("jmkel") = TextBoxAnggota.Text
mybook.Bookmarks("tunis") = TextBoxTunjIstriSuami.Text
mybook.Bookmarks("tunak") = TextBoxTunjAnak.Text
mybook.Bookmarks("tukes") = TextBoxTunjKesehatan.Text
mybook.Bookmarks("gator")
= LabelGaKot.Text
mybook.Bookmarks("pph21") = Labelpph.Text
mybook.Bookmarks("gaber") = Labelgaber.Text
myapp.Quit()
End Sub
End Class
Automaion yang saya buat pada aplikasi ini adalah pada
microsoft word jadi saya membuat un
peyimpanan data tersebut pada ms.word sbg berikut
Kemudian tersedia menu-menu yang sayabuat pada MDIparent
yang berupa menustrip untuk menampilkan data, menginput, mengedit dsb berikut
adalah menu-menu yang saya buat pada mdi parent berseta codenya
Imports
System.Windows.Forms
Public Class MDIParent1
Dim frm1 As New Form3
Dim frm2 As New FormOpen
Private Sub ShowNewForm(ByVal
sender As Object,
ByVal e As
EventArgs) Handles NewToolStripMenuItem.Click,
NewToolStripButton.Click, NewWindowToolStripMenuItem.Click
frm1.MdiParent = Me
frm1.Show()
End Sub
Private Sub ExitToolsStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
ExitToolStripMenuItem.Click
Me.Close()
formsplash.Close()
End Sub
Private Sub CutToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
CutToolStripMenuItem.Click
frm1.MdiParent = Me
frm1.TextBoxAnggota.Cut()
End Sub
Private Sub CopyToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
CopyToolStripMenuItem.Click
frm1.MdiParent = Me
frm1.TextBoxAnggota.Copy()
End Sub
Private Sub PasteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
PasteToolStripMenuItem.Click
frm1.MdiParent = Me
frm1.TextBoxAnggota.Paste()
End Sub
Private Sub ToolBarToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
ToolBarToolStripMenuItem.Click
Dim
nofile As Integer
nofile = FreeFile()
FileOpen(nofile, "D:\Pengantar Pemrograman Bisnis 1\Tugas Akhir
VB\gajitugas4.csv", OpenMode.Input)
frm2.MdiParent = Me
frm2.RichTextBox1.Text =
InputString(nofile, LOF(nofile))
frm2.Show()
End Sub
Private Sub CascadeToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub
Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
TileVerticalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub
Private Sub TileHorizontalToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
TileHorizontalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub ArrangeIconsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
ArrangeIconsToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.ArrangeIcons)
End Sub
Private Sub CloseAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
CloseAllToolStripMenuItem.Click
frm1.MdiParent = Me
frm1.Hide()
End Sub
Private Sub UndoToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
UndoToolStripMenuItem.Click
frm1.MdiParent = Me
frm1.TextBoxAnggota.Undo()
End Sub
Private Sub RedoToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
RedoToolStripMenuItem.Click
frm1.MdiParent = Me
frm1.TextBoxAnggota.ClearUndo()
End Sub
Private Sub SelectAllToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
SelectAllToolStripMenuItem.Click
frm1.MdiParent = Me
frm1.TextBoxAnggota.SelectAll()
End Sub
Private Sub OpenToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
OpenToolStripMenuItem.Click
Dim
nofile As Integer
nofile = FreeFile()
FileOpen(nofile, "D:\Pengantar Pemrograman Bisnis 1\Tugas Akhir
VB\gajitugas4.csv", OpenMode.Input)
frm2.MdiParent = Me
frm2.RichTextBox1.Text =
InputString(nofile, LOF(nofile))
frm2.Show()
End Sub
Private Sub OpenToolStripButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
OpenToolStripButton.Click
Dim
nofile As Integer
nofile = FreeFile()
FileOpen(nofile, "D:\Pengantar Pemrograman Bisnis 1\Tugas Akhir
VB\gajitugas4.csv", OpenMode.Input)
frm2.MdiParent = Me
frm2.RichTextBox1.Text =
InputString(nofile, LOF(nofile))
frm2.Show()
End Sub
Private Sub CloseToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles
CloseToolStripMenuItem.Click
frm1.MdiParent = Me
Dim x As Integer
x = MsgBox("Apakah
Anda yakin ingin keluar dari program?", MsgBoxStyle.YesNo +
MsgBoxStyle.Question, "Konfirmasi")
If x =
vbYes Then
Me.Hide()
FormSplash.Close()
End If
End Sub
End Class
Data yang ingin diliahat ataupun ditampilkan bautlah form
baru contoh seperti yang saya buat form beserta toolbox -à RichTextBox1
Demikian program atau aplikasi yang saya buat untuk
menghitung gaji karyawan berserta automationnya ke dalam ms.word.
Terimakasih
