bascula digital

[Marttyn]

hola! estoy con un proyecto en el cual quiero usar una balanza digital miniatura, como ESTA o alguna similar. el problema es como "inteceptar" los datos que se envian al LCD para que el pic los pueda procesar. hay alguna manera?
salu2 y gracias!

[MGLSOFT]

La mayoria de estas balanzas tienen un chip preprogramado que es conversor y tienen salida BCD para los displays.
Si conoces el chip y tienes la hoja de datos, no es dificil leer estos desde un PIC.

Ahora bien, cual es la ganancia de hacer esto si la balanza ya funciona y con un costo tan bajo como el que se muestra en la pagina??

[Marttyn]

La mayoria de estas balanzas tienen un chip preprogramado que es conversor y tienen salida BCD para los displays.
Si conoces el chip y tienes la hoja de datos, no es dificil leer estos desde un PIC.

pues tendre que comprar una, descuartizarla y ver que se puede hacer...   

Ahora bien, cual es la ganancia de hacer esto si la balanza ya funciona y con un costo tan bajo como el que se muestra en la pagina??

me gustaria que en vez de mostrarme el peso por el LCD, quisiera que me encendiera un led cuando me excedo de un peso determinado. y ese led este en otro sitio diferente al de la bascula mediante un sistema inalambrico... simple, no? 
si alguien ha hecho algo con basculas de bolsillo que me cuente.
y por cierto, en vez de comprar una bascula, podria comprar el sensor y enchufarlo directamente al pic, pero que precio tendria un sensor de estos?
salu2

[todopic]

Hola, en una oportunidad, he tenido que transmitir desde una bascula que pesaban camiones, a una cabina, distante unos 50 metros, y esta bascula no disponia de comunicacion, asi que al destapar, encontre para excitar los display un ICL7135 (intersil) , y el programa consistia en testear que transistor estaba conectando a masa el digito correspondiente, entonces guardar (leyendo con otro puerto) el dato enviado a los display... , para luego transmitirlos 

Suerte!

Norberto

[MGLSOFT]

El sensor es una celda de carga.
Una celda de carga barata vale unos 30 dolares...

Por eso digo lo que digo...

[Marttyn]

uhmm... entiendo... tal vez podria inteceptar la señal de salida del sensor en vez de intentar leer el display... que sera mejor?
supongo que tendre que optar por una solucion como la de norberto...
salu2

[MGLSOFT]

Te conviene si es una salida BCD multiplexada, usar el sistema de Norberto, porque ya tienes la parte de filtrado y conversion hechas, y probadas que funcionan...

[todopic]

Ok, te pego el codigo que escribí, por supuesto hay que adaptar a tus necesidades, ya que aquí tambien está la parte de transmision....
Y la otra, no creo que dispongas de niveles de 5v.... tendras que adaptar tambien....

Código: ASM

1. ;05/12/05 07:46p.m.
2. ;capturar la se¤al de un ICL7135 (intersil) de una balanza y transmitirlos a una pc
3. ;09/12/05 03:38p.m. la comunicacion es rs485, y tiene que envial primero un *(asterisco) y luego
4. ;16 caracteres
5. ;el * coloca la impresion al principio de pantalla
6.         list p=16f628
7.         #include p16f628.inc
8.  
9.         ERRORLEVEL      -302, -307      ;(NO FIGURAN LOS ERRORES DE CAMBIO DE PAGINA)
10. ;datos del ICL7135
11. ;El dígito conduce (los pines 12, 17, 18, 19 y 20)
12. ; son una señal que va positiva que dura para 200 pulsos.
13.  
14. ;La secuencia de la exploración es D5 (MSD), D4, D3, D2, y D1 (lsd).
15. ; Se exploran los cinco dígitos y esta exploración es continua a menos
16. ; que ocurra un overrange.  
17.  
18. ;BCD (los pines 13, 14, 15 y 16 ) decimal codificado binario
19. ;               B8, B4, B2,y B1   son positivos que las señales que se encienden simultáneamente
20. ;con el funcionamiento óptimo de SelectionFor del valor del conductor signal.
21. ;Component del dígito de la sección análoga, cuidado debe de la lógica
22.  
23.  
24. #DEFINE DIG1            PORTB,0 ;CONECTADO A CADA TRANSISTOR QUE ACTIVA CADA DISPLAY
25. #DEFINE DIG2            PORTB,1
26. #DEFINE DIG3            PORTB,3
27. #DEFINE DIG4            PORTB,4
28. #DEFINE DIG5            PORTB,5
29. ;  EL PUERTO A SE CONECTA A LA SALIDA BCD DEL EXITADOR DE DISPLAY
30. #DEFINE BANDERA1        MARCA,0
31. #DEFINE BANDERA2        MARCA,1
32. #DEFINE BANDERA3        MARCA,2
33. #DEFINE BANDERA4        MARCA,3
34. #DEFINE BANDERA5        MARCA,4
35.  
36. #DEFINE HABILITA        PORTB,7 ;PRA HABILITAR TRANSMISION 485
37.  
38.         CBLOCK  H'20'   ;H'0C'
39.                
40. ;Digit Drives (Pins 12, 17, 18, 19 and 20)Each digit drive is a positive going signal
41. ;that lasts for 200 clock pulses. The scan sequence is D5 (MSD), D4 , D3 , D2 , and D1 (LSD).
42. ; All five digits are scanned and this scan is continuous unless an overrange occurs.
43. ;Then all digit drives are blanked from the end of the strobe sequence until the beginning
44. ;of Reference Integrate when D5 will start the scan again. This can give a blinking display
45. ;as a visual indication of overrange.BCD (Pins 13, 14, 15 and 16)The Binary coded Decimal
46. ;bits B8 , B4 , B2 , and B1 are positive logic signals that go on simultaneously with the
47. ; digit driver signal.Component Value SelectionFor optimum performance of the analog section, care must
48. DATO
49. NADA
50. TIEMPO1
51. TIEMPO2
52. MARCA
53. DIGITO1
54. DIGITO2
55. DIGITO3
56. DIGITO4
57. DIGITO5
58.         ENDC
59.  
60.         __CONFIG  _XT_OSC &  _WDT_OFF & _PWRTE_ON & _CP_ALL & _BODEN_ON & _LVP_OFF & _MCLRE_OFF
61.  
62. reset   org     00h     ;el vector de reset es la dirección 00
63.         goto    inicio  ;se salta al inicio del programa
64.         NOP
65.         NOP
66.         NOP
67.         NOP
68.         NOP
69. ;******************************************************************************
70. inicio:
71.         CLRF    PORTB
72.         CLRF    PORTA
73.         CLRF    MARCA
74.  
75. INICIO:
76.         MOVLW   0x07
77.         MOVWF   CMCON   ;PARA EL 16F628, ELIMINO LOS COMPARADORES, TODAS SALIDAS DIGITALES
78.        
79.         BSF             STATUS,RP0      ;BANCO 1
80.         MOVWF   OPTION_REG      ; WDT = 7 (WDT rate = 1:128) <--LO COLOQUE EN 6 A WDT
81.         MOVLW   B'00111011'     ;5 entrada,otras SALIDAS <<<< rb2 es tx de la usart <<<<<<<<<
82.         MOVWF   TRISB
83.         MOVLW   B'00011111'     ;TODAS ENTRADAS
84.         MOVWF   TRISA
85.         BCF             STATUS,RP0      ;BANCO 0
86.  
87.         CALL    DEMORA
88.         CALL    DEMORA
89.         BSF             HABILITA
90.         CALL    RETARDO
91.         BCF             HABILITA
92.         CALL    DEMORA
93.         BSF             HABILITA
94.         CALL    RETARDO
95.         BCF             HABILITA
96.         CALL    DEMORA
97.         BSF             HABILITA
98.         CALL    RETARDO
99.         BCF             HABILITA
100.         CALL    DEMORA
101.         BSF             HABILITA
102.         CALL    DEMORA
103.         BCF             HABILITA
104.         CALL    DEMORA
105.         BSF             HABILITA
106.         CALL    DEMORA
107.         BCF             HABILITA
108. ;       GOTO    INICIO
109.        
110.  
111. ;****************************************************************************
112. COPIAR  ;LECTURA DE CADA DIGITO, SEGUN QUE TRANSISTOR ESTE A MASA
113.         MOVLW   0x07
114.         MOVWF   CMCON   ;PARA EL 16F628, ELIMINO LOS COMPARADORES, TODAS SALIDAS DIGITALES
115.        
116.         BSF             STATUS,RP0      ;BANCO 1
117.         MOVWF   OPTION_REG      ; WDT = 7 (WDT rate = 1:128) <--LO COLOQUE EN 6 A WDT
118.         MOVLW   B'00111011'     ;5 entrada,otras SALIDAS <<<< rb2 es tx de la usart <<<<<<<<<
119.         MOVWF   TRISB
120.         MOVLW   B'00011111'     ;TODAS ENTRADAS
121.         MOVWF   TRISA
122.         BCF             STATUS,RP0      ;BANCO 0
123.        
124. FALTA_LEER     
125.         BTFSC   DIG1    ;ES EL DIGITO 1 ?, LEER EL DATO BCD EXITADOR DEL DISPLAY
126.         CALL    LEER1
127.         BTFSC   DIG2
128.         CALL    LEER2
129.         BTFSC   DIG3    ;ES EL DIGITO 3 ?, LEER EL DATO BCD EXITADOR DEL DISPLAY
130.         CALL    LEER3
131.         BTFSC   DIG4
132.         CALL    LEER4
133.         BTFSC   DIG5    ;ES EL DIGITO 5 ?, LEER EL DATO BCD EXITADOR DEL DISPLAY
134.         CALL    LEER5
135.        
136.        
137.         ;Digit Drives (Pins 12, 17, 18, 19 and 20)Each digit drive is a positive going signal
138.         ;that lasts for 200 clock pulses. The scan sequence is D5 (MSD), D4 , D3 , D2 , and D1 (LSD).
139.         ; All five digits are scanned and this scan is continuous unless an overrange occurs.
140.         ;Then all digit drives are blanked from the end of the strobe sequence until the beginning
141.         ; of Reference Integrate when D5 will start the scan again. This can give a blinking display
142.         ; as a visual indication of overrange.BCD (Pins 13, 14, 15 and 16)The Binary coded Decimal
143.         ; bits B8 , B4 , B2 , and B1 are positive logic signals that go on simultaneously with the digit driver signal.
144.        
145.         ;VERIFICO SI SE LEYERON LOS 5 DISPLAY, PUEDEN ESTAR MULTIPLEXADOS ALREVEZ DE COMO LOS LEO
146.         ;O ESTAR DESINCRONIZADOS ENTRE LECTURA Y DISPLAY, ENTONSES ME ASEGURO (PODRIA LEER EL STROBE PIN 26 )
147.         ;ASI QUE VERIFICO SI SE MARCARON LAS 5 BANDERAS, SINO LOS MANDO A LEER NUEVAMENTE HASTA CARGAR
148.         ;LOS 5 DATOS
149.         ;COMO
150.         ;#DEFINE        BANDERA1        MARCA,0        
151.         ;#DEFINE        BANDERA2        MARCA,1
152.         ;#DEFINE        BANDERA3        MARCA,2
153.         ;#DEFINE        BANDERA4        MARCA,3
154.         ;#DEFINE        BANDERA5        MARCA,4
155.         ;SI MARCA = B'00011111'= .31 ESTAN LOS 5 DATOS LEIDOS
156.        
157.         MOVF    MARCA,W         ;VERIFICO SI MARCA=31,
158.         XORLW   .31                     ;SI ES IGUAL, SALTA A TRANSMITIR, SINO, LEE NUEVAMENTE
159.         BTFSS   STATUS,Z       
160.         GOTO    FALTA_LEER
161.  
162.         CALL    DEMORA  ;ESPERA UN SEGUNDO ANTES DE ACTUALIZAR
163.         CALL    DEMORA
164.         CALL    DEMORA
165.         BSF             HABILITA        ;TRANSMISION 485        ADEMAS CONECTO UN LED PARA INDICAR CON PARPADEO LA TX
166.         CALL    ESPERA
167.        
168.         CALL    TRANSMITIR      ;ENVIAR LOS 5 VALORES POR RS232
169.         CLRF    MARCA   ;BORRA TODAS LAS BANDERAS LUEGO DE TRANSMITIR
170.         CALL    ESPERA
171.         BCF             HABILITA        ;FIN TRANSMISION 485
172.         GOTO    COPIAR  ;INICIO
173. ;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
174. LEER1   ;LEO EL VALOR BCD POR EL PUERTO A, SEGUN QUE TRANSISTOR ESTE A MASA,SEGUN PUERTO B
175.         BTFSC   BANDERA1
176.         RETURN
177.         CALL    RETARDO ;ESTABILIZA LA SALIDA DEL BCD
178.         BTFSS   DIG1
179.         RETURN                  ;ME ASEGURO QUE NO FUE RUIDO....
180.         MOVF    PORTA,W
181.         ANDLW   B'00001111'
182.         MOVWF   DIGITO1
183.         BSF             BANDERA1
184.         RETURN
185.  
186. LEER2
187.         BTFSC   BANDERA2
188.         RETURN
189.         CALL    RETARDO ;ESTABILIZA LA SALIDA DEL BCD
190.         BTFSS   DIG2
191.         RETURN                  ;ME ASEGURO QUE NO FUE RUIDO....
192.         MOVF    PORTA,W
193.         ANDLW   B'00001111'
194.         MOVWF   DIGITO2
195.         BSF             BANDERA2
196.         RETURN
197.  
198. LEER3
199.         BTFSC   BANDERA3
200.         RETURN
201.         CALL    RETARDO ;ESTABILIZA LA SALIDA DEL BCD
202.         BTFSS   DIG3
203.         RETURN                  ;ME ASEGURO QUE NO FUE RUIDO....
204.         MOVF    PORTA,W
205.         ANDLW   B'00001111'
206.         MOVWF   DIGITO3
207.         BSF             BANDERA3
208.         RETURN
209.  
210. LEER4  
211.         BTFSC   BANDERA4
212.         RETURN
213.         CALL    RETARDO ;ESTABILIZA LA SALIDA DEL BCD
214.         BTFSS   DIG4
215.         RETURN                  ;ME ASEGURO QUE NO FUE RUIDO....
216.         MOVF    PORTA,W
217.         ANDLW   B'00001111'
218.         MOVWF   DIGITO4
219.         BSF             BANDERA4
220.         RETURN
221.  
222. LEER5  
223.         BTFSC   BANDERA5
224.         RETURN
225.         CALL    RETARDO ;ESTABILIZA LA SALIDA DEL BCD
226.         BTFSS   DIG5
227.         RETURN                  ;ME ASEGURO QUE NO FUE RUIDO....
228.         MOVF    PORTA,W
229.         ANDLW   B'00001111'
230.         MOVWF   DIGITO5
231.         BSF             BANDERA5
232.         RETURN
233. ;*********************************************************************************************
234.  
235. TEMPORIZADOR
236. DEMORA  ;RETURN
237.         MOVLW   .250
238.         MOVWF   TIEMPO1
239. OTRO2
240.         MOVLW   .110
241.         MOVWF   TIEMPO2
242. OTRO
243.         NOP
244.         NOP
245.         NOP
246.         NOP
247.         NOP
248.         NOP
249.         DECFSZ  TIEMPO2,F
250.         GOTO    OTRO
251.         DECFSZ  TIEMPO1,F
252.         GOTO    OTRO2
253.         RETURN 
254. ;***********************************************************************
255. RETARDO ;RETURN
256.         MOVLW   .14
257.         MOVWF   TIEMPO2
258. OTRO4  
259.         NOP
260.         DECFSZ  TIEMPO2,F
261.         GOTO    OTRO4
262.         RETURN 
263. ;**********************************************************************
264. ESPERA
265.         CLRF    TIEMPO1
266.         DECFSZ  TIEMPO1,F
267.         GOTO    $-1
268.         DECFSZ  TIEMPO1,F
269.         GOTO    $-1    
270.         RETURN
271. ;**********************************************************************
272.        
273.        
274. TRANSMITIR
275. ;=======Set up USART for asynchronous comms
276.  
277.         BSF STATUS,RP0  ;Bank1
278.         MOVLW   .25     ;9.6(9.615)K @4.0Mhz
279.         MOVWF   SPBRG
280.         BCF TXSTA,SYNC  ;Clear for Aysynchronous mode
281.         BSF TXSTA,BRGH  ;baud rate high speed option
282.         BSF TXSTA,TXEN  ;enable transmission
283.         BCF STATUS,RP0  ;Bank0
284. ;       BSF RCSTA,CREN      ;enable reception
285.         BSF RCSTA,SPEN      ;enable serial port
286. ;       BSF STATUS,RP0      ;Move to Page 1 to set the Receive
287. ;       BSF PIE1,RCIE       ;enable the Receive Interrupt
288. ;       BCF STATUS,RP0      ;Move back to return in Bank0
289.  
290. ;ENVIO EL COMIENZO DE TRANSMISION UNA LETRA *
291.         MOVLW   "*"             ;el asterisco, coloca los contadores a cero del lcd para empezar
292.         MOVWF   TXREG           ;y escribir una nueva linea
293.         BTFSS   PIR1,TXIF       ;       se coloca en uno al terminar de transmitir
294.         GOTO    $-1    
295.         CALL    ESPERA
296.         CALL    ESPERA
297.  
298.  
299.         movlw   " "             ;primer caracter
300.         MOVWF   TXREG
301.         BTFSS   PIR1,TXIF       ;       se coloca en uno al terminar de transmitir
302.         GOTO    $-1    
303.        
304.         CALL    ESPERA
305.         CALL    ESPERA
306.  
307.        
308.         movlw   " "             ;segundo caracter
309.         MOVWF   TXREG           ;dos espacios
310.         BTFSS   PIR1,TXIF       ;       se coloca en uno al terminar de transmitir
311.         GOTO    $-1    
312.        
313.         CALL    ESPERA
314.         CALL    ESPERA
315.  
316.        
317. ;enviar los 5 datos leidos, y esperar a que termine de transmitir cada dato
318.         MOVLW   .48             ;tercer caracter
319.         ADDWF   DIGITO1,W       ;PASO EL BCD AL VALOR ASCII
320.         MOVWF   TXREG
321.         BTFSS   PIR1,TXIF       ;       se coloca en uno al terminar de transmitir
322.         GOTO    $-1    
323.        
324.         CALL    ESPERA
325.         CALL    ESPERA
326.  
327.                
328.         MOVLW   .48             ;cuarto caracter
329.         ADDWF   DIGITO2,W       ;PASO EL BCD AL VALOR ASCII
330.         MOVWF   TXREG
331.         BTFSS   PIR1,TXIF       ;       se coloca en uno al terminar de transmitir
332.         GOTO    $-1    
333.        
334.         CALL    ESPERA
335.         CALL    ESPERA
336.  
337.        
338.         movlw   "."                     ;punto decimal , quinto caracter
339.         MOVWF   TXREG
340.         BTFSS   PIR1,TXIF       ;       se coloca en uno al terminar de transmitir
341.         GOTO    $-1    
342.        
343.         CALL    ESPERA
344.         CALL    ESPERA
345.  
346.                
347.         MOVLW   .48             ;sexto caracter
348.         ADDWF   DIGITO3,W       ;PASO EL BCD AL VALOR ASCII
349.         MOVWF   TXREG
350.         BTFSS   PIR1,TXIF       ;       se coloca en uno al terminar de transmitir
351.         GOTO    $-1    
352.        
353.         CALL    ESPERA
354.         CALL    ESPERA
355.  
356.        
357.         MOVLW   .48             ;septimo caracter
358.         ADDWF   DIGITO4,W       ;PASO EL BCD AL VALOR ASCII
359.         MOVWF   TXREG
360.         BTFSS   PIR1,TXIF       ;       se coloca en uno al terminar de transmitir
361.         GOTO    $-1    
362.        
363.         CALL    ESPERA
364.         CALL    ESPERA
365.  
366.        
367.        
368.         MOVLW   .48             ;octavo caracter
369.         ADDWF   DIGITO5,W       ;PASO EL BCD AL VALOR ASCII
370.         MOVWF   TXREG
371.         BTFSS   PIR1,TXIF       ;       se coloca en uno al terminar de transmitir
372.         GOTO    $-1    
373.        
374.         CALL    ESPERA
375.         CALL    ESPERA
376.  
377.        
378.         movlw   " "             ;noveno caracter
379.         MOVWF   TXREG
380.         BTFSS   PIR1,TXIF       ;       se coloca en uno al terminar de transmitir
381.         GOTO    $-1    
382.        
383.         CALL    ESPERA
384.         CALL    ESPERA
385.  
386.        
387.         MOVLW   "K"                     ;decimo caracter
388.         MOVWF   TXREG
389.         BTFSS   PIR1,TXIF       ;       se coloca en uno al terminar de transmitir
390.         GOTO    $-1    
391.  
392.         CALL    ESPERA
393.         CALL    ESPERA
394.  
395.                                         ;11  caracter  
396.         MOVLW   "i"                     ;INDICO QUE TERMINO DE TX EL ULTIMO NUMERO
397.         MOVWF   TXREG
398.         BTFSS   PIR1,TXIF       ;       se coloca en uno al terminar de transmitir
399.         GOTO    $-1    
400.  
401.         CALL    ESPERA
402.         CALL    ESPERA
403.  
404.  
405.         MOVLW   "l"                     ;12  caracter
406.         MOVWF   TXREG
407.         BTFSS   PIR1,TXIF       ;       se coloca en uno al terminar de transmitir
408.         GOTO    $-1    
409.  
410.         CALL    ESPERA
411.         CALL    ESPERA
412.  
413.                
414.         MOVLW   "o"                     ;13 caracter
415.         MOVWF   TXREG
416.         BTFSS   PIR1,TXIF       ;       se coloca en uno al terminar de transmitir
417.         GOTO    $-1    
418.  
419.         CALL    ESPERA
420.         CALL    ESPERA
421.  
422.        
423.         MOVLW   "s"                     ;14 caracter
424.         MOVWF   TXREG
425.         BTFSS   PIR1,TXIF       ;       se coloca en uno al terminar de transmitir
426.         GOTO    $-1    
427.  
428.         CALL    ESPERA 
429.         CALL    ESPERA
430.  
431.        
432.         MOVLW   " "                     ;15 caracter
433.         MOVWF   TXREG
434.         BTFSS   PIR1,TXIF       ;       se coloca en uno al terminar de transmitir
435.         GOTO    $-1    
436.  
437.         CALL    ESPERA 
438.         CALL    ESPERA
439.  
440.        
441.         MOVLW   " "                     ;16 caracteres, final linea superior
442.         MOVWF   TXREG
443.         BTFSS   PIR1,TXIF       ;       se coloca en uno al terminar de transmitir
444.         GOTO    $-1    
445.  
446.         CALL    ESPERA
447.         CALL    ESPERA
448.  
449.         RETURN
450.  
451. ;********************************************************************
452.  
453.         END

Suerte!


Norberto

[MGLSOFT]

Como recibis el punto decimal??
O el 7135 no lo escribe realmente y esta fijo??

[jfh900]

O esta fijo o es como un segmento más.

Un saludo

[todopic]

Hola Marcos, en mi caso, pesaban camiones con cemento, asi que no eran necesarios los decimales 

[Nichita]

Como recibis el punto decimal??
O el 7135 no lo escribe realmente y esta fijo??

El ICL7135 no maneja punto decimal. Si el 7135 está manejando los display directamente lo tenes que poner fijo y en el caso de lo maneje un micro lo haces por software.