Visual Basic Hesaplama Sorunsalı

Public Class geneldegisken
    ' Evrensel Değişken Tanımlıyorum. 
    Public Shared toplamKazanc As Integer = 0
    Public Shared pizzeTipi As Integer = 0
    Public Shared servisSayi As Integer = 0

    'Pizza Boyutları
    Public Shared boyutKucuk As Integer = 0
    Public Shared boyutOrta As Integer = 0
    Public Shared boyutBuyuk As Integer = 0
    Public Shared boyutCokBuyuk As Integer = 0
    Public Shared boyutAileBoyu As Integer = 0

    ' Pizza Malzemeleri
    Public Shared biber As Integer = 1
    Public Shared domates As Integer = 0
    Public Shared mantar As Integer = 0
    Public Shared salam As Integer = 0
    Public Shared sosis As Integer = 0
    Public Shared sucuk As Integer = 0
    Public Shared zeytin As Integer = 0

    ' Pizza Tipleri
    Public Shared normal As Integer = 0
    Public Shared citirKenar As Integer = 0
    Public Shared simitKenar As Integer = 0
    Public Shared sucukKenar As Integer = 0

    'Malzeme
    Public Shared malzemeSayısı As Integer = 0

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Değişkenleri tanımlıyoruz.
        Dim hamurTipi, hamurTutari, malzemeTutari, servisHizmeti As Integer
        Dim hamurBuyuklugu, tutar As Single





        ' Pizza Tipini Ayarlıyoruz.
        hamurTipi = ComboBox1.SelectedIndex
        Select Case (hamurTipi)
            Case 0 : hamurTutari = 0
                geneldegisken.normal = geneldegisken.normal + 1
            Case 1 : hamurTutari = 2
                geneldegisken.citirKenar = geneldegisken.citirKenar + 1
            Case 2 : hamurTutari = 4
                geneldegisken.simitKenar = geneldegisken.simitKenar + 1
            Case 3 : hamurTutari = 5
                geneldegisken.sucukKenar = geneldegisken.sucukKenar + 1
        End Select

        ' Servis Hizmeti Alıyor mu Kontrol Ediyoruz.
        If (RadioButton6.Checked = True) Then
            servisHizmeti = 5
            geneldegisken.servisSayi = geneldegisken.servisSayi + 1
        Else
            servisHizmeti = 0
        End If


        ' Pizza Büyüklüğünü Ayarlıyoruz.
        If (RadioButton1.Checked = True) Then
            hamurBuyuklugu = 1
            geneldegisken.boyutKucuk = geneldegisken.boyutKucuk + 1
        ElseIf (RadioButton2.Checked = True) Then
            hamurBuyuklugu = 1.5
            geneldegisken.boyutOrta = geneldegisken.boyutOrta + 1
        ElseIf (RadioButton3.Checked = True) Then
            hamurBuyuklugu = 2
            geneldegisken.boyutBuyuk = geneldegisken.boyutBuyuk + 1
        ElseIf (RadioButton4.Checked = True) Then
            hamurBuyuklugu = 3
            geneldegisken.boyutCokBuyuk = geneldegisken.boyutCokBuyuk + 1
        Else
            hamurBuyuklugu = 4
            geneldegisken.boyutAileBoyu = geneldegisken.boyutAileBoyu + 1
        End If



        ' Malzemeleri Seçtiriyoruz.
        If (CheckBox1.Checked = True) Then ' Biber +1
            malzemeTutari = malzemeTutari + 1
        End If
        If (CheckBox2.Checked = True) Then ' Domates +1
            malzemeTutari = malzemeTutari + 1
        End If
        If (CheckBox3.Checked = True) Then ' Mantar +2
            malzemeTutari = malzemeTutari + 2
        End If
        If (CheckBox4.Checked = True) Then ' Salam +2
            malzemeTutari = malzemeTutari + 2
        End If
        If (CheckBox5.Checked = True) Then ' Sosis +3
            malzemeTutari = malzemeTutari + 3
        End If
        If (CheckBox6.Checked = True) Then ' Sucuk +3
            malzemeTutari = malzemeTutari + 3
        End If
        If (CheckBox7.Checked = True) Then ' Zeytin +1
            malzemeTutari = malzemeTutari + 1
        End If

        ' İstenilen özellikteki pizzanın fiyatı hsaplanıyor.
        tutar = servisHizmeti + hamurTutari + hamurBuyuklugu * malzemeTutari
        TextBox1.Text = tutar.ToString

        'Gün Sonu Toplam Kazanç Hesaplıyorum
        geneldegisken.toplamKazanc = geneldegisken.toplamKazanc + tutar

        ' Malzeme sayılarını yazıyoruz.
        If (CheckBox1.Checked = True And
            RadioButton1.Checked = True
            ) Then ' Biber +1
            malzemeTutari = malzemeTutari + 1
            geneldegisken.toplamKazanc = geneldegisken.toplamKazanc + tutar

        End If
        'If (CheckBox2.Checked = True) Then ' Domates +1
        '    malzemeTutari = malzemeTutari + 1




    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ComboBox1.Text = "Lütfen Hamur Tipini Seçiniz"
        CheckBox1.Checked = False
        CheckBox2.Checked = False
        CheckBox3.Checked = False
        CheckBox4.Checked = False
        CheckBox5.Checked = False
        CheckBox6.Checked = False
        CheckBox7.Checked = False

        RadioButton1.Checked = True
        RadioButton7.Checked = True

        TextBox1.Text = ""

    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        TextBox2.Text = geneldegisken.toplamKazanc.ToString()
        'Servis Sayısı
        TextBox19.Text = geneldegisken.servisSayi.ToString()
        'Pizza Boyutları
        kucuk.Text = geneldegisken.boyutKucuk.ToString()
        orta.Text = geneldegisken.boyutOrta.ToString()
        buyuk.Text = geneldegisken.boyutBuyuk.ToString()
        cokBuyuk.Text = geneldegisken.boyutCokBuyuk.ToString()
        aileBoyu.Text = geneldegisken.boyutAileBoyu.ToString()

        'Pizza Malzemeleri
        biber.Text = geneldegisken.biber.ToString()
        domates.Text = geneldegisken.domates.ToString()
        mantar.Text = geneldegisken.mantar.ToString()
        salam.Text = geneldegisken.salam.ToString()
        sosis.Text = geneldegisken.sosis.ToString()
        sucuk.Text = geneldegisken.sucuk.ToString()
        zeytin.Text = geneldegisken.zeytin.ToString()

        ' Pizza Tipleri
        normalKenar.Text = geneldegisken.normal.ToString()
        citirKenar.Text = geneldegisken.citirKenar.ToString()
        simitKenar.Text = geneldegisken.simitKenar.ToString()
        sucukKenar.Text = geneldegisken.sucukKenar.ToString()
        biber.Text = geneldegisken.boyutKucuk.ToString()


    End Sub

End Class