Debes tener mal las conexiones del teclado, revisa el orden.
Busca información acerca de ese error de Master-Prog en el Foro.
Definitivamente tienes dañado tu PIC.
Ahí mencionaste que funcionaba por el puerto B.
Si, y funciona sin problemas, incluso tampoco tengo problemas al grabar el PIC con protección.
ORTD")
Saludos, y gracias.Hola, D@rkbytes, ya que sos moderador, podrías poner nuestros mensajes, en uno nuevo, así no desvirtuamos el tema inicial...
En el archivo LCD_TEST, te faltó;
#define LCD_DATA_PORT getenv("SFR
Fijate si funciona con la modificación que hice...
PD: No tengo un 4550 para probarlo.
PD2: ¿Probaste si el puerto D está funcionando?...
PD3: No incluí el archivo LCD.c, porque usé el del CCS..
ORTD")
Excelente, y disculpa por desvirtuar. Me parecía que algo pasaba, y era el puerto del PIC.Saludos, y gracias.
Dejemos los posts aquí, para no crear un tema mas acerca de problemas con LCD.
[...]
A final de cuentas, me regalaron el PIC y apenas hace un rato lo probé.
El problema es que el PIC está dañado. Por alguna razón el pin RD7 no sirve.
Ahora con respecto a agregar...
#define LCD_DATA_PORT getenv("SFR
Ésta definición es la que se usa por default en el PIC18F4550, así que sin agregarla funciona.
Muchas gracias nuevamente por tomarte la molestia de revisar el programa.
Ahora ya sabemos que el puerto D es apto para trabajar la pantalla, y que la falla estaba en el PIC.
Saludos.
Te felicito, pero fijate en la imagen de la protoboard que el LCD es de 16 pines, que sería:
cuando inicio el micro el LCD parpadea pero vuelve y se apaga. en proteus funciona bien, no me da ningún error...
'****************************************************************
'* Name : UNTITLED.BAS *
'* Author : Carlos Guerrero *
'* Notice : Copyright (c) 2014 Carlos Guerrero *
'* : All Rights Reserved *
'* Date : 17/01/2014 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
;-------------------------- Base settings --------------------------
Device = 16F887 ; Chosen Picmicro
Xtal = 8
Config1 INTRC_OSC_NOCLKOUT, PWRTE_ON, MCLRE_ON, CP_OFF, CPD_OFF, WDT_OFF, FCMEN_ON, IESO_OFF, LVP_OFF, BOR_OFF
Config2 WRT_OFF, BOR21V
ANSEL = 0
ANSELH = 0
OSCCON = $74
;----------- LCD --------------------------
Declare LCD_Type ALPHA ; LCD type - alphanumeric
Declare LCD_DTPin PORTA.0 ; LCD data port
Declare LCD_ENPin PORTB.3 ; E line
Declare LCD_RSPin PORTA.4 ; RS line
Declare LCD_Interface 4 ; Word length of the tyre of data
Declare LCD_CommandUs 2000 ; Delay before a command parcel
Declare LCD_DataUs 50 ; Delay before a data parcel
Declare LCD_Lines 2 ; LCD lines number
;-------------------------- Ports --------------------------
TRISA = 0
TRISB = 0
TRISC = 1
TRISD = $F7
TRISE = 1
#define PortB_Pullups = On ; Turn on PORTB pull-ups
Declare All_Digital = On ; Set all ports digital inputs/exits
;------------------- Symbols --------------------------
Symbol LED1 = PORTD.0 ;LED_IN
Symbol MO = PORTD.1 ;MENU/OK
Symbol DOWN = PORTD.2 ;DISMINUIR DIAS/MES
Symbol UP = PORTD.3 ;AUMENTAR DIAS/MES
Symbol LED = PORTB.7
;------------------- Variables -------------------------
Dim VAR1 As Byte ;IN
Dim VAR2 As Byte ;CONTEO DE MES 1-3
Dim VAR3 As Byte ;MO
Dim VAR4 As Byte ;DOWN
Dim VAR5 As Byte ;UP
Dim EE As Byte ;
Dim LE As Byte ;
Dim DIA As Byte ;
Dim MES As Byte ;
Dim IN As Byte ;
Dim FUN As Byte ;
Dim POS As Byte
Dim RESULTADO As Word
Dim B0 As Byte ;VARIABLE PARA MOVIMIENTOS
Dim B1 As Byte ;VARIABLE PARA MOVIMIENTOS
VAR1 = 0
VAR2 = 0
VAR3 = 0
VAR4 = 0
VAR5 = 0
EE = 0
LE = 0
IN = 0
POS = 0
RESULTADO = 0
EWrite $FF, [0]
VAR2 = ERead $7F
MES = ERead $FD
DIA = ERead $FE
DelayMS 500
;-------------------------------- Start ----------------------------
For B0 = 0 To 5
Low LED
DelayMS 500
High LED
DelayMS 500
Next
INICIO:
PRESENTACION:
Print $fe, 1 ' Limpiar la pantalla
Print $fe, 2 ' Posicionar el cursor en el inicio
Print " * SDSDSDS * "
Print $fe,$C0, "CEL 544 544 6817"
P_PRESENTACION:
Button MO, 0, 255, 255, VAR3, 1, MENU_SELECCION
GoTo P_PRESENTACION
MENU_SELECCION:
Print $fe, 1 ' Limpiar la pantalla
Print $fe, 2 ' Posicionar el cursor en el inicio
Print " * EJEMPLO * "
FI:
GoTo FI
End
