İ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-Casper\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ü;

 

Yazar
Yazar
Bilgisayar Programcısı, Web Tasarımcı, Üniversite Öğrencisi...
Twitter Facebook Google Linkedin Flickr YouTube

Önceki Yazı:Bilgisayarınızın Neden Yavaşladığını Bir Türlü Çözemediniz mi?

Sonraki Yazı:Windows 8’in Bilmediğiniz Yeni Özellikleri Neler?

BENZER YAZILAR
YORUMLAR
SİZ DE CEVAP YAZABİLİRSİNİZ
Bu yazı hakkında görüşünüzü belirtin.

ES Web Tasarım Web Tasarım Blog Teması Emre Supçin Bu tema ES Web Tasarım tarafından düzenlenmiştir. Hiçbir şekilde kopyalanamaz.