Zoek een palscript voor encoder

[fratam]

Ik zoek een PAL script dat mijn muziek stopt wanneer mijn encoder op stop staat.. en als mijn encoder aanspringt moet mijn muziek weer beginnen te uploaden..

Dus
Muziek stoppen wanneer mijn encoder 1 gedisconected is..

En muziek starten wanneer mijn encoder 1 weer gestart is.

Wij zitten namelijk met de html banner en de refresh time... dit gaat anders door elkaar werken..

[Eagle 1974]

Dan is deze code denk wat je zoekt.

Code: Selecteer alles

                                           var   Flag : Integer;
var Player : TPlayer;

PAL.Loop := true;

Flag := 0;

WHILE (Flag=0) DO
BEGIN

case (Encoders[0].Status) of
 'Idle'     : Flag := 2;
 'Encoding' : Flag := 3;
 else         Flag := 4;
end;
END;

WHILE (Flag=2) DO
BEGIN
  IF (Encoders[0].Status='Encoding') THEN
    BEGIN
      Player := DeckA;
      Player.QueueSong(Queue.NextInQueue);
      Player.Play;
      WriteLN('FLag 2, player started');
      Flag := 3;
    END;
  IF (Encoders[0].Status<>'Encoding') AND (Encoders[0].Status<>'Idle') THEN
    BEGIN
      Flag := 4;
    END
END;

WHILE (Flag=3) DO
BEGIN
  IF (Encoders[0].Status<>'Encoding') THEN
    BEGIN
      Player := ActivePlayer;
      Player.Stop;
      WriteLn('Flag 3, Player stopped');
  //    Encoders[0].Stop;
      DeckA.Eject;
      DeckB.Eject;
      Flag := 0;
    END
END;

WHILE (Flag=4) DO
BEGIN
  IF (Encoders[0].Status='Encoding') THEN
    BEGIN
      Player := DeckA;
      Player.QueueSong(Queue.NextInQueue);
      Player.Play;
      WriteLn('Flag 4, Player started');
      Flag := 0;
    END
END;

Ik gebruik dat exacte script ook voor die actie.

[fratam]

ga hem testen alvast bedankt
laat het je weten mocht het werken
bedankt zover

[fratam]

vergeten te melden dat ie perfekt werkt!
Super bedankt Eagle 1974!