Sub Textbox1_KeyPress Dim say As String say = Chr if ( say < "0" Or say > "9" And say <> ":" Then Beep KeyAscii = 0 End if End sub Böle yaparsan textlerine sadece harfler yazılır ifmf kasmana gerek kalmaz overflow olmazken

bu 15 text inde isimleri farklımı

Command1 in içine mi yazdın onları burada gösterdiğinde yok da genede bi sorayım dedim Bi de hata bende değil sende Ben şimdi düzelttim onu kodları iyi gör çalışıyor bazılarını eksik yazmışsın ve değişkenleri yanlış girmişsin AS DOUBLE olmayacak o AS CURRENCY Olacak ama bir şeyi unutma 1-2 tane text kutusunun içine sayı girip de ötekileri boş bırakırsan sonuç 0 çıkar bu hatayı engellemek istiyorsan mutlaka if then else deyimini kullanıp uzun süre kod yazman gerekiyor uzun dediğim de 1-2 saat neyse kodlar gelsin Kod: Private Sub Command1_Click Dim mac1, mac2, mac3, mac4, mac5, mac6, mac7, mac8, mac9, mac10, mac11, mac12, mac13, mac14, mac15, sonuc As Currency mac1 = Val(Text1. Text) mac2 = Val(Text2. Text) mac3 = Val(Text3. Text) mac4 = Val(Text4. Text) mac5 = Val(Text5. Text) mac6 = Val(Text6. Text) mac7 = Val(Text7. Text) mac8 = Val(Text8. Text) mac9 = Val(Text9. Text) mac10 = Val(Text10. Text) mac11 = Val(Text11. Text) mac12 = Val(Text12. Text) mac13 = Val(Text13. Text) mac14 = Val(Text14. Text) mac15 = Val(Text15. Text) sonuc = mac1 mac2 mac3 mac5 mac6 mac4 mac7 mac8 mac9 mac10 mac11 mac12 mac13 mac14 mac15 toplam. Text = Str End Sub Bu hatayı düzeltebilmen için eğer text1 boş ise ötekiler devam etsin hesabı kodları mutlaka yazmalısın -

Kod: On Error GoTo hata: Dim mac1, mac2, mac3, mac5, mac6, mac7, mac8, mac9, mac10, mac11, mac12, mac13, mac14, mac15, sonuc As Double mac1 = Val(mac1. Text) mac2 = Val(mac2. Text) mac4 = Val(mac4. Text) mac5 = Val(mac5. Text) mac6 = Val(mac6. Text) mac7 = Val(mac7. Text) mac8 = Val(mac8. Text) mac9 = Val(mac9. Text) mac10 = Val(mac10. Text) mac11 = Val(mac11. Text) mac12 = Val(mac12. Text) mac13 = Val(mac13. Text) mac14 = Val(mac14. Text) mac15 = Val(mac15. Text) sonuc = mac1 mac2 mac3 mac5 mac6 mac4 mac7 mac8 mac9 mac10 mac11 mac12 mac13 mac14 mac15 toplam. Text = Str hata: Resume Next End Sub dostum cıx çalışmıyo enki yokmu arkadaşlar bi yardım ediverecek

haa sen iddaa için bişe yapıon tmm anladım dur Edit: şimdi bitane text koy tmm mı sonra kopyala yapıştır sana dicekki bundan zaten war bida olsunmu felan evet de. sonra bida yapıştır daha sormaz öle öle 15 tane text kutusunu yap sonra bibuton koy Kod: Dim sonuc As Integer Private Sub Command1_Click sonuc = 1 For i = 0 To 9 If IsNumeric(Text1 . Text) = True Then sonuc = sonuc Text1 . Text End If Next MsgBox sonuc End Sub bunu yaz -

Al sana bir hesap makinası 4 adet command (tabi sen 1 tane yapıcaksın onu da ayır buradan) 3 adet textbox Burada bir şey var sadece command butondan 4 adet kopyalama işlemi yapılı select case den maksat odur Kod: Private Sub Command1_Click On Error GoTo hata: Dim sayi1, sayi2, sonuc As Double sayi1 = Val(Text1. Text) sayi2 = Val(Text2. Text) Select Case Index Case 0 sonuc = sayi1 + sayi2 Case 1 sonuc = sayi1 - sayi2 Case 2 sonuc = sayi1 sayi2 Case 3 sonuc = sayi1 / sayi2 End Select Text3. Text = str hata: Resume Next End Sub

arkadaşlar 15 tane textboxum war misal bunlardan sadece içine rakam girilenlerin çarpılmasını istiyorum if then başka yapabileceğim bi şeyler yokmu