TODOPIC

Microcontroladores PIC => Lenguaje Basic para microcontroladores PIC => Mensaje iniciado por: raraavis en 18 de Mayo de 2007, 22:24:06

Título: Socorro Ayuda con Array y strings en 18F452
Publicado por: raraavis en 18 de Mayo de 2007, 22:24:06
Estoy complicado con las variables, los Arrays y las Strings quisiera saber lo siguiente:

En Proton, con un core 16 ( 18F452)

1)- ¿ Como sumo 2 arrays de bytes de 20 elementos cada uno ?.

2) - ¿ Como convierto 2 arrays de bytes en una sola cadena string ?.

Dim array1 [12]   as Byte
Dim array2[100]    as Byte
Dim Cadena        as String * 112

Algo tan sencillo como eso no lo puedo hacer !!..... a ver si un alma se apiada de mi  :5] .... :mrgreen:


Título: Re: Socorro Ayuda con Array y strings en 18F452
Publicado por: doppel en 19 de Mayo de 2007, 17:58:56
Hola raraavis
no conozco funciones especificas para hacer eso automaticamente, pero podrias implementar un ciclo de lectura asignacion de acuerdo a la cantidad de elementos

Código: FreeBasic
  1. main:
  2.         For x = 0 To 11
  3.              cadena[x]=array1[x]
  4.         Next
  5.  
  6.         For j = 12 To 112
  7.             cadena[j]=array2[j]
  8.         Next
   

comentame si tuvistes resultados
saludos
Título: Re: Socorro Ayuda con Array y strings en 18F452
Publicado por: raraavis en 19 de Mayo de 2007, 23:58:25
Gracias Doppel, exactamente asi lo resolvi yo pero me preocupa no saber bien como hacer lo mismo con Strings
ya que cuando quiero usar los comandos STR$, STRN me da errores de compilacion, tampoco logro convertir 2 arrays de byte en una cadena de texto.
Título: Re: Socorro Ayuda con Array y strings en 18F452
Publicado por: raraavis en 22 de Mayo de 2007, 11:48:58
Ya aprendi esto:   :mrgreen:

Convierto un Entero de 2 digitos en string
Código: [Seleccionar]
DIM TOT[2]      as byte                     'Array de 2 digitos
DIM TOTAL       as byte

     STRN TOT = STR$ (Dec2 Total)          'Convierto a String con 2 digitos

Convierto un Array de Byte de 2 elementos en un Valor Entero.

Código: [Seleccionar]
DIM Tot[2]      as byte                     'Array de 2 digitos
DIM Total       as byte

    Total = VAL(Tot,dec)