VB' de sıralama örneği

Vb'de listbox'a rastgele sayı ekleyip bu sayıları sıralayacağız.

Vb'de listbox'a rastgele sayı ekleyip bu sayıları sıralayacağız.

Bu ders daha çok VB'nin mantığını öğrenmek amacındadır. Ve bir miktar bilginizin olması gerekiyor. Yapmanız gereken programınıza bir listbox ve buton eklemeniz. Eğer eklediyseniz hemen başlayalım.


dim a as integer    [ a ' yı tamsayı olarak tanımla]

dim onbellek as integer [buda bizim onbelleğimiz]

Private Sub Form_load()    [Form yüklediği anda]

 for k = 0 to 9 [ k döngüsünü 9 kez işlet (1)]

randomize

a = (rnd * 100)     [ rastgele sayı üret(rnd * dan sonra yazacağınız sayı en büyük sayı olacaktır. 100'ü 1000 yaparsanı 1000 e kadar sayı üretir mesela. A ' yı muhakkak tanımlamanız gerekir. yoksa tam sayı üretmez randomize]

list1.additem(a)   [ listbox1' e  "a" değişkeninin değerini ata"(.NEt kullanıyorsanız listbox1.items.add(a) şeklinde olacaktır kod)]

next k [döngüyü bitir]

end sub [yordamdan çık]



Private sub command1_click() [button1 tıklandığında]

sirala [sirala alt programına git. Alt program mantığını öğrenmeniz açısından uygun gördüm]

end sub  [yoramı bitir]



private sub sirala () [sirala alt yordamı çalıştırıldığında]

for k = 0 to 10 (veya list1.recordcount[list1.' in eleman sayısı kadar.])

for z = 0 to 11 (veya list1.recordcount + 1] [.NET kullanıyprsanı listbox1.items.recordcount]

if k > z then   [eğer k' daki değer z' dekinden büyükse]

onbellek = z  [ küçük sayıyı kaybolmasın die bir onbelleğe attık]

z = k [z' nin yerine k' yı koy][onbelleğin olmasının  sebebi]

k = onbellek [ k değerinde de onbelleğimizdeki değeri koy]

next z [Z döngüsünü bitir]

next k [k döngüsünü bitir]

end sub [yordamı bitir]



Mümkün olduğunca detaylı olarak anlattım umarım işinize yarar. Bu işlem Listbox olmadan da yapılablir. Bunun üzerinde çalışmanızı tavsiye ederim. Kodu çalıştırdıktan sonra bunu değiştirmeye çalışın.

Mesela Sayının ne kadar büyük olacağına siz karar verin.

[İPUCU : bunun için, sizin sayıyı bir yere yazmanız ve programın da bu bilgiye ulaşması gerek. Textbox ve inputbox ı incelemenizi öneririm. Ya da combobox' tan seçim yapmak olabilir. Combobox çalışabilirsiniz. Bunun için dizileri çalışın. Eğer dizileri yapabilirmeniz size büyük kolaylıklar sağlar.]
  • Etiketler;
Yorum Yaz

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

Yukarı Git