Foros aprenderaprogramar.com
Didáctica y divulgación de la programación

Buenas noches, necesito ayuda por favor. Tengo que hacer un programa donde en una caja de texto escriba un numero, y cada vez que escriba este me debe cargar en una lista, así:

cédula= 1 1  2 0 5 7 2 1 8 3

 lista
        1=impar
        1=impar
        2=par
        0=par
        5=impar
        7=impar

Lo debo realizar con una función publica, tampoco puedo utilizar la función len, y debe ser por ciclos, este es mi código:

Private Sub Txtcedula_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtcedula.TextChanged
        Dim num As Integer
        If Txtcedula.Text <> "" Then
            num = Txtcedula.Text
            For i = num To num
                If resultado(Txtcedula.Text) = True Then
                    Lstcedula.Items.Add(num & "=" & "PAR")
                Else
                    Lstcedula.Items.Add(num & "=" & "IMPAR")
                End If
            Next
        Else
            Lstcedula.Items.Clear()
        End If
    End Sub


Esta es la función:
Public Function resultado(ByVal numer As Integer) As Boolean
        Dim numeropar As Byte
        Dim retorno As Boolean
        numeropar = Fix(numer Mod 2)
        If numeropar = 0 Then
            retorno = True
        Else
            retorno = False
        End If
        Return retorno
    End Function.

Bueno resulta que el programa cuando lo depuro, me sale así.

cédula= 1 1  2 0 5 7 2 1 8 3

 lista
        1=impar
        11=impar
        112=par
        1120=par
        11205=impar
        112057=impar

y así sucesivamente, no sé cómo hacer, para ir eliminado el numero de atrás, ya intente con la función mid y no pude. Gracias por su pronta respuesta.

También, debo realizar una función publica, donde me diga cuantos caracteres tenga la caja de texto, y no se puede realizar con len. por favor agradezco su pronta ayuda. El código de esta es así:

Public Function cantidad(ByVal caracteres As String) As Byte
        Dim a As Byte
        a = Mid(caracteres, 1)
        Return a
    End Function


Y la llamo en el evento keypress, así:
Private Sub Txtnombre_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Txtnombre.KeyPress
        Select Case Asc(e.KeyChar)
            Case 97 To 122, 8, 32
            Case 13
                If Txtnombre.Text <> "" Then
                    Txtcarnombre.Text = cantidad(Val(Txtnombre.Text))
                    Txtcedula.Focus()
                Else
                    Txtcarnombre.Text = ""
                End If
            Case Else
                e.Handled = True
        End Select

Espero que por favor me ayude, la verdad me queda muy difícil, entender esto.