TODOPIC

Microcontroladores PIC => Lenguaje Basic para microcontroladores PIC => Mensaje iniciado por: joliva68 en 21 de Julio de 2018, 16:21:16

Título: MAX 6675 Y 16F628A
Publicado por: joliva68 en 21 de Julio de 2018, 16:21:16
Buenas tardes

No se si me podéis ayudar estoy intentando sacar la temperatura en un lcd con 16f628a y un MAX 6675 en proteus sale todo perfecto, pero en la protoboard no me sale la temperatura este es el código en proton, alguna idea???
De ante mano gracias.

Device 16F628A   
Declare Xtal 4

Declare LCD_DTPin   PORTB.4
Declare   LCD_RSPin   PORTB.0
Declare   LCD_ENPin   PORTB.1
Declare   LCD_Interface   4
Declare   LCD_Lines   2
     
Symbol SO = PORTA.1
Symbol CS = PORTA.2
Symbol SCK = PORTA.3

Dim X As Word
Dim Y As Byte

loop:
Low CS
SHIn SO,SCK,0,[X\16] 
High CS

Print $FE,$83,"TEMP"
Print $FE,$87,Dec X >> 5 ," C"

Y = X & %1000000000000000 >> 1

If Y <> 0 Then
Print $FE,$C3,"TC OPEN"
Else Print $FE,$C3,"MaxiBoost"
EndIf
DelayMS 250
GoTo loop
Título: Re:MAX 6675 Y 16F628A
Publicado por: joliva68 en 22 de Julio de 2018, 08:08:27
Buenas tardes,
Al final lo conseguí tonto de mi de no leer la instrucciones usé un pic con comunicación spi como el 16f88 y todo perfecto. :-/ :-/
Título: Re:MAX 6675 Y 16F628A
Publicado por: Stban en 24 de Julio de 2018, 02:16:07
El código debe funcionar con el pic16f628a solo te faltó deshabilitar los comparadores del puerto A.
Agregando CMCON=7 después de xtal.
Saludos.