folder Tahribat.com Forumları
linefolder Delphi - Pascal
linefolder Pascalda Portların Kontrolü



Pascalda Portların Kontrolü

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Reges
    Reges's avatar
    Kayıt Tarihi: 22/Haziran/2003
    Erkek
    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
    - Bilginin Adresinden TurkCom.Org -
    Reply With Quote Alıntı yap
Toplam Hit: 1769 Toplam Mesaj: 1