Sayın oguzhanknc
Sanki kodlarda bir mantık hatası var gibi.
Yada kademe hatası.
Birinci seferde sonuç değişkenine atadığınız tuş2 değeri 0 dır.
İkinci seferde sonuç değişkenine atadığınız tuş2 değeri 0 dan farklıdır.
Aşağıda sizin kodlarınızla ilgili açıklama mevcut.
Kod tagındaki gibi deneyin.
Kolay gelsin.
' If TextBox5 <> "" And TextBox7 <> "" And TextBox8 <> "" Then '1
'
' Dim tuş1 As Double, tuş2 As Double, tuş3 As Double, tuş4 As Double, sonuç As Double
'
'tuş1 = CDbl(TextBox5.Value)
'tuş3 = CDbl(TextBox7.Value)
'tuş4 = CDbl(TextBox8.Value)
'sonuç = 100 * (tuş1 + tuş2) / (100 - tuş3 - tuş4) 'burda tuş2 değeri 0 dır.
'
'Select Case sonuç 'burda sonuç değişkeni tuş2 = 0 a göre şekillenmiştir.
'Case Is >= 150
'tuş2 = 45
'Case Is >= 90
'tuş2 = 35
'Case Is < 90
'tuş2 = 15
'End Select
'
'sonuç = 100 * (tuş1 + tuş2) / (100 - tuş3 - tuş4) 'burda sonuç değişkeni tuş2 > 0 a göre şekillenmiştir
'dolayısıyla bir üstteki sonuç değişkeni ile burdaki sonuç değişkeni aynı değerde değil.
'aşağıdaki kodlarda sonuç değişkeni ile yapılan işlemler bu ikinci değere göre olur.
'TextBox6.Value = tuş2 satırında ise tuş2 ilk sonuç değişkenine göre değer taşımaya devam eder.
'çelişki burdan kaynaklı.
'
' If sonuç = 0 Then
' MsgBox "Bilgileri Giriniz."
' Else
' TextBox10.Text = sonuç
' TextBox15.Text = sonuç - (sonuç * (tuş3 / 100)) - tuş1 - tuş2
' End If
'
' 'TextBox6.Text = tuş2
' TextBox6.Value = tuş2
' Else
' MsgBox "Fiyat Bilgilerini Giriniz"
' End If '1
HTML: