Atascado con arrays y operaciones

[derinium]

Hola.

Me he quedado atascado en una parte del código que estoy realizando, y ya me está hasta doliendo la cabeza de tanto pensar de como hacer lo siguiente...

Recojo valores mediante serin y los los introduzco en un array. Hasta aquí todo bien.

El problema es que necesito dividir un valor, que en realidad son 4 elementos del array. Pongo un ejemplo

dato var byte[4] -- Defino el Array de dato y núemro de elementos.

serin xxxxxx -- Los datos recibidos se almacenan en dicho array.

Ejemplo de datos almacenados.
dato[0]="5"
dato[1]="7"
dato[2]="9"
dato[3]="3"

Ok. Ahora necesito que se convierta en "5793" para poder dividirlo entre 1,56  y que lo muestre en el LCD

Ya sé que PBP no tiene mucho soporte para strings. No puedo convertir el array en un string ?. Creo que no, despues de horas buscando info.. o no he dado con ello o es que tengo la cabeza a punto de estallar.

En C creo que si se puede, pero no me defiendo nada bien con el y prefiero seguir con PBP.

Alguna pista de como lo puedo hacer ?.

Gracias.

[LordLafebre]

Hola:

Solo necesitas una multiplicacion y suma, nada mas:

dato[0]=5
dato[1]=7
dato[2]=9
dato[3]=3


tienes que ir multiplicando por 1000 para los miles, 100 paara las centenas, 10 para las decenas, y la unidad queda tal cual esta, luego sumas los valores y tienes el numero, ejemplo:

5 * 1000 = 5000
7* 100    =  700
9*10       =   90
3*1         =     3

=

5793

Eso es todo, ya lo tienes...

Suerte...!!! 

[derinium]

Hola:

Solo necesitas una multiplicacion y suma, nada mas:

dato[0]=5
dato[1]=7
dato[2]=9
dato[3]=3


tienes que ir multiplicando por 1000 para los miles, 100 paara las centenas, 10 para las decenas, y la unidad queda tal cual esta, luego sumas los valores y tienes el numero, ejemplo:

5 * 1000 = 5000
7* 100    =  700
9*10       =   90
3*1         =     3

=

5793

Eso es todo, ya lo tienes...

Suerte...!!! 

Muuuuchas gracias LordLafebre.

Te refieres a esto verdad ? :

dato var byte[4]
suma var byte

dato[0]=5
dato[1]=7
dato[2]=9
dato[3]=3

dato[0]=dato[0]*1000
dato[1]=dato[1]*100
dato[2]=dato[2]*10

suma=dato[0]+dato[1]+dato[2]+dato[3]

En cuanto llegue a casa lo pruebo, que ahora estoy en el curro.


Un saludo y grax

[LordLafebre]

Hola:

A eso me refiero, pero ten en cuenta que las variables tienen que ser de tipo WORD, lo demas esta bien.

[derinium]

Hola:

A eso me refiero, pero ten en cuenta que las variables tienen que ser de tipo WORD, lo demas esta bien.

Nada, que no doy con ello. Lo siguiente no me funciona. Y con otras combinaciones tampoco. Y seguro que es sencillisimo de solucionar.

b0 var byte[60]
l6 var word
km var word


' l6 es un numero cualquiera de 1 a 59

km=(b0[l6+1]*100)+ (b0[l6+2]*10) + (b0[l6+3])
lcdout $fe,1,dec km*185/100," Km/h"


'El array b0 lo recojo de la siguiente manera :

serin2 portc.3,16572,4000,error,[wait("EMPIEZA,"), str b0\60\"*"]

Me imagino que sera porque b0 es BYTE y km es WORD.... pero como puedo pasar de BYTE a WORD?. He probado con
dato2=DEC b0[l6+1] , pero nada. Eso no se puede hacer O recojer con SERIN2 como DEC1, pero es que aparte de números, tambien hay letras.

Un saludo

[BrunoF]

Hola. Bueno...nunca he tocado el PBP, pero un detalle:
Dijiste que:
' l6 es un numero cualquiera de 1 a 59(en realidad no seria del 0 al 59?)
Segundo, te estas respondiendo tu mismo: si l6 va ser un valor x/ 0<=x<=59 entonces pa que declaras l6 como word cuando puede ser de tipo byte? Esto hara un mejor ahorro de registros RAM, y evita posibles fallos.
Saludos.

[derinium]

Hola. Bueno...nunca he tocado el PBP, pero un detalle:
Dijiste que:
' l6 es un numero cualquiera de 1 a 59(en realidad no seria del 0 al 59?)
Segundo, te estas respondiendo tu mismo: si l6 va ser un valor x/ 0<=x<=59 entonces pa que declaras l6 como word cuando puede ser de tipo byte? Esto hara un mejor ahorro de registros RAM, y evita posibles fallos.
Saludos.

Si. l6 es de 0 a 59.
A la variable l6, despues del serin le hago un conteo sumatorio así :
 
uno:
  if b0[l1]<>"," then
   l1=l1+1
   goto empieza
   endif
   l2=l1+1

En l1 almaceno la cantidad de caracteres recibidos hasta la coma ",". Los datos entrantes son de longitud variable delimitados por comas.
Por lo que .... b0[l1+1] es el primer caracter de lo recibido despues de la primera coma. "hola,como,estas" (seria la c) y así sucesivamente.

Creo que el problema no está en l1, ni l2, ni l... Aunque no he probado a declarar l1 como BYTE.

No entiendo mucho cuando he de usar un WORD o BYTE. Es mejor un byte para por ejemplo j=j+1 ? . BYTE cuando trato con FOR con datos seriales y suma de variable ?.

Un saludo

[BrunoF]

Hola.
Aca LordLafebre explica la diferencia entre BYTE y WORD concisamente:
http://www.todopic.com.ar/foros/index.php?topic=3613.msg70464#msg70464

Es muy largo el codigo? Podes postearlo asi lo vemos como funciona? Saludos.

[derinium]

OK. Ahora entiendo mejor la diferencia. Solo es cosa de longitud. Pero no encontraba la "lógica adecuada" del uso aunque parezca simple. Símplemente es por la "cantidad". Y, claro, el ser BYTE se reserva menos memoria que con WORD. Me confundía al pensar que una operación con byte era diferente que con word  ... y veo que no es así. Aunque el uso de WORD, a veces, no es por la longitud, es por los datos contenidos.

Por lo del código.. pues ocupa los 7K al completo. La parte que falla es :

b0 var byte[60]
l1 var byte
l2 var byte
l3 var byte
km var word

muestra:

gosub comienzo

km=(b0[l2+1]*100)+ (b0[l2+2]*10) + (b0[l2+3])
lcdout $fe,1,dec km*185/100," Km/h"

goto muestra

comienzo:
serin2 portc.3,16572,4000,error,[wait("EMPIEZA,"), str b0\60]

l1=0:l2=0:l3=0

uno:
  if b0[l1]<>"," then
   l1=l1+1
   goto uno
   endif
   l2=l1+1
dos:
  if b0[l2]<>"," then
   l2=l2+1
   goto dos
   endif
   l3=l2+1

tres:
  if b0[l3]<>"," then
   l3=l3+1
   goto tres
   endif
 
   return

Un saludo.

[derinium]

Bien, pues ya he encontrado la solución, y mira que es de la mar de sencilla y lo que ha costado !.

km=((b0[l2+1]-48)*100)+ ((b0[l2+2]-48)*10) + (b0[l2+3]-48)

el -48 es sencillo de entender, el 48 es en ascii el número "0", por lo que haciendo la resta obtenemos el número en decimal.

Un saludo.

[jfh900]

No trabajo en basic y no se si se podria hacer pero en "C" ponemos en lugar del 48 la siguiente expresion:

km=((b0[l2+1]-'0')*100)+ ((b0[l2+2]-'0')*10) + (b0[l2+3]-'0'), puedes probar haber si funciona para que quede el código un poco mas claro.

Un saludo

[derinium]

No trabajo en basic y no se si se podria hacer pero en "C" ponemos en lugar del 48 la siguiente expresion:

km=((b0[l2+1]-'0')*100)+ ((b0[l2+2]-'0')*10) + (b0[l2+3]-'0'), puedes probar haber si funciona para que quede el código un poco mas claro.

Un saludo

Creo que eso no funcionaría y ahora no lo puedo probar. Las comillas ok en C, en PHP, JAVASCRIPT, etc, y lo sé. Pero en PBP, no. Tampoco sé si funcionaría con comillas simples  , siempre he usado las dobles. PBP está muuuuy limitado a las funciones que tienen otros lenguajes.

De todas formas, el código con el -48, funciona perfectamente.

Un saludo.