Scribd
Upload
60 views13 pages

Lampiran A. Syntax Program (Coding) : Form1 Eventargs

The document describes the code for a login form and employee form in Visual Basic. The login form contains code to check the username and password on login and open the employee form if correct. The employee form code initializes labels and textboxes to display and enter employee data like name, ID, address. It also contains buttons to submit the data.

Uploaded by

Raayhan Febrian
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
60 views13 pages

Lampiran A. Syntax Program (Coding) : Form1 Eventargs

The document describes the code for a login form and employee form in Visual Basic. The login form contains code to check the username and password on login and open the employee form if correct. The employee form code initializes labels and textboxes to display and enter employee data like name, ID, address. It also contains buttons to submit the data.

Uploaded by

Raayhan Febrian
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

LAMPIRAN

A. Syntax Program (Coding)

Public Class Form1


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
[Link]
If [Link] = "farhanfbrnp" And [Link] = "thinabere" Then
MsgBox("apakah anda sudah yakin ID dan Password anda benar?",
[Link])
If [Link] Then
[Link]()
[Link]()
End If
Else
MsgBox("ID / Password salah")
[Link]()
[Link] = ""
[Link] = ""
End If
End Sub
End Class

<[Link]()> _
Partial Class Karyawan
Inherits [Link]

'Form overrides dispose to clean up the component list.


<[Link]()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
[Link]()
End If
Finally
[Link](disposing)
End Try
End Sub

'Required by the Windows Form Designer


Private components As [Link]

'NOTE: The following procedure is required by the Windows Form Designer


'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<[Link]()> _
Private Sub InitializeComponent()
Me.Label1 = New [Link]()
Me.Label2 = New [Link]()
Me.Label4 = New [Link]()
Me.Label5 = New [Link]()
Me.Label6 = New [Link]()
Me.Label7 = New [Link]()
Me.Label8 = New [Link]()
Me.TextBox5 = New [Link]()
Me.TextBox6 = New [Link]()
Me.Button1 = New [Link]()
Me.ComboBox1 = New [Link]()
Me.Label3 = New [Link]()
Me.Label9 = New [Link]()
Me.Button2 = New [Link]()
Me.Label10 = New [Link]()
Me.Label11 = New [Link]()
Me.Label12 = New [Link]()
Me.Label13 = New [Link]()
Me.Label14 = New [Link]()
Me.Label15 = New [Link]()
Me.Label16 = New [Link]()
[Link]()
'
'Label1
'
[Link] = True
[Link] = New [Link](67, 130)
[Link] = "Label1"
[Link] = New [Link](25, 13)
[Link] = 1
[Link] = "NIP"
'
'Label2
'
[Link] = True
[Link] = New [Link](67, 88)
[Link] = "Label2"
[Link] = New [Link](35, 13)
[Link] = 2
[Link] = "Nama"
'
'Label4
'
[Link] = True
[Link] = New [Link](67, 168)
[Link] = "Label4"
[Link] = New [Link](45, 13)
[Link] = 4
[Link] = "Jabatan"
'
'Label5
'
[Link] = True
[Link] = New [Link](67, 272)
[Link] = "Label5"
[Link] = New [Link](37, 13)
[Link] = 5
[Link] = "Status"
'
'Label6
'
[Link] = True
[Link] = New [Link](67, 306)
[Link] = "Label6"
[Link] = New [Link](68, 13)
[Link] = 6
[Link] = "Jumlah Anak"
'
'Label7
'
[Link] = True
[Link] = New [Link](67, 337)
[Link] = "Label7"
[Link] = New [Link](124, 13)
[Link] = 7
[Link] = "Jumlah Jam Lembur/Jam"
'
'Label8
'
[Link] = True
[Link] = New [Link](67, 375)
[Link] = "Label8"
[Link] = New [Link](97, 13)
[Link] = 8
[Link] = "Jumlah Jam Masuk"
'
'TextBox5
'
[Link] = New [Link](197, 334)
[Link] = "TextBox5"
[Link] = New [Link](100, 20)
[Link] = 13
'
'TextBox6
'
[Link] = New [Link](197, 372)
[Link] = "TextBox6"
[Link] = New [Link](100, 20)
[Link] = 14
'
'Button1
'
[Link] = [Link]
[Link] = New [Link](232, 423)
[Link] = "Button1"
[Link] = New [Link](119, 23)
[Link] = 18
[Link] = "LANJUT"
[Link] = True
'
'ComboBox1
'
[Link] = True
[Link] = New [Link](197, 85)
[Link] = "ComboBox1"
[Link] = New [Link](121, 21)
[Link] = 19
'
'Label3
'
[Link] = True
[Link] = [Link]
[Link] = New [Link]("Microsoft Sans Serif",
9.0!, [Link], [Link],
CType(0, Byte))
[Link] = New [Link](194, 128)
[Link] = "Label3"
[Link] = New [Link](103, 15)
[Link] = 20
[Link] = " "
'
'Label9
'
[Link] = True
[Link] = [Link]
[Link] = New [Link]("Microsoft Sans Serif",
9.0!, [Link], [Link],
CType(0, Byte))
[Link] = New [Link](194, 166)
[Link] = "Label9"
[Link] = New [Link](103, 15)
[Link] = 21
[Link] = " "
'
'Button2
'
[Link] = [Link]
[Link] = New [Link](421, 83)
[Link] = "Button2"
[Link] = New [Link](108, 23)
[Link] = 22
[Link] = "Pilih"
[Link] = True
'
'Label10
'
[Link] = True
[Link] = [Link]
[Link] = New [Link]("Microsoft Sans Serif",
9.0!, [Link], [Link],
CType(0, Byte))
[Link] = New [Link](194, 304)
[Link] = "Label10"
[Link] = New [Link](103, 15)
[Link] = 21
[Link] = " "
'
'Label11
'
[Link] = True
[Link] = [Link]
[Link] = New [Link](194, 272)
[Link] = "Label11"
[Link] = New [Link](103, 13)
[Link] = 23
[Link] = " "
'
'Label12
'
[Link] = True
[Link] = New [Link](67, 201)
[Link] = "Label12"
[Link] = New [Link](114, 13)
[Link] = 24
[Link] = "Tempat, Tanggal Lahir"
'
'Label13
'
[Link] = True
[Link] = New [Link](67, 237)
[Link] = "Label13"
[Link] = New [Link](39, 13)
[Link] = 25
[Link] = "Alamat"
'
'Label14
'
[Link] = True
[Link] = [Link]
[Link] = New [Link](194, 201)
[Link] = "Label14"
[Link] = New [Link](103, 13)
[Link] = 26
[Link] = " "
'
'Label15
'
[Link] = True
[Link] = [Link]
[Link] = New [Link](194, 237)
[Link] = "Label15"
[Link] = New [Link](103, 13)
[Link] = 27
[Link] = " "
'
'Label16
'
[Link] = True
[Link] = New [Link]("Arial", 15.0!,
[Link], [Link], CType(0,
Byte))
[Link] = New [Link](253, 21)
[Link] = "Label16"
[Link] = New [Link](200, 24)
[Link] = 28
[Link] = "PT. TAJIR MELINTIR"
'
'Karyawan
'
[Link] = New [Link](6.0!, 13.0!)
[Link] = [Link]
[Link] = [Link]
[Link] = New [Link](685, 406)
[Link](Me.Label16)
[Link](Me.Label15)
[Link](Me.Label14)
[Link](Me.Label13)
[Link](Me.Label12)
[Link](Me.Label11)
[Link](Me.Button2)
[Link](Me.Label10)
[Link](Me.Label9)
[Link](Me.Label3)
[Link](Me.ComboBox1)
[Link](Me.Button1)
[Link](Me.TextBox6)
[Link](Me.TextBox5)
[Link](Me.Label8)
[Link](Me.Label7)
[Link](Me.Label6)
[Link](Me.Label5)
[Link](Me.Label4)
[Link](Me.Label2)
[Link](Me.Label1)
[Link] = [Link]
[Link] = "Karyawan"
[Link] = "Karyawan "
[Link](False)
[Link]()

End Sub
Friend WithEvents Label1 As [Link]
Friend WithEvents Label2 As [Link]
Friend WithEvents Label4 As [Link]
Friend WithEvents Label5 As [Link]
Friend WithEvents Label6 As [Link]
Friend WithEvents Label7 As [Link]
Friend WithEvents Label8 As [Link]
Friend WithEvents TextBox5 As [Link]
Friend WithEvents TextBox6 As [Link]
Friend WithEvents Button1 As [Link]

Private Sub Karyawan_Load(sender As Object, e As EventArgs) Handles


[Link]
[Link]("Gempita Nora Marten")
[Link]("Dia Sekala Bumi")
[Link]("El Barack")
[Link]("Rafathar Maliq Ahmad")
[Link]("Jonathan Sugianto")
[Link]("Arsy Hermansyah")
[Link]("Arsya Hermansyah")
[Link]("Noah Sinclair")
[Link]("Janethes")
[Link]("Thiago Messi")
End Sub
Friend WithEvents ComboBox1 As [Link]
Friend WithEvents Label3 As [Link]
Friend WithEvents Label9 As [Link]

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As


EventArgs) Handles [Link]

End Sub
Friend WithEvents Button2 As [Link]

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles


[Link]
If [Link] = "Gempita Nora Marten" Then
[Link] = "2015.1601.001"
[Link] = "Sekretaris"
[Link] = "Jakarta, 16 januari 2015"
[Link] = "Pondok Indah"
[Link] = "Belum Menikah"
[Link] = 0
End If
If [Link] = "Dia Sekala Bumi" Then
[Link] = "2016.2405.002"
[Link] = "General Manager"
[Link] = "Malang, 24 Mei 2016"
[Link] = "Pasar Minggu"
[Link] = "Belum Menikah"
[Link] = 0
End If

If [Link] = "El Barack" Then


[Link] = "2014.2107.003"
[Link] = "SuperVisors"
[Link] = "New York, 21 July 2014"
[Link] = "Pejaten"
[Link] = "Menikah"
[Link] = 1
End If

If [Link] = "Rafathar Maliq Ahmad" Then


[Link] = "2015.1508.004"
[Link] = "Deputy Direktur"
[Link] = "Bandung, 15 Agustus 2015"
[Link] = "Lebak Bulus"
[Link] = "Menikah"
[Link] = 2
End If

If [Link] = "Jonathan Sugianto" Then


[Link] = "2013.2802.005"
[Link] = "Employees"
[Link] = "Jakarta, 28 Februari 2013"
[Link] = "Kebon Jeruk"
[Link] = "Menikah"
[Link] = 1
End If

If [Link] = "Arsy Hermansyah" Then


[Link] = "2014.1412.006"
[Link] = "Sekretaris"
[Link] = "Surabaya, 14 Desember 2014"
[Link] = "Cinere"
[Link] = "Belum Menikah"
[Link] = 0
End If

If [Link] = "Arsya Hermansyah" Then


[Link] = "2017.2810.007"
[Link] = "Office Boy"
[Link] = "Tangerang, 28 Oktober 2017"
[Link] = "Pondok Labu"
[Link] = "Belum Menikah"
[Link] = 0
End If

If [Link] = "Noah Sinclair" Then


[Link] = "2010.2209.008"
[Link] = "Direktur Utama"
[Link] = "Kuala Lumpur, 22 September 2010"
[Link] = "Pamulang"
[Link] = "Menikah"
[Link] = 3
End If

If [Link] = "Janethes" Then


[Link] = "2016.1003.009"
[Link] = "Employees"
[Link] = "Solo, 10 Maret 2016"
[Link] = "Limo"
[Link] = "Belum Menikah"
[Link] = 0
End If

If [Link] = "Thiago Messi" Then


[Link] = "2012.0211.010"
[Link] = "Office Boy"
[Link] = "Barcelona, 02 November 2012"
[Link] = "Menteng"
[Link] = "Menikah"
[Link] = 1
End If
End Sub

Private Sub Label10_Click(sender As Object, e As EventArgs)

End Sub
Friend WithEvents Label10 As [Link]

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles


[Link]
[Link]()
[Link]()
End Sub
Friend WithEvents Label11 As [Link]
Friend WithEvents Label12 As [Link]
Friend WithEvents Label13 As [Link]
Friend WithEvents Label14 As [Link]
Friend WithEvents Label15 As [Link]
Friend WithEvents Label16 As [Link]
End ClassPublic Class Gaji

Private Sub Gaji_Load(sender As Object, e As EventArgs) Handles


[Link]
Dim jumlem As Decimal
Dim juman As Decimal
jumlem = [Link]
juman = [Link]

If [Link] = "Gempita Nora Marten" Then


[Link] = 10000000
[Link] = 500000 * jumlem
[Link] = 500000
[Link] = 0
[Link] = 0
[Link] = 5000000
[Link] = 6000000
[Link] = 10000000 + (500000 * jumlem) + 500000 + 0 + 0 +
5000000 + 6000000
[Link] = (10000000 + (500000 * jumlem) + 500000 + 0 + 0 +
5000000 + 6000000) / 10
[Link] = (10000000 + (500000 * jumlem) + 500000 + 0 + 0 +
5000000 + 6000000) - (10000000 + (500000 * jumlem) + 500000 + 0 + 0 + 5000000
+ 6000000) / 10
End If
If [Link] = "Dia Sekala Bumi" Then
[Link] = 200000000
[Link] = 700000 * jumlem
[Link] = 500000
[Link] = 0
[Link] = 0
[Link] = 5000000
[Link] = 8000000
[Link] = 20000000 + (700000 * jumlem) + 500000 + 0 + 0 +
5000000 + 8000000
[Link] = (20000000 + (700000 * jumlem) + 500000 + 0 + 0 +
5000000 + 8000000) / 10
[Link] = (20000000 + (700000 * jumlem) + 500000 + 0 + 0 +
5000000 + 8000000) - (20000000 + (700000 * jumlem) + 500000 + 0 + 0 + 5000000
+ 8000000) / 10
End If
If [Link] = "El Barack" Then
[Link] = 12000000
[Link] = 500000 * jumlem
[Link] = 500000
[Link] = 2500000
[Link] = 1000000 * juman
[Link] = 5000000
[Link] = 3000000
[Link] = 7000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 3000000
[Link] = (7000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 3000000) / 10
[Link] = (7000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 3000000) - (7000000 + (500000 * jumlem) +
500000 + 2500000 + (1000000 * juman) + 5000000 + 3000000) / 10
End If
If [Link] = "Rafathar Maliq Ahmad" Then
[Link] = 13000000
[Link] = 500000 * jumlem
[Link] = 500000
[Link] = 2500000
[Link] = 1000000 * juman
[Link] = 5000000
[Link] = 3000000
[Link] = 7000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 3000000
[Link] = (7000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 3000000) / 10
[Link] = (7000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 3000000) - (7000000 + (500000 * jumlem) +
500000 + 2500000 + (1000000 * juman) + 5000000 + 3000000) / 10
End If
If [Link] = "Jonathan Sugianto" Then
[Link] = 7000000
[Link] = 500000 * jumlem
[Link] = 500000
[Link] = 2500000
[Link] = 1000000 * juman
[Link] = 5000000
[Link] = 3000000
[Link] = 7000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 3000000
[Link] = (7000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 3000000) / 10
[Link] = (7000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 3000000) - (7000000 + (500000 * jumlem) +
500000 + 2500000 + (1000000 * juman) + 5000000 + 3000000) / 10
End If
If [Link] = "Arsy Hermansyah" Then
[Link] = 10000000
[Link] = 500000 * jumlem
[Link] = 500000
[Link] = 2500000
[Link] = 1000000 * juman
[Link] = 5000000
[Link] = 3000000
[Link] = 7000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 3000000
[Link] = (7000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 3000000) / 10
[Link] = (7000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 3000000) - (7000000 + (500000 * jumlem) +
500000 + 2500000 + (1000000 * juman) + 5000000 + 3000000) / 10
End If
If [Link] = "Arsya Hermansyah" Then
[Link] = 4000000
[Link] = 0
[Link] = 500000
[Link] = 1500000
[Link] = 1000000 * juman
[Link] = 5000000
[Link] = 0
[Link] = 4000000 + 0 + 500000 + 1500000 + (1000000 * juman)
+ 5000000 + 0
[Link] = (4000000 + 0 + 500000 + 1500000 + (1000000 *
juman) + 5000000 + 0) / 10
[Link] = (4000000 + 0 + 500000 + 1500000 + (1000000 *
juman) + 5000000 + 0) - (4000000 + 0 + 500000 + 1500000 + (1000000 * juman) +
5000000 + 0) / 10
End If
If [Link] = "Noah Sinclair" Then
[Link] = 20000000
[Link] = 500000 * jumlem
[Link] = 500000
[Link] = 2500000
[Link] = 1000000 * juman
[Link] = 5000000
[Link] = 8000000
[Link] = 20000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 8000000
[Link] = (20000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 8000000) / 10
[Link] = (20000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 8000000) - (20000000 + (500000 * jumlem) +
500000 + 2500000 + (1000000 * juman) + 5000000 + 8000000) / 10
End If
If [Link] = "Janethes" Then
[Link] = 7000000
[Link] = 500000 * jumlem
[Link] = 500000
[Link] = 2500000
[Link] = 1000000 * juman
[Link] = 5000000
[Link] = 3000000
[Link] = 7000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 3000000
[Link] = (7000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 3000000) / 10
[Link] = (7000000 + (500000 * jumlem) + 500000 + 2500000 +
(1000000 * juman) + 5000000 + 3000000) - (7000000 + (500000 * jumlem) +
500000 + 2500000 + (1000000 * juman) + 5000000 + 3000000) / 10
End If
If [Link] = "Thiago Messi" Then
[Link] = 4000000
[Link] = 0
[Link] = 500000
[Link] = 1500000
[Link] = 1000000 * juman
[Link] = 5000000
[Link] = 0
[Link] = 4000000 + 0 + 500000 + 1500000 + (1000000 * juman)
+ 5000000 + 0
[Link] = (4000000 + 0 + 500000 + 1500000 + (1000000 *
juman) + 5000000 + 0) / 10
[Link] = (4000000 + 0 + 500000 + 1500000 + (1000000 *
juman) + 5000000 + 0) - (4000000 + 0 + 500000 + 1500000 + (1000000 * juman) +
5000000 + 0) / 10
End If
End Sub

Private Sub Label19_Click(sender As Object, e As EventArgs) Handles


[Link]

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles


[Link], [Link]
End
End Sub
End Class

B. Form Design

You might also like