Om de 2 uur een plaatje.

[Rob1961]

Goede middag.
Ik ben bezig met een scriptje die om de 2 uur de klapper en de uitblinker te laten draaien
Ik gebruik het volgende scriptje voor die ik gevonden heb hier op het forum
Ik ben niet zo op de hoogte van die scriptje want ik kom net kijken. [smilie=yahoo.gif]


[codePAL.Loop := True ;
BEGIN
IF (Encoders[0].Status='Encoding') THEN
Begin
PAL.WaitForTime(T['+01:28:00']) ;
CAT['Klapper'].Queuetop(smLRP, NoRules) ;
Queue.AddFile('C:\Klapper\Klapper1.mp3',iptop) ;
Queue.AddFile('C:\Klapper\Uitblinker.mp3',ipTop) ;
Queue.AddFile('C:\Klapper\Klapper2.mp3',iptop) ;
Queue.AddFile('C:\Klapper\Tune.mp3',ipTop) ;
END;
END;][/code]

Nu loopt het wel maar de tijd verspringt iedere keer bijna 10 min naar voren.
Als het PAL scriptje geweest is.
Zie ik wat verkeerd, of ben ik iets vergeten
Ik hoor het graag. [smilie=dance4.gif]

[Rob1961]

Ik zal het ff goed in de code zetten.

Code: Selecteer alles

PAL.Loop := True ;
BEGIN
IF (Encoders[0].Status='Encoding') THEN
Begin
PAL.WaitForTime(T['+01:28:00']) ;
CAT['Klapper'].Queuetop(smLRP, NoRules) ;
Queue.AddFile('C:\Klapper\Klapper1.mp3',iptop) ;
Queue.AddFile('C:\Klapper\Uitblinker.mp3',ipTop) ;
Queue.AddFile('C:\Klapper\Klapper2.mp3',iptop) ;
Queue.AddFile('C:\Klapper\Tune.mp3',ipTop) ; 
END;
END;

[drOhimself]

Je hebt het over 'om de 2 uur'.
In je PAL script staat :
PAL.WaitForTime(T['+01:28:00']) ;

Dat lijkt erg op 1 uur en 28 minuten.

Je kunt beter een vaste tijd nemen, bijv iedere 2 uur, om xx minuten over het hele uur.
Jouw script staat nu zo ingesteld, dat wanneer je het script start, je eerst 1 uur en 28 minuten moet wachten.
Daarna gaat er pas wat gebeuren.
Dus de start van je script is dus bepalend voor de volgende acties.
Beter is als je ieder moment van de dag jouw script kunt starten, en de acties worden uitgevoerd op een vaste minuut in het uur.
Dus je krijgt dan zoiets als dit :
PAL.WaitForTime('xx:10:00') ;

[Rob1961]

Goede morgen
@ drOhimself
Hele uren kan niet vanwege nos journaal.
Dus een voor beeld

12.00 uur journaal
13.00 uur journaal
13.30 de klapper
14.00 uur journaal
15.00 uur journaal
15.30 de klapper
16.00 uur journaal
enz, enz

Dat was de bedoeling van deze script.
Hij doet het wel maar als het scrip geweest is dan komt er ongeveer een minuut of 5 weer bij.
Is dit op te lossen met deze scrip.

[drOhimself]

Rob1961,

Hierbij een PAL script, die kijkt of de encoder loopt, en kijkt of het 08:30, 10:30, 12:30, 14:30, 16:30 of 18:30 is.
(Andere tijden simpel in het script kopieren.)
Dan worden jouw 'klappers' ingeladen.
Getest, bij mij werkt ie perfect.

Succes

Code: Selecteer alles

// Speel bepaalde nummers 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 encoder[0] loopt en 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 (Encoders[0].Status='Encoding') AND ((Now >= T['08:29:55']) and (Now <= T['08:30:00'])) or
		(Encoders[0].Status='Encoding') AND ((Now >= T['10:29:55']) and (Now <= T['10:30:00'])) or
		(Encoders[0].Status='Encoding') AND ((Now >= T['12:29:55']) and (Now <= T['12:30:00'])) or
		(Encoders[0].Status='Encoding') AND ((Now >= T['14:29:55']) and (Now <= T['14:30:00'])) or
		(Encoders[0].Status='Encoding') AND ((Now >= T['16:29:55']) and (Now <= T['16:30:00'])) or
		(Encoders[0].Status='Encoding') AND ((Now >= T['18:29:55']) and (Now <= T['18:30:00']))	do
			BEGIN
				PAL.UnLockExecution; // Slow-down
				WriteLn('Huidig uur: '+ IntToStr(uur+0));
				CAT['Klapper'].Queuetop(smLRP, NoRules) ; // Voeg nummers toe
				Queue.AddFile('C:\Klapper\Klapper1.mp3',iptop) ;
				Queue.AddFile('C:\Klapper\Uitblinker.mp3',ipTop) ;
				Queue.AddFile('C:\Klapper\Klapper2.mp3',iptop) ;
				Queue.AddFile('C:\Klapper\Tune.mp3',ipTop) ;
				WriteLn('De klapper van de week !');
				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('geen klapper!');
//
// © drOhimself for BroadcasterForum 2014-11-23

[Rob1961]

Super gaaf man Dank je wel.
Loopt hier als een treintje.