Sayıları büyükten küçüğe doğru sıralama

Büyükten küçüğe sıralama programı...

Kullancaklarımız:
1 adet Listbox , 1adet Command Buton


Private Sub Command1_Click()

 Dim sayi(10) As Long 'sayi(10) indisli değişkendir'

 For i=1 to 10

  sayi(i)=Inputbox(i & ".Sayıyı Giriniz...")'sayıları alıyoruz'

 Next

 For i=1 to 10

 For j=1 to 10

 

 if sayi(i) > sayi(j) then

     yedek=sayi(j)

     sayi(j)=sayi(i)

     sayi(i)=yedek

 end if

 

 Next j

 Next i

 for k=1 to 10

   List1.additem sayi(k)

 Next

End sub

  • Etiketler;
Fuat ŞENGÜL
Fuat ŞENGÜL Samsun Havza ilçesinde 23.05.1990 da doğdu. Bilgisayar ile lise öğreniminde tanışan yazar Pascal, C/C++, Assembly ve Visual Basic dilleriyle birlikte yazılıma adım attı. 2008 yılında Fırat Üniversitesi Teknik Eğitim Fakültesi Bilgisayar öğretmenliğini kazandı. Öğrenimi sırasında web ve masaüstü yazılımları konusunda projelere imza atan yazar 2012 yılında mezun oldu. Mezuniyetten sonra Fırat Üniversitesi Teknoloji Fakültesi Yazılım Mühendisliğinde Yüksek Lisans öğrenimine başladı. <p>Yazar C/C++, C#, Asp.Net, Matlap, Jquery, Css ve Html gibi programlama dillerine hakim ve bu diller ile projeler üretmeye devam etmektedir. Bilişim Teknolojileri öğretmeni olarak görev yapmaktadır.
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

TextBox yardımıyla ekrandan girilecek sayıları seçime bağlı olarak Küçükten Büyüğe veya Büyükten Küçüğe Bubble Sıralama Algoritmasını kullanarak sıralayan programını yazabilirmisiniz?
kısa ve öz teşekkürler.
çok güzel olmuş çok teşekkürler yardımlarınız için.
emeğine parmaklarına sağlık allah razı olsun idolümsün :D
faik1 teşekkür ederim arkadşım..
ellerine sağlık kısa ve öz:D
bende bunu arıyordum tşk ederim saol
yeni öğrenen biri için verilebilecek en iyi ders
ustam sorum su ..... ? buradaki sayılar yerine listbox boyutu buyuk bir şekilde iken içine kelime yazabilmek denedim olmadı .... nasıl olur sizce saygılar
ya benmki nie olmuyo :agla: anlattığınız şekilde yapıyorum ama olmuyo...
ARKADAŞLAR BANA ACİLEN GİRİLEN 10 İSMİ ALFABETİK OLARAK SIRALAYAN PROGRAM LAZIM ÇOK ACİLLL...YARDIMLARINIZI BEKLİYORUM..
çok faydalı teşekkür ederim iyi çalışmalar!!!
cok gozel olmus.Ben shunu ariyordum.

Yukarı Git