Доброго времени суток уважаемые форумчани, есть проблемка с устройством....
Вот программа: @ device pic16F84A, xt_osc, wdt_off, protect_off, pwrt_on
DEFINE OSC 4
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 2
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 3
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 220
TRISB = %00000000
TRISA = %11111111
portb = 00000000
porta = 00000000
Czastota var word
pau var word
Czastota = 250
pau = 10
LCDOUT $FE,$80,"qwer"
LCDOUT $FE,$C0,"try"
pause 2000
LCDOUT $FE,1
LCDOUT $FE,$80,"lsfd "
LCDOUT $FE,$C0,"cvxvcx"
pause 2000
LCDOUT $FE, 1
LCDOUT $FE,$80, "Ms = ",DEC Czastota
LCDOUT $FE,$C0,"Pau = ",DEC Pau
pause 500
main:
pulsout portb.1, Czastota
pause pau
if porta.0 = 1 and Czastota <= 2000 then Czastota = Czastota + 10
:LCDOUT $FE,$80, "Ms = ",DEC Czastota
:LCDOUT $FE,$C0,"Pau = ",DEC Pau
if porta.1 = 1 and Czastota >= 250 then Czastota = Czastota - 10
:LCDOUT $FE,$80, "Ms = ",DEC Czastota
:LCDOUT $FE,$C0,"Pau = ",DEC Pau
if porta.3 = 1 and pau <= 250 then pau = pau - 10
:LCDOUT $FE,$80, "Ms = ",DEC Czastota
:LCDOUT $FE,$C0,"Pau = ",DEC Pau
if porta.4 = 1 and pau >= 10 then pau = pau + 10
:LCDOUT $FE,$80, "Ms = ",DEC Czastota
:LCDOUT $FE,$C0,"Pau = ",DEC Pau
goto main
end
при нажатии на кнопку, происходит изменение значения оно выводится на экран, но также продолжает изменятся даже после того как я отпускаю кнопку... где я наступил на грабли я незнаю:(
Прелагаю код и модель в протеусе....
