Visual Basic 2008 Harf Harf Yazdırma.

[BlueMooN53]

Merhaba Arkadaslar Size Visual Basic 2008'de Adınız veya Baska Bisey'i Harf Harf Yazıdırma Programı Yapmayı Gösterecegim...

Gerekenler:

• 3 Tane Buton
• 1 ListBox

Butonların İsimlerini Sırayla:
Buton1-Harf Sıralama
Buton2-Harfleri Teker Teker Yazdırma
Buton3-Harfleri Teker Teker Tersten Yazdırma
Yapıyoruz.

Şimdi Gelelim Kodlara

Buton1-Harf Sıralama Kodu:

Dim ad As String
ad = InputBox("adınız?")
Dim i
For i = 0 To ad.Length - 1
ListBox1.Items.Add(i + 1 & " .harf " & ad.Chars(i))

Next

Buton2-Harfleri Teker Teker Yazdırma Kodu:

Dim ad As String
ad = InputBox("adınız?")

Dim dizi(ad.Length) As String
For a = 0 To ad.Length - 1
For b = 0 To a
dizi(a) = dizi(a) + ad.Chars(b)

Next
Next
For a = 0 To ad.Length - 1

ListBox1.Items.Add(dizi(a))
Next

Buton3-Harfleri Teker Teker Tersten Yazdırma Kodu:

Dim ad As String
ad = InputBox("adınız?")

Dim dizi(ad.Length) As String
For a = ad.Length - 1 To 0 Step -1
For b = 0 To a
dizi(b) = ad.Chars(a) + dizi(b)

Next
Next
For a = 0 To ad.Length - 1

ListBox1.Items.Add(dizi(a))
Next

Kullanımı:
Butonlardan Birine Tıklyoruz ve "Adınız veya Baska Bisey Yazınız" Geliyor ve Oraya Örnek Ahmet Yazıyoruz Onu Harflerine Sıralıyor Diğerleride Öyledir...
İyi Forumlar...

 

[GhostSentineL]

Teşekkürler Eline Sağlık Kardeş

 

[BlueMooN53]

Teşekkürler Eline Sağlık Kardeş

Önemli Degil