Queue vullen tussen 11 en 21

[deltaspace]

Beste forumgebruikers,

Ik wil graag dat SAM start met spelen om 11u en stopt om 21u.

Ik heb de korte ppt van Kees gevolgd (Clockwheel aangemaakt) en de tracks ingedeeld op basis van categorieen. Sam loopt dus nu oneindig door geloof ik

Hoe kan ik dit echter het beste doen? Gewoon een Clockwheel icm de Eventscheduler of kan dit heeeeel eenvoudig met een PAL?

Alvast bedankt voor alle hulp!

[Kees]

Zet je clockwheel eens online.
Kan ik een PAL scriptje maken.
Laat ook even weten of je 1 of meerdere encoders actief heb staan.

[deltaspace]

Kees,

Dit is mijn Clockwheel:

Code: Selecteer alles

Cat['HITs'].QueueBottom(smLRP, EnforceRules);
Cat['2000s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['90s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['90s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['HITs'].QueueBottom(smLRP, EnforceRules);
Cat['70s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['90s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2000s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['80s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['HITs'].QueueBottom(smLRP, EnforceRules);
Cat['2000s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['70s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['HITs'].QueueBottom(smLRP, EnforceRules);
Cat['90s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['80s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['80s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2000s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2000s'].QueueBottom(smLemmingLogic, EnforceRules);

Niet veel spectaculairs... Ik heb maar één encoder actief.

Thanx alvast!

[deltaspace]

Heeft iemand een aantal hints voor mij hoe ik het beste kan beginnen?? (bijv. één PAL-script of meerdere PALs i.c.m. ES)
Dan kan ik zelf al eens wat beginnen te sleutelen aan het één en ander..

Wat doen de volgende functies overigens en waar kan ik ze het beste voor gebruiken?

Code: Selecteer alles

PAL.LockExecution;
PAL.UnlockExecution;

Thanx in advance!

Grts.

[Kees]

Wat doen de volgende functies overigens en waar kan ik ze het beste voor gebruiken?

Code: Selecteer alles

PAL.LockExecution;
PAL.UnlockExecution;

Thanx in advance!

Grts.

Deze zorgen er voor dat bepaalde delen van een PAL script sneller verwerkt worden.
Deze functies moeten met de nodige voorzichtigheid gebruikt worden.
Maak je daar 1 fout mee, loopt je hele pc zo vast als een muur.
Draai je alleen maar non-stop muziek en zijn er een of meerdere encoders actief als SAM draait ?

[deltaspace]

Kees,

Ik draai alleen maar non-stop.
Er is momenteel ook maar één encoder actief. Wellicht dat er in de toekomst meerdere bijkomen...

[Kees]

Hier een PAL script waarin alles zit wat je nodig hebt.
Decks en Encoders starten en stoppen op de tijd die je hebt aangegeven.
LET WEL OP !! Je clockwheel leeghalen en het PAL script automtisch laten starten als SAM eventueel herstart moet worden.

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;

while ((Now >= T['10:59:00'])) and (Now <= T['20:59:00']) and (Queue.Count < 3) do
begin
PAL.UnLockExecution;
Cat['HITs'].QueueBottom(smLRP, EnforceRules);
Cat['2000s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['90s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['90s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['HITs'].QueueBottom(smLRP, EnforceRules);
Cat['70s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['90s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2000s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['80s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['HITs'].QueueBottom(smLRP, EnforceRules);
Cat['2000s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['70s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['HITs'].QueueBottom(smLRP, EnforceRules);
Cat['90s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['80s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['80s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2000s'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['2000s'].QueueBottom(smLemmingLogic, EnforceRules);
PAL.LockExecution;
end;

while ((Now >= T['10:59:40'])) and (Now <= T['10:59:45']) do
begin
PAL.UnLockExecution;
Encoders.StartAll;
PAL.WaitForTime(T['+00:00:10']);
DeckA.Next;
DeckA.Play;
PAL.WaitForTime(T['+00:00:10']);
PAL.LockExecution;
end;

while ((Now >= T['21:00:00'])) and (Now <= T['21:00:10']) do
begin
PAL.UnLockExecution;
Encoders.StopAll;
PAL.WaitForTime(T['+00:00:10']);
DeckA.Stop;
DeckA.Eject;
DeckB.Stop;
DeckB.Eject;
Queue.Clear;
PAL.WaitForTime(T['+00:00:10']);
PAL.LockExecution;
end;
PAL.UnLockExecution;