werkend script heeft last van playrules

Voor vragen over Playlist Automation Language.
Plaats reactie
Gebruikersavatar
dezwijger
*
Berichten: 18
Lid geworden op: 29 apr 2017, 13:43
SAM-versie: 3.3.2.
Database: MariaDB
Windows: Windows 10
Contacteer:

werkend script heeft last van playrules

Ongelezen bericht door dezwijger » 03 jan 2018, 20:37

Code: Selecteer alles

v
PAL.Loop := True ;
var uur : String ;
uur := FormatDateTime('hh', Now) ;
PAL.LockExecution; // Speed-up !
PAL.WaitForTime('+00:00:05'); // na start 5 seconden wachten
//  Kijk of het aan tijd voorwaardes voldoet
//   Copieer de regels en wijzig de tijden naar believen, maar zorg dat er niet meer dan 5 seconden tussenzit
   while ((Now >= T['01:32:00']) and (Now <= T['01:32:05'])) or
      ((Now >= T['02:32:00']) and (Now <= T['02:32:05'])) or
      ((Now >= T['03:32:00']) and (Now <= T['03:32:05'])) or
      ((Now >= T['04:32:00']) and (Now <= T['04:32:05'])) or
      ((Now >= T['05:32:00']) and (Now <= T['05:32:05'])) or
      ((Now >= T['06:32:00']) and (Now <= T['06:32:05'])) or
      ((Now >= T['07:32:00']) and (Now <= T['07:32:05'])) or
      ((Now >= T['08:32:00']) and (Now <= T['08:32:05'])) or
      ((Now >= T['09:32:00']) and (Now <= T['09:32:05'])) or
      ((Now >= T['12:32:00']) and (Now <= T['12:32:05'])) or
      ((Now >= T['13:32:00']) and (Now <= T['13:32:05'])) or
      ((Now >= T['14:32:00']) and (Now <= T['14:32:05'])) or
      ((Now >= T['15:32:00']) and (Now <= T['15:32:05'])) or
      ((Now >= T['16:32:00']) and (Now <= T['16:32:05'])) or
      ((Now >= T['17:32:00']) and (Now <= T['17:32:05'])) or
      ((Now >= T['18:32:00']) and (Now <= T['18:32:05'])) or
      ((Now >= T['19:32:00']) and (Now <= T['19:32:05'])) or
      ((Now >= T['20:32:00']) and (Now <= T['20:32:05'])) or
      ((Now >= T['21:32:00']) and (Now <= T['21:32:05'])) or
      ((Now >= T['22:32:00']) and (Now <= T['22:32:05'])) or
      ((Now >= T['23:32:00']) and (Now <= T['23:32:05'])) or
      ((Now >= T['00:32:00']) and (Now <= T['00:32:05'])) do
         BEGIN
            PAL.UnLockExecution; // Slow-down
            WriteLn('Huidig uur: '+ IntToStr(uur+0));
            Queue.AddFile('C:\0001\Jingle - wij hebben het lef om deze muziek te draaien.mp3',ipTop);
            WriteLn('INTRO toegevoegd!');
            PAL.WaitForTime('+00:00:05'); // 5 seconden wachten (pas aan naar wens)
            
            PAL.LockExecution; // Speed-up !
         END;
Goede dag
het script loopt prima
naar door dat er ( Playlist rules ) gaat de jingle maar 1 per 4 uur [smilie=wink3.gif]

is dat met iets in het script op te lossen

Motto
Een probleem is geen probleem,
het is een uitdaging
soms zijn de uitdagingen groter :D


Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht