Programación General > Visual Basic para principiantes

 Cambiar Letras A Numeros Utilizando Arreglos

(1/1)

happypeace31:
Con este codigo lleno un arreglo introcuciendolo desde un textbox


--- Código: Text ---     Dim Arreglo() As String   Dim strText As String   Dim lngLenText As Long   Dim lnCnt As Long   Dim var, var1 as String   strText = Text1.Text   lngLenText = Len(strText)      ReDim Arreglo(lngLenText)      For lnCnt = 1 To lngLenText       Arreglo(lnCnt - 1) = Mid$(strText, lnCnt, 1)   Next lnCnt    'en esta parte cambio las letras introducidas que se encuentran dentro del arreglo If Arreglo (0) = "a" thenvar = 11ElseIf Arreglo (0) = "b" thenvar = 12  End If If Arreglo (1) = "a" thenvar1 = 11ElseIf Arreglo (1) = "b" thenvar2 = 12  End If   
en donde esta las condiciones de if deseo manejar un For para no repetir 2 veces el mismo codigo

y en donde va la variable var que sea un arreglo y que valla incrementando

lo que quiero esto


--- Código: Text ---     Dim Arreglo() As String   Dim Arreglo2() As String   Dim strText As String   Dim lngLenText As Long   Dim lnCnt As Long   Dim var, var1 as String   strText = Text1.Text   lngLenText = Len(strText)      ReDim Arreglo(lngLenText)      For lnCnt = 1 To lngLenText       Arreglo(lnCnt - 1) = Mid$(strText, lnCnt, 1)   Next lnCnt      for I= 1 to lngLenText If  Arreglo(no se que iria aqui) = "a" then  Areglo2(no se que iria aqui) = 11 elseIf  Arreglo(no se que iria aqui) = "b" then  Areglo2(no se que iria aqui) = 12next I   
gracias y espero ahora si me puedan entender lo que quiero hacer y me ayuden

By

ferhn:
Hola Prueba escribiendo esto en los arreglos


(Chr(KeyAscii))

ferhn:
Dentro de esto foro hay informacion muy buena, mira este link esta muy bueno:

                    www.solotuweb.com/fs~id~5473.html

Suerte

Navegación

[0] Índice de Mensajes