Publicado por: khasistos en 25 de Septiembre de 2004, 07:20:00
Me he tropezado con el siguiente "problema" con la presentacion de una cifra variable que puede tener 4 o menos digitos,este es el problema en concreto..
Si presento una cifra de 4 digitos con la instruccion dec4 en PLUS cuando la cifra a mostrar es 20 me presenta 0020 , y si empleo la instruccion dec solamente, el 20 se desplaza dos lugares hacia la izquierda.No encuentro la forma que los digitos ocupen el espacio que le corresponde es decir el 20 en sus dos ultimas posiciones sin los ceros delante,(como si tuviese 4 disp. de 7 segmentos) me explique o arme una galleta?.
Gracias
Saludos
khasistos
Publicado por: Sispic en 25 de Septiembre de 2004, 07:45:00
lcdout Valor dig 1 : lcdout Valor dig 0
Publicado por: khasistos en 25 de Septiembre de 2004, 07:54:00
SIEMPRE TU, GENIO,,,GRACIAS
INTENTARE PRINT AT ,XX, VALOR DIG1: VALOR DIG2 ETC
UN GRAN ABRAZO
KHASITOS
Publicado por: MGLSOFT en 28 de Septiembre de 2004, 19:03:00
Un abrazo a ambos...
Publicado por: khasistos en 29 de Septiembre de 2004, 12:33:00
POR FAVOR MG PUEDES ACLARAR UN POCO MAS TU CONCEPTO ,PUES SI BIEN LO QUE POSTEO SISCO ES CORRECTO VA A MANTENER EL LUGAR DE LOS DIGITOS PERO SIGUE TENIENDO EL INCONVENIENTE DE PRESENTAR CEROS INNECESARIOS,A MENOS QUE LE DIGAMOS COMO CUANDO TRABAJA CON 7 SEGMENTOS ,
LED ES ALIAS DEL PORT
led= dig X,0
if X < 9 then led=15 (PARA APAGAR EL 4511)
if X > 9 then led= dig X,1
if X < 99 then led=15 (PARA APAGAR EL 4511)
if X > 99 then led= dig X,3
Y ASI SUCESIVAMENTE CON 999 ,9999
ESTO FUNCIONA CON LOS 7 SEGMENTOS APAGANDO LOS CEROS INNECESARIOS
CLARO ESTA QUE YA NO SE PODRA USAR EL 15 PARA APAGAR EL BCD DEL 4511 SINO QUE HABRA QUE DECIRLE PRINT " " ( CARACTER VACIO)
uN ABRAZO
KHASISTOS
Publicado por: Sispic en 29 de Septiembre de 2004, 12:57:00
Codigo:
digitos con 4 "digitos a mostrar
for a = digitos-1 to 0 step-1 " imprimimos el mas significativo primero
tem = Valor dig a
if tem <> 0 then print tem+"0" else print " "
next a
No se si está muy bien la sintaxis .
Publicado por: lager en 29 de Septiembre de 2004, 16:02:00
if flt <= 9 then print " ",#flt
if flt >9 and flt <= 99 then print " ",#flt
if flt >99 and flt <= 999 then print " ",#flt
if flt >= 1000 then print #flt
con esa comprobacion es mas que suficiente.
ejemplo completo:
DEVICE=16F628
CONFIG INTRC_OSC_NOCLKOUT,WDT_OFF,PWRTE_ON,CP_OFF,BODEN_OFF,LVP_OFF,MCLRE_OFF
ALL_DIGITAL=TRUE "DESHABILITAMOS COMPARADORES ANALOGOS
PORTB_PULLUPS=ON "HABILITAMOS PULLUPS
DECLARE LCD_DTPIN PORTA.0
DECLARE LCD_ENPIN PORTB.3
DECLARE LCD_RSPIN PORTA.4
TRISA=%00000000
PORTA=%00000000
TRISB=%00111111
PORTB=0
DIM FLT AS word
DELAYMS 300 "ESPERAMOS QUE INICIE LCD
for flt=0 to 2000 step 10
cls
if flt <= 9 then print " ",#flt
if flt >9 and flt <= 99 then print " ",#flt
if flt >99 and flt <= 999 then print " ",#flt
if flt >= 1000 then print #flt
delayms 125
next
cls
print "OK"
delay 20000
Salu2
Publicado por: khasistos en 29 de Septiembre de 2004, 16:49:00
Bien en teoria seria bueno con un LCD ,pero no olvides que estoy usando panel grafico y ahi los caracteres no tienen "casilla" es decir ocupan o son ploteados en espacios no acotados por una matriz fija por ende la definicion del " " espacios para que no muestre los ceros es critica y dificil de calcular, no te olvides que para que el numero a mostrar en el display se "refresque" hay que agragar la trampa de espacios vacios despues de definir el muestreo ej: print at 0,50 ,x ," " ,si tu pones en print algo que no cambie por ejemplo print at 0,50 ,"Lager" ahi no hay problema ,pero si lo que quieres es mostrar una variable numerica debes agregar el ejemplo anterior ,al final " ",si tu no haces eso se llegan a "pisar " los numeros que ya no muestras con los actuales.Tengan en cuenta esto es muy importante .Si no la otra opcion no muy ortodoxa es la de un CLS pero ello trae aparejado el parpadeo del display cada vez que el el numero a mostrar cambie con el consiguiente problema del borrado de todo lo que tengas en el ....
espero les sirva para no volverse locos ...
Ahora voy a probar el ejemplo de Sisco ...
Gracias pana y demas amigos
Publicado por: MGLSOFT en 29 de Septiembre de 2004, 20:22:00
Entiendo que si tienes un valor de cero en la rutina te ocuparas de ponerle un espacio, de esa forma no veras mas de un cero antes de una coma y tampoco pisaras un numero anterior cuando el numero se achica demasiado.
Cuidado con el orden, DIG0 es el digito menos significativo y DIG4 el mas significativo, conviene que te hagas una rutina de comparaciones de tu numero para poder mostrar cada digito como corresponde, solo contempla poner un " " en el DIGx que corresponda cuando el numero sea cero a la izquierda no deseado...
Saludos
Mil disculpas, ahora vi que Cisco ya lo habia contestado con su habitual y aguda sencillez... perdon Cisco !!
Publicado por: Sispic en 29 de Septiembre de 2004, 23:44:00
Lo pego y de momento te dara mas ideas .
Es que son las 6 AM , mis clusters de mi cerebro estan todabia en off , y no me veo capaz de pasarlo al basic
pero si te gusta lo hacemos en un periquete .Codigo:
/****************************************/
/* Escribe Valor numerico al LCD */
/* Max 1 a 9 digitos */
/* ceros a la izquierda blancos */
/* puno de miles y millones */
/****************************************/
/* ejemplo : 341.000.780 1.886 23 */
void LCD_PUTUN (unsigned char Digitos , unsigned long valor)
{
unsigned char t1,i,wrote;
unsigned long k;
wrote=0;
for (i=Digitos-1; i>=1; i--)
{
switch(i){
case 8: k=100000000;
break;
case 7: k=10000000;
break;
case 6: k=1000000;
break;
case 5: k=100000; if (Digitos > 6){ if (wrote==1){ LCD_PUTCH(".");} else { LCD_PUTCH(" ");}} // millones
break;
case 4: k=10000;
break;
case 3: k=1000;
break;
case 2: k=100; if (Digitos > 3){ if (wrote==1){ LCD_PUTCH(".");} else { LCD_PUTCH(" ");}} // miles
break;
case 1: k=10;
}
t1=valor/k;
if((wrote)||(t1!=0)){LCD_PUTCH(t1+"0"); wrote=1;}
else LCD_PUTCH(" "); // Ceros izquierda blanco
valor-=(t1*k);
}
LCD_PUTCH( valor +"0");
}
Nada Marquitos , solo he sido un pelin mas rapido al darle
Publicado por: Nocturno en 30 de Septiembre de 2004, 02:56:00
Publicado por: Sispic en 30 de Septiembre de 2004, 10:41:00
)
Publicado por: khasistos en 30 de Septiembre de 2004, 13:14:00
Si cuando tus neuronas esten descansadas y libres me gustaria la traduccion al PLUS si es que asi lo deseas.
te mando un gran abrazo
khasistos
Publicado por: pocher en 30 de Septiembre de 2004, 14:03:00
Con el printf escribirías un número por ejemplo de 9 cifras, pero no tendría los puntos (2) separadores de miles y millones.
Otra cosa Sispic. Para que el programa funcione con CCS se tienen que hacer los cambios:
- void LCD_PUTUN (unsigned char Digitos , unsigned long valor) por void LCD_PUTUN (unsigned char Digitos , int32 valor)
- unsigned long k; por int32 k;
Y así funcionará perfectamente.
Publicado por: Sispic en 30 de Septiembre de 2004, 14:10:00
cuantos digitos usas khasistos ?
Publicado por: Sispic en 01 de Octubre de 2004, 00:21:00
Codigo:
symbol Digitos = 5 " digitos a mostrar , Max 9
dim Valor as word " segun necesidades
dim i as byte : dim wrote as bit
dim x as byte : dim y as byte : dim Ch as byte
IMPRIME:
x = 0 : y = 0 " coordenadas iniciales del digito mas significativo
wrote = 0
for i = Digitos - 1 to 1 step -1
if i = 5 and Digitos > 6 then " millones
if wrote = 1 then Ch = "." : else Ch = " "
gosub LCD_PUTCH
else if i = 2 and Digitos > 3 then " miles
if wrote = 1 then Ch = "." : else Ch = " "
gosub LCD_PUTCH
endif
Ch = Valor dig i
if Ch <> 0 or wrote = 1 then
Ch = Ch + "0" : wrote = 1
else
Ch=" " : " Ceros izquierda blanco
endif
gosub LCD_PUTCH " imprime digito
next i
Ch = Valor dig 0 + "0" : gosub LCD_PUTCH " imprime un digito a 0 como minimo
return
LCD_PUTCH: " imprime de izquierda a derecha
print at x,y , Ch
x = x + ancho del caracter o como lo tengas
return
No lo puedo provar .
La sintaxis la repasas tu vale ? aver si te sirve
Publicado por: khasistos en 01 de Octubre de 2004, 11:31:00
mil gracias sisco y demas amigos,he tomado vuestras ideas ,y en realidad hice un coctel de ellas ,he calculado cuanto ocupa la matriz de caracter grande y le he puesto los condicionales if x <9 then...if x> 99 then print" " algo parecido al post que puse de tacometro con 7 segmentos...
Un gran abrazo a todos y gracias por las ideas...
Que tengan un hermoso fin de semana.
khasitos