SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: happypeace31 en Jueves 27 de Marzo de 2008, 20:17

Título: Cambiar Letras A Numeros Utilizando Arreglos
Publicado por: happypeace31 en Jueves 27 de Marzo de 2008, 20:17
Con este codigo lleno un arreglo introcuciendolo desde un textbox

Código: Text
  1.  
  2.  
  3.    Dim Arreglo() As String
  4.    Dim strText As String
  5.    Dim lngLenText As Long
  6.    Dim lnCnt As Long
  7.    Dim var, var1 as String
  8.    strText = Text1.Text
  9.    lngLenText = Len(strText)
  10.   
  11.    ReDim Arreglo(lngLenText)
  12.   
  13.    For lnCnt = 1 To lngLenText
  14.        Arreglo(lnCnt - 1) = Mid$(strText, lnCnt, 1)
  15.    Next lnCnt
  16.  
  17.   'en esta parte cambio las letras introducidas que se encuentran dentro del arreglo
  18.  
  19. If Arreglo (0) = "a" then
  20. var = 11
  21. ElseIf Arreglo (0) = "b" then
  22. var = 12  
  23. End If
  24.  
  25. If Arreglo (1) = "a" then
  26. var1 = 11
  27. ElseIf Arreglo (1) = "b" then
  28. var2 = 12  
  29. End If
  30.  
  31.  
  32.  

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
  1.  
  2.  
  3.    Dim Arreglo() As String
  4.    Dim Arreglo2() As String
  5.    Dim strText As String
  6.    Dim lngLenText As Long
  7.    Dim lnCnt As Long
  8.    Dim var, var1 as String
  9.    strText = Text1.Text
  10.    lngLenText = Len(strText)
  11.   
  12.    ReDim Arreglo(lngLenText)
  13.   
  14.    For lnCnt = 1 To lngLenText
  15.        Arreglo(lnCnt - 1) = Mid$(strText, lnCnt, 1)
  16.    Next lnCnt    
  17.  
  18. for I= 1 to lngLenText
  19.  If  Arreglo(no se que iria aqui) = "a" then
  20.   Areglo2(no se que iria aqui) = 11
  21.  elseIf  Arreglo(no se que iria aqui) = "b" then
  22.   Areglo2(no se que iria aqui) = 12
  23. next I
  24.  
  25.  
  26.  

gracias y espero ahora si me puedan entender lo que quiero hacer y me ayuden

By
Título: Re: Cambiar Letras A Numeros Utilizando Arreglos
Publicado por: ferhn en Domingo 22 de Junio de 2008, 21:45
Hola Prueba escribiendo esto en los arreglos


(Chr(KeyAscii))
Título: Re: Cambiar Letras A Numeros Utilizando Arreglos
Publicado por: ferhn en Domingo 22 de Junio de 2008, 21:52
Dentro de esto foro hay informacion muy buena, mira este link esta muy bueno:

                    www.solotuweb.com/fs~id~5473.html (http://www.solotuweb.com/fs~id~5473.html)

Suerte