• Forum vBulletin altyapısından Xenforo altyapısına geçirildi, bu sebeple eski şifreleriniz ile foruma giriş yapamayacaksınız, parolamı unuttum adımından mailiniz ile şifre sıfırlayarak giriş yapabilirsiniz.

    Üyeliklerinde geçerli bir mail adresi olmadığı için sıfırlama yapamayacak kullanıcılar forum kullanıcı adlarını ve yeni şifrelerini yazarak info@maxigame.org adresine şifre sıfırlamak istediklerine dair bir mail göndersinler şifrelerini sıfırlayıp mail adreslerini güncelleyeceğiz. Şifreniz sıfırlandıktan sonra foruma giriş yapıp tekrar istediğiniz gibi değiştirebilirsiniz.

Visual Basic .NET 2010 String (Değişken) Kullanımları

  • Konuyu başlatan Konuyu başlatan Dentrax
  • Başlangıç tarihi Başlangıç tarihi

Dentrax

Aileden
Aktiflik
K.Tarihi
20 Şub 2011
Mesajlar
3,041
Puanı
707
Konum
Isparta
kakbgo.png


6858.png


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

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

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.

6858.png


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. :D Sizden ilk defa teşekkür istiyorum. :)
6858.png


Maxigame - _DeaLyDeviL_

6858.png
 
Son düzenleme:
Teşekkürler hocam anlıyorsun bu işlerden ben toy olarak arada soru sormaya müsade varmı :D
 
Geri
Üst