TextBox’tan ListBox’a Eklenen Sayıları Dizi kullanmadan Sıralamak Vb.Net

TextBox’tan ListBox’a Eklenen Sayıları Dizi kullanmadan Sıralamak Vb.Net

Daha fazla bilgi için : www.gorselprogramlama.com

[code language=”vbnet”]

Public Class Form1

Private Sub SayiGirisi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ListBox1.Items.Add(TextBox1.Text)

TextBox1.Clear() ‘Daha fazla bilgi için : www.gorselprogramlama.com

End Sub

Private Sub Sirala_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim i, j, gecici As Integer

If RadioButton1.Checked = True Then ‘eğer radiobutton1 seçili ise

For i = 0 To ListBox1.Items.Count – 1  ‘sıfırdan listboxtaki eleman sayısının bir eksiğine kadar

For j = i To ListBox1.Items.Count – 1  ‘i’den listboxtaki eleman sayısının bir eksiğine kadar

If Val(ListBox1.Items(j)) > Val(ListBox1.Items(i)) Then ‘eğer listboxın j.elemanı i. elemanından büyükse

gecici = Val(ListBox1.Items(i)) ‘i.elemanın değerini gecici’ye ata.

ListBox1.Items(i) = ListBox1.Items(j) ‘listboxın j. elemanının değerini i.elemanına ata

ListBox1.Items(j) = gecici  ‘  gecici ‘yi listboxın j. elemanına ata.

End If

Next

Next

End If

If RadioButton2.Checked = True Then   ‘eğer radiobutton2 seçili ise

For i = 0 To ListBox1.Items.Count – 1 ‘sıfırdan listboxtaki eleman sayısının bir eksiğine kadar

For j = i To ListBox1.Items.Count – 1 ‘ i’den listboxtaki eleman sayısının bir eksiğine kadar

If Val(ListBox1.Items(j)) < Val(ListBox1.Items(i)) Then’eğer listboxın j.elemanı i. elemanından küçükse

gecici = Val(ListBox1.Items(i)) ‘i.elemanın değerini gecici’ye ata.

ListBox1.Items(i) = ListBox1.Items(j) ‘listboxın j. elemanının değerini i.elemanına ata

ListBox1.Items(j) = gecici   ‘ geciciyi ‘yi listboxın j. elemanına ata.

End If

Next

Next

End If

‘Daha fazla bilgi için : www.gorselprogramlama.com

End Sub

Private Sub Temizle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

ListBox1.Items.Clear()

End Sub

End Class

[/code]

 

 

Daha fazla bilgi için : www.gorselprogramlama.com