MikroElektronika Forum

Code: Select all

procedure LCD_PH_TYPE(const tip : byte); // tip : LCD_A or LCD_B
	example : LCD_PH_TYPE(LCD_A); 
procedure LCD_PH_Init;
	example : LCD_PH_Init;
procedure LCD_PH_Direction(direction : byte); // VERTICAL OR HORIZONTAL
	example : LCD_PH_Direction(VERTICAL); 
procedure LCD_PH_Background(colour : byte);
procedure LCD_PH_Text_Background(colour : byte);
procedure LCD_PH_Text_Color(colour : byte); // colour : WHITE, BLACK, RED, GREEN, BLUE, YELLOW, CYAN, MAGENTA	
	example : LCD_PH_Background(WHITE);
   example : LCD_PH_Text_Background(WHITE);
   example : LCD_PH_Text_Color(BLACK);	
procedure LCD_PH_Text_Size(size : byte); // size 1 to 16;
	example : LCD_PH_Text_Size(2);
procedure LCD_PH_Clear_Screen;
	example : LCD_PH_Clear_Screen;
procedure LCD_PH_Set_XY(x1,y1,x2,y2: byte);
	example : LCD_PH_Set_XY(0,0,131,131);
procedure LCD_PH_Put_Text(xx,yy : byte; var txt : array[22] of char);
	example : LCD_PH_Put_Text(6,26,'NOKIA 6100');
procedure LCD_PH_Put_Text_CP(var txt : array[22] of char);
	example : LCD_PH_Put_Text_CP('NOKIA 6100');
procedure LCD_PH_Rectangle(x1,y1,x2,y2 : byte; bgcolor : byte);
	example : LCD_PH_Rectangle(0,0,131,131,GREEN);
procedure LCD_PH_Chr (x,y,kar : byte);
	example : LCD_PH_Chr (10,10,'B');
procedure LCD_PH_Chr_CP(kar : byte);
	example : LCD_PH_Chr_CP('B');
procedure Draw_RGB;
	example : Draw_RGB;
procedure Draw_RYB;
	example : Draw_RYB;
procedure Put_Image(address,lungime : longint); // put image on the screen 132x132 pixels 256 colours
	example : Put_Image(@WIN_XP_BMP,17424);

Code: Select all

     X_MAX      : byte = 130; must be 131
     Y_MAX      : byte = 130; must be 131

Code: Select all

Procedure LCD_PH_Clear_Screen;
var k : word;
Begin
  LCD_PH_Set_XY(0,0,131,131); < this
  For k := 0 to 17423 do LCD_PH_Send(bgcolor, 1);
  LCD_PH_Set_XY(0,0,131,131); < this
End;

Procedure LCD_PH_Chr(x,y,kar : byte);
var i,j,s : byte;
Begin
     j := y + (7 * fsize) - 1;

     LCD_PH_Set_XY(x,y,131,j); < this

     For j := 0 to 6 do
        For s := 1 to fsize do LCD_PH_Send(fbcolor, 1);
     
     LCD_PH_Chr_CP(kar);
     
     For i := 2 to fsize do
       begin
     For j := 0 to 6 do
       begin
        For s := 1 to fsize do LCD_PH_Send(fbcolor, 1);
      end;
      end;
End;

procedure Draw_RGB;
var p1,p2 : byte;
begin
  LCD_PH_Set_XY(0,0,131,131);< this
  for p2 := 0 to 131 do
    begin
      for p1 := 0 to 32 do LCD_PH_Send(RED,1);
      for p1 := 0 to 32 do LCD_PH_Send(GREEN,1);
      for p1 := 0 to 32 do LCD_PH_Send(BLUE,1);
      for p1 := 0 to 32 do LCD_PH_Send(WHITE,1);
      ClrWdt;
    end;
end;

procedure Draw_RYB;
var p1,p2 : byte;
begin
  LCD_PH_Set_XY(0,0,131,131);< this
  for p2 := 0 to 131 do
    begin
      for p1 := 0 to 43 do LCD_PH_Send(RED,1);
      for p1 := 0 to 43 do LCD_PH_Send(YELLOW,1);
      for p1 := 0 to 43 do LCD_PH_Send(BLUE,1);
      ClrWdt;
    end;
end;