PAL KIJKT NIET NAAR JUISTE TIJD

[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

[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;

[henkieturbo]

Dan drO

Ik ga hem uitproberen
Bedankt voor het meedenken
Topp !!

Grts Henk