Anasayfa > Kodlar > Visual Basic 6 ile String fonksiyonları ve kullanımı ( Bol örnekli)

Visual Basic 6 ile String fonksiyonları ve kullanımı ( Bol örnekli)


vb de string fonksiyonları ve kullanımı

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.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 “vbasicmaster” 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 “VBASICMASTER” Yazısı vbasicmaster a 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 vbasicmaster Yazı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
————————————–


TD Software


  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. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: