Merhaba Arkadaşlar ; Bu Makalemizde String Fonksiyonları İnceliyeceğiz.
Tüm Programlama Dillerinde Olduğu Gibi Visual Basic de de Çeşitli İşlemleri Gerçekleştirmek İçin Fonksiyonlar Kullanırız.Şimdi Bunları Örnekleriyle Anlatmaya Çalışacağım ;
1. Asc() Fonskiyonu
Bu Fonksiyon String Bir Değişkenin ASCII Kodunu Bulmamıza Yarar.
Kullanım:ı Asc(“karakter”)
Örnek : Button’a Tıkladığımızda Textbox’umuza “A”‘nın Asc Kodunu Yazsın; Bunun İçin Formumuza Bir Adet Textbox Bir Adet Command Button Ekliyoruz. ve Button’umuzun Click Event’ına Åžunları Yazıyoruz..;
Private Sub Command1_Click()
Text1.Text = Asc(“A”)
End Sub
Programımızı Çalıştırdığımızda A’nın ASCII Kodunun 65 OlduÄŸunu Öğrendik.
2.Chr() Fonksiyonu
Asc Fonksiyonun Tam Tersidir. ASCII Kodu Verilen Karakteri Verir.
Kullanımı : Chr(ASCII Kod)
Örnek : Buttona Tıkladığımızda Textbox’umuza “A” Yazsın Bunun İçin Formumuza Bir Adet Textbox Bir Adet Command Button Ekliyoruz. ve Button’umuzun Click Event’ına Åžunları Yazıyoruz..;
Private Sub Command1_Click()
Text1.Text = Chr(65) => Bir Önceki ÖrneÄŸimizde A’nın ASCII Kodunu 65 Bulmustuk.
End Sub
3.IsArray() Fonksiyonu
Girilen Değişkenin Dizi Olup Olmadığını Verir Eğer ; Değişken Diziyse True , Değilse False Olarak Döner.
Kullanımı : IsArray(Değişken)
Örnek : 2 DeÄŸiÅŸken Tanımlayalım Biri Dizi Olacak Åžekilde Buttona Tıkladığımızda EÄŸer Diziyse Textbox’umuza “GirdiÄŸiniz DeÄŸiÅŸken Bir Dizidir” Yazsın. Yine Bir Button ve Textbox Ekleyip Buttonumuza Åžunları Yazıyoruz..
Private Sub Command1_Click()
Dim deneme(1 To 5) As Integer
Dim a, MyCheck
If IsArray(deneme) = True Then
Text1.Text = “GirdiÄŸiniz DeÄŸiÅŸken Bir Dizidir”
If IsArray(a) = False Then
Text2.Text = “GirdiÄŸiniz DeÄŸiÅŸken Bir Dizi DeÄŸildir.”
End If
End If
End Sub
Instr Fonksiyonu
Verilen String Değişken veya Bilgi İçinden Bir Başka String veya Karakteri Arar.
Eğer Aradığınız Karakter veya String Aranan String İçinde Yoksa Fonksiyon 0 Değerini Üretir,Fakat Varsa Aranan String veya Karakterin Bulunan String İçinde Kaçıncı Karakter Olduğunu Gösterir. Büyük/Küçük Harf Ayrımı Yapmaktadır.Başlangıç Değeri Verilmezse Bu Değer Fonksiyon Tarafından 1 Olarak Atanır.
Kullanımı Instr(Başlangıç,String,Aranan)
Örnek
Formumuza 2 Textbox Bir Command Button Ekliyoruz. Textbox’umuza vbAsic Yazıyoruz.Buttonumuza Tıkladığımızda vbAsic Yazısında “A”‘nın Kaçıncı Karakter OlduÄŸunu Bulsun.BaÅŸlangıc DeÄŸeri Olarak 1 Atıyoruz.( Ä°lk Karakterden BaÅŸlaması İçin) Command Button umuza Åžunları Yazıyoruz
Private Sub Command1_Click()
Dim AranacakString, bulunacak, karakter
AranacakString = Text1.Text
bulunacak = “A”
karakter = InStr(1, AranacakString, bulunacak)
Text2.Text = karakter
End Sub
Len() Fonksiyonu
Girilen String veya Veriant Bir Değişkenin Karakter Sayısını Verir.
Kullanımı Len(Değişken)
Örnek
Formumuza 2 Textbox 1 Command Button Ekleyelim.Textboxumuza “kariyervideo” yazalım karakter sayısını 2.textbox a yazsın
Private Sub Command1_Click()
Dim t, s
t = Text1.Text
s = Len(t)
Text2.Text = s & “Karakterden OluÅŸuyor”
End Sub
Left(),Left$() String İfadenin En Solundaki Belirtilen Sayıdaki Karakterleri Verir.
Kullanımı Left(Değişken,Uzunluk)
Örnek Formumuza 2 Adet Textbox Bir Adet CommandButton Ekleyelim ve AÅŸağıdaki Kodları Yazdıktan Sonra Programımızı Çalıştırıp 1.Textbox’ımıza BirÅŸeyler Yazalım ve Onun Soldan 2 Karakterini Alalım..Buttonumuza Tıklıyoruz ve …
Private Sub Command1_Click()
Dim t, s
t = Text1.Text
s = Left$(t, 2)
Text2.Text = s
End Sub
Lcase(),Lcase$() Fonksiyonu
Verilen String İfadedeki Türkçe Karakterler Hariç Tüm Karakterleri Küçük Harfe Çevirir.
Kullanımı Lcase(değişken)
Örnek Formumuza Ä°ki Adet Textbox 1 de Command Button YerleÅŸtiriyoruz. Buttona Tıkladığımızda Textboxa GirdiÄŸimiz “KARIYERVIDEO” Yazısı kariyervideo ya Dönüşsün.
Private Sub Command1_Click()
Dim t, s
t = Text1.Text
s = LCase(t)
Text2.Text = s
End Sub
Trim,Ltrim,Rtrim Fonksiyonu
Trim : Sağ ve Soldaki Tüm Boşlukları Kaldırır.
Ltrim : Soldaki Tüm Boşlukları Kaldırır.
Rtrim: Sağdaki Tüm Boşlukları Kaldırır.
Kullanımı Trim(değişken)
Örnek
Private Sub Command1_Click()
Dim t, s
t = Text1.Text
s = Trim(t)
Text2.Text = s
End Sub
Hepsinin Kullanımı Aynı Olduğu İçin Bir Örnek Yeter.
Mid(),Mid$() Fonksiyonu
Girilen String Değişken İçerisinden Başlangıç Karakterinden İtibaren Belirtilen Sayıdaki Karakteri Sonuç Olarak Verir.
Kullanımı Mid(String,Başlangıç,Sayı)
Örnek 2 Adet Textbox 1 Adet Command Button Ekliyoruz Buttonumuza Tıkladığımızda 1.Textboxumuza Girdiğimiz Yazının 7. Karakterden Sonra 3 Karakterini 2. Textboxumuza Yazdıralım.
Private Sub Command1_Click()
Dim t, s
t = Text1.Text
s = Mid(t, 7, 3)
Text2.Text = s
End Sub
Right(),Right$() Fonksiyonu
Right(),Right$() String İfadenin En Solundaki Belirtilen Sayıdaki Karakterleri Verir.
Kullanımı Left(Değişken,Uzunluk)
Örnek Formumuza 2 Adet Textbox Bir Adet CommandButton Ekleyelim ve AÅŸağıdaki Kodları Yazdıktan Sonra Programımızı Çalıştırıp 1.Textbox’ımıza BirÅŸeyler Yazalım ve Onun SaÄŸdan 3 Karakterini Alalım..Buttonumuza Tıklıyoruz ve …
Private Sub Command1_Click()
Dim t, s
t = Text1.Text
s = Right(t, 3)
Text2.Text = s
End Sub
Space(),Space$() Fonksiyonu
İstenilen Sayıda Boşluk Bırakmaya Yarar. Sadece Print Komutu İle Kullanılabilir.
Kullanımı Space(BoşlukSayısı)
Örnek Formumuza Bir Adet Textbox Bir Adet de CommandButton Ekliyoruz.Buttonumuza Tıkladığımız Zaman Textboxumuza Girdiğimiz kariyervideoYazısından Sonra 1 Boşluk Bırakıp Com Yazsın.
Private Sub Command1_Click()
Dim t As String
t = Text1.Text
Print t; Spc(1); “Com”
End Sub
String(),String$() Fonksiyonu
Verilen Karakterden,Karakterin ASCII Kodundan veya String Değişkenin İlk Karakterinden Belirtilen Sayı Kadar Çoğaltarak String Bir Değişken Oluşturur.
Kullanımı String(Sayi,Karakter)
Örnek Formumuza İki Textbox ve Bir Button Ekliyoruz ve , Textbox1 deki Girdiğimiz A Harfi Textbox2 de 5 Kere Yazılsın.
Private Sub Command1_Click()
Dim t As String
t = Text1.Text
s = String(5, t)
Text2.Text = s
End Sub
StrComp() Fonksiyonu
Değişkenleri Oluşturan Karakterlerin ASCII Kodlarını Dikkate Alarak Soldan Sağa Doğru Karakterleri Kıyaslar. Fonksiyonun Kıyas Değeri 1 Olarak Verilirse Karsılastırma Sırasında Büyük/Küçük Harf Ayrımı Yapmaz. 0 veya Hiçbir Sayı Girilmezse Büyük/Küçük Harf Ayrımı Yapar.Sonuç Değerine Göre Stringlerin Hangisinin Büyük Olduğunu Şu Şekilde Anlarız.

Eğer Sonuç = 0 İse String1 > String2
Eğer Sonuç = 1 İse String1 = String2
Eğer Sonuç= -1 İse String1 < String2

Kullanımı : StrComp(String1,String2,Kiyas)
Örnek : Formumuza 3 Adet Textbox Ekliyoruz.. Birinci ve Ä°kinci Textbox’ımıza Kıyaslamak Ä°stediÄŸimiz Ä°fadeleri Giriyoruz.Üçüncü Textbox’ımıza da Hangisinin Büyük OlduÄŸunu Yazdırıyoruz..
Private Sub Command1_Click()
Dim t, s, l
t = Text1.Text
s = Text2.Text
l = StrComp(t, s, vbTextCompare)
If l = 1 Then
Text3.Text = t & (“büyüktür”) & s
End If
If l = 0 Then
Text3.Text = t & (“eÅŸittir”) & s
End If
If l = -1 Then
Text3.Text = t & (“küçüktür”) & s
End If
End Sub
Ucase(),Ucase$() Fonksiyonu
Girilen String Değişkenin İçerisindeki Tüm Küçük Harfleri Büyük Harfe Çevirir. Türkçe Karakterler Hariç.
Kullanımı Ucase(Değişken)
Örnek Formumuza 2 Adet Textbox ve Bir de Command Button Ekleyelim Yukarıda Textbox1′e GirdiÄŸimiz Küçük Harfleri Büyük Harfe Çevirerek Textbox2′ye Yazsın.
Private Sub Command1_Click()
Dim t, s
t = Text1.Text
s =UCase(t)
Text2.Text = s
End Sub
Umarım Anlatabilmişimdir.
Kolay Gelsin İyi Çalışmalar.