0

ocupo ayuda con un programa de viasul basic, debe de sacar toda la palabra en ascii y solo muestra una con el ciclo for

 Dim chertext As Char
        Dim i As Integer = 1

    For i = 1 To Len(cadena.Text)

        ascii.Text = Mid(cadena.Text, i, 1)

        ascii.Text = ascii.Text & "   " & Asc(chertext)
        ascii.Text = Asc(ascii.Text)
        i += 1
    Next
2
  • Mira Cómo preguntar para que tu pregunta sea mejor recibida. También, aprovecha y haz el recorrido de bienvenida para entender mejor cómo funcionamos y de paso obtener tu primera medalla! no se que es ascii.Text, pero lo estas usando para absolutamente todo!!!.. no deberias usar alguna variable auxiliar?
    – gbianchi
    Commented el 4 may. 2022 a las 23:01
  • para que tenes chertext , si no lo usas? para que haces ascii.Text = Asc(ascii.Text)?
    – gbianchi
    Commented el 4 may. 2022 a las 23:02

1 respuesta 1

0
Dim chertext As Char
Dim i As Integer = 1
For i = 1 To Len(cadena.Text)
    chertext = Mid(cadena.Text, i, 1)
    ascii.Text = ascii.Text & "   " & Asc(chertext)
    i += 1
Next
1

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.