ayuda con codigo!!!

[vollager]

hola a todos soy nuevo en esto de VB y ya me atore con mi codigo, miren es simple el rpograma, por medio de un inputbox meter 9 datos(nombres) y despues ordenarlos y uqe me apraescan en mi caja de texto, todo sale bien hatsa la hora de ordenar, se que le tengo que asignar su valor en ascii pero no se como les dejo el codigo para qeu lo chequen y me digan en que me equivoque, urge!!! de ante mano gracias!

Private Sub Command1_Click()
Dim x, y, z, dato(8) As Integer
Dim ingresar(8) As String
Dim a, aux As Long
For x = 0 To 8 Step 1
ingresar(x) = InputBox("Nombre", "Dame nombres")
Next x
For z = 0 To 8 - 1 Step 1
For a = 0 To 8 - 1 Step 1
If ingresar(a) > ingresar(a + 1) Then
ingresar(a) = aux
ingresar(a + 1) = ingresar(a)
aux = ingresar(a + 1)
Else
ingresar(a) = ingresar(a)
Next a
Next z
For y = 0 To 8 Step 1
Text1.Text = Text1.Text & ingresar(y) & ", "
Next y
End Sub

[seba123neo]

Hola, no se si te entendi, pero proba esto:

Código:

Private Sub Command1_Click()
Dim x, y, z, dato(8) As Integer
Dim ingresar(8) As String
Dim a, aux As Long
Dim Ordenar As String
For x = 0 To 8 Step 1
ingresar(x) = InputBox("Nombre", "Dame nombres")
Ordenar = Ordenar & ingresar(x) & ", "
Next x
For z = 0 To 8 - 1 Step 1
    For a = 0 To 8 - 1 Step 1
        If ingresar(a) > ingresar(a + 1) Then
        ingresar(a) = aux
        ingresar(a + 1) = ingresar(a)
        aux = ingresar(a + 1)
        Else
        ingresar(a) = ingresar(a)
        End If
    Next a
Next z

Text1.Text = Mid(Ordenar, 1, Len(Ordenar) - 2)
End Sub

te pide los 9 nombres y despues te los escribe en el textbox separados por comas...no se si es eso lo que queres...

saludos.

[Avellaneda]

Iniciado por vollager

hola a todos soy nuevo en esto de VB y ya me atore con mi codigo, miren es simple el rpograma, por medio de un inputbox meter 9 datos(nombres) y despues ordenarlos y uqe me apraescan en mi caja de texto, todo sale bien hatsa la hora de ordenar, se que le tengo que asignar su valor en ascii pero no se como les dejo el codigo para qeu lo chequen y me digan en que me equivoque, urge!!! de ante mano gracias!

Hola,
hace unos días puse un ejemplo de cómo ordenar un array, que adaptado a tus necesidades, podría ser así:

Código:

Option Compare Text  ' para que no distinga entre mayúsculas y minúsculas

Private Sub Command1_Click()
Dim a(8) As String, i As Integer

' guardamos en el array los nombres según se van escribiendo
For i = 0 To 8 Step 1
    a(i) = InputBox("Nombre", "Dame nombres")
Next i

' ordenamos el array
Dim b As Boolean, s As String
While b = False
    b = True
    For i = 0 To UBound(a) - 1
        If (a(i) > a(i + 1)) Then
            s = a(i)
            a(i) = a(i + 1)
            a(i + 1) = s
            b = False
        End If
    Next i
Wend

' escribimos el resultado en el textBox
Text1.Text = ""
For i = 0 To UBound(a)
    Text1.Text = Text1.Text & a(i) & ", "
Next i
End Sub

Nota: Probé el código seba123neo y funciona, pero no ordena los nombres.