cheerful adlı üyeden alıntı: mesajı görüntüle
Dim y1, y2, y3, s1 As Integer
Dim bol = 0
Dim toplam As Integer
toplam = 0
If TextBox1.Text <> "" Then
toplam = toplam + TextBox1.Text
bol = bol + 1
End If
If TextBox2.Text <> "" Then
toplam = toplam + TextBox2.Text
bol = bol + 1
.
.
.
.

End If
Çok TEşekkür EdERim GeRçEkTen. HatasıZ oldu ve tek eksiklik 1 sozlu olrak hesapanmıs ona ben 1 daha eklicem oda sorun deil hallederim o kadarını ÇOk SaolUn ÇOk İhtiyacm wardı buna...