Program Penggajian.
Buat designnya
seperti ini:
Codingnya:
Public Class Penggajian
Private Sub nik_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles Nik.SelectedIndexChanged
Dim x = Microsoft.VisualBasic.Left(nik.Text, 2)
If Nik.Text = "0002" Then
Nama.Text = "Paloh"
status.Text = "Menikah"
jumlahanak.Text = "1"
ElseIf Nik.Text = "0003" Then
Nama.Text = "Surya"
status.Text = "Menikah"
jumlahanak.Text = "3"
ElseIf Nik.Text = "0004" Then
Nama.Text = "Denny"
status.Text = "Belum
Menikah"
End If
End Sub
Private Sub gajibersih_TextChanged(sender As Object, e As EventArgs) Handles gajibersih.TextChanged
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
totalgaji.Text = Val(gajipokok.Text) + Val(istri.Text) + Val(anak.Text)
If jumlahanak.Text = "1" Then
anak.Text = "200000"
ElseIf jumlahanak.Text = "2" Then
anak.Text = "200000" * "2"
ElseIf jumlahanak.Text = "3" Then
anak.Text = "200000" * "3"
End If
If status.Text = "Menikah" Then
istri.Text = "250000"
Else
status.Text = "Belum
Menikah"
istri.Text = "0"
End If
If status.Text = "menikah" Then
anak.Text = "200000"
ElseIf status.Text = "Belum Menikah" Then
anak.Text = "0"
End If
pph.Text =
Val(gajipokok.Text) / 0,05
gajibersih.Text = Val(totalgaji.Text) - Val(pph.Text)
End Sub
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub istri_TextChanged(sender As Object, e As EventArgs) Handles istri.TextChanged
End Sub
End Class
Jika Dimasukkan data sebagai Jika
Dimasukkan data sebagai ikut :
klik Hitung.
Akan tampak hasil sebagai berikut:
Selesai !!
0 Komentar untuk "Design dan Code Program Penggajian Vb.Net"