Arkadaşlar okulda vb dersi görüyoruz ve bi program üzerinde çalışıyoruz
Programın % 90 bitti sadece bir yeri kaldı:
4 değişik isim ve 4 degişik notu küçükten büyüğe sıralamak
Bunu nasıl yapacam[*<]
Şuna bi el attında bitirim....
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.
umarım yardımcı olur.kolay gelsin