Elk uur dezelfde plaat maar alleen tussen bepaalde tijden **

[wannaplay]

Ik hoop dat iemand mij kan helpen met een klein probleempje.
Ik heb al flink gezocht maar kan hier geen antwoord op vinden.

Mijn weekpal loopt prima en doet wat die moet doen.

Nu heb ik een losee PAL van een "plaat van de week" en een jingle ervoor, ook dit werkt allemaal prima, elk uur om half draait hij beide zoals ik wil.
Echter wil ik dit script alleen tussen 6.00 en 18.00 laten draaien aangezien we in de avond thema's draaien waar de plaat vaak niet tussen past.

De oplossing is waarschijnlijk heel simpel maar, hoe kan ik dit doen?
Wat ik nu heb is dit.

PAL.Loop := True;
PAL.WaitForTime(T['xx:29:50']);
Queue.AddURL['C:\Jingles\releaseoftheweek.mp3',ipTop);
Queue.AddURL['C:\Jingles\releaseoftheweekjingle.mp3',ipTop);

[pergo]

//PAL.Loop := True;
PAL.WaitForTime(T['xx:29:50']);
Queue.AddURL['C:\Jingles\releaseoftheweek.mp3',ipTop);
Queue.AddURL['C:\Jingles\releaseoftheweekjingle.mp3',ipTop);

en dan via event scheduler starten op de tijden dat je hem wil hebben.

[wannaplay]

Ik gebruik de event scheduler zelf helemaal niet.
Is er geen makkelijke manier om alleen met het PAL script te blijven werken?

[drOhimself]

In een PAL script zal je dan alle dagen/tijden erin moeten zetten.
Wel te doen, maar is niet makkelijker.
Zoals Pergo aangeeft is dan een event scheduler simpeler, met aangegeven regels script.

[wannaplay]

Ik heb al naar de event scheduler gekeken, maar heb dan echt geen idee hoe ik dat in moet stellen, en dat moet dan waarschijnlijk ook per dag van 6.00 - 18.00?

[drOhimself]

Je zal een dagelijks recurring event moeten aanmaken.
En dan op ieder tijdstip dat je het wilt draaien.
Zorg wel dat je dus die eerste regel (PAL.Loop := True;) eruit hebt, want anders blijft het de hele dag werken....
Dit betekend dat je dus voor ieder uur ( van 6.00 - 18.00) even op het plusje moet drukje.
Wel wat werk, maar is eenmalig.

[Gerrit]

Daar heb ik, denk ik, wel een mooi Palletje voor, die gebruiken wij ook voor RegioNieuws ed.

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExeCution;

var DStart, DEnd : DateTime;
DStart := EncodeDate(2010,12,27);
DEnd := EncodeDate(2020,12,31);
while (Now >= T['06:00:00']) and (Now <= T['18:00:00']) do
begin

PAL.UnLockExecution;

PAL.WaitForTime(T['xx:29:00']);
Queue.AddFile('C:\Verkeer\verkeeranwbnl.mp3',ipTop);
Cat['Postbus 51'].QueueTop(smRandom, NoRules);

PAL.LockExecution;
end;
While (Now>DEnd) do
begin
PAL.UnLockExecution;
PAL.Loop:=False;
PAL.LockExecution;
end;
PAL.UnLockExecution;

Wel even aanpassen hè !

Suc6,

Gerrit.

[drOhimself]

Geweldig, met deze PAL van Gerrit kan het ook, zonder de event scheduler te gebruiken.

[wannaplay]

Super! hier ben ik erg blij mee.
bedankt voor alle en vooral snelle hulp!

Gerrit bedankt voor de PAL, ik ga hem vanaf morgen proberen maar het zal vast en zeker zijn werk doen.

[wannaplay]

Inmiddels de grote dag haha, maar het script werkt perfect!

[drOhimself]

Mooi, dan kan er een slotje op...!