Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » String Fonksiyonlar ve Kullanımı (Bol Örnekli.)
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

Üniversite Vize - Final Not Hesaplama

Yazar: the_speedboy
Bu program sayesinde vize final notunu girerek ortalamanız hesaplanıyor ortalamanıza göre harf notunuz ve durumunuz belirtiliyor.
Kullanılan Bileşenler;
6 Label, 6 textbox, 2 buton, 1 checkbox


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 9901
Yayın Tar:06.02.2008
Yazar : tolgAyaz
Hit :2297

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

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
---------------------------------------------------------------------------------------
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.




Bu sayfa için henüz yorum eklenmemiş.

© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin