Visual Basic Dersleri (MID FONKSİYONU)

MID FONKSİYONU ; Mid Fonksiyonu bir stringin en solundan belirtilen karakterden belirtilen karakter kadarını alarak yeni bir string oluşturur.Örnek kullanımı ; MID(String,1,3) burada en soldaki 1.karakterden sonraki 3 harfi alarak yeni bir string oluşturduk.Örnek kod yazalım ; Private Sub Command1_Click() Dim rapboy, yenistring rapboy = "Vatanın Sanal Kalesi Cyber-warrior.org’dur " yenistring = Mid(rapboy, 1, 21) MsgBox yenistring End Sub Rapboy ve yenistring adında 2 yeni string tanımladım.Rapboy un ne olduğunu belirledim ve yeni stringin ise rapboyun solundaki ilk karakterden 21 karakter sonrasına kadar olan kısmını aldırdım ve msgbox ile gösterdim.Bakınız program calıştığında ; Hesapladık ve sonuç:) INSTR Komutu; .Kesin koşula bağlanmayan yapılarda kullanılır.Değişken ne olursa olsun o değişkende sizin belirlediğiniz stringi arar.Bulurs a 1 bulamazsa 0değerini döndürür.İstersek bizim belirlediğimiz bir yazıda döndürebilir.Örneğin ; Çok basit bir sohbet örneği yapalım.Form Gereçleri ; 1 Adet Label Name :Label1, 1adet Textbox Name : Text1, 1 adet Buton Name : Command1. Kodlar ; Private Sub Command1_Click() If InStr(1, Text1.Text, "selam") Then Label1.Caption = "Aleyküm Selam Kardeşim." ElseIf InStr(1, Text1.Text, "rapboy") Then Label1.Caption = "VB 6.0 Konusunda dersler veren Güzel Kardeşimiz:)" ElseIf InStr(1, Text1.Text, "Cyber-warrior") Then Label1.Caption = "Türkiyenin En Büyük Siber Savunma Gücünden mi Bahsediyorsun oo:)" Else Label1.Caption = "Tanımlanmamış Yazı" End If End Sub Kodların Açıklamaları ; Text1 bizim değişkenimiz.text1 de yazılanın ilk (1.karakter) karakterinden itibaren tamamında ikinci olarak belirttiğim stringi ara.Bulursan Label1 e yazı yaz.Çalıştıralım.Sonucu görelim.Text1 e rapboy veya Cyber-warrior ile ne yazarsanız yazın o sadece belirlediğimiz stringlere göre işlem yapacak onları arayacaktır. LEN Komutu ; Basit bir kod olup stringin kaç karakterden oluştuğunu hesaplayan koddur.Örneğin Len("Cyber Warrior") ifadesinde kodun geri dönüşü 13 olacaktır çünkü ifade boşluk dahil 13 karakter içeriyordur. LCASE ve UCASE Komutları ; LCASE stringin tamamını küçük UCASE ise stringin tamamını büyük harfe çevirir.Kullanım şekilleri aynıdır. LCase("RAPBOY") Yazdığımızda programın bize dönüşü ; rapboy şeklinde olacak ve aynı şekilde UCASE("rapboy") Yazdığımızda program bize RAPBOY şeklinde geri dönecektir. LİKE Operatörü ; İşte Güzel bir Komut :) Bulanık arama methodu.Çok net olmayan aramalarda kullanılır.Genelde Database lerde arama yapmak içinde kullanılır.Database konularında mutlaka değineceğimiz bir koddur. Sembolleri vardır ; Örnek Kod yazalım ; r=("#####"like "246810") şeklindeki bir atamanın sonucunda r Tru(Dogru) degerini alacaktır. a=("[Rapboy]"like"67895") atamasının sonucunda a’nin degeri False(Yanlıs) olacaktır.Cünkü rapboy un içinde rakamları arayacaktır ve bulamayacaktır. p=("[!abcde]"like "67895") atamasının sonucunda ise, p’nin değeri True(Dogru) olacaktır.çünkü listede bu karakterler yoktur. TRIM FONKSİYONU Ve Kullanımı ; Çoğu zaman ve çoğu yerde arayacağımız bir kod olabilir.Çünkü Stringin Sağ ve Sol tarafındaki Tüm Boşlukları yok eder bu kod.Örneğin ; Trim(" Rapboy ") Yazdığımızda Tüm Boşluklar silinir ve sadece rapboy kalır.Değişkene atayabiliriz.Text1.text gibi LTRIM ve RTRIM komutları Stringin sadece sol ve sağ tarafındaki boşlukları yok eder.