Krijg script niet werkend

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:

Krijg script niet werkend

Ongelezen bericht door dezwijger » 27 dec 2017, 23:00

Ik probeer een categorie ( met 3 tracks ) in een categorie af te spelen met een pal script
blijkbaar doe ik wat niet juist

Code: Selecteer alles

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:09:00']) and (Now <= T['01:09:05'])) or
      ((Now >= T['02:09:00']) and (Now <= T['02:09:05'])) or
      ((Now >= T['03:09:00']) and (Now <= T['03:09:05'])) or
      ((Now >= T['04:09:00']) and (Now <= T['04:09:05'])) or
      ((Now >= T['05:09:00']) and (Now <= T['05:09:05'])) or
      ((Now >= T['06:09:00']) and (Now <= T['06:09:05'])) or
      ((Now >= T['07:09:00']) and (Now <= T['07:09:05'])) or
      ((Now >= T['08:09:00']) and (Now <= T['08:09:05'])) or
      ((Now >= T['09:09:00']) and (Now <= T['09:09:05'])) or
      ((Now >= T['12:09:00']) and (Now <= T['12:09:05'])) or
      ((Now >= T['13:09:00']) and (Now <= T['13:09:05'])) or
      ((Now >= T['14:09:00']) and (Now <= T['14:09:05'])) or
      ((Now >= T['15:09:00']) and (Now <= T['15:09:05'])) or
      ((Now >= T['16:09:00']) and (Now <= T['16:09:05'])) or
      ((Now >= T['17:09:00']) and (Now <= T['17:09:05'])) or
      ((Now >= T['18:09:00']) and (Now <= T['18:09:05'])) or
      ((Now >= T['19:09:00']) and (Now <= T['19:09:05'])) or
      ((Now >= T['20:09:00']) and (Now <= T['20:09:05'])) or
      ((Now >= T['21:09:00']) and (Now <= T['21:09:05'])) or
      ((Now >= T['22:09:00']) and (Now <= T['22:09:05'])) or
      ((Now >= T['23:09:00']) and (Now <= T['23:09:05'])) or
      ((Now >= T['00:09:00']) and (Now <= T['00:09:05'])) do
         BEGIN
            PAL.UnLockExecution; // Slow-down
            WriteLn('Huidig uur: '+ IntToStr(uur+0));
            Cat['Klapper'].QueueTop(smLRP, NoRules);
            WriteLn('klapper toegevoegd!');
            PAL.WaitForTime('+00:00:05'); // 5 seconden wachten (pas aan naar wens)
            
            PAL.LockExecution; // Speed-up !

aangepast door de   zwijger

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


Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Krijg script niet werkend

Ongelezen bericht door drOhimself » 28 dec 2017, 17:17

Volgens mij mist er nog iets, onderaan je script.
Je hebt wel "BEGIN" staan, maar ik mis dan in elk geval "END".
Dus even heel goed kijken naar het originele script.

Daarna kijken wat SAM aangeeft in welke regel de fout zit.
Groedjez,
drO

Gebruikersavatar
dezwijger
*
Berichten: 18
Lid geworden op: 29 apr 2017, 13:43
SAM-versie: 3.3.2.
Database: MariaDB
Windows: Windows 10
Contacteer:

Re: Krijg script niet werkend

Ongelezen bericht door dezwijger » 29 dec 2017, 09:17

dank je wel drO

1 regel vergeten END;
weer een les
script loopt nu prima

groet de zwijger

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


Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Krijg script niet werkend

Ongelezen bericht door drOhimself » 29 dec 2017, 13:05

Okay mooi !
Goed dat het weer loopt.
Groedjez,
drO

Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht