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.
5 yorum:
eline sağlık dostum işimi gördü
ben hiçbirşey anlamadım
zaten kodlamayada nasıl başlayacğımı bilmiyorum 3 aya kadar yetiştirmem gerken bir uygulama var eğer bana yardım edersen (visual basic 2010 kullanıyorum) lütfen yardım etttt
Kardeşim nasıl bir program yapicaksin benimle iletişime geçebilirsin
Harun.yigit.58.ist@gmail.com
Titanium White Wheels - TITanium Art
These Titanium White Wheels are used in ti 89 titanium calculator the manufacture titanium stud earrings of ion titanium hair color the Bicycle and Super Wheel of Spades, which were first used by titanium flash mica many manufacturers to be used $59.95 · In stock titanium white octane blueprint
c032c5mvlhd203 Wand Massagers,dual stimulator,g-spot dildos,cheap sex dolls,horse dildo,sex doll,male masturbator,vibrators,dual stimulator a823h9ermah940
Yorum Gönder