Anasayfa > Kodlar > Visual Basic 6 ile Textbox daki numaraları sıralamak

Visual Basic 6 ile Textbox daki numaraları sıralamak


Örneğin elinizde 5 adet Text Box var ve bunların textlerindeki numaraları sıralamak isriyorsunuz....

Kod aşağıda fakat bu kodu kullanırken Private Sub Text1_Change() .... kullanmamaya özen gösterin çünkü numaralar o zaman sıralanmayacaktır..Çünkü kodun çalışma ilkesi ile bu ters düşecek..Ayrıca bu kod sanırım TExt Boxlardaki değerlerin sıralanması için yazılabilecek basit kodlardan hadi kolay gelsin...

Private Sub Command1_Click()
'Burada formunuzda sıralanmasını istediğiniz TEXTBOx kadar Numberlist tanımlayın
Dim NumberList(4) As Integer
NumberList(0) = CInt(Text1.Text)
NumberList(1) = CInt(Text2.Text)
NumberList(2) = CInt(Text3.Text)
NumberList(3) = CInt(Text4.Text)
NumberList(4) = CInt(Text5.Text)
For j = 0 To 4
For i = 0 To 3
If NumberList(i) > NumberList(i + 1) Then
temp = NumberList(i)
NumberList(i) = NumberList(i + 1)
NumberList(i + 1) = temp
End If
Next i
Next j
'Şimdi bu number listleri sırasıyla TEXT BOX lara yerleştirin
Text1.Text = NumberList(0)
Text2.Text = NumberList(1)
Text3.Text = NumberList(2)
Text4.Text = NumberList(3)
Text5.Text = NumberList(4)
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: