TODOPIC
Microcontroladores PIC => Lenguaje Basic para microcontroladores PIC => Mensaje iniciado 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
-
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. :-/ :-/
-
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.