Advertisement
Guest User

Untitled

a guest
Sep 25th, 2018
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
SCL 0.65 KB | None | 0 0
  1. onDlugoscCyklu(IN:=xtonON AND xMANCHESTER = xManchesterOld , PT:=tBlink+t#3ms , Q=> , ET=> );
  2. rttonDlugoscCyklu(CLK:=tonDlugoscCyklu.Q , Q=> );
  3. xManchesterOld := xMANCHESTER;
  4. xUpdated:=FALSE;
  5.  
  6. (*KROK DRUGI-  OPERACJA ZAMIANY MANCHESTERU NA DANE*)
  7. CASE iLoading OF
  8.     0:   IF rtGetClock.Q THEN         (*oczekiwanie*)
  9.             aBoolData_1[Index]:=  xMANCHESTER;
  10.  
  11.             Index:=Index+1;
  12.  
  13.             IF Index > 0 THEN
  14.                 xBUSY:= TRUE;
  15.                 eError:=0;
  16.                 xReady:=FALSE;
  17.             iLoading:=iLoading+1;
  18.             END_IF;
  19.         END_IF;
  20.  
  21.     1:  IF rtGetClock.Q THEN         (*oczekiwanie*)
  22.             aBoolData_1[Index]:=  xMANCHESTER;
  23.             Index:=Index+1;
  24.             xBUSY:= TRUE;
  25.         ELSIF ftGetClock.Q THEN
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement