Scribd
Upload
35 views

Kumpulan Kode Program VB

The document contains code for two forms - Form1 and Form2. Form1 contains code to calculate student exam scores based on inputs for UT, UAS and TM exams. It also contains code to set salary amounts based on selected major. Form2 contains code to calculate employee salary based on inputs for grade, basic salary, tax, and health deductions. It displays the net salary amount.

Uploaded by

Aptanta Pratiangga
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
35 views

Kumpulan Kode Program VB

The document contains code for two forms - Form1 and Form2. Form1 contains code to calculate student exam scores based on inputs for UT, UAS and TM exams. It also contains code to set salary amounts based on selected major. Form2 contains code to calculate employee salary based on inputs for grade, basic salary, tax, and health deductions. It displays the net salary amount.

Uploaded by

Aptanta Pratiangga
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 3

FORM 2 :

KARYAWAN
NIP :
NAMA:
Jenis Kelamin : L / P
GOLONGAN : III/A, III/B
GaPOK :
Tunjangan Jabatan :
III/A : 125.000
III/B : 300.0000
IIIA : 5.000.000
IIIB : 6.000.000
Pajak : 2.5%
Potongan Askes : 120.000
Gaji Bersih :

Public Class Form1


Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles
Button1.Click
Dim nim, uts, uas, tm, akhir As Integer
Dim nama as String
nim = TextBox1.Text
nama = TextBox2.Text
uts = TextBox3.Text
uas = TextBox4.Text
tm = TextBox5.Text
akhir = 0.4 * uts + 0.5 * uas + 0.1 * tm
TextBox6.Text= akhir
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub
End Class
Public Class Form1
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs)
Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "Sistem Informasi" Then
TextBox4.Text = 5000000
TextBox3.Text = 1200000
ElseIf ComboBox1.Text = "Sistem Komputer" Then
TextBox4.Text = 5000000
TextBox3.Text = 1200000
ElseIf ComboBox1.Text = "Manajemen Informatika" Then
TextBox4.Text = 4000000
TextBox4.Text = 750000
End If
End Sub

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


If ComboBox2.Text = "20%" Then
TextBox5.Text = Val(TextBox4.Text) - (TextBox3.Text + TextBox4.Text * 0.2)
ElseIf ComboBox2.Text = "50%" Then
TextBox5.Text = Val(TextBox4.Text) - (TextBox3.Text + TextBox4.Text * 0.5)
ElseIf ComboBox2.Text = "80%" Then
TextBox5.Text = Val(TextBox4.Text) - (TextBox3.Text + TextBox4.Text * 0.8)
End If
End Sub

Private Sub CmdExit_Click(sender As Object, e As EventArgs) Handles CmdExit.Click


End
End Sub
End Class

TextBox7.Text = Val(TextBox3.Text) - (TextBox4.Text + TextBox5.Text - 120000)

Public Class Form2


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
End
End Sub

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


Handles ComboBox2.SelectedIndexChanged
If ComboBox2.Text = "III/A" Then
TextBox3.Text = 5000000
TextBox4.Text = Val(TextBox3.Text * 0.025)
TextBox5.Text = 125000
TextBox6.Text = 120000
TextBox7.Text = Val(TextBox3.Text - TextBox4.Text + TextBox5.Text -
120000)
ElseIf ComboBox2.Text = "III/B" Then
TextBox3.Text = 6000000
TextBox4.Text = Val(TextBox3.Text * 0.025)
TextBox5.Text = 300000
TextBox6.Text = 120000
TextBox7.Text = Val(TextBox3.Text - TextBox4.Text + TextBox5.Text -
120000)
End If

End Sub
End Class

You might also like