PAL KIJKT NIET NAAR JUISTE TIJD

Voor vragen over Playlist Automation Language.
Plaats reactie
Gebruikersavatar
henkieturbo
*
Berichten: 14
Lid geworden op: 30 dec 2007, 11:41

PAL KIJKT NIET NAAR JUISTE TIJD

Ongelezen bericht door henkieturbo »

Hallo Allemaal,

Ik heb een vraag mbt een PAL schript met verschillende tijdstippen

Als ik het script start wacht hij op de eerste tijd in het script
Wat ik graag wil is dat hij direct gaat naar het gedeelte van de eerstvolgende tijd zonder dat hij de voorgaande acties uitvoert
Ik heb al pogingen gewaagd met het kijken naar tijdstippen (now=) maar kom er niet echt uit

Wie o Wie
Alvast bedankt Henkie
Je hebt niet voldoende permissies om de bijlagen van dit bericht te bekijken.
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: PAL KIJKT NIET NAAR JUISTE TIJD

Ongelezen bericht door drOhimself »

Henkie,

Ik heb je PAL gelezen, maar begrijp er echt nix van.
Wat wil je nu precies ?

Als ik het goed lees, probeer je muziek in de queue te zetten, maar wel op een bijzonder onhandige manier.
Waarom wil je zo star aan die tijden vast houden ?
Ik zie de volgende tijden staan : xx:05:00, xx:08:00, xx:12:00, xx:15:00, xx:17:00
Dan weer : xx:28:00, xx:29:00, xx:32:00,
Dan weer : xx:41:00, xx:45:00, xx:52:00, xx:53:00

Je kunt veel beter aan ieder begin van een heel uur, je queue in een keer vullen, voor een heel uur (+ iets extra's)
Niet je PAL onnodig lang laten wachten.
Dit gaat een keer problemen geven.

Je kunt kijken of onderstaand PALscript iets doet bij jou.
(Niet getest, maar zou moeten werken)

Code: Selecteer alles

PAL.Loop:=True;
//	PAL.LockExecution;
var uur : String ;
uur := FormatDateTime('hh', Now) ;

if (Now >= T[uur+':04:55']) and (Now <= T[uur+':04:59']) then
	begin
		if ( Encoders[0].Status='Encoding') then
			Begin;
				Dir['D:\Muziek\JUKEBOX DIVERSEN\jingels\algemeen'].Rescan;
				Dir['D:\Muziek\JUKEBOX DIVERSEN\jingels\algemeen'].QueueTop(smLRP, NoRules);
			end;
	end 
else

if (Now >= T[uur+':07:55']) and (Now <= T[uur+':07:59']) then
	begin
		if ( Encoders[0].Status='Encoding') then
			Begin;
				Dir['D:\Muziek\JUKEBOX DIVERSEN\jingels\piraten plaat'].Rescan;
				Dir['D:\Muziek\JUKEBOX DIVERSEN\jingels\piraten plaat'].QueueBottom(smLRP, NoRules);
				Dir['D:\Muziek\JUKEBOX MUZIEK\piraten archief'].QueueBottom(smLRP, EnforceRules);
			end;
	end 
else

if (Now >= T[uur+':58:55']) and (Now <= T[uur+':58:59']) then
	begin
		if ( Encoders[0].Status='Encoding') then
			Begin;
				Queue.AddFile('c:\NIEUWS\VERZOEK.mp3',ipTop);
				Queue.AddFile('c:\NIEUWS\DAGDEEL.mp3',ipTop);
				Queue.AddFile('c:\NIEUWS\PIRATENFAMILIE-SPONSOR.mp3',ipTop);
				Queue.AddFile('c:\NIEUWS\PIRATENFAMILIE-NIEUWS.mp3',ipTop);
				Queue.AddFile('c:\NIEUWS\PIRATENFAMILIE-TIJDSEIN.mp3',ipTop);
			end;
	end 
else

while (Now >= T['01:59:00']) and (Now <= T['01:59:10']) do
	begin
	//	PAL.UnLockExecution;
		PAL.WaitForTime(T['01:59:59']);
		Encoders.StartAll;
		DeckA.Next;
		DeckA.Play;
	//	PAL.LockExecution;
	end;

while (Now >= T['23:59:00']) and (Now <= T['23:59:10']) do
begin
//	PAL.UnLockExecution;
    PAL.WaitForTime(T['23:59:59']);
    ActivePlayer.FadeToStop;
    DeckA.Eject;
    DeckB.Eject;
    Encoders.StopAll;
//	PAL.LockExecution;
end;
//	PAL.UnLockExecution;

Groedjez,
drO
Gebruikersavatar
henkieturbo
*
Berichten: 14
Lid geworden op: 30 dec 2007, 11:41

Re: PAL KIJKT NIET NAAR JUISTE TIJD

Ongelezen bericht door henkieturbo »

Dan drO

Ik ga hem uitproberen
Bedankt voor het meedenken
Topp !!

Grts Henk
Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht