LCD problem picbasicpro
Postat: 3 juni 2005, 23:40:28
Hej!
Jag har ett litet problem med LCD:n jag kopplat till en pic 16F877A, eller snarare bryderi!
Programmet nedan fungerar perfekt men när jag tar bort ( ADCON1 = %00000010) så fungerar inte displayen alls!
Programmet kommer ursprungligen från ett test med Analog ingång och LCD, vilket också fungerade men sedan tänkte jag strippa bort analogdelen då fick jag problem
*************************************************************
DEFINE OSC 20
Define LCD_DREG PORTD
Define LCD_DBIT 0
Define LCD_RSREG PORTE
Define LCD_RSBIT 0
Define LCD_EREG PORTE
Define LCD_EBIT 1
ADCON1 = %00000010
Input portB.5
Pause 500
loop:
if portB.5 then tryck
Lcdout $fe,1,"Tryck knapp B.5"
Pause 100
Goto loop
tryck:
Lcdout $fe,1," KOLLA!"
Lcdout $FE, $C0, "DET FUNGERAR!"
Pause 100
if portB.5 then tryck
GOTO LOOP
END
************************************************************
Kan någon se vad jag missat?
Mvh Jeda007
Jag har ett litet problem med LCD:n jag kopplat till en pic 16F877A, eller snarare bryderi!
Programmet nedan fungerar perfekt men när jag tar bort ( ADCON1 = %00000010) så fungerar inte displayen alls!
Programmet kommer ursprungligen från ett test med Analog ingång och LCD, vilket också fungerade men sedan tänkte jag strippa bort analogdelen då fick jag problem
*************************************************************
DEFINE OSC 20
Define LCD_DREG PORTD
Define LCD_DBIT 0
Define LCD_RSREG PORTE
Define LCD_RSBIT 0
Define LCD_EREG PORTE
Define LCD_EBIT 1
ADCON1 = %00000010
Input portB.5
Pause 500
loop:
if portB.5 then tryck
Lcdout $fe,1,"Tryck knapp B.5"
Pause 100
Goto loop
tryck:
Lcdout $fe,1," KOLLA!"
Lcdout $FE, $C0, "DET FUNGERAR!"
Pause 100
if portB.5 then tryck
GOTO LOOP
END
************************************************************
Kan någon se vad jag missat?
Mvh Jeda007