Cita:
Iniciado por RocKRKO 
ola ola soy algo nuevo en esto del vB6 jeje pero me encanta este foro asi que espero me ayuden miren para ustedes maestros del vB6 resultara algo facil jeje
Lo que tengo que hacer es clasificar unas entradas de datos con una matriz
Primero se piden los datos con un inputbox algo asi
Código:
Private Sub Command1_Click()
For indice = 0 To 2
edades(indice) = InputBox("Teclea La edad de Tu Alumno", "Teclea La edad")
If edades(indice) = "0" Then
MsgBox "Error, Teclea una edad desde 4 en adelante ...", vbInformation, "Error"
End If
If edades(indice) < 4 Then
MsgBox "No se admiten Niños Menores de 4 Años", vbInformation, "No Admitido"
End If
Select Case edades(indice)
Case 4 To 6:
For x = 0 To 2
List1.AddItem edades(x)
Next x
Case 7 To 8
For y = 0 To 2
List2.AddItem edades(y)
Next y
Case 9 To 12
For n = 0 To 2
List3.AddItem edades(n)
Next n
End Select
Next
End Sub
Y dependiendo que edad tenga el alumno se clasificara en 4 textbox
de 4 a 6 categoria 1
de 7 y 8 categoria 2
de 9 y 10 categoria 3
de 11 en adelante categoria 4
pero tienen que aparecer en los textbox cuantos son de cada categoria pero no se como xD trate de agruparlos en un listbox poniendo el siguiente code
Código:
For n = 0 To 2
List3.AddItem edades(n)
Next n
y si se clasifican pero aparecen los valores de los anteriores y valores de 0
alguien me podriia ayudar =(
Segun lo que entendi, lo que necesitas es lo siguiente:
1- El usuario ingresa edades de alumnos
2- Las edades se van guardando en un vector segun categoria de edades
3- Al finalizar muestra la informacion de cantidades segun categoria
Bueno, lo hise sin ningun objeto, osea directamente con input y msgbox, despues pone los objetos que necesites (lease texbox, listbox, o lo que prefieras)
Código vb:
Ver original'-------------------------------------------------------------------------
' Desarrollado por ..::][culd][::.. a pedido de "RocKRKO" para ForosDelWeb
'-------------------------------------------------------------------------
Dim Edad As String 'variable que maneja la informacion ingresada por el usuario
Dim EdadI As Integer 'variable para la edad pero integer para trabajarla mejor
Dim Categoria(1 To 4) As Integer 'vector que contiene las cantidades de alumnos segun categoria
'Estructura repetir hasta que
Do
'pido la edad al usuario
Edad = InputBox("Ingrese la edad del alumno" & vbNewLine & "Ingrese 0 o menos para finalizar", "Edad")
'verifico si es numerica
If IsNumeric(Edad) = True Then
'guardo la edad en una variable del tipo integer
EdadI = CInt(Edad)
'verifico si la edad es mayor que 0
If EdadI > 0 Then
'verifico si la edad es mayor o igual que 4
If EdadI >= 4 Then
'estructura condicional multiple
Select Case EdadI
Case 4 To 6: 'de 4 a 6 años sumo en la categoria 1
Categoria(1) = Categoria(1) + 1
Case 7 To 8: 'de 7 a 8 años sumo en la categoria 2
Categoria(2) = Categoria(2) + 1
Case 9 To 10: 'de 9 a 10 años sumo en la categoria 3
Categoria(3) = Categoria(3) + 1
Case Is >= 11: 'de 11 en adelante sumo en la categoria 4
Categoria(4) = Categoria(4) + 1
Case Else: 'si es otro numero le devuelvo error y no sumo nada
MsgBox "La edad ingresada no corresponde a ninguna categoria", vbCritical
End Select
Else
'devuelvo el error de que es menor de 4 años
MsgBox "No se permite menores de 4 años", vbCritical
End If
End If
Else
'Asigno "1", ya que puede ser que en primera instancia ingrese una letra
'y la veriable estaria cereada y directamente el repetir finalizaria
EdadI = 1
'informo que no es un numero valido
MsgBox "No ingreso un numero valido", vbCritical
End If
Loop Until EdadI <= 0
'cuando el usuario no quiere ingresar mas muestro los resultados de las
'cantidades de alumnos segun la categoria
MsgBox "Cantidad de Alumnos por Categoria" & vbNewLine & vbNewLine & _
"Categoria 1: " & Categoria(1) & vbNewLine & _
"Categoria 2: " & Categoria(2) & vbNewLine & _
"Categoria 3: " & Categoria(3) & vbNewLine & _
"Categoria 4: " & Categoria(4)