pascalda paralel port - Programlama- Zamansız Tartışma Platform

Eftelya · 15-12-06, 00:16 Çevrimdışı

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.

wolf_57 · 21-04-07, 18:05 Çevrimdışı

paylaşım için teşekkurler

15-12-06, 00:16 Çevrimdışı	#1
Rektör Eftelya Genel Mesajlar: 9.188 Teşekkür etti: 771 Teşekkür edildi: 1.464 RepForum Gücü: 65 Forum Puanı:14028 Ödüller:	pascalda paralel port 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 Sen de Herkes Gibisin...

21-04-07, 18:05 Çevrimdışı	#2
Rektör wolf_57 Genel Mesajlar: 6.629 Teşekkür etti: 5.402 Teşekkür edildi: 1.969 RepForum Gücü: 33 Forum Puanı:2939	paylaşım için teşekkurler

Konu Seçenekleri
Yazdırılabilir Sümü Göster Sayfayı E-Mail'le gönder