program penghitungan gaji karyawan [VB.net]

       pada postingan kali ini saya coba membuat postingan tentang membuat program penghitung tunjangan karyawan berdasarkan golongan karyawan nya.

seperti biasa dalam pembuatan program vb.net kita harus membuat baian tampilannya dahulu,anda bisa membuat tampilan sperti tampilan pada gambar di samping ,setelah beberapa editan pada propertise nya ,anda bisa masuk pada bagian syntax nya

 

 

 

 

 

 

-pertama:kita harus membuat DIM nya pada bagian public class, masuklah ke syntax dan carilah public class ,terus anda masukan syntax berikut.

Dim nama As String
Dim gol As String
Dim gapok As Integer
Dim tj As Integer
Dim status As String
Dim ti As Integer
Dim toga As Integer

 

-kedua:double klik pada form yg kita buat tadi ,lali masukan syntax berikut.

ComboBox1.Items.Add("IIb")
ComboBox1.Items.Add("IIIa")
ComboBox1.Items.Add("IIIb")
ComboBox1.Items.Add("IVa")
ComboBox1.Items.Add("IVb")

ComboBox2.Items.Add("menikah")
ComboBox2.Items.Add("Tidak Menikah")

--ketiga:tetap di bagian form ,,setelah end sub pada bagian di atas buat lah sbu baru dengan cara

Sub Bersih()
TextBox1.Text = " "
TextBox2.Text = " "
TextBox3.Text = " "
TextBox4.Text = " "
TextBox5.Text = " "
ComboBox1.Text = " "
ComboBox1.Text = " "

End Sub

-keempat:stelah kita buat sub bersih seperti di atas ,buat lah 2 buah sub lagi di bawah nya seperti berikut:

Sub Tunjangan1()
nama = TextBox1.Text
gol = ComboBox1.Text
If gol = "IIb" Then
gapok = 800000
ElseIf gol = "IIIa" Then
gapok = 1300000
ElseIf gol = "IIIb" Then
gapok = 1500000
ElseIf gol = "IVa" Then
gapok = 2000000
Else
gapok = 2500000
End If
TextBox2.Text = gapok
tj = gapok * 0.05
TextBox3.Text = tj
End Sub
Sub Tunjangan2()
status = ComboBox2.Text
Select Case status
Case "menikah"
Select Case gol
Case "IIb"
ti = gapok * 0.05
Case gol = "IIIa"
ti = gapok * 0.08
Case Else
ti = 0

End Select
End Select
TextBox4.Text = ti

toga = gapok + tj + ti
TextBox5.Text = toga
End Sub

-kelima: syntax dalam perogram ini suda selesai,kerja kita selanjutnya tinggal memangil sub-sub tersebut dan memasukan nya kedalam tombol-tombol yang kta inginkan ,sperti

double klik pada tunjangan 1 lalu panggil tunjangan 1 dengan cara:

 Call Tunjangan1()

lakukan cara yang sama pada 2 sub berikutnya.

untuk bagian exit button kita hanya perlu memasukan end pada syntax nya dengan cara double klik pada button exit dan masukan end  .

selesai ,cobalah dan apabila ada keluhan mohon berikan komentar anda.

 

 

Anda baru saja membaca artikel yang berkategori vb.net dengan judul program penghitungan gaji karyawan [VB.net]. Anda bisa bookmark halaman ini dengan URL https://find-share.blogspot.com/2012/04/program-penghitungan-gaji-karyawan-vbnet.html. Terima kasih!

Ditulis oleh: Unknown - Rabu, 04 April 2012