Pascalda paralel port kullanımı
Pascal'a merakı olan arkadaşların işine yarayacağını düşümdüğüm bir döküman..Pascalda port kullanımı için paralel portun adresi olan 378 i kullanacağız, bu komutun kullanımı port[$378] şeklindedir. Bildiğimiz gibi paralel porttan 8-bitlik bilgi verişi sağlamaktadır. Bu komutu kullanmak için 8-bitlik bilgi gönderimi sağlayan bütün kısmların lojik 1 olması gerekir. Yani paralel porttan 8 tane led yakmak için hepsinin değerinin 1 olması bu da port[$378] komutunun değerinin ikilik tabanda 11111111 olması demektir. bunun yanında birinin yanmasını ötekinin yanmamasını istiyorsunuz. Bu durumda 10101010 olması gerekiyor. taban aritmetiği iyi olan arkadaşlar (11111111) şeklinde ikilik tabandaki bir sayının değerinin 255 'e eşit oldğunu bilirler. Aynı şekilde (10101010) sayısınında 170'e eşit olduğunu bilecektirler. Eğer bunu komuta uygulamak gerekirse:
uses crt;
begin
repeat
port[$378]:=255; {1111 1111 olduğu durum}
until keypressed;
end.
yukarıdaki 6 satırlık kodda herhangi bir tuşa basılıncaya kadar 8 led yanar vaziyette duracaktır..... Eğer paralel porttan bilgi okunmak isteniyorsa ki bu bilgisayara bilgi gönderildiği zaman olacaktır. port[#378] komutu bir değişkene eşitlenmesi gerekmektedir. Örneğin:
uses crt;
var
a:byte;
begin
a:=port[#378];
write(a);
readkey;
end.
yukarıdaki kod parçası paralel porta gelen bilgiyi okuyacak ve decimal (10 luk) tabanda a değişkenine atayacaktır. artık bu bilgiyi okumak sizin programcılık bilgi ve becerinize kalacaktır. Bütün arkadaşlara kolay gelsin.....
Pascal'a merakı olan arkadaşların işine yarayacağını düşümdüğüm bir döküman..Pascalda port kullanımı için paralel portun adresi olan 378 i kullanacağız, bu komutun kullanımı port[$378] şeklindedir. Bildiğimiz gibi paralel porttan 8-bitlik bilgi verişi sağlamaktadır. Bu komutu kullanmak için 8-bitlik bilgi gönderimi sağlayan bütün kısmların lojik 1 olması gerekir. Yani paralel porttan 8 tane led yakmak için hepsinin değerinin 1 olması bu da port[$378] komutunun değerinin ikilik tabanda 11111111 olması demektir. bunun yanında birinin yanmasını ötekinin yanmamasını istiyorsunuz. Bu durumda 10101010 olması gerekiyor. taban aritmetiği iyi olan arkadaşlar (11111111) şeklinde ikilik tabandaki bir sayının değerinin 255 'e eşit oldğunu bilirler. Aynı şekilde (10101010) sayısınında 170'e eşit olduğunu bilecektirler. Eğer bunu komuta uygulamak gerekirse:
uses crt;
begin
repeat
port[$378]:=255; {1111 1111 olduğu durum}
until keypressed;
end.
yukarıdaki 6 satırlık kodda herhangi bir tuşa basılıncaya kadar 8 led yanar vaziyette duracaktır..... Eğer paralel porttan bilgi okunmak isteniyorsa ki bu bilgisayara bilgi gönderildiği zaman olacaktır. port[#378] komutu bir değişkene eşitlenmesi gerekmektedir. Örneğin:
uses crt;
var
a:byte;
begin
a:=port[#378];
write(a);
readkey;
end.
yukarıdaki kod parçası paralel porta gelen bilgiyi okuyacak ve decimal (10 luk) tabanda a değişkenine atayacaktır. artık bu bilgiyi okumak sizin programcılık bilgi ve becerinize kalacaktır. Bütün arkadaşlara kolay gelsin.....