Başlangıç > Kodlar > Visual Basic 6 ile Ufkunuzu açacak fonksiyonlar

Visual Basic 6 ile Ufkunuzu açacak fonksiyonlar


Ufkunuzu Açacak Fonksiyonlar

1) İlk fonksiyon acayip kullanışlı olup, çok yerde kullanılabilir. Bir text box'ın keypress olayına atandığı takdirde bu kod, metin kutusuna sadece rakam değerlerinin girilebilmesini sağlar. Kodun mantığı şudur: rakamların ascii değerleri 48 ile 57 arasındadır, bunların dışındaki tüm değerlerin 0'a eşitlenmesini sağlarsanız rakam dışı girdileri silmiş olursunuz. Bu kodun tek zayıf noktası, paste (yapıştır) ile bir metin girmeye kalkarsanız buna engel olmayacak oluşudur.

If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If

2) İkinci fonksiyonun özelliği, VB'de genel olarak bütün kabul edip harf-harf işlemekten kaçındığımız string ifadeleri bir C programında olabilecek şekilde harf-harf incelemesidir. Kesinlikle yavaş ve kullanışsız bir fonksiyon, ama incelemelisiniz. Bu fonksiyona girilen string'teki tüm harfler küçük harfe çevrilir. Türkçe karakterler için özel satırlar eklenmesi gerekmektedir. Bunu şimdilik yapmadım ama bu oldukça önemli bir ayrıntıdır. Aslında bu fonksiyon biraz manasız, VB'de zaten bu işi yapan hazır bir fonksiyon var, ama yine de yapısını inceleyin, işe yarar.


Function HarfDüzenle(ByVal OrjinalGirdi As String)
Girdi = OrjinalGirdi
For X = 1 To Len(Girdi)
If Asc(Mid$(Girdi, X)) > 64 And Asc(Mid$(Girdi, X)) < 91 Then
Mid$(Girdi, X) = Chr$(Asc(Mid$(Girdi, X)) + 32)
End If
'Türkçe karakterler için özel satırlar.
'Maalesef henüz eklenmedi. Eklenirse buraya gelecek.
Next X
HarfDüzenle = Girdi
End Function

3) Şimdi sıra çok gereksiz bir fonksiyonda. Bu fonksiyon girdideki string'in ilk boşluktan sonraki kısmını siler.

Function Boşluk_Ele(Girdi As String)
For X = 0 To Len(Girdi)
If Mid$(Girdi, X + 1, 1) = " " Then Girdi = Mid$(Girdi, 1, X)
Next X
Boşluk_Ele = Girdi
End Function

Turan Birol
turanbirol@hotmail.com


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: