Teknoloji 16.12.2003 İbrahim Gündüz - netyorum.com / Sayı: 150
RAKAM MI?
Herkese merhaba,
Bu yazıda sizlere pek çok yazılımcı arkadaşımın ortak sorunlarından bir
tanesinden bahsetmek istiyorum. Düşünün, bir metin kutunuz ve bu metin
kutusundaki veriyi göndereceğiniz bir veri tabanınız var. Bu metin kutusunun
gönderileceği veri tabanındaki tabloda bulunan kolon tipi Integer (Tam sayı)
olarak tanımlı. Sizin bu metin kutusuna rakam haricinde herhangibir karakter
girmeniz ve bu bilgiyi veri tabanına kayıt etmeye çalışmanız durumunda,
programınız RUN TIME ERROR verecek. Ne kadar kötü değil mi?
İşte bu sorunu kökten yok edecek bir çözümü sizlerle paylaşmak istiyorum.
Aşağıdaki Visual Basic kodu ile Text1 isimli metin kutusuna rakamlar haricindeki
karakterlerin girilmesi engellenmiş oluyor.
'Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
End If
End Sub
|
Yukarıdaki kodu kısaca açıklayacak olursak;
Bir metin kutumuz var. Buraya girilen karakter´in ascii kodu öncelikle karaktere
dönüştürülüyor. Eğer elde edilen karakter rakam değilse klavyeden girilen
karakter imha edilerek metin kutusunda gözükmesi engelleniyor.
Araştıran , geliştiren ve üreten herkese başarılar dilerim.
İbrahim Gündüz
e-posta: ibrahim@gunduzonline.com
http://www.gunduzonline.com
GündüzOnline
Yazılım Tasarım Grubu
|