Svenska ElektronikForumet

Kod: Markera allt

For A:=1 to 1000 do
Begin
Ms_delay(1);
 If Status='Bryt' then
 Begin
  {Gör något}
  A:=A+1;
 End;
End;

Kod: Markera allt

Status:='Run';
RunTime:=1000;  //Variabel tid att vänta.
repeat               
 begin

  Delay_us(1);
  De:=De+1;
  If De>=RunTime then 
  Begin
   Status:='Stop';
  End;

  If Status='Hmmm' then
  Begin
   {Gör något annat}
   De:=De-1;
  End;

  If De<1 then 
  Begin
    De:=0;
  End;

 end;
until Status = 'Stop';