Eski 23-02-09, 20:53 #1
jeofizikçi jeofizikçi çevrimdışı

bynogame
Alarm Siralama algorİtmasi(kÜÇÜkten-bÜyÜĞe) ve max-mİn bulma

bynogame
Projemize iki adet listbox, 2 adet textbox ve 1 adet command buttonu ekleyelim. Öncelikle değişkenlerimizi tanımlayalım. 10 adet verimiz olsun ve bunların max-min değerleri olsun. Aşağıdaki kodu declertion yordamına ekleyelim;
Dim veri(10) As Double
Dim min, max As Double
Şimdi verilerimizi oluşturalım ve bu verileri form yüklenirken listbox1 kutusuna aktaralım. Bunun için aşağıda hazırladığım kodları formun load yordamına ekleyelim;
veri(0) = -1.2
veri(1) = 1.5
veri(2) = 1.1
veri(3) = 2.2
veri(4) = -2.8
veri(5) = 3.3
veri(6) = 0.2
veri(7) = 3.33
veri(8) = 3.1
veri(9) = 2.6
For i = 0 To 9
List1.AddItem veri(i)
Next
Şimdi sıralama algoritması için hazırladığım kodları projemize ekleyelim. Aşağıdaki kodları command1'in click yordamına ekleyelim;
For i = 0 To 9
For k = i + 1 To 9
If veri(i) > veri(k) Then
s = veri(k)
veri(k) = veri(i)
veri(i) = s
End If
Next k
Next i
max = veri(9)
min = veri(0)
For j = 0 To 9
List2.AddItem veri(j)
Next j
Text1.Text = min
Text2.Text = max
Buradaki kodları kısaca açıklayacak olursak; iç içe for döngüsü kullanarak verilerimizi küçükten büyüğe doğru sıralıyoruz. Veriler sıralandıktan sonra min ve max değerleri verilerin ilk ve son değerleri olacaktır. Şimdi sıralama algoritmasını tablo şeklinde irdeleyelim;

Tablo: img237.yukle.tc/images/5106z.jpg

Burada algoritmayı örnek vererek açıkladım. İşlemler, hesaplar ve sonuçlar incelendiğinde 2 verinin yerlerinin değiştiği görülecektir. Küçük olan değer ilk veri olmuştur. Bu algoritma bütün verilere uygulandığında tüm veriler küçükten büyüğe doğru sıralanmış olur. Bu şekilde sıralanan verilerin ilk değeri verinin minumumu son değeri ise maximum değeri olacaktır.
Bu konu vbprogramlama.tr.cx adresinde mevcuttur. Projenin çalışan halini bu adresden indirebilirsiniz. Hepinize iyi çalışmalar...
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 07-03-09, 22:48 #2
jeofizikçi jeofizikçi çevrimdışı

bynogame
Varsayılan C: Siralama algorİtmasi(kÜÇÜkten-bÜyÜĞe) ve max-mİn bulma

bynogame
Arkadaşlar yukarıda verilen adres taşınmıştır. Yeni adres:

www.visualbasickod.hostwq.net
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 10-03-09, 22:00 #3
Montesqu1eu Montesqu1eu çevrimdışı

bynogame
Varsayılan C: Siralama algorİtmasi(kÜÇÜkten-bÜyÜĞe) ve max-mİn bulma

bynogame
ty benımişime cok yarayacak
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 11-03-09, 00:23 #4
programcı06 programcı06 çevrimdışı

bynogame
Varsayılan C: Siralama algorİtmasi(kÜÇÜkten-bÜyÜĞe) ve max-mİn bulma

bynogame
Güzel anlatım olmuş tebrikler...
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 10-06-09, 12:19 #5
darkloweturk darkloweturk çevrimdışı

bynogame
Varsayılan C: Siralama algorİtmasi(kÜÇÜkten-bÜyÜĞe) ve max-mİn bulma

bynogame
gsl paylaşım : )
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Cevapla

Bu konunun kısa yolunu aşağıdaki sitelere ekleyebilirsiniz

Konu Araçları

Gönderme Kuralları
Yeni konu açamazsınız
Cevap yazamazsınız
Dosya gönderemezsiniz
Mesajlarınızı düzenleyemezsiniz

BB code is Açık
Smiley Açık
[IMG] kodu Açık
HTML kodu Kapalı



Tüm saatler GMT +3. Şuan saat: 09:29
(Türkiye için artık GMT +3 seçilmelidir.)

 
5651 sayılı yasaya göre forumumuzdaki mesajlardan doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Şikayet Mailimiz. İçerik, Yer Sağlayıcı Bilgilerimiz. Tatil


bynogame