program yazmayı bilenler yardım etsin lütfen

arkadaşlarr ben bir basit hesap makinesi yaptım ama bunda harf girilmesin harf girildiğinde hata versin nasıl yaparım yardım edin???

hangi dil
kodunu yaz
bide ztn adam mal mı harf gircek xd

Alıntı: alper8118  

hangi dil
kodunu yaz
bide ztn adam mal mı harf gircek

olsun ya hoca falan konttol eder.Visual Basic

try catch ile halledebilirsin nasıl kullanıldığınıda biraz araştır

örnek kodları paylaşıyorum.formda 2 tane textbox,1 tane button 1 tane label eklediğini sayıyıorum.Button click olayına aşağıdaki kodları yazarsın.Bu kodlar sadece toplama işlemi için diğer işlemleri sen ekle.

 Try
            Dim sayi1, sayi2 As Integer
            sayi1 = TextBox1.Text
            sayi2 = TextBox2.Text
            Label1.Text = sayi1 + sayi2
        Catch ex As Exception
            MessageBox.Show("Lütfen Sayı Giriniz")
        End Try

en bsıt yontemi soyliyim :)      tum alfabeyi yazabilrisin yeni dzueyde basladıysan apilere pek bulasma biraz uzun surecekama 29 :P harfıde boyle uygulayabilirsin yada ben yazıp koyım kopy edersin:) 
 
sub text_1_change()
text1=kontrol(text1)
end sub
Function Kontrol (kelime)
kelime=Replace ("Q","")
kelime=Replace ("W","")
kelime=Replace ("E","")
kelime=Replace ("R","")
kelime=Replace ("T","")
kelime=Replace ("Y","")
kelime=Replace ("U","")
kelime=Replace ("I","")
kelime=Replace ("O","")
kelime=Replace ("P","")
kelime=Replace ("Ğ","")
kelime=Replace ("Ü","")
kelime=Replace ("A","")
kelime=Replace ("S","")
kelime=Replace ("D","")
kelime=Replace ("F","")
kelime=Replace ("G","")
kelime=Replace ("H","")
kelime=Replace ("J","")
kelime=Replace ("K","")
kelime=Replace ("L","")
kelime=Replace ("Ş","")
kelime=Replace ("İ","")
kelime=Replace ("Z","")
kelime=Replace ("X","")
kelime=Replace ("C","")
kelime=Replace ("V","")
kelime=Replace ("B","")
kelime=Replace ("N","")
kelime=Replace ("M","")
kelime=Replace ("Ö","")
kelime=Replace ("Ç","")
kelime=Replace ("A","")
end function

Alıntı: qarizma016  

arkadaşlarr ben bir basit hesap makinesi yaptım ama bunda harf girilmesin harf girildiğinde hata versin nasıl yaparım yardım edin???

 
Profesyonel ve Kesin Çözüm.
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
        Case 48 To 57, vbKeyBack
             KeyAscii = KeyAscii
        Case Else
             Beep
             KeyAscii = 0
    End Select
End Sub
 
 Not: Hesap Makinesinde harf girilecek veya sayı girilecek bir yer olmaması gerekiyor.
Eğer Varsa kodu kullanın. Hesap Makinesi Butonlardan Oluşur ve Klavye Kısa Yollarını Algılayan Kodlar da Oluşur.
Örnek Klavyeden 8 e Basıldığını Algılayıp "8 ile ilişkili butona tıklanmış" olsun. Farklı bir Proje Yapıyorsunuz Heralde... 
 
Yok Sıradan bir çalışmam var diyorsanız...  "Text1.Locked=True" olması bilgi girişini engeller.

hepinize teşekkür edrim arkadaşlar.

yada, 

text'in change olayına koyarsın verdiğim kodu.

if IsNumeric(text1.text) = false then
msgbox "Lütfen sayı girin."
text1.text = ""
end if 
;)

İf Else kullan String bir değer girerse kabul etme.Integer türünden iste.<

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress 
        If Asc(e.KeyChar) <> 8 Then 
            e.Handled = Not IsNumeric(e.KeyChar) 
        End If 
        End Sub  

İşte kod bu Bu Kodu Textbox1 için ise 
Private Sub TextBox1 'burayı değiştirmeden forma direkmen ekleyiniz.
Private Sub TextBox2 için ise

Private Sub TextBox2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress 
        If Asc(e.KeyChar) <> 8 Then 
            e.Handled = Not IsNumeric(e.KeyChar) 
        End If 
        End Sub  
textbox3 için ise

Private Sub TextBox3_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress 
        If Asc(e.KeyChar) <> 8 Then 
            e.Handled = Not IsNumeric(e.KeyChar) 
        End If 
        End Sub  

gerisi sana kalmış kolay gelsn

www.ircforumcu.com

Profesyonel Visual Basic Yardımcılarımız ile Tanışmak İçin Uğrayın.

textbox nesnesinin keypres olayına aşağıdaki kodu yazarsan kullanıcı asla harf giremez
If (Microsoft.VisualBasic.Asc(e.KeyChar) < 48) Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 57) Then
            e.Handled = True
        End If
ama aynen böyle yaz
takıldığın biryer olursa mesaj at bana yardımcı olurum
hatta  bana güvenirsen seninle aramızda bir ağ kurarız ben sana v.b yi öğretirim kendi pcm üzerinden senin pc ne bağlanarak

yararlı bilgiler

kısaca sole de yapabilirsin
if isnumeric(Textbox1.text ) then
İşlemleri bu araya yazarsın...
........................................
else
msgbox(Lütfen sayısal değer giriniz)
end if
demeniz yeterli
Burak Kızıltaş