NBATMAN
Üye
- Katılım
- 7 Şub 2008
- Mesajlar
- 136
- Puanları
- 1
Merhaba,
Sayısal (matematiksel) işlemlerde Kodlar aşağıdaki gibi olmalı aksi takdirde sayı dışında herhangi bir şey ( harf v.s ) girildiğindede hata alınır. Bunun önüne geçmek için aşağıdaki kodlar işinizi tam görür düşüncesindeyim.
Imports System.Text.RegularExpressions
PublicClass Form1
Dim sonuc As Integer
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = ""Or TextBox2.Text = ""Then
MsgBox("Lütfen bütün alanları eksiksiz doldurunuz!")
Else
sonuc = Val(TextBox1.Text) + Val(TextBox2.Text)
MsgBox(sonuc)
EndIf
EndSub
PrivateSub TextBox1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim r As Regex
r = New Regex("[0-9]")
e.Handled = Not r.IsMatch(e.KeyChar.ToString())
EndSub
PrivateSub TextBox2_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Dim r As Regex
r = New Regex("[0-9]")
e.Handled = Not r.IsMatch(e.KeyChar.ToString())
EndSub
EndClass
Sayısal (matematiksel) işlemlerde Kodlar aşağıdaki gibi olmalı aksi takdirde sayı dışında herhangi bir şey ( harf v.s ) girildiğindede hata alınır. Bunun önüne geçmek için aşağıdaki kodlar işinizi tam görür düşüncesindeyim.
Imports System.Text.RegularExpressions
PublicClass Form1
Dim sonuc As Integer
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = ""Or TextBox2.Text = ""Then
MsgBox("Lütfen bütün alanları eksiksiz doldurunuz!")
Else
sonuc = Val(TextBox1.Text) + Val(TextBox2.Text)
MsgBox(sonuc)
EndIf
EndSub
PrivateSub TextBox1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim r As Regex
r = New Regex("[0-9]")
e.Handled = Not r.IsMatch(e.KeyChar.ToString())
EndSub
PrivateSub TextBox2_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
Dim r As Regex
r = New Regex("[0-9]")
e.Handled = Not r.IsMatch(e.KeyChar.ToString())
EndSub
EndClass