Merhaba arkadaşlar programlama öğrenmek için her zaman yeni örnekler denemelisiniz. Bunun için bugün sizlere Vb.net ile Harf Yazdırma Programı örneğini aktaracağız. Harf nasıl yazdırılır? Harf Yazdırma programı nasıl yapılır? Gibi sorularınızın cevabını bu içerikte bulabilirsiniz.
Kullanılması Gerekenler
Vb.Net ile Harf Yazdırma Programı örneğinde kullanılması gerekenler sırası ile şunlardır:
3 adet Button ve 1 adet ListBox bu program için kullanılması gerekenlerdir.
Kod Alanı
Programımızın kullanım şekli şu şekildedir:
Program çalışmaya başladığı an gelen inputbox a adınızı veya istediğini bir kelimeyi yazabilirsiniz. Ondan sonra button1 e tıkladığınız da ekranda olduğu gibi isterseniz sıralamalı, button2 ye tıkladığınız da isterseniz teker teker ve adım adım artarak yazdırma ve button3 e tıklarsanız da harfleri tersten teker teker ve adım adım arttırarak yazabilirsiniz. Bu sıralama her butona bastığınız da Listbox x sıralanır.
Bu programın amacı Vb.net de dizi kullanımı basit bir şekilde örneklemedir. Bu basit örnekleme ile diziler gibi derin bir konuyu anlamaya başlayabilirsiniz. İnanın diziler konusunu kavramak programlama için çok önemlidir. Sizler de bu program da tasarımı değiştirebilir farklı eklentiler katabilirsiniz. Şimdiden hem iyi eğlenceler hem de iyi çalışmalar.
Button 1
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
Button 2
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
Button 3
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