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

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 evvela Bordro’nun ne olduğunu açıklayayım; Bir hesap sonucunu ayrıntılı şekilde işaret eden belgeye bordro denir. Günümüzde bordro daha çok ücret ya da maaş karşılığı yapılacak ödemenin ayrı ayrı ve detaylı şekilde gösterildiği bir cetveli anlatım 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 bölgeleri ise formumuzdan da belirgin bulunduğu üzere COMMAND BUTTON olacak biçimde 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 niteliğ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” üç ElseIf (Combo1.ListIndex = 1) Then 4 hz = “1,5” 5 ElseIf (Combo1.ListIndex = 2) Then altı hz = “2” 7 ElseIf (Combo1.ListIndex = 3) Then 8 hz = “2,5” 9 Else on 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 = “” üç Combo1 = “” 4 Combo2 = “” 5 Combo3 = “” altı 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 üç For i = 0 To List1.ListCount - 1 4 Print #1, List1.List(i) 5 Next altı Close #1 7 End Sub Tüm bu uygulamalardan sonra programımız hazır bir hale gelecektir. İşte aşağıdaki program ekran görüntüsü;


Yapılan Yorumlar
Erdem OFLAZ

Bir mum, diğer mumu tutuşturmakla ışığından bir şey kaybetmez.
 Kategoriler
 Popüler yazılar