Viariabel voor PAL.WaitForTime

Voor vragen over Playlist Automation Language.
Plaats reactie
Gebruikersavatar
Kees
Beheerder
Berichten: 3169
Lid geworden op: 28 nov 2005, 22:07
SAM-versie: 4.2.2.*
Database: MySQL
Windows: 11
Locatie: Bergen op Zoom
Contacteer:

Viariabel voor PAL.WaitForTime

Ongelezen bericht door Kees »

Ik heb in een PAL script dit commando staan

Code: Selecteer alles

PAL.WaitForTime(T['23:59:42']);
Kan dit middels een variabel automatisch gewijzigd worden ?
Ik bedoel daarmee dat van 6 t/m 26 december dit gewijzigd wordt in

Code: Selecteer alles

PAL.WaitForTime(T['23:59:32']);
En vanaf 27 december weer terug naar

Code: Selecteer alles

PAL.WaitForTime(T['23:59:42']);
Gebruikersavatar
Wout
Beheerder
Berichten: 3506
Lid geworden op: 03 dec 2007, 14:17
SAM-versie: 2019.3
Database: MariaDB
Windows: 11
Locatie: West-Brabant
Contacteer:

Re: Viariabel voor PAL.WaitForTime

Ongelezen bericht door Wout »

Zekers, kan dat. Maar anders dan een variabele. Een voorbeeld vind je hieronder.

Code: Selecteer alles

VAR Y, M, Dd : Integer ;
DecodeDate(date, Y, M, Dd) ;

//na 5 december tot en met 26 december
IF ((M = 12) AND ((Dd > 5) AND (Dd <= 26))) THEN
PAL.WaitForTime(T['23:59:32']) 			
ELSE
PAL.WaitForTime(T['23:59:42']);
 
 // hier verder met je code
Afbeelding
Gebruikersavatar
Kees
Beheerder
Berichten: 3169
Lid geworden op: 28 nov 2005, 22:07
SAM-versie: 4.2.2.*
Database: MySQL
Windows: 11
Locatie: Bergen op Zoom
Contacteer:

Re: Viariabel voor PAL.WaitForTime

Ongelezen bericht door Kees »

Dank je Wout maar helaas gaat dit niet omdat ik met een weekscript werk met het While commando.
Was vergeten er een stukje script bij te vermelden.

Code: Selecteer alles

// Zondag 02:00 uur
while DayOfWeek(Now) = Sunday and ((Now >= T['01:59:15']) and (Now <= T['01:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['01:59:42']);
Cat['02 uur'].QueueCat(ipTop);
ActivePlayer.FadeTonext;
Queue.Clear;
Queue.AddFile('K:\SAM AUDIO\uurwissel\nos nieuws\nieuws.wav',ipBottom);
Cat['extra nieuws'].QueueCat(ipBottom);
Cat['Giro 555'].QueueBottom(smLRP,NoRules);
Cat['Uuropener'].QueueCat(ipBottom);
Cat['zo-02'].QueueCat(ipBottom);
Cat['playlist zo-02'].QueueCat(ipBottom);
PAL.LockExecution;
end;
De kerstuursluiter

Code: Selecteer alles

Cat['02 uur'].QueueCat(ipTop);
duurt 10 seconde langer.
Misschien dat je hier meer mee kan.
Ik kom er niet aan uit.
Bedankt.
Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht