Uitleg Tijden in .PAL

[frank12]

Beste Medegebruikers.

Ben een beetje aan de knutsel met een weekformat.
Deze ben ik eerst goed aan zetten zodat onze nieuws goed loopt daarna gaan we hem uitbreiden met alles at's Jingle,s en Reclame blokken.

Ma nu kom ik tijden in de PAL tegenw aar ik me even geen raad mee weet en niet weet wat de presies doen.
Stukje WeekFormat:

Code: Selecteer alles

// Zondag 01:00 uur

while DayOfWeek(Now) = Sunday and ((Now >= T['00:59:15']) and (Now <= T['00:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['00:59:56']);
ActivePlayer.FadeTonext;
Queue.Clear;
Queue.AddFile('D:\Nieuws\PerfectFm Uur Nieuws.mp3',ipTop);
Queue.AddFile('D:\Nieuws\Tijd\PerfectFm Tijd 01:00u.wav',ipTop);
PAL.LockExecution;
end;

Zo weet ik niet wat deze regel presies doet.
Kijkt deze na de Tijd voor dat de regel gestart word?

Code: Selecteer alles

while DayOfWeek(Now) = Sunday and ((Now >= T['00:59:15']) and (Now <= T['00:59:25'])) do

Nu zie ik bij vele WeekFormats voorbeelden hier op het forum deze regel staan.
Nu komt deze op mij ever dat hij op de tijd stip de Uur tijden en uur nieuws laad.

Code: Selecteer alles

PAL.WaitForTime(T['00:59:56']);

Onze Tijd aanduiding zijn 4sec. Mijn vraag is? Heb ik de regel hier boven niet te strak staan.
Want als ik hier ga testen speelt hij 1e keer wel alles netjes de volgende keer doet hij dit niet.

Hoop dat iemand een uitleg kan geven over de tijden.
Zodat we even weer verkunnen borduren.

Bedankt

[Gerrit]

Code: Selecteer alles

while DayOfWeek(Now) = Sunday and ((Now >= T['00:59:15']) and (Now <= T['00:59:25'])) do

Je moet het zo zien, het script "loopt" continu van begin tot het einde, als het tegen 01:00 uur loopt dan komt het script op een gegeven moment de tijd tegen die tussen deze twee tijden zit, zodra het script dit gezien heeft dan gaat hij op dat uur klaar staan en zodra het 00:59:56 is begint hij het uur te laden en dan kom ik gelijk bij je volgende vraag, je hebt een "uursluiter" van 4 sec. zeg je en je vraag je af of 00:59:56 dan wel goed is zodat hij het nieuws op tijd start.
Daar heb ik maar 1 antwoord op en dat is : gewoon testen en is het nieuws telaat dan zet je de tijd wat eerder totdat je tevreden bent.

Ik hoop dat ik het zo een beetje duidelijk heb uitgelegd, anders hoor ik het wel,

Gerrit.

[frank12]

Gerrit,

dit is mijn nu duidelijk.

Ik zie alleen dat de PAL nu blijft lopen tussen

Code: Selecteer alles

// Einde Zaterdag

While Queue.Duration < QueueTime Do
begin
PAL.UnLockExecution;
Cat['NL'].QueueBottom(smLRP, EnforceRules);
Cat['NL'].QueueBottom(smLRP, EnforceRules);
Cat['NL'].QueueBottom(smLRP, EnforceRules);
Cat['NL'].QueueBottom(smLRP, EnforceRules);
Cat['Duits'].QueueBottom(smLRP, EnforceRules);
Cat['NL'].QueueBottom(smLRP, EnforceRules);
Cat['NL'].QueueBottom(smLRP, EnforceRules);
Cat['NL'].QueueBottom(smLRP, EnforceRules);
Cat['NL'].QueueBottom(smLRP, EnforceRules);
Cat['Engels'].QueueBottom(smLRP, EnforceRules);
PAL.LockExecution;
end;
PAL.UnLockExecution; 

Enige wat hij nu doet is deze Cat's na lopen en 1 uit haalt.
Verder kijkt hij nergens meer na.

[Gerrit]

Hoeveel platen heb je in Cat NL staan ??
Als dit er minder zijn dan +/- 150 dan moet je de regel zo maken:

Code: Selecteer alles

Cat['NL'].QueueBottom(smRandom, NoRules);

[frank12]

Nou dat zal het probleem niet wezen denk ik.
We hebben 20,000++ in de cat staan.

Hij kijkt nu alleen na het stukje die onderaan eht script staat.
En kijkt niet meer na de tijden.

Het toevoegen van de Cat's in het vorige bericht doet de PAL overigens zonder moeite en vlekkeloos.

[Gerrit]

Hij kijkt nu alleen na het stukje die onderaan het script staat.
En kijkt niet meer na de tijden.

Dat moet je ff verder uitleggen want ik begrijp niet helemaal wat je bedoel.

Het Format wat onderaan het script staat wordt alleen gebruikt in de uren waar geen platen zijn ingevuld, dus bij zo'n stukje script :

Code: Selecteer alles

// Zondag 13:00 uur
		
while DayOfWeek(Now) = Sunday and ((Now >= T['12:59:15']) and (Now < T['12:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['12:59:40']);
Queue.AddFile('D:\Midland\uursluiter.wav',ipTop);
ActivePlayer.FadeTonext;
Queue.Clear;
Queue.AddFile('C:\nieuws\nieuws.mp3',ipBottom);
Queue.AddFile('D:\Midland\uuropener.wav',ipBottom);
PAL.LockExecution;
end;

Overal waar je muziek hebt geplaatst (zie voorbeeld) zal hij ook die muziek in de lijst zetten.
Voorbeeld met muziek:

Code: Selecteer alles

// Zondag 18:00 uur
	
while DayOfWeek(Now) = Sunday and ((Now >= T['17:59:15']) and (Now <= T['17:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['17:59:40']);
Queue.AddFile('D:\Midland\uursluiter.wav',ipTop);
ActivePlayer.FadeTonext;
Queue.Clear;
Queue.AddFile('C:\nieuws\nieuws.mp3',ipBottom);
Queue.AddFile('D:\Midland\uuropener.wav',ipBottom);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Ned'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Ned'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Ned'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Ned'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Ned'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Ned'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Ned'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Ned'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Ned'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Ned'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Ned'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Ned'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Ned'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);
Cat['Ned'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Ned'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Ned'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Ned'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
PAL.LockExecution;
end;

[frank12]

Gerrit,

Het script liep bij mij alleen in het onderste gedeelte.
Hij keek dus helemaal niet naar de tijden die waren op gegeven in bijvoorbeeld:

Code: Selecteer alles

// Zondag 00:00 uur

while DayOfWeek(Now) = Saturday and ((Now >= T['23:59:15']) and (Now <= T['23:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['23:59:50']);
Queue.AddFile('D:\Nieuws\PerfectFm Uur Nieuws.mp3',ipTop);
Queue.AddFile('D:\Nieuws\Tijd\PerfectFm Tijd 24uur.wav',ipTop);
ActivePlayer.FadeTonext;
Queue.Clear;
PAL.LockExecution;
end;

Maar dit probleem is ondertussen opgelost hij kijkt nu naar het complete script netjes zoals het hoort.
Alleen in het bovenste stukje in dit bericht gooit hij geen nieuws meer.
De tijds aanduiding pakt hij netjes om 20:00 alleen gooit hij de nieuws niet meer in de queqe.

Heb het vermoeden dat ik hier de mist in ga:

Code: Selecteer alles

Queue.AddFile('D:\Nieuws\PerfectFm Uur Nieuws.mp3',ipTop);
Queue.AddFile('D:\Nieuws\Tijd\PerfectFm Tijd 24uur.wav',ipTop);
ActivePlayer.FadeTonext;
Queue.Clear;

En ik zie bij jou dit staan namelijk:

Code: Selecteer alles

Queue.AddFile('D:\Nieuws\Tijd\PerfectFm Tijd 24uur.wav',ipTop);
ActivePlayer.FadeTonext;
Queue.Clear;
Queue.AddFile('D:\Nieuws\PerfectFm Uur Nieuws.mp3',ipTop);

Dit ga ik voor 21:00 ff testen. Mocht het dan opgelost zijn zal ik het nog even melden.
Gerrit bedankt al vast voor de nodige uitleg.

[Gerrit]

Verander dit dan nog even:

Code: Selecteer alles

Queue.AddFile('D:\Nieuws\Tijd\PerfectFm Tijd 24uur.wav',ipTop);
ActivePlayer.FadeTonext;
Queue.Clear;
Queue.AddFile('D:\Nieuws\PerfectFm Uur Nieuws.mp3',ipTop);

in

Code: Selecteer alles

Queue.AddFile('D:\Nieuws\PerfectFm Uur Nieuws.mp3',ipBottom);

[frank12]

Gerrit,

De laatste verandering is nu succesvol door gevoert.
Alleen ik heb een vraag over het stukje onderaan.

Code: Selecteer alles

While Queue.Duration < QueueTime Do
begin
PAL.UnLockExecution;
Cat['NL'].QueueBottom(smLRP, EnforceRules);
Cat['NL'].QueueBottom(smLRP, EnforceRules);
Cat['NL'].QueueBottom(smLRP, EnforceRules);
Cat['NL'].QueueBottom(smLRP, EnforceRules);
Cat['Duits'].QueueBottom(smLRP, EnforceRules);
Cat['NL'].QueueBottom(smLRP, EnforceRules);
Cat['NL'].QueueBottom(smLRP, EnforceRules);
Cat['NL'].QueueBottom(smLRP, EnforceRules);
Cat['NL'].QueueBottom(smLRP, EnforceRules);
Cat['Engels'].QueueBottom(smLRP, EnforceRules);
PAL.LockExecution;
end;
PAL.UnLockExecution;

Deze vult nu de Queue compleet. Dit is niet onze bedoeling ivm het alleen voor de nieuws bedoelt is.
En wij deze dag voor dag gaan uitbreiden met de rest.
Alleen moet deze tot de complete weekformat klaar is zo draaien.

Is hier nog een oplossing voor.

[frank12]

Beste,

Ik heb vandaag het weekFaormat overzicht met de mede-eigenaar besproken en door gelopen.
Omdat ik eigelijk alleen beetje de PAL's werkende maak en de mede-eigenaar de rest moet bijhouden en moet veranderen.
Moet ik een klein beetje na zijn wensen luisteren. Dit is overigens geen probleem.

Alleen dit heeft geleid dat we ma toch geen Format gaan maken.
We hebben een stukje script gevonden op het forum, die we gaan gebruiken voor het Nieuws gebeuren.

Ik wil Gerrit wel bedanken voor de uitleg.
Dit heeft mij weer een beter beeld gegeven hoe een .PAL in elkaar zit en enige functie's zijn me ook duidelijk geworden.
Mocht ik bij de nieuwe .PAL nog problemen tegen komen zal ik het in deze Topic melden of andes een nieuwe aanmaken.

Bedankt.

MvG Frank