commercial PAL aanpassen

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

[Gerrit]

Ik zal er eens een test mee gaan doen ondanks dat het goed heeft gewerkt ?!?

[Gerrit]

Ik ben eruit............

Ik moet hem gewoon zo houden zoals het script nu is !!
In 1x ging het branden.............Hahaha
Hij start nl elke ochtend (straks bij de omroep) om 06.00 u en als je dan doorreken dan stopt hij weer om 22.00 uur !!

Nu werkt dat niet omdat ik het allemaal aan het testen ben en het niet om 06.00 u start, maar later, dus stop hij ook later !!!

Ik heb nog wel een andere vraag, nl:
Hoe kan ik in een script doorscrollen, bijv. ik start het script op en dan gaat hij klaarstaan op: xx:xx:23...........kan ik hem dan ook doorskippen naar : xx:xx:44 ??????
Ik heb al gezocht maar kan het nl nergens vinden !!

Alvast bedankt.

[Kees]

Kan wel maar dan moet je het script stoppen en Run line-by-line gebruiken.

[Gerrit]

Maarja, als ik hem dan weer start, begint hij weer bovenaan ! en ben dan geen steek verder.

Maar goed, ik weet nu dat het niet kan !

Bedankt Kees. Op naar de volgende "uitdaging"!

[Kees]

Zo moet het ook kunnen..
Wel even testen !

Code: Selecteer alles

PAL.Loop:=True;
var Num : Integer = 1;
PAL.LockExeCution;
while ((Now >= T['06:23:00']) and (Now <= T['06:23:10'])) or
      ((Now >= T['07:23:00']) and (Now <= T['07:23:10'])) or
      ((Now >= T['08:23:00']) and (Now <= T['08:23:10'])) or
      ((Now >= T['09:23:00']) and (Now <= T['09:23:10'])) or
      ((Now >= T['10:23:00']) and (Now <= T['10:23:10'])) or
      ((Now >= T['11:23:00']) and (Now <= T['11:23:10'])) or
      ((Now >= T['12:23:00']) and (Now <= T['12:23:10'])) or
      ((Now >= T['13:23:00']) and (Now <= T['13:23:10'])) or
      ((Now >= T['14:23:00']) and (Now <= T['14:23:10'])) or
      ((Now >= T['15:23:00']) and (Now <= T['15:23:10'])) or
      ((Now >= T['16:23:00']) and (Now <= T['16:23:10'])) or
      ((Now >= T['17:23:00']) and (Now <= T['17:23:10'])) or
      ((Now >= T['18:23:00']) and (Now <= T['18:23:10'])) do
begin
PAL.UnLockExecution;
Queue.AddFile('E:\Regio agenda\REGIO AGENDA ' + Num + '.mp3',ipTop);
Num := Num+1;
PAL.WaitForTime(T['+00:00:15']);
PAL.LockExeCution;
end;

while ((Now >= T['06:44:00']) and (Now <= T['06:44:10'])) or
      ((Now >= T['07:44:00']) and (Now <= T['07:44:10'])) or
      ((Now >= T['08:44:00']) and (Now <= T['08:44:10'])) or
      ((Now >= T['09:44:00']) and (Now <= T['09:44:10'])) or
      ((Now >= T['10:44:00']) and (Now <= T['10:44:10'])) or
      ((Now >= T['11:44:00']) and (Now <= T['11:44:10'])) or
      ((Now >= T['12:44:00']) and (Now <= T['12:44:10'])) or
      ((Now >= T['13:44:00']) and (Now <= T['13:44:10'])) or
      ((Now >= T['14:44:00']) and (Now <= T['14:44:10'])) or
      ((Now >= T['15:44:00']) and (Now <= T['15:44:10'])) or
      ((Now >= T['16:44:00']) and (Now <= T['16:44:10'])) or
      ((Now >= T['17:44:00']) and (Now <= T['17:44:10'])) or
      ((Now >= T['18:44:00']) and (Now <= T['18:44:10'])) do
begin
Queue.AddFile('E:\Regio agenda\REGIO AGENDA ' + Num + '.mp3',ipTop);
Num := Num+1;
PAL.WaitForTime(T['+00:00:15']);
PAL.LockExecution;
end;
PAL.UnLockExecution;

[Gerrit]

Dat zou betekenen dat ik dit 6x moet herhalen omdat ik 12 Agenda-items verdeeld over 6 uur heb !!
Wordt dan wel een erg lang script Kees............maar ik bewaar hem iig wel, je weet maar nooit waar het nog goed voor is.

Het script wat ik nu heb werkt goed, als je het maar iedere dag om 06:00 uur laat starten dan stop het ook weer netjes om 22:00, en dat was het probleem, als je het om 07:00 uur starte dan stopte het pas om 23:00 uur omdat het dan pas langs "While_do" heen kwam, zeg maar !!

iig bedankt voor het meedenken........ :respekt: :smt023

[Kees]

Klopt niet wat je zegt...
Hij kan alleen die tijden draaien als aangegeven staat.
In dit geval doet het script tussen 19:00 en 06:00 niets als alleen zoeken naar de eerstvolgende opdracht.(Loop)
Je moet er wel voor zorgen dat het script automatisch mee start als je SAM start.
En je had het over een erg lang script..ik heb er een geschreven voor Omroep Tholen...dat is pas een lang script..

nonstop.PAL

[Gerrit]

Het script start automatisch op met SAM.

En toch blijven ze (Regioagenda en Regionieuws-script) doorlopen als ik ze later start als 06:00 uur !!
Nu (23:01) draait er ook steeds 1 mee !!! de ander is wel netjes om 22:00 uur gestopt.

En dat lange script ken ik Kees, kijk deze maar eens...............nog een klein beetje langer 8)

Anyway, ik blijf nog even testen hoe het allemaal blijft lopen............Ik laat het nog wel weten.

[Kees]

Dan hebben deze 2 scripts een conflict met elkaar..
Zet dit bovenaan je grote script

Code: Selecteer alles

var Num : Integer = 1;

Zet dit gedeelte onderaan je grote script voor de laatste

Code: Selecteer alles

PAL.UnLockExecution;

Code: Selecteer alles

while ((Now >= T['06:23:00']) and (Now <= T['06:23:10'])) or
      ((Now >= T['07:23:00']) and (Now <= T['07:23:10'])) or
      ((Now >= T['08:23:00']) and (Now <= T['08:23:10'])) or
      ((Now >= T['09:23:00']) and (Now <= T['09:23:10'])) or
      ((Now >= T['10:23:00']) and (Now <= T['10:23:10'])) or
      ((Now >= T['11:23:00']) and (Now <= T['11:23:10'])) or
      ((Now >= T['12:23:00']) and (Now <= T['12:23:10'])) or
      ((Now >= T['13:23:00']) and (Now <= T['13:23:10'])) or
      ((Now >= T['14:23:00']) and (Now <= T['14:23:10'])) or
      ((Now >= T['15:23:00']) and (Now <= T['15:23:10'])) or
      ((Now >= T['16:23:00']) and (Now <= T['16:23:10'])) or
      ((Now >= T['17:23:00']) and (Now <= T['17:23:10'])) or
      ((Now >= T['18:23:00']) and (Now <= T['18:23:10'])) do
begin
PAL.UnLockExecution;
Queue.AddFile('E:\Regio agenda\REGIO AGENDA ' + Num + '.mp3',ipTop);
Num := Num+1;
PAL.WaitForTime(T['+00:00:15']);
PAL.LockExeCution;
end;

while ((Now >= T['06:44:00']) and (Now <= T['06:44:10'])) or
      ((Now >= T['07:44:00']) and (Now <= T['07:44:10'])) or
      ((Now >= T['08:44:00']) and (Now <= T['08:44:10'])) or
      ((Now >= T['09:44:00']) and (Now <= T['09:44:10'])) or
      ((Now >= T['10:44:00']) and (Now <= T['10:44:10'])) or
      ((Now >= T['11:44:00']) and (Now <= T['11:44:10'])) or
      ((Now >= T['12:44:00']) and (Now <= T['12:44:10'])) or
      ((Now >= T['13:44:00']) and (Now <= T['13:44:10'])) or
      ((Now >= T['14:44:00']) and (Now <= T['14:44:10'])) or
      ((Now >= T['15:44:00']) and (Now <= T['15:44:10'])) or
      ((Now >= T['16:44:00']) and (Now <= T['16:44:10'])) or
      ((Now >= T['17:44:00']) and (Now <= T['17:44:10'])) or
      ((Now >= T['18:44:00']) and (Now <= T['18:44:10'])) do
begin
Queue.AddFile('E:\Regio agenda\REGIO AGENDA ' + Num + '.mp3',ipTop);
Num := Num+1;
PAL.WaitForTime(T['+00:00:15']);
PAL.LockExecution;
end;

[Gerrit]

Kees, ik ben het ff aan het testen maar krijg een foutmelding enwel in deze regel:

Queue.AddFile('E:\Regio agenda\REGIO AGENDA ' + Num + '.mp3',ipTop);

Syntax error Ünknown name "Num"

[Kees]

Code: Selecteer alles

var Num : Integer = 1;

bovenaan je script plaatsen

[Gerrit]

Stom van mij, had ik ook kunnen zien !!!
Het is nog "vroeg" zullen we maar zeggen.

Het script loopt iig...............zonder error........dus afwachten maar.

Kees bedankt maar weer, iig 1 die uitgeslapen is..........

[Kees]

En ook stom van mij want ik had het in een van de laatste berichten bijgevoegd alleen vergeten er bij te vermelden dat ik het had bijgevoegd.
Hij zal nu wel goed werken omdat 2 aparte scripts die een while commado hebben met elkaar gaan ruzie maken.
Ik vindt het alleen vreemd dat het hele scriptje bij mij niet werkt.

[Gerrit]

Kees, ik heb het nu ook zo lopen met het "regionieuws-script" en toe gevoegd aan het week-PAL !
Het enige wat ik veranderd heb zijn de tijden en het "var num" ....die heet nu "var mun" anders kreeg ik een conflict !!
En natuurlijk van de 1 een 2 gemaakt !

Heb ik dat zo goed gedaan of sla ik de plank mis ??

Btw, welk script bedoel je? wat niet werkt bij jouw ?

[Kees]

Je kan variabelen maken zoveel je wilt mits ze maar niet hetzelfde zijn.

En dit script wil bij mij niet werken.

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('C:\1965\nummer ' + Num + '.mp3',ipTop);
Num := Num+1;
PAL.WaitForTime(T['xx:44:00']);
Queue.AddFile('C:\1965\nummer ' + Num + '.mp3',ipTop);
Num := Num+1;

PAL.LockExecution;
end;
PAL.UnLockExecution;

Ik wilde het gebruiken om 2 of 3 keer per uur een nummer uit de top 100 van 1965 te draaien.
Mijn mp3's zien er zo uit

Code: Selecteer alles

nummer 63.mp3

Heel raar !