Gorsel Programlama

Girilen sayıları listboxa kaydedip ve tekrar yan listboxtta büyükten küçüğe ve küçükten büyüğe sıralayan program.. 3.yazılı 1.soru..

<!–[if gte mso 9]> Normal 0 21 false false false MicrosoftInternetExplorer4 <![endif]–><!–[if gte mso 9]> <![endif]–>
Yukarıdaki form görüntüsüne sahip programın kodlarını yazınız. İlk düğmeden sayılar girilecek  , 2. ve 3. Düğmeden de sıralama işlemleri yapılacaktır.

Programımız 3 Button , 3label ve 3ListBoxtan Oluşuyor..

Yapılışı;

Önce Form1′de Değişken Tanımlayacağız;

Dim sayı(10) As Integer
Dim sayaç, sayaç2, geçici As Integer

Button1 (sayıları gir ) Yazılacaklar;

</p></p></p>

For sayaç = 1 To 10
sayı(sayaç) = InputBox(sayaç & ".sayıyı gir")
ListBox3.Items.Add(sayı(sayaç))

Next

Button2 (Küçükten büyüğe) yazılacaklar;

For sayaç = 1 To 9
For sayaç2 = sayaç + 1 To 10
If sayı(sayaç2) < sayı(sayaç) Then
geçici = sayı(sayaç)
sayı(sayaç) = sayı(sayaç2)
sayı(sayaç2) = geçici

End If
Next
Next

For sayaç = 1 To 10
ListBox1.Items.Add(sayı(sayaç))

Next

Button3 (Büyükten Küçüğe) yazılacaklar,

For sayaç = 1 To 9
For sayaç2 = sayaç + 1 To 10
If sayı(sayaç2) > sayı(sayaç) Then
geçici = sayı(sayaç)
sayı(sayaç) = sayı(sayaç2)
sayı(sayaç2) = geçici

End If
Next
Next

For sayaç = 1 To 10
ListBox2.Items.Add(sayı(sayaç))

Next

PROJEYİ İNDİR