http://cgrosse1.free.fr/guppy/
Photo du montage |
figure 1 |
figure 2 |
figure 3 |
program eprom_vari1;var i,j,n,actif : integer;
b : byte;
fichier : file of byte;
begin
assign(fichier,'c:eprom1.bin'); {Le fichier ou se trouve le résultat}
rewrite(fichier);
for n:=0 to 31 do
begin
actif:=round(n*128/31);
b:=255;
for i:=1 to actif do write(fichier,b);
b:=0;
for j:=1 to 128-actif do write(fichier,b);
end;
close(fichier);
end.