caxapa.ru :: Нужно 38/30 наоборот.

Vladimir Ljaschko (12.03.2007 18:12, просмотров: 1) ответил KUKU на Помогите с дисплеем.

Нужно 38/30 наоборот.

PROCEDURE LCDINIT;
Begin
  {$IFDEF Maket}  LCDCTRLOut:= $30; {$ELSE}  Port[LCDCTRLOut]:= $30; {$ENDIF}
  WAIT(20);
  {$IFDEF Maket}  LCDCTRLOut:= $30; {$ELSE}  Port[LCDCTRLOut]:= $30; {$ENDIF}
  WAIT(5);
  {$IFDEF Maket}  LCDCTRLOut:= $30; {$ELSE}  Port[LCDCTRLOut]:= $30; {$ENDIF}
  LCDBusy;
  {$IFDEF Maket}  LCDCTRLOut:= $38; {$ELSE}  Port[LCDCTRLOut]:= $38; {$ENDIF}
  LCDBusy;
  {$IFDEF Maket}  LCDCTRLOut:= $10; {$ELSE}  Port[LCDCTRLOut]:= $10; {$ENDIF}
  LCDBusy;
  {$IFDEF Maket}  LCDCTRLOut:= $01; {$ELSE}  Port[LCDCTRLOut]:= $01; {$ENDIF}
  LCDBusy;
  {$IFDEF Maket}  LCDCTRLOut:= $06; {$ELSE}  Port[LCDCTRLOut]:= $06; {$ENDIF}
  LCDBusy;
  {$IFDEF Maket}  LCDCTRLOut:= $06; {$ELSE}  Port[LCDCTRLOut]:= $06; {$ENDIF}
  LCDBusy;
  {$IFDEF Maket}  LCDCTRLOut:= $0C; {$ELSE}  Port[LCDCTRLOut]:= $0C; {$ENDIF}

  LCDBusy;
  
  LCD_X:=1;LCD_Y:=1;
END;

- Спасибо! - KUKU(13.03.2007 16:41, )

Микроконтроллеры