Hola Gente!, me pidieron que fabricara un sistemita que genere un ticket por cada ficha que ingrese, a modo de comprobante...
y no querian emplear una PC.., asi que almaceno el total de ticket generados, subtotales, cantidad emitidos,y logicamente, nombre de la empresa, celular y datos de interes...
realmente fue muy facil empleando el PBP... pero como morfa memoria!!!!, asi que tenia que recurrir a optimizar el codigo para que entre en el f84...
por ejemplo
FOR T =1 TO 24
serout portb.0,6,["*"]
NEXT T
consume menos memoria que enviar un string de 24 asteriscos...
el agrupar varios serout en uno solo, tambien es mas ECONOMICO...
y con 3 valores, se cambia el estilo de impresion
serout portb.0,6,[27,121,1,27,119,1,27,122,1]
" LETRAS DOBLE LARGO LETRAS DOBLE ancho LETRAS sombreadas
solo me quedaron 2 bytes libres je je je...
el PBP ¿maneja strings?, es decir, para colocar los ceros a la izquierda... yo lo solucione asi
UNIDAD=UNIDAD + 1
WRITE 1,UNIDAD
IF UNIDAD <10000 THEN N=1
IF UNIDAD <1000 THEN N=2
IF UNIDAD <100 THEN N=3
IF UNIDAD <10 THEN N=4 "N ES LA CANTIDAD DE CEROS A LA IZQUIERDA
serout portb.0,6,[27,121,1," Ticket Nro. ",27,119,1] " LETRAS DOBLE LARGO
serout portb.0,6,[27,121,1] " LETRAS DOBLE LARGO
FOR T=1 TO N
serout portb.0,6,["0"] " COLOCO TANTOS CEROS PARA LLEGAR A 5 DIGITOS EN LA IZQUIERDA
NEXT T
serout portb.0,6,[# UNIDAD,13,10]
¿existe otra forma?
Un gran abrazo
Norberto