1- Insert Değişkeni Kullanımı
Buradaki amaç, belli bir harf'den sonra, başka bir kelimeyi entegre etmek.
Dim ilk As String = "Benim adım." 'ilk değişkeni Benim adım furkan olsun.
Dim ekleilk As String = " Furkan" 'ilk değişkenine eklenecek değişken ise Furkan
Dim toplam As String = ilk.Insert(10, ekleilk) 'Inser ile ilk değişkene, 10 harf sonra, ekleilk değişkenini ekliyoruz.
MsgBox(toplam) 'Benim adım Furkan. olarak çıkıyor. Siz geliştire bilirsiniz. Ben mantığını verdim.
2- Length Değişkeni Kullanımı
Amaç, değişkendeki harf sayısını bulmak. (Boşluklar dahil)
Dim satir As String 'değişkeni tanımlayalım
satir = "Ben Furkan" 'satir = Ben Furkan olsun.
MsgBox(satir.Length()) 'satir'daki harf sayısı = 10
Aynısını,
Dim satir As String = "Ben Furkan"
MsgBox(satir.Length())
Böylede yapabilirdim, ama neden üstteki gibi uzattım anladım.
3- IndexOf Değişkeni Kullanımı
Length ile aynı mantık. Tanımladığımız değişkeni saymaz. Tek fark bu.
Dim satir As String 'tanımla
satir = "Benim adım Furkan"
MsgBox(satir.IndexOf("Furkan")) 'Kelimenin kaçıncı yerde olduğunu bulur. 11. yerden başlıyor.
4- Equals Değişkeni Kullanımı
Değişken eşitleme. Kısaca bu.
Dim ilk As String = "Furkan" 'ilk değişken
Dim son As String = "Furkan" 'son değişken
If String.Equals(ilk, son) Then 'analiz eden yer
MsgBox("Değişkenler Equal(). ")
Else
MsgBox("Değişkenler Equal() değil. ")
End If
5- CopyTo Değişkeni Kullanımı
İlk beş karekter'i sayar.
Dim karakter As String = "Furkan" 'değişken
Dim chrs(5) As Char 'karakter max.
karakter.CopyTo(0, chrs, 0, 6) 'kopyaladığımız yer.
MsgBox(chrs(0) + chrs(1) + chrs(2) + chrs(3) + chrs(4) + chrs(5))
6- Copy Değişkeni Kullanımı
Aynı mantık. Değişken kopyalama.
Dim ilk As String
Dim son As String
ilk = "Furkan"
son = String.Copy(ilk) 'son değişkenini = ilk değişkeninin kopyası.
MsgBox(str2)
7- Contains Değişkeni Kullanımı
Kelime ararız.
Dim kelime As String
kelime = "Furkan AA"
If kelime.Contains("AA") = True Then 'AA varsa
MsgBox("AA var.") 'varsa olacaklar
Else
MsgBox("AA yok.'") 'yoksa olacaklar
End If
8- Chars Değişkeni Kullanımı
X kadar sonraki harf.
Dim kelime As String = "Furkan" 'değişken.
Dim karakter As Char 'char değişkeni
karakter = kelime.Chars(2) '3. harfi çek.
MsgBox(karakter) 'karakteri eşitlediğimiz değişkenin karakter'i. Eksiltili cümle oldu neyse.
9- SubString Değişkeni Kullanımı
X sayısı kadar harfi yok et, Y'de bitir.
Dim ilk As String 'değişken.
Dim saysayparasayparasaydedeparasay As String 'değişken..
ilk = "Furkan" 'ik değişkeni. Direk baştaki değişkene eşitleyebilirsiniz.
saysayparasayparasaydedeparasay = ilk.Substring(1, 4) '1. hari yok et, 4'e kadar say. 'bunuda ilk değişkene ekleyebilirsiniz.
MsgBox(saysayparasayparasaydedeparasay) 'urka çıkacaktır.
10- Split Değişkeni Kullanımı
Önemli bir değişken. Her kelimeyi tek tek sayar. Sınırsız bir döngü vardır.
Dim ilk As String 'ilk değişkenini tanımla.
Dim ilkArr() As String 'For next kullanacağımız için ilkArr diye tanıtmak yanlış olur.
Dim say As Integer 'say değişkeni
ilk = "Furkan Maxigame Split Tester v1.0"
ilkArr = ilk.Split(" ")
For say = 0 To ilkArr.Length - 1 'döngü burada başlar. Kelimeleri Length ile sayar. 2.değişken kullanımında verdim bu değişkeni.
MsgBox(ilkArr(say))
Next
11- EndWith Değişkeni Kullanımı
Değişkenin bittiği kelimesini bulalım.
Dim kelime As String 'değişken.
kelime = "Furkan Deneme" 'siz değişkeni bir metin belgesinden vb. yerlerden çekebilirsiniz.
If kelime.EndsWith("Deneme") = True Then
MsgBox("Deneme ile bitiyor. ") 'Deneme ile bittiği için bu değerler okunacak.
Else
MsgBox("Deneme ile bitmiyor.") 'belirtilen değer ile bitmiyorsa.
End If
12- Concat Değişkeni Kullanımı
Kısaca değişken birleştirme.
Dim birinci As String 'değişken.
Dim ikinci As String 'değişken.
birinci = "Furkan " 'birinci değişkenin tanımı.
ikinci = "Deneme" 'ikinci değişkenin tanımı.
MsgBox(String.Concat(birinci, ikinci)) 'Furkan Deneme yazacak.
Bunları ben msgbox ile örnek verdim. Yaptığınız programlarda lazım olacaktır. Mesela concot değişkeni kullanarak,
bir .txt dosyasının son kelimesi ile , başka bir txt nin ilk kelimesini birleştirebilirsiniz. Anlatmak istediğim şey,
geliştirilebilen koddur bunlar.
Biraz zaman harcadım. Biraz sapıttım. Sizden ilk defa teşekkür istiyorum.
Maxigame - _DeaLyDeviL_
Son düzenleme: