Merhabalar bu yazıda Visual Studio 2010 Vb.Net kullanarak kelime türetme ve girilen kelimenin tersini almayı göreceğiz.Öncelikle Visual Studio programını çalıştırıp yeni bir vb.net projesi açarak,

uygulama ekranı
uygulama ekranı

Resimdeki gibi nesnelerimizi yerleştiriyoruz.Zaten bildiğiniz üzere ekrana bir buton(fonksiyonu çağırmak için),bir TextBox(Türetilecek kelimeyi almak için) ve son olarak türetilen kelimeleri ekranda göstermek için Listbox kontrolleri olacak.İsterseniz Kodlara geçmeden önce size hazırladığım fonksiyonları anlatayım.KelimeTuret ve KelimeTersCevir fonksiyonları…

KelimeTuret fonksiyonu parametre olarak string bir parametre alır.Ve gelen parametredeki harfleri kullanarak değişik kelimeler türetir.KelimeTersCevir fonksiyonuda aynı şekilde string parametre alır.Ve gelen parametredeki harfleri sondan başa doğru değiştirir.(Örnek olarak Furkan –> nakruF şeklinde)

Şimdi kodlarımıza geçelim.
Fonksiyonumuzun ismi;Function KelimeTuret(ByVal GelenKelime As String)
Değişkenlerimizi oluşturalımDim Harfler As New ArrayList ‘Gelen Kelimedeki harfleri tutacağımız nesneDim Rastgele As New Random ‘Harfleri Rastgele yerleştireceği için Random NesnesiDim GeciciSayi As Byte = 0 ‘Random sayıyı tutmak için bir değişkenDim OlusanKelime As String = Nothing ‘Oluşan kelimeyi tutacak eleman .xD
Fonksiyona Devam edelim…
‘For each döngüsüyle gelen kelimedeki harfleri teker teker ArrayList imize alıyoruz.For Each Harf In GelenKelimeHarfler.Add(Harf)Next
Harf sayısı kadar döngümüzü kuruyoruz…For i = 0 To Harfler.Count – 1

GeciciSayi değişkenine 0 ile harf sayısı arasında rastgele sayı atıyoruz.Neden harf sayısı kadar?Çünkü rastgele bir harf seçeceğiz.Neden 0 dan başlayacak?Çünkü mesela gelen kelimemiz kodaman olsun Baştaki for each döngüsünde Harfler adlı ArrayListe harfleri attığımızda bu arraylistin eleman sayısı (Count’u) 7 olacak.Harfler adlı arraylistin ilk elemanın index numarasıda 0 dan başladığı için Harfler.Count – 1 diyerek 0 ile 6 arasında sayı oluştur demiş oluyoruz.
GeciciSayi = Rastgele.Next(0, Harfler.Count)
OlusanKelime adlı değişkenle Harfler adlı Arraylisteki GeciciSayi indexli harfi birleştiriyoruz…OlusanKelime &= Harfler(GeciciSayi)
Kullandığımız harfin birdaha kullanılmaması için Harfler ArrayListinden siliyoruz…Harfler.RemoveAt(GeciciSayi)
Döngümüzü bitiriyor,Fonksiyonun çağırıldığı yere return komutuyla olusan kelimeyi yolluyoruz…Ve Fonksiyonumuzuda bitiriyoruz.NextReturn OlusanKelimeEnd Function

Örnek Görüntü
Örnek Görüntü

Kodların hepsini derli toplu vermek gerekirse;Function KelimeTuret(ByVal GelenKelime As String)Dim Harfler As New ArrayListDim Rastgele As New RandomDim GeciciSayi As Byte = 0Dim OlusanKelime As String = NothingFor Each Harf In GelenKelimeHarfler.Add(Harf)NextFor i = 0 To Harfler.Count – 1GeciciSayi = Rastgele.Next(0, Harfler.Count)OlusanKelime &= Harfler(GeciciSayi)Harfler.RemoveAt(GeciciSayi)NextReturn OlusanKelimeEnd Function
Şimdi KelimeTersCevir fonksiyonumuza bakalım…
Fonksiyonumuzun ismi,Function KelimeTersCevir(ByVal GelenKelime As String)
Olusacak kelimeyi tutmak için değişkenDim OlusanKelime As String = String.Empty
Burada GelenKelimenin harf sayısından 1 e doğru 1’er 1’er azalan döngümüz var.Çünkü son harften başlayıp ilk harfe gidecek.Vb.net’in Getchar fonksiyonu belirtilen string ifadenin,belirtilen sıradaki harfini bize getirir.Ve OlusanKelime adlı değişkene ekler…For sira = GelenKelime.Length To 1 Step -1 ‘OlusanKelime &= GetChar(GelenKelime, sira)Next
Fonksiyonun çağırıldığı yere return komutuyla olusan kelimeyi yolluyoruz.Ve Fonksiyonumuzu bitiriyoruz.Return OlusanKelimeEnd Function
Kodların hepsini derli toplu vermek gerekirse;Function KelimeTersCevir(ByVal GelenKelime As String)Dim OlusanKelime As String = String.EmptyFor sira = GelenKelime.Length To 1 Step -1OlusanKelime &= GetChar(GelenKelime, sira)NextReturn OlusanKelimeEnd Function
Kodları kullanmak içinse Button1’in Click olayına;ListBox1.Items.Add(KelimeTuret(TextBox1.Text))ListBox1.Items.Add(KelimeTersCevir(TextBox1.Text))
Kodlarından hangisini isterseniz onu yazıyorsunuz…

Anlaşılması dileği ile….