Merhaba arkadaşlar programlama öğrenmek için her zaman yeni örnekler denemelisiniz. Bunun için bugün sizlere Vb.Net ile Sayı Sıralama Programı Örneğini aktaracağız. Sayıları büyükten küçüğe nasıl sıralarız? Sayıları büyükten küçüğe sıralayan program nasıl yapılır? Gibi sorularınızın cevabını bu içerikte bulabilirsiniz.
Kullanılması Gerekenler
Sayı Sıralama Programı Örneğimiz de kullanılması gerekenler sırası ile şunlardır:
3 adet Button, 3 adet Label ve 3 adet ListBox bu programımız için kullanılması gerekenlerdir.
Kod Alanı
Programımızın kullanımı şu şekildedir:
Sayıları gir butonuna tıklandığı zaman ilgili sayıları girmek zorundayız. O süreçten sonra isterseniz küçükten büyüğe, isterseniz büyükten küçüğe doğru sayıları button ile birlikte sıralıyoruz. Bunları da ilgili ListBoxlara atıyoruz.
Form görünümüz isterseniz yukarıdaki gibi isterseniz de kendiniz baştan tasarlayabilirsiniz. Sıralama işlemini gerçekleştirmek için bu örnek içerik sizlere fayda sağlayacaktır. Kodlamayı öğrenmek en küçükten en büyüğe birçok örneği deneyerek gerçekleşir. Bu yüzden kodlamayı öğrenmek için yolda olun harekette olun. Şimdiden başarılar ve kolay gelsin..
Dim sayı(10) As Integer
Dim sayaç, sayaç2, geçici As Integer
Button1 (sayıları gir ) Yazılacaklar;
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
FarmasiGirisi.Net Farmasi Ücretsiz Üyelik, Farmasi Üyelik, Farmasi Üye Ol
Farmasi Ücretsiz Üyelik Başvurusunda Bulunup Farmasi Ailesine Sende Katılabilirsin.Farmasi Ücretsiz Üye Ol up %75 varan indirimlerden yararlanabiliyor 275tl değerindeki başlangıç paketlerini 69tl sahip olabiliyorsunuz.Üstelik her yapmış olduğunuz siparişlerde birçok hediyeye sahip olabiliyorsunuz.Her Ay güncellenen 1. ay 2. ay ve 3. ay ürünlerinle beraber 275 teşvik puan ve 500 tl teşvik puanları ile birlikte bir çok ürünüde hediye olarak alabiliyorsunuz.
Hemen Farmasi Ücretsiz Üye Olun Bu Fırsatları Kaçırmayın.Farmasi Üyelik Başvurusunuzu Oluşturduğunuz anda Farmasi Temsilci Arkadaşlarımız Sizlere Destek İçin Dönüş Sağlayacaklar.
http://www.farmasigirisi.net / http://www.farmasibasvur.net