Probleem bij meerdere starttijdstippen in een uur.

Voor vragen over Playlist Automation Language.
Gesloten
Gebruikersavatar
RVD501
**
Berichten: 28
Lid geworden op: 10 jul 2012, 10:35
SAM-versie: SAM 2019.1
Database: MS SQL
Windows: 7 64-bits
Contacteer:

Probleem bij meerdere starttijdstippen in een uur.

Ongelezen bericht door RVD501 » 10 okt 2017, 00:37

Ik probeer diverse scripts samen te voegen in één weekloper script. De verschillende acties maken gebruik van verschillende starttijden:
Hieronder een klein stukje van die weekloper. Ik denk dat ik iets verkeerd doe in de syntax .
Tijdens de compile komen er geen fouten naar voren. Ik kom er niet achter wat ik fout doe.

Heeft iemand een suggestie?


Pal.Loop:=True;

Pal.LockExecution;


/ DINSDAG 01:00u
while DayOfWeek(Now) = Tuesday and (Now >= T['00:00:01']) and (Now <= T['00:59:59']) do

begin
PAL.WaitForTime(T['01:00:00']);
Queue.AddFile('C:\WNC Nieuws\JINGLES\Dit is RRadio501 woosh in.wav',IpTop);
ActivePlayer.FadeTonext;
Queue.Clear;
Queue.Addfile('C:\WNC Nieuws\tijd\01.mp3',ipBottom);
Queue.AddFile('C:\WNC Nieuws\RTV-loader\501-nieuws\501Nieuws-2016.mp3',IpBottom);
Queue.AddFile('D:\Reclame\Reclame Jingles\Tussen Jingle Reclame\Radiospots - Tussenjingle Reclame - Radiospots Jingles - Y2016 - Jingle.mp3',IpBottom);
Cat['NStop-Reclame'].QueueBottom(smLRP, NoRules);
Queue.AddFile('D:\Reclame\Reclame Jingles\Tussen Jingle Reclame\Radiospots - Tussenjingle Reclame - Radiospots Jingles - Y2016 - Jingle.mp3',IpBottom);
Cat['NStop-Ideële-Reclame'].QueueBottom(smLRP, NoRules);
Queue.AddFile('D:\Reclame\Reclame Jingles\Eind Jingle Reclame\Radiospots - Eindjingle Reclame - Radiospots Jingles - Y2016 - Jingle.mp3',IpBottom);
Cat['NStop-NONSTOP Opener'].QueueBottom(smLRP, NoRules);
end;
//
// ----------------------------------------------------
// NStop-HITS + Programma Promo (XX:13u)
while DayOfWeek(Now) = Tuesday and (Now >= T['01:00:01']) and (Now <= T['01:59:59']) do
begin
PAL.WaitForTime(T['xx:13:00']); <<==== deze voert hij uit, maar hij blijft dan wel staan tot het volgende uur
Cat['NStop - Hits'].QueueTop(smLRP, NoRules);
Cat['NStop-Programma Promo'].QueueBottom(smLRP, EnforceRules);
end;
// ----------------------------------------------------
// PVJH (XX:20u)
while DayOfWeek(Now) = Tuesday and (Now >= T['01:00:01']) and (Now <= T['01:59:59']) do
begin
PAL.WaitForTime(T['xx:20:00']); <<==== script zkt niet verder naar deze toe
Cat['NStop-PVJH'].QueueBottom(smRandom, NoRules);
end;
// ---------------------------------------------------
while DayOfWeek(Now) = Tuesday and (Now >= T['01:00:01']) and (Now <= T['01:59:59']) do
begin
PAL.WaitForTime(T['xx:28:00']);
Queue.AddFile('C:\WNC Nieuws\ANWB\verkeeranwbnl.mp3',ipBottom);
end;
// ---------------------------------------------------
// NIEUWE MUZIEK (XX:35u)
while DayOfWeek(Now) = Tuesday and (Now >= T['01:00:01']) and (Now <= T['01:59:59']) do
begin
PAL.WaitForTime(T['xx:35:00']);
Cat['N-Stop Nwe Muziek vanaf Vrijdag'].QueueTop(smLRP, NoRules);
Queue.AddFile('D:\___JINGLES-501\Jingles2015\501-Algemeen\501 pro + Nieuwe Muziek JINGLE.mp3',ipTop);
end;
// ---------------------------------------------------
// NStop-HITS (XX:43u)
while DayOfWeek(Now) = Tuesday and (Now >= T['01:00:01']) and (Now <= T['01:59:59']) do
begin
PAL.WaitForTime(T['xx:43:00']);
Cat['NStop - Hits'].QueueTop(smLRP, NoRules);
end;
// ---------------------------------------------------


// DINSDAG 02:00u
while DayOfWeek(Now) = Tuesday and (Now >= T['01:00:01']) and (Now <= T['01:59:59']) do

begin
PAL.WaitForTime(T['02:00:00']);
Groet,
Rogier van Diesfeldt, Radio501

Gesloten
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht