Oca
12
2009

Visual Basic ile sayı sıralama

Az önce basit bir sayı sıralama programcığı gerekti, işte kodlar;

Dim sayilar(100)
Randomize Timer
veri_sayisi = 10

For a = 1 To veri_sayisi
sayilar(a) = Int(Rnd * 100) + 1
Next a

For a = 1 To veri_sayisi
For b = a To veri_sayisi
If sayilar(a) < sayilar(b) Then
tmp = sayilar(a)
sayilar(a) = sayilar(b)
sayilar(b) = tmp
End If
Next b
Next a
Cls
‘ Büyükten Küçüğe Sırala
For q = 1 To veri_sayisi
Debug.Print sayilar(q)
Next

‘ En büyük 2. sayı = sayilar(2)
‘ En küçük 2. sayı = sayilar(q-1)

işte bu kadar önce tüm dizi içersindeki alana rastgele tamsayılar yerleştiriliyor, sonra ikili döngü içersinde büyük küçük sayılar yer değiştiriliyor (Quickbasic de yazanlar bilir SWAP komutu vardı). Yer değişimi bitince de tüm sayılar debug alanında yazılıyor.

Eğer istenirse sıralamadaki N sırasındaki bir sayı rahatça görülebiliyor

1 Yorum “Visual Basic ile sayı sıralama”

  • Visual Basıc 03 Mayıs 2012, 09:27

    ‘Diğer Bi yol ‘
    Public Class Form1
    Dim a(5), b, c, d As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    For c = 0 To 5
    a(c) = Int(Rnd() * 48)
    ListBox1.Items.Add(a(c))

    Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    For c = 0 To 4
    For b = c + 1 To 5
    If a(c) > a(b) Then
    d = a(c)
    a(c) = a(b)
    a(b) = d

    End If
    Next
    Next
    For c = 0 To 5
    ListBox2.Items.Add(a(c))

    Next
    End Sub
    End Class

TeamViewer ile İnternet üzerinden Uzaktan Erişim ve Destek Sekercioglu.eu Uzaktan Yardım
Ammyy Uzaktan Yardım
WinRAR
WEBMAIL Google PageRank Checker
Twitterda Takip Edin! Twitterda Takip Edin!
Twitter

Üye Paneli

Son Yazılar

Kategoriler

Son Yorumlar