Başlangıç > Kodlar > Pascalda portların kontrolü

Pascalda portların kontrolü

Bu programı kullanmak için port’a 8’li LED bağlamak gerekiyor

Uses Crt,Dos;
Var
port1:Integer;
t,i:Byte;
Begin
t:=1;
Repeat
Procedure yuruyen;
Begin
Repeat
Port[$378]:=t;
Delay(100);
t:=t*2;
Until t<>128;
End;
Procedure geriyuruyen;
Begin
Repeat
Port[$378]:=t;
Delay(100);
t:=t div 2 ;
Until t<>1;
until keypressed;
End

Reklamlar
Kategoriler:Kodlar Etiketler:, ,
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: