commercial PAL aanpassen

[kidschatradio]

Hallo PAL experts,

Ik zou graag van het volgende palscript willen dat tie niet werkt tussen 21.00 en 9.00.

Iemand?

Code: Selecteer alles

PAL.Loop:=True;
Cat['Advertisements (All)'].QueueTop(smLRP, NoRules);
PAL.WaitForPlayCount(10);

bedankt!
groet,
Jeroen

[Kees]

Probeer dit eens uit..

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;
while (Now >= T['09:00:00']) and (Now <= T['20:00:00']) do
begin
PAL.UnLockExecution;
Cat['Advertisements (All)'].QueueTop(smLRP, NoRules);
PAL.WaitForPlayCount(10);
PAL.LockExecution;
end;
PAL.UnLockExecution;

[Gerrit]

Kees, dit werkt geweldig bij mij met regionieuws en regioagenda laten pauzeren tussen 22.00 uur en 06.00 uur!

Maaaaaaaaaaar je voelt hem al aankomen hè..........Ik hoor je denken.....daar heb je hem weer.. :axe:

Ik wil dit script ook laten pauzeren op de hele zondag, kan dat?

Gr. Gerrit.

[Kees]

Kan ik je een heel goed advies geven.
Knip de blokken er tussen uit, maak daar PAL scripts van en laat deze starten door de Event scheduler.
Zo draait de regio info en lokaal nieuws bij Tholen ook.
En dit gaat uitstekend.
Kun je zelf de dagen en uren kiezen dat ze wel en niet voorbij moeten komen.
Mocht het niet lukken dan lees ik het wel weer.

[Gerrit]

pfoe......ES dat is clockwheel hè.............dat wordt dan de volgende uitdaging Kees.

Ben er wel een klein beetje mee bezig geweest (powerpoint gezien) maar verder niet.
We gaan ons erin verdiepen :rolleyes: Blijf standby............Hahaha

Gerrit.

[Kees]

Nee..ES is geen clockwheel..
Zie onder Window en dan Event Scheduler.
Hier kun je oneindig veel dingen mee doen zoals het laden van en ander clockwheel maar ook het laden van een PAL script op gezette tijden.

[Gerrit]

Ok dan, weer wijzer geworden, dan ga ik nu maar stoppen met waar ik mee bezig was............verloren tijd....hè waar ken ik dat van?

Zondag weer een nieuwe dag en fris geheugen................'k heb het voor vandaag (zat) wel gehad !! ZZZzzzzzzzzzzzZZZZZZZZZZZzzzzzzzzzz
Nog ff een :smoker: en dan plat !!

[Gerrit]

Kees, die ES-en, kun je die niet opslaan ?

[Kees]

Als je een ES invoert dan onthoudt SAM die vanzelf in de database.

[Gerrit]

Kijk en dat is een beetje het "probleem".

Ik draai nu SAM op mijn PC om te testen, maar het is de bedoeling dat het straks, als alles naar tevredenheid werkt, op de pc's in de studio wordt geinstalleerd.
Als het in de PAL-scripts verwerkt kan worden dan is het makkelijk over tezetten (kopieëren), met ES moet je alles weer opnieuw in gaan voeren !
Begrijp me goed, ik ben niets tebroert omdat te doen, maar waarom moeilijk doen als het evt. makkelijk kan ?!

Ik hoor het wel of het evt. toch mogenlijk is. (zie het als de laatste uitdaging van 2008........ :gott:)

[Kees]

Ah..op zo'n bromfiets.
Ik ga er mee aan de slag.

[Kees]

Test deze eens allebei draaiend uit..kijk of ze onderling geen conflict veroorzaken.

[Gerrit]

THX....Meister..........Gaan we gelijk doen, het is nu nog zondag !!!

EDIT: Kees, moet die derde regel niet bovenaan staan ???

Code: Selecteer alles

var TodayIsMyDayE1 : Boolean;
TodayIsMyDayE1 := ((DayOfWeek(Now) = sunday));
PAL.Loop:=True;
PAL.LockExeCution;
if (TodayIsMyDayE1) and (Now >= T['06:00:00']) and (Now <= T['22:00:00']) then
begin
PAL.UnLockExecution;

Verder geen conflicten tussen de 2 PAL's alleen in de zondag en week-pals zet tie nu alle regionieuws berichten achter elkaar als het 3 min over het halve uur is ?!

[Gerrit]

Kees, Ik ben eruit !!!!! Denk ik

Ik ben blij dat je (nog) niet gereageerd hebt (had) op het bovenstaand bericht !
Ik ben zelf ook aan het "puzzelen" geweest, heb weer een hoop geleerd, en ben er denk ik uit. (ik ga niet zitten w88 hè !)

Dat van die "PAL.Loop:=True;" zat ik helemaal naast en stond (staat) iid goed.
Het enige wat niet goed was, was de "if" en de "then" in deze regel:

Code: Selecteer alles

if (TodayIsMyDayE1) and (Now >= T['06:00:00']) and (Now <= T['22:00:00']) then

Daar heb ik nu: "while" en "do" van gemaakt en denk dat het nu opgelost is !! LETS HOPE ...........anyway....

We zitten weer in het weekend dus kan ik weer volop testen.

"Correct me if i'm wrong"!!!!

Ik laat het zowiezo ff weten of het werkt !

[Kees]

Kijk..dat lees ik graag.
Mensen die de moeite nemen om er zelf mee aan de slag te gaan.
En als het dan lukt is het dubbel de moeite waard.
Kan ik van mezelf niet zeggen.
Ben nu zelf met php aan de gang gegaan maar soms ligt mijn hele toetsenbord daarmee in de knoei.
Maar goed..dat is weer een andere discussie !

[Gerrit]

Nou Kees het werkt perfect !!
Het weekscript stop netjes en de zondag neemt het perfect over zonder conflicten.

Ik heb nu nog 1 probleempje, eerst ff kijken of ik erzelf uitkomt ( ik heb de tijd), lukt het niet dan meld ik het wel ff.

[Gerrit]

Ik snap er helemaal niets meer van.....

Volgens mij moet alles goed staan en toch gaat het verkeerd !!!!
Het script hoort om 19.00 uur te stoppen maar loopt toch door tot 23.00 uur !!
Maar als ik het script na 19.00 uur inlaad dan start hij niet !!!! (zoals het hoort)
Schiet mij maar in de feestverlichting............... :drinkers:

Heeft er iemand een idee waar het aan kan liggen ????

Alvast bedankt, Gerrit.

PS. Dit is het Regioagenda-script......met het Regionieuws-script heb ik hetzelfde probleem !!!

[Evertje]

Euh, probeer deze regel eens?!

Code: Selecteer alles

while not ((Now <= T['05:00:00']) and (Now >= T['19:00:00'])) do

Ik dacht me zoiets te herinneren dat..

Code: Selecteer alles

while (Now >= T['06:00:00']) and (Now <= T['18:00:00']) do

..niet werkte?!

Mja, het hoe en waarom weet ik niet zeker meer, werk zelden met while-do's!!

[Gerrit]

Wat het vreemde is dat het in het begin allemaal goed werkte dus dat zal het niet zijn.
Het probleem is van de laatste week ................

Er is schijnbaar iets veranderd door mij (onbewust) maar kan niet vinden wat het is !!!

[Evertje]

Ergens ook wel logisch toch?!

Stel het is nu 17:44, dan wacht het script tot het 18:23 is..
Daarna wacht ie tot et 18:44 is, 19:23, 19:44, 20:23, 20:44 etc..

Hij komt aan het einde pas weer de while-do lus tegen!!

Code: Selecteer alles

PAL.Loop:=True;
var Num : Integer = 1;

PAL.LockExeCution;
while (Now >= T['06:00:00']) and (Now <= T['18:00:00']) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['xx:23:00']);
Queue.AddFile('E:\Regio agenda\REGIO AGENDA ' + Num + '.mp3',ipTop);
Num := Num+1;
PAL.WaitForTime(T['xx:44:00']);
Queue.AddFile('E:\Regio agenda\REGIO AGENDA ' + Num + '.mp3',ipTop);
Num := Num+1;

PAL.LockExecution;
end;
PAL.UnLockExecution;

Zoiets?! Ik heb het niet getest en gecontroleerd op fouten, zelf ff proberen dus..