Visual Basic Personel Ücreti Hesaplama

Bu örnek Visual Basic Programında bir personelin günlük çalışma ücreti ve çalıştığı gün sayısı girildikten sonra ne kadar ücret alabileceğini hesaplayan program yapacağız. Personelin bürüt ücreti bulunduktan sonra ödemesi gereken Gelir vergisi ve Damga vergisi tutarı belirlenen oranlarda hesaplanır ve bürüt ücretten çıkarılarak elde edeceği net ücret hesaplanır. Programın kodları ve ekran görüntüleri aşağıdadır.

Visual Basic Kodları:

Public Class Form1

    'www.bilisimkonulari.com

    Dim gvergi As Integer
    Dim dvergi As Integer
    Dim burut As Integer
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox3.Text = burut
        TextBox6.Text = dvergi + gvergi
        TextBox7.Text = TextBox3.Text - TextBox6.Text
    End Sub

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        gvergi = burut * 0.2
        TextBox4.Text = gvergi
    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        gvergi = burut * 0.15
        TextBox4.Text = gvergi
    End Sub

    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
        gvergi = burut * 0.1
        TextBox4.Text = gvergi
    End Sub

    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
        Dim gvergi As Integer
        gvergi = burut * 0.05
        TextBox4.Text = gvergi
    End Sub

    Private Sub RadioButton8_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton8.CheckedChanged
        dvergi = burut * 0.02
        TextBox5.Text = dvergi
    End Sub

    Private Sub RadioButton7_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton7.CheckedChanged
        dvergi = burut * 0.015
        TextBox5.Text = dvergi
    End Sub

    Private Sub RadioButton6_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton6.CheckedChanged
        dvergi = burut * 0.01
        TextBox5.Text = dvergi
    End Sub

    Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.CheckedChanged
        dvergi = burut * 0.005
        TextBox5.Text = dvergi
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        burut = TextBox1.Text * TextBox2.Text
        TextBox8.Text = burut
    End Sub
End Class

Programın ekran görüntüleri: