Форум РадиоКот

program tes16f628a;

var
i,j,k:byte;
d:word;

procedure LCD1611cv110(x,d:byte);

begin
SetBit(PORTB,7);
ClearBit(PORTB,6);
if x=0 then x:=10;
for j:=1 to 10 do
for i:=3 downto 0 do
begin
VDelay_ms(5*d);
if TestBit(x,i)=1 then SetBit(PORTB,6);
VDelay_ms(1*d);
ClearBit(PORTB,7);
VDelay_ms(2*d);
SetBit(PORTB,7);
ClearBit(PORTB,6)
end;
{ClearBit(PORTB,7)}
end;


begin
CMCON:=7;
TRISA:=$10;
PORTA:=$F;

TRISB:=$3F;
PORTB:=$00;

for i:=0 to 16 do
begin
PORTA:=i;
d:=200+10*i;
VDelay_ms(d);
end ;
k:=0;
LCD1611cv110(k,10);
repeat
if TestBit(PORTA,4)=0 then
begin
k:=k+1;
LCD1611cv110(k,10);
end;
until false;

end.

program tes16f628a;
var
i,j,k:byte;
d:word;

procedure LCD1611cv110(x:byte);

begin {7 нога PORTB - CLOCK}
{6 нога PORTB - Data}
SetBit(PORTB,7);
ClearBit(PORTB,6);
if x=0 then x:=10;
for j:=1 to 10 do
begin
VDelay_ms(10); {Возможно понадобится коррекция задержек}
for i:=3 downto 0 do
begin
SetBit(PORTB,7);
if TestBit(x,i)=1 then SetBit(PORTB,6)
else ClearBit(PORTB,6);
VDelay_ms(10);
ClearBit(PORTB,7);
VDelay_ms(10);
end
end;
end;


begin
CMCON:=7;
TRISA:=$10;
PORTA:=$F;

TRISB:=$3F;
PORTB:=$00;

for i:=0 to 16 do
begin
PORTA:=i;
d:=200+10*i;
VDelay_ms(d);
end ;
k:=7;
for k:=15 downto 5 do
begin
VDelay_ms(2000);
LCD1611cv110(k);
end;
{ LCD1611cv110(k,1);
repeat
if TestBit(PORTA,4)=0 then
begin
k:=k+1;
LCD1611cv110(k,1);
end;
until false;}

end.