Hoe dit script aan te passen

Voor vragen over Playlist Automation Language.
Plaats reactie
dezwijger

Hoe dit script aan te passen

Ongelezen bericht door dezwijger »

loop ergens vast in
ik heb al veel getest en kwam hier op uit

Code: Selecteer alles

PAL.WaitForTime(T['XX:00:03']) ;


Queue.AddFile ('C:\willem de zwijger - INTRO.mp3',ipTop);
ActivePlayer.FadeToNext;
dit script werkt prima
maar is nog niet naar mijn wens
dit script speelt de intro 24 keer op een dag af
en ik wil graag dat het script
om 09:00:03 wel afspeelt
maar om 10:00:03 en 11:00: 03 niet

nu bedenk ik me een logica

PAL.WaitForTime(T['XX:00:03']) ( en waar de XX staan ) de tijden invullen

de logica is dat ik 22 maal regels moet maken

PAL.WaitForTime(T['XX:00:03']) ( waar de XX staan 01 02 03 enz invul )
is dat verkeerd gedacht

groet de zwijger :D :D :D
Omhoog
drOhimself

Re: Hoe dit script aan te passen

Ongelezen bericht door drOhimself »

Klopt helemaal !
Omhoog
dezwijger

Re: Hoe dit script aan te passen

Ongelezen bericht door dezwijger »

zo is het script geworden

Code: Selecteer alles

PAL.Loop := True ;
Queue.AddFile ('C:\willem de zwijger - INTRO.mp3',ipTop);
ActivePlayer.FadeToNext;
PAL.WaitForTime(T['01:00:03']) ;
PAL.WaitForTime(T['02:00:03']) ;
PAL.WaitForTime(T['03:00:03']) ;
PAL.WaitForTime(T['04:00:03']) ;
PAL.WaitForTime(T['05:00:03']) ;
PAL.WaitForTime(T['06:00:03']) ;
PAL.WaitForTime(T['07:00:03']) ;
PAL.WaitForTime(T['09:00:03']) ;
PAL.WaitForTime(T['12:00:03']) ;
PAL.WaitForTime(T['13:00:03']) ;
PAL.WaitForTime(T['14:00:03']) ;
PAL.WaitForTime(T['15:00:03']) ;
PAL.WaitForTime(T['16:00:03']) ;
PAL.WaitForTime(T['17:00:03']) ;
PAL.WaitForTime(T['18:00:03']) ;
PAL.WaitForTime(T['19:00:03']) ;
PAL.WaitForTime(T['20:00:03']) ;
PAL.WaitForTime(T['21:00:03']) ;
PAL.WaitForTime(T['22:00:03']) ;
PAL.WaitForTime(T['23:00:03']) ;
PAL.WaitForTime(T['00:00:03']) ;
nu testen :D :D :D
Omhoog
dezwijger

Re: Hoe dit script aan te passen

Ongelezen bericht door dezwijger »

waarom werkt dit script niet
wat doe ik verkeerd

Code: Selecteer alles

PAL.Loop := True ;
PAL.WaitForTime(T['01:00:03']) ;
PAL.WaitForTime(T['02:00:03']) ;
PAL.WaitForTime(T['03:00:03']) ;
PAL.WaitForTime(T['04:00:03']) ;
PAL.WaitForTime(T['05:00:03']) ;
PAL.WaitForTime(T['06:00:03']) ;
PAL.WaitForTime(T['07:00:03']) ;
PAL.WaitForTime(T['09:00:03']) ;
PAL.WaitForTime(T['12:00:03']) ;
PAL.WaitForTime(T['13:00:03']) ;
PAL.WaitForTime(T['14:00:03']) ;
PAL.WaitForTime(T['15:00:03']) ;
PAL.WaitForTime(T['16:00:03']) ;
PAL.WaitForTime(T['17:00:03']) ;
PAL.WaitForTime(T['18:00:03']) ;
PAL.WaitForTime(T['19:00:03']) ;
PAL.WaitForTime(T['20:00:03']) ;
PAL.WaitForTime(T['21:00:03']) ;
PAL.WaitForTime(T['22:00:03']) ;
PAL.WaitForTime(T['23:00:03']) ;
PAL.WaitForTime(T['00:00:03']) ;
Queue.AddFile ('C:\willem de zwijger - INTRO.mp3',ipTop);
ActivePlayer.FadeToNext;
Omhoog
drOhimself

Re: Hoe dit script aan te passen

Ongelezen bericht door drOhimself »

Het script doet precies wat je invoert.
Afhankelijk van de tijd wanneer jij het script start, zeg om 11:45, dan begint het script te kijken naar de eerste regel en wacht totdat het 01:00:03 gaat worden.
Echter, PALscripts lopen van 00:00:00 tot aan 23:59:59, dus echt een hele dag van begin tot eind.
Dus jouw manier is op zich wel goed, alleen moet je dus rekening houden met de 'de start tijd' van het script.
Je zult dus niet direct moeten zeggen : wacht op tijd xxx, maar je zult moeten testen hoe laat het <NU> is.
Je zult een conditie moeten opnemen in je script :
Indien het <NU> 01:00:03 is, doe dan <DIT>
Indien het <NU> 02:00:03 is, doe dan <DAT>
Indien het <NU> 03:00:03 is, doe dan <ZUS>
Indien het <NU> 04:00:03 is, doe dan <ZO>

Daar is gelukkig in PAL een mooi commando voor : WHILE

Ik had al een mooi voorbeeldje gevonden en zal die zo even aanpassen voor je, dan kun je zien wat we bedoelen !
Omhoog
drOhimself

Re: Hoe dit script aan te passen

Ongelezen bericht door drOhimself »

Test deze eens even Willem !

Code: Selecteer alles

// Speel nummer af op diverse ingestelde tijden
// 
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:00:00']) and (Now <= T['01:00:05'])) or
		((Now >= T['10:00:00']) and (Now <= T['10:00:05'])) or
		((Now >= T['12:00:00']) and (Now <= T['12:00:05'])) or
		((Now >= T['14:00:00']) and (Now <= T['14:00:05'])) or
		((Now >= T['16:00:00']) and (Now <= T['16:00:05'])) or
		((Now >= T['18:00:00']) and (Now <= T['18:00:05']))	do
			BEGIN
				PAL.UnLockExecution; // Slow-down
				WriteLn('Huidig uur: '+ IntToStr(uur+0));
				Queue.AddFile('C:\willem de zwijger - INTRO.mp3',ipTop);
				WriteLn('INTRO toegevoegd!');
				PAL.WaitForTime('+00:00:05'); // 5 seconden wachten (pas aan naar wens)
				ActivePlayer.FadeToNext; // speelt het volgende nummer uit de Queue
				PAL.LockExecution; // Speed-up !
			END
	WriteLn('we gaan weer verder !');
//
// © drO for BroadcasterForum 2017-07-16
Omhoog
dezwijger

Re: Hoe dit script aan te passen

Ongelezen bericht door dezwijger »

geeft een error

Compiler errors ( weet nog niet wat deze error betekend


http://s953.photobucket.com/user/CFNL_Forumup/media/Knipsel_zpsabqmt9sy.png.html

Code: Selecteer alles

// Speel nummer af op diverse ingestelde tijden
// 
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:00:00']) and (Now <= T['01:00:05'])) or
      ((Now >= T['02:00:00']) and (Now <= T['02:00:05'])) or
      ((Now >= T['03:00:00']) and (Now <= T['03:00:05'])) or
      ((Now >= T['05:00:00']) and (Now <= T['05:00:05'])) or
      ((Now >= T['06:00:00']) and (Now <= T['06:00:05'])) or
      ((Now >= T['07:00:00']) and (Now <= T['07:00:05'])) or
      ((Now >= T['08:00:00']) and (Now <= T['08:00:05'])) or
      ((Now >= T['09:00:00']) and (Now <= T['09:00:05'])) or
      ((Now >= T['12:00:00']) and (Now <= T['12:00:05'])) or
      ((Now >= T['13:00:00']) and (Now <= T['13:00:05'])) or
      ((Now >= T['14:00:00']) and (Now <= T['14:00:05'])) or
      ((Now >= T['15:00:00']) and (Now <= T['15:00:05'])) or
      ((Now >= T['16:00:00']) and (Now <= T['16:00:05'])) or
      ((Now >= T['17:00:00']) and (Now <= T['17:00:05'])) or
      ((Now >= T['18:00:00']) and (Now <= T['18:00:05'])) or
      ((Now >= T['19:00:00']) and (Now <= T['19:00:05'])) or
      ((Now >= T['20:00:00']) and (Now <= T['20:00:05'])) or
      ((Now >= T['21:00:00']) and (Now <= T['21:00:05'])) or
      ((Now >= T['22:00:00']) and (Now <= T['22:00:05'])) or
      ((Now >= T['23:00:00']) and (Now <= T['23:00:05'])) or
      ((Now >= T['00:00:00']) and (Now <= T['00:00:05'])) do
      
         BEGIN
            PAL.UnLockExecution; // Slow-down
            WriteLn('Huidig uur: '+ IntToStr(uur+0));
            Queue.AddFile('C:\willem de zwijger - INTRO.mp3',ipTop);
            WriteLn('INTRO toegevoegd!');
            PAL.WaitForTime('+00:00:05'); // 5 seconden wachten (pas aan naar wens)
            ActivePlayer.FadeToNext; // speelt het volgende nummer uit de Queue
            PAL.LockExecution; // Speed-up !
         END
   WriteLn('we gaan weer verder !');
//
// © drO for BroadcasterForum 2017-07-16
Omhoog
drOhimself

Re: Hoe dit script aan te passen

Ongelezen bericht door drOhimself »

Graag fout melding hier even plaatsen.
Plaatje kan ook hier.

Edit : ik zie het al in het script ben ik een '; ' vergeten.

Hieronder nogmaals het aangepaste script :

Code: Selecteer alles

// Speel nummer af op diverse ingestelde tijden
// 
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:00:00']) and (Now <= T['01:00:05'])) or
      ((Now >= T['02:00:00']) and (Now <= T['02:00:05'])) or
      ((Now >= T['03:00:00']) and (Now <= T['03:00:05'])) or
      ((Now >= T['05:00:00']) and (Now <= T['05:00:05'])) or
      ((Now >= T['06:00:00']) and (Now <= T['06:00:05'])) or
      ((Now >= T['07:00:00']) and (Now <= T['07:00:05'])) or
      ((Now >= T['08:00:00']) and (Now <= T['08:00:05'])) or
      ((Now >= T['09:00:00']) and (Now <= T['09:00:05'])) or
      ((Now >= T['12:00:00']) and (Now <= T['12:00:05'])) or
      ((Now >= T['13:00:00']) and (Now <= T['13:00:05'])) or
      ((Now >= T['14:00:00']) and (Now <= T['14:00:05'])) or
      ((Now >= T['15:00:00']) and (Now <= T['15:00:05'])) or
      ((Now >= T['16:00:00']) and (Now <= T['16:00:05'])) or
      ((Now >= T['17:00:00']) and (Now <= T['17:00:05'])) or
      ((Now >= T['18:00:00']) and (Now <= T['18:00:05'])) or
      ((Now >= T['19:00:00']) and (Now <= T['19:00:05'])) or
      ((Now >= T['20:00:00']) and (Now <= T['20:00:05'])) or
      ((Now >= T['21:00:00']) and (Now <= T['21:00:05'])) or
      ((Now >= T['22:00:00']) and (Now <= T['22:00:05'])) or
      ((Now >= T['23:00:00']) and (Now <= T['23:00:05'])) or
      ((Now >= T['00:00:00']) and (Now <= T['00:00:05'])) do
         BEGIN
            PAL.UnLockExecution; // Slow-down
            WriteLn('Huidig uur: '+ IntToStr(uur+0));
            Queue.AddFile('C:\willem de zwijger - INTRO.mp3',ipTop);
            WriteLn('INTRO toegevoegd!');
            PAL.WaitForTime('+00:00:05'); // 5 seconden wachten (pas aan naar wens)
            ActivePlayer.FadeToNext; // speelt het volgende nummer uit de Queue
            PAL.LockExecution; // Speed-up !
         END;
//  WriteLn('we gaan weer verder !');
//
// © drO for BroadcasterForum 2017-07-16
Omhoog
dezwijger

Re: Hoe dit script aan te passen

Ongelezen bericht door dezwijger »

yes voor auto start [ intro.PAL ] en dan compiler errors


open ik waar compile staatn

systax Error expression expected [line 33 columm 10}
Omhoog
drOhimself

Re: Hoe dit script aan te passen

Ongelezen bericht door drOhimself »

Check even mijn laatste script Willem.
Volgens mij geen fout meer nu.
Omhoog
dezwijger

Re: Hoe dit script aan te passen

Ongelezen bericht door dezwijger »

ik zal het testen
na het live draaien
zal morgen worden vrees ik
Omhoog
dezwijger

Re: Hoe dit script aan te passen

Ongelezen bericht door dezwijger »

drOhimself

het script werkt nu :) :) :) :)
maar de echte test is morgen tussen 10 en 12

op 9:59:30 start een script van een live show van uit spanje :D :D

ik wil even kijken of deze elkaar nu niet gaan bijten :( :( :(

groet de zwijger
Omhoog
dezwijger

Re: Hoe dit script aan te passen

Ongelezen bericht door dezwijger »

drOhimself

het script werkte prima
alleen gaf om 14 uur de mysql het op
en ik moest de gehele pc opnieuw installeren
en dan ook weer updaten
sam en de data base er op ( data base laden )
en de sam inregelen ( enncoders en agc mic en dergelijke )

maar alle scripts waren goed

bedankt
de zwijger
Omhoog
drOhimself

Re: Hoe dit script aan te passen

Ongelezen bericht door drOhimself »

Had dat iets met het script te maken of had dat een andere oorzaak?


Verzonden vanaf mijn iPhone met Tapatalk
Omhoog
dezwijger

Re: Hoe dit script aan te passen

Ongelezen bericht door dezwijger »

dat de vastliep had niets met het script te maken
maar ik heb nu wel een andere vraag

Code: Selecteer alles

 // Speel nummer af op diverse ingestelde tijden
// 
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:12:00']) and (Now <= T['01:12:05'])) or
      ((Now >= T['02:12:00']) and (Now <= T['02:12:05'])) or
      ((Now >= T['03:12:00']) and (Now <= T['03:12:05'])) or
      ((Now >= T['04:12:00']) and (Now <= T['04:12:05'])) or
      ((Now >= T['05:12:00']) and (Now <= T['05:12:05'])) or
      ((Now >= T['06:12:00']) and (Now <= T['06:12:05'])) or
      ((Now >= T['07:12:00']) and (Now <= T['07:12:05'])) or
      ((Now >= T['08:12:00']) and (Now <= T['08:12:05'])) or
      ((Now >= T['09:12:00']) and (Now <= T['09:12:05'])) or
      ((Now >= T['12:12:00']) and (Now <= T['12:12:05'])) or
      ((Now >= T['13:12:00']) and (Now <= T['13:12:05'])) or
      ((Now >= T['14:12:00']) and (Now <= T['14:12:05'])) or
      ((Now >= T['15:12:00']) and (Now <= T['15:12:05'])) or
      ((Now >= T['16:12:00']) and (Now <= T['16:12:05'])) or
      ((Now >= T['17:12:00']) and (Now <= T['17:12:05'])) or
      ((Now >= T['18:12:00']) and (Now <= T['18:12:05'])) or
      ((Now >= T['19:12:00']) and (Now <= T['19:12:05'])) or
      ((Now >= T['20:12:00']) and (Now <= T['20:12:05'])) or
      ((Now >= T['21:12:00']) and (Now <= T['21:12:05'])) or
      ((Now >= T['22:12:00']) and (Now <= T['22:12:05'])) or
      ((Now >= T['23:12:00']) and (Now <= T['23:12:05'])) or
      ((Now >= T['00:12:00']) and (Now <= T['00:12:05'])) do
         BEGIN
            PAL.UnLockExecution; // Slow-down
            WriteLn('Huidig uur: '+ IntToStr(uur+0));
            Queue.AddFile('C:\willem de zwijger - INTRO.mp3',ipTop);
            WriteLn('INTRO toegevoegd!');
            PAL.WaitForTime('+00:00:05'); // 5 seconden wachten (pas aan naar wens)
            ActivePlayer.FadeToNext; // speelt het volgende nummer uit de Queue
            PAL.LockExecution; // Speed-up !
         END;
//  WriteLn('we gaan weer verder !');
//
// © drOhimself for BroadcasterForum 2017-07-16
voor de intro en einde van de uitzending gaat dit script prima ((( ActivePlayer.FadeToNext; )))
maar voor de jingles werkt het
halverwege van de song fade de song uit
het is de bedoeling dat de jingle boven aan in de queue komt te staan en niet gaat faden

deze regel haal ik weg

ActivePlayer.FadeToNext; // speelt het volgende nummer uit de Queue
Omhoog
drOhimself

Re: Hoe dit script aan te passen

Ongelezen bericht door drOhimself »

Er staat nog iets fout in je script, namelijk dat je begint met 01:12:00 en eindigd met 00:12:00 :

Code: Selecteer alles

.......
while ((Now >= T['01:12:00']) and (Now <= T['01:12:05'])) or
      ((Now >= T['02:12:00']) and (Now <= T['02:12:05'])) or
      ((Now >= T['03:12:00']) and (Now <= T['03:12:05'])) or
      ((Now >= T['04:12:00']) and (Now <= T['04:12:05'])) or
      ((Now >= T['05:12:00']) and (Now <= T['05:12:05'])) or
      ((Now >= T['06:12:00']) and (Now <= T['06:12:05'])) or
      ((Now >= T['07:12:00']) and (Now <= T['07:12:05'])) or
      ((Now >= T['08:12:00']) and (Now <= T['08:12:05'])) or
      ((Now >= T['09:12:00']) and (Now <= T['09:12:05'])) or
      ((Now >= T['12:12:00']) and (Now <= T['12:12:05'])) or
      ((Now >= T['13:12:00']) and (Now <= T['13:12:05'])) or
      ((Now >= T['14:12:00']) and (Now <= T['14:12:05'])) or
      ((Now >= T['15:12:00']) and (Now <= T['15:12:05'])) or
      ((Now >= T['16:12:00']) and (Now <= T['16:12:05'])) or
      ((Now >= T['17:12:00']) and (Now <= T['17:12:05'])) or
      ((Now >= T['18:12:00']) and (Now <= T['18:12:05'])) or
      ((Now >= T['19:12:00']) and (Now <= T['19:12:05'])) or
      ((Now >= T['20:12:00']) and (Now <= T['20:12:05'])) or
      ((Now >= T['21:12:00']) and (Now <= T['21:12:05'])) or
      ((Now >= T['22:12:00']) and (Now <= T['22:12:05'])) or
      ((Now >= T['23:12:00']) and (Now <= T['23:12:05'])) or
      ((Now >= T['00:12:00']) and (Now <= T['00:12:05'])) do
......
Dat moet je volgens mij aanpassen naar :

Code: Selecteer alles

.......
while ((Now >= T['00:12:00']) and (Now <= T['00:12:05'])) or
      ((Now >= T['01:12:00']) and (Now <= T['01:12:05'])) or
      ((Now >= T['02:12:00']) and (Now <= T['02:12:05'])) or
      ((Now >= T['03:12:00']) and (Now <= T['03:12:05'])) or
      ((Now >= T['04:12:00']) and (Now <= T['04:12:05'])) or
      ((Now >= T['05:12:00']) and (Now <= T['05:12:05'])) or
      ((Now >= T['06:12:00']) and (Now <= T['06:12:05'])) or
      ((Now >= T['07:12:00']) and (Now <= T['07:12:05'])) or
      ((Now >= T['08:12:00']) and (Now <= T['08:12:05'])) or
      ((Now >= T['09:12:00']) and (Now <= T['09:12:05'])) or
      ((Now >= T['12:12:00']) and (Now <= T['12:12:05'])) or
      ((Now >= T['13:12:00']) and (Now <= T['13:12:05'])) or
      ((Now >= T['14:12:00']) and (Now <= T['14:12:05'])) or
      ((Now >= T['15:12:00']) and (Now <= T['15:12:05'])) or
      ((Now >= T['16:12:00']) and (Now <= T['16:12:05'])) or
      ((Now >= T['17:12:00']) and (Now <= T['17:12:05'])) or
      ((Now >= T['18:12:00']) and (Now <= T['18:12:05'])) or
      ((Now >= T['19:12:00']) and (Now <= T['19:12:05'])) or
      ((Now >= T['20:12:00']) and (Now <= T['20:12:05'])) or
      ((Now >= T['21:12:00']) and (Now <= T['21:12:05'])) or
      ((Now >= T['22:12:00']) and (Now <= T['22:12:05'])) or
      ((Now >= T['23:12:00']) and (Now <= T['23:12:05'])) do
......
het is de bedoeling dat de jingle boven aan in de queue komt te staan en niet gaat faden
Dan zal je inderdaad deze regel eruit moeten halen :
ActivePlayer.FadeToNext; // speelt het volgende nummer uit de Queue

Maar wat is je vraag nu eigenlijk ?

Verzonden vanaf mijn iPhone met Tapatalk
Omhoog
Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht

Terug naar “PAL”