Coding java.txt
Download as DOCX, PDF0 likes269 views
The document defines a Windows form class for an employee payroll application. It includes labels, text boxes, combo boxes, list views, and buttons to display and enter employee data like name, job grade, salary, and calculate net pay. When data is entered, it can be processed by clicking a button to calculate net pay and saved by adding it to a list view. The form provides the user interface for viewing, entering, and saving employee payroll records.
Coding java.txt
- 1. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class Form1 Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer '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. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.label1 = New System.Windows.Forms.Label Me.label2 = New System.Windows.Forms.Label Me.label3 = New System.Windows.Forms.Label Me.Label4 = New System.Windows.Forms.Label Me.Label5 = New System.Windows.Forms.Label Me.Label6 = New System.Windows.Forms.Label Me.Label7 = New System.Windows.Forms.Label Me.n = New System.Windows.Forms.TextBox Me.nm = New System.Windows.Forms.TextBox Me.jb = New System.Windows.Forms.TextBox Me.gp = New System.Windows.Forms.TextBox Me.gb = New System.Windows.Forms.TextBox Me.tj = New System.Windows.Forms.TextBox Me.gl = New System.Windows.Forms.ComboBox Me.ListView1 = New System.Windows.Forms.ListView Me.p = New System.Windows.Forms.Button Me.s = New System.Windows.Forms.Button Me.e = New System.Windows.Forms.Button Me.SuspendLayout() ' 'label1 ' Me.label1.AutoSize = True Me.label1.Location = New System.Drawing.Point(0, 0) Me.label1.Name = "label1" Me.label1.Size = New System.Drawing.Size(21, 13) Me.label1.TabIndex = 0 Me.label1.Text = "nip" ' 'label2 ' Me.label2.AutoSize = True Me.label2.Location = New System.Drawing.Point(0, 26)
- 2. Me.label2.Name = "label2" Me.label2.Size = New System.Drawing.Size(33, 13) Me.label2.TabIndex = 1 Me.label2.Text = "nama" ' 'label3 ' Me.label3.AutoSize = True Me.label3.Location = New System.Drawing.Point(0, Me.label3.Name = "label3" Me.label3.Size = New System.Drawing.Size(51, 13) Me.label3.TabIndex = 2 Me.label3.Text = "golongan" ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(0, Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(42, 13) Me.Label4.TabIndex = 3 Me.Label4.Text = "jabatan" ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(0, Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(56, 13) Me.Label5.TabIndex = 4 Me.Label5.Text = "gaji pokok" ' 'Label6 ' Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(0, Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(48, 13) Me.Label6.TabIndex = 5 Me.Label6.Text = "tunjangn" ' 'Label7 ' Me.Label7.AutoSize = True Me.Label7.Location = New System.Drawing.Point(0, Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(54, 13) Me.Label7.TabIndex = 6 Me.Label7.Text = "gaji bersih" ' 'n ' Me.n.Location = New System.Drawing.Point(84, 0) Me.n.Name = "n" Me.n.Size = New System.Drawing.Size(100, 20) Me.n.TabIndex = 7 ' 57) 87) 120) 149) 187)
- 3. 'nm ' Me.nm.Location = New System.Drawing.Point(84, 26) Me.nm.Name = "nm" Me.nm.Size = New System.Drawing.Size(100, 20) Me.nm.TabIndex = 8 ' 'jb ' Me.jb.Location = New System.Drawing.Point(84, 87) Me.jb.Name = "jb" Me.jb.Size = New System.Drawing.Size(100, 20) Me.jb.TabIndex = 10 ' 'gp ' Me.gp.Location = New System.Drawing.Point(84, 113) Me.gp.Name = "gp" Me.gp.Size = New System.Drawing.Size(100, 20) Me.gp.TabIndex = 11 ' 'gb ' Me.gb.Location = New System.Drawing.Point(84, 180) Me.gb.Name = "gb" Me.gb.Size = New System.Drawing.Size(100, 20) Me.gb.TabIndex = 12 ' 'tj ' Me.tj.Location = New System.Drawing.Point(84, 142) Me.tj.Name = "tj" Me.tj.Size = New System.Drawing.Size(100, 20) Me.tj.TabIndex = 13 ' 'gl ' Me.gl.FormattingEnabled = True Me.gl.Items.AddRange(New Object() {"III A", "III B", "III C"}) Me.gl.Location = New System.Drawing.Point(79, 57) Me.gl.Name = "gl" Me.gl.Size = New System.Drawing.Size(121, 21) Me.gl.TabIndex = 14 ' 'ListView1 ' Me.ListView1.Location = New System.Drawing.Point(128, 220) Me.ListView1.Name = "ListView1" Me.ListView1.Size = New System.Drawing.Size(253, 97) Me.ListView1.TabIndex = 15 Me.ListView1.UseCompatibleStateImageBehavior = False ' 'p ' Me.p.Location = New System.Drawing.Point(194, 323) Me.p.Name = "p" Me.p.Size = New System.Drawing.Size(75, 23)
- 4. Me.p.TabIndex = 16 Me.p.Text = "proses" Me.p.UseVisualStyleBackColor = True ' 's ' Me.s.Location = New System.Drawing.Point(194, 359) Me.s.Name = "s" Me.s.Size = New System.Drawing.Size(75, 23) Me.s.TabIndex = 17 Me.s.Text = "simpan" Me.s.UseVisualStyleBackColor = True ' 'e ' Me.e.Location = New System.Drawing.Point(194, 388) Me.e.Name = "e" Me.e.Size = New System.Drawing.Size(75, 23) Me.e.TabIndex = 18 Me.e.Text = "exit" Me.e.UseVisualStyleBackColor = True ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(493, 423) Me.Controls.Add(Me.e) Me.Controls.Add(Me.s) Me.Controls.Add(Me.p) Me.Controls.Add(Me.ListView1) Me.Controls.Add(Me.gl) Me.Controls.Add(Me.tj) Me.Controls.Add(Me.gb) Me.Controls.Add(Me.gp) Me.Controls.Add(Me.jb) Me.Controls.Add(Me.nm) Me.Controls.Add(Me.n) Me.Controls.Add(Me.Label7) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.label3) Me.Controls.Add(Me.label2) Me.Controls.Add(Me.label1) Me.Name = "Form1" Me.Text = "form penggajian" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents Friend WithEvents Friend WithEvents Friend WithEvents Friend WithEvents Friend WithEvents label1 label2 label3 Label4 Label5 Label6 As As As As As As System.Windows.Forms.Label System.Windows.Forms.Label System.Windows.Forms.Label System.Windows.Forms.Label System.Windows.Forms.Label System.Windows.Forms.Label
- 5. Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend Friend WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents WithEvents Label7 As System.Windows.Forms.Label n As System.Windows.Forms.TextBox nm As System.Windows.Forms.TextBox jb As System.Windows.Forms.TextBox gp As System.Windows.Forms.TextBox gb As System.Windows.Forms.TextBox tj As System.Windows.Forms.TextBox gl As System.Windows.Forms.ComboBox ListView1 As System.Windows.Forms.ListView p As System.Windows.Forms.Button s As System.Windows.Forms.Button e As System.Windows.Forms.Button Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load gl.Items.Add("III A") gl.Items.Add("III B") gl.Items.Add("III C") ListView1.GridLines = True ListView1.View = View.Details ListView1.FullRowSelect = True ListView1.Columns.Add("nip") ListView1.Columns.Add("nama", 80) ListView1.Columns.Add("golongan", 80) ListView1.Columns.Add("jabatan", 80) ListView1.Columns.Add("gaji pokok", 150) ListView1.Columns.Add("tunjangan", 150) ListView1.Columns.Add("gaji bersih", 150) End Sub Private Sub n_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles n.TextChanged If n.Text = "112" Then nm.Text = "sazmikha" ElseIf n.Text = "113" Then nm.Text = "ewiz" ElseIf n.Text = "114" Then nm.Text = "verischa" ElseIf n.Text = "115" Then nm.Text = "belvem" ElseIf n.Text = "116" Then nm.Text = "maysyaroh" End If End Sub Private Sub gl_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gl.SelectedIndexChanged If gl.Text = "III A" Then jb.Text = "karyawan" gp.Text = "2000000" tj.Text = "500000" ElseIf gl.Text = "III B" Then jb.Text = "supervisor" gp.Text = "3500000" tj.Text = "1000000" ElseIf gl.Text = "III C" Then
- 6. jb.Text = "manajer" gp.Text = "5000000" tj.Text = "2000000" End If End Sub Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles p.Click gb.Text = Val(gp.Text) + Val(tj.Text) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s.Click Dim Arr(6) As String Arr(0) = n.Text Arr(1) = nm.Text Arr(2) = gl.Text Arr(3) = jb.Text Arr(4) = gp.Text Arr(5) = tj.Text Arr(6) = gb.Text Dim listitem As ListViewItem listitem = New ListViewItem listitem = ListView1.Items.Add(Arr(0)) listitem.SubItems.Add(Arr(1)) listitem.SubItems.Add(Arr(2)) listitem.SubItems.Add(Arr(3)) listitem.SubItems.Add(Arr(4)) listitem.SubItems.Add(Arr(5)) listitem.SubItems.Add(Arr(6)) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles e.Click Close() End Sub End Class