slm arkadaşlar aşağıdaki programda paralel port üzerinden yürüyen ışık devresi için yazdım fakat dışardan belemeli kullanıyorum (işlemciden 5v çekmemek için) bu yüzden tüm çıkışlarım ters olarak görüküyor yani
00000000 verdiğimde paralel porta tüm ledlerim yanıyor aslında hepsinin sönük olması lazım
benim istediğim acaba aşağıda ürettiğim data değerlerini bir NOT kapısından geçirip çıkışa yansıtabilirmiyim?
yazılımsal olarak bunu yapmam mümkünmü eğer bilen arkadaşlar varsa paylaşırlarsa çok sevinirim :)
şimdiden teşekkürler..
uses crt; var data:integer; i:integer; begin repeat clrscr; for i:=0 to 7 do begin delay(500); data:=trunc(exp(i*ln(2))); port[$378]:=data; writeln(data); end;
for i:=7 downto 0 do begin delay(500); data:=trunc(exp(i*ln(2))); port[$378]:=data; writeln(data); end; until keypressed; end.
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.
00000000 verdiğimde paralel porta tüm ledlerim yanıyor aslında hepsinin sönük olması lazım
benim istediğim acaba aşağıda ürettiğim data değerlerini bir NOT kapısından geçirip çıkışa yansıtabilirmiyim?
yazılımsal olarak bunu yapmam mümkünmü eğer bilen arkadaşlar varsa paylaşırlarsa çok sevinirim :)
şimdiden teşekkürler..
uses crt;
var
data:integer;
i:integer;
begin
repeat
clrscr;
for i:=0 to 7 do
begin
delay(500);
data:=trunc(exp(i*ln(2)));
port[$378]:=data;
writeln(data);
end;
for i:=7 downto 0 do
begin
delay(500);
data:=trunc(exp(i*ln(2)));
port[$378]:=data;
writeln(data);
end;
until keypressed;
end.
DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.
Üye Ol Şimdi DeğilÜye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.