commercial PAL aanpassen

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

[Gerrit]

Klopt, met dat script kreeg ik bij mij ook een foutmelding en heb verder niet gekeken waar het aan lag want toen kwam jij met het "var num" verhaal.

Een script wat ik gebruik om 2 of meer keren wat te draaien in een uur is dit script, die gebruik ik voor Promo's en postbus 51 spotjes:

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExeCution;
var DStart, DEnd : DateTime;
DStart := EncodeDate(2009,01,17);
DEnd := EncodeDate(2009,02,18);
while (Now >= T['06:00:00']) and (Now <= T['21:00:00']) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['xx:15:00']);
Cat['Promos (All)'].QueueTop(smLRP, NoRules);
PAL.WaitForTime(T['xx:38:00']);
Cat['Promos (All)'].QueueTop(smLrp, NoRules);
PAL.LockExecution;
end;
While (Now>DEnd) do
begin
PAL.UnLockExecution;
PAL.Loop:=False;
PAL.LockExecution;
end;
PAL.UnLockExecution;

Wel ff aanpassen naar eigen idee !!

[Kees]

Ddan lag het dus niet aan mij