Harf Harf Yazdırma VB.Net

Kullanıcı tarafından girilen kelimeyi listbox’ta teker teker sıralayan ve harflari değişik şekilde alt alta yazan programı yapalışını görelim..

Programda Kullanıcı dışarıdan  kelime girşi yapacak program onu listboxta harfleri tek tek yazdıracak..

İkinci buttonda girilen kelimenin önce 1 harfi sonra 2,3.. sırasıyla yazacak.Üçüncü Buttonda ise Tam tersini yapacak ve önce kelimenin tamamını sonra kelimeyi 1 harf eksilterek listbox’ta alt alta yazdıracak..

Program 3 button ve 1 listbox’tan oluşuyor..

1 button’a yazılacaklar;

[code lang=”vbnet”]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[/code]

2 button’a  yazılacaklar;

[code lang=”vbnet”]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[/code]

3 Button’a yazılacaklar;

[code lang=”vbnet”]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
[/code]

Projeyi indir