Приветствую всех программеров и прошу совета в инициализации Lcd 2x16. Около 6-ти месяцев назад приобрел неисправный (без прошивки) пульт управления С2000 для сигнализаций . В нем используется PIC18F252. Поискал в сети и нашел компилятор PicBasicPro и примеры к нему. За пару вечеров, используя примеры соорудил термометр с датчиком DS18B20. Все работало и работает до сих пор. Но пришла зима и захотелось снабдить этот прибор еще одним датчиком для измерений температуры за бортом, то есть уличной. Но после изготовления этого самого прибора с PicBasicPro больше не работал, к тому-же были утеряны исходники. Пришлось начинать все с нуля. Но все оказалось не так просто как первый раз. Ничего не получается, Lcd ничего не отображает, старая прошивка работает. Порбовал записывать код с простым "Hello" "World",д результат тот же.
Подскажите где собака зарыта? Спасибо!
Вот код:
' PicBasic program to demonstrate operation of an LCD in 8-bit mode
'
' LCD should be connected as follows:
' LCD PIC
' Define LCD registers and bits
DEFINE osc 4 ' We're using a 4MHz oscillator
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTC
DEFINE LCD_RSBIT 2
DEFINE LCD_EREG PORTC
DEFINE LCD_EBIT 5
DEFINE LCD_BITS 8
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50 Pause 500
' Wait for LCD to startup
loop: Lcdout $fe, 1 ' Clear LCD screen
Pause 500
Lcdout "Hello" ' Display Hello
Pause 500 ' Wait .5 second
Lcdout $fe, $C0 ' Clear LCD screen
Lcdout "World"
Pause 500 ' Wait .5 second
Goto loop ' Do it forever