Visual Basic’te Personel Aylık Maaş Bordro Hesaplama Programı?

İyi akşamlar sevgili okurlar bu akşamki makalemizde visual basic dersi işleyeceğiz. Bordro Hesaplama konusunu ele alarak sizlere Visual Basic programlama dilini kullanarak personellerin aylık aldığı maaşların bordro hesaplama programının nasıl yazıldığını anlatacağım.

Bilmeyen arkadaşlarımız için öncelikle Bordro’nun ne olduğunu açıklayayım; Bir hesap sonucunu ayrıntılı olarak gösteren belgeye bordro denir. Günümüzde bordro daha çok ücret ya da maaş karşılığı yapılacak ödemenin ayrı ayrı ve detaylı olarak gösterildiği bir cetveli ifade etmektedir.

Öncelikle form tasarımımız aşağıdaki gibidir…

Arkadaşlar formumuzun nelerden oluştuğundan da kısaca bahsedeyim. ADI, SOYADI, ÜNVAN, KIDEM YILI, HAFTALIK SAAT, BORDRO EKRANI yazan yerler LABEL olacak. ADI ve SOYADI‘nın altındaki kutu ise TEXTBOX olacak. ÜNVAN, KIDEM YILI, HAFTALIK SAAT’in önündeki box’lar COMBOBOX olacak ve GİRİŞ, TEMİZLE, BORDRO EKRANINI TEMİZLE, TXT DOSYASINA EKLE yerleri ise formumuzdan da belli olduğu üzere COMMAND BUTTON olacak şekilde ayarlıyoruz. Bu arada unutmadan BORDRO EKRANI altındaki kutu ise LİSTBOX‘tır

Combo1’in list özelliğine: HİZMETLİ, İŞÇİ, MEMUR, ŞEF, MÜDÜR

Combo2’nin list özelliğine: 0-4, 5-8, 9-15, 16 VE ÜZERİ

Combo3’ün list özelliğine ise: 0-6 SAAT, 7-12 SAAT, 13-26 SAAT, 27 ve ÜZERİ yazıyoruz.

Örneğimiz şu: Bir personelin adını ve soyadını klavyeden yazacağız . Ünvanını, Kıdem Yılını ve Haftalık saatini seçip GİRİŞ butonuna tıklayacağız. Adını Soyadını girdiğimiz personelin seçtiğimiz kriterlere göre aldığı maaşı bordro ekranında gösterecek. Daha sonrasında ise TXT dosyasına ekle butonuna tıkladığımızda ise bordro ekranındaki personel listesini not defterine aktaracak.

Kodlama işlemine geçebiliriz;

Private Sub Command1_Click() // (GİRİŞ Butonumuzun Kodları)
1 If (Combo1.ListIndex = 0) Then
2 hz = "1"
3 ElseIf (Combo1.ListIndex = 1) Then
4 hz = "1,5"
5 ElseIf (Combo1.ListIndex = 2) Then
6 hz = "2"
7 ElseIf (Combo1.ListIndex = 3) Then
8 hz = "2,5"
9 Else
10 hz = "3"
11 End If

12 If (Combo2.ListIndex = 0) Then
13 kd = "1"
14 ElseIf (Combo2.ListIndex = 1) Then
15 kd = "1,5"
16 ElseIf (Combo2.ListIndex = 2) Then
17 kd = " 2"
18 Else
19 kd = "2,5"

20 End If

21 If (Combo3.ListIndex = 0) Then
22 hf = "1"
23 ElseIf (Combo3.ListIndex = 1) Then
24 hf = "1,5"
25 ElseIf (Combo3.ListIndex = 2) Then
26 hf = "2"
27 Else
28 hf = "2,5"
29 End If

30 maas = 250 * hz * kd * hf
31 a = Text1.Text
32 b = Text2.Text
33 List1.AddItem a & " " & b & " " & maas
34 End Sub

Private Sub Command2_Click() // (TEMİZLE Butonunun Kodları)
1 Text1.Text = ""
2 Text2.Text = ""
3 Combo1 = ""
4 Combo2 = ""
5 Combo3 = ""
6 End Sub

Private Sub Command3_Click() // (BORDRO EKRANINI TEMİZLE Butonunun Kodları)
1 List1.Clear
2 End Sub

Private Sub Command4_Click() // (TXT DOSYASINA EKLE Butonunun Kodları)
 1 dosya = "C:\Users\Emre\Desktop\Personel Bordro Hesap Programı\pers.txt"
 2 Open dosya For Output As #1
 3 For i = 0 To List1.ListCount - 1
 4 Print #1, List1.List(i)
 5 Next
 6 Close #1
 7 End Sub

Tüm bu işlemlerden sonra programımız hazır hale gelecektir. İşte aşağıdaki program ekran görüntüsü;