PAL script medere tijden

[thehosting4you]

Hallo

Ik heb de onderstaande PAL script en dit werkt goed nu wil ik elke dag om 12.0 uur een mp3 en om 13.00 uur een mp3 hoe kan ik deze aan de PAL script toevoegen?

Code: Selecteer alles

PAL.Loop:=True;
PAL.WaitForTime(T['XX:00:00']);
Queue.AddFile('C:\de boodschapjes\Johnny Gold - Ik leef m’n leven.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\tip van de week.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\wordt medemogelijk gemaakt.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\reclamespot.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\Nieuws\nieuws.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\weer.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\nonstop overdag.mp3',ipTop);
PAL.Loop:=True;
PAL.WaitForTime(T['XX:30:00']);
Queue.AddFile('C:\de boodschapjes\nonstop overdag.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\Nieuws\headlines.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\u luistert toch ook.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\wordt medemogelijk gemaakt door.mp3',ipTop);

M.v.g. TheHosting4You

[drOhimself]

Volgende regels toevoegen aan je script :

Code: Selecteer alles

while ((Now >= T['11:59:45']) and (Now <= T['11:59:53'])) do
begin
PAL.Waitfortime ('xx:59:59'); 
Queue.AddFile('C:\de boodschapjes\xxxx.mp3',ipTop);
ActivePlayer.FadeToNext;
end;

while ((Now >= T['12:59:45']) and (Now <= T['12:59:53'])) do
begin
PAL.Waitfortime ('xx:59:59'); 
Queue.AddFile('C:\de boodschapjes\xxxx.mp3',ipTop);
ActivePlayer.FadeToNext;
end;

Ik zie dat je er 2 keer in hebt staan :

Code: Selecteer alles

PAL.Loop:=True;

Eentje kan weg.

[thehosting4you]

Hallo

Ik heb de code aangepast zo als hier onder maar nu word de PAL maar 1 keer uitgevoerd waar kan dat aanliggen?

Code: Selecteer alles

PAL.Loop:=True;
PAL.WaitForTime(T['XX:00:00']);
Queue.AddFile('C:\de boodschapjes\Peter Beense - Waar ben jij mijn leven lang geweest.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\bazaar tip van de week 3.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\radio bazaar wordt medemogelijk gemaakt door de utrechtsebazaar 5.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\bazaar reclamespot 6.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\Nieuws\nieuws.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\bazaar nieuws  8.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\bazaar nonstop overdag 4.mp3',ipTop);
while ((Now >= T['20:00:01']) and (Now <= T['20:05:53'])) do
begin
PAL.Waitfortime ('xx:05:59');
Queue.AddFile('C:\de boodschapjes\De Muziekdoos.mp3',ipBottom);
ActivePlayer.FadeToNext;
end;
while ((Now >= T['21:00:01']) and (Now <= T['21:05:53'])) do
begin
PAL.Waitfortime ('xx:05:59');
Queue.AddFile('C:\de boodschapjes\De Muziekdoos (2).mp3',ipBottom);
ActivePlayer.FadeToNext;
end;
PAL.WaitForTime(T['XX:30:00']);
Queue.AddFile('C:\de boodschapjes\bazaar nonstop overdag 4.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\Nieuws\headlines.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\bazaar u luistert toch ook 7.mp3',ipTop);
Queue.AddFile('C:\de boodschapjes\radio bazaar wordt medemogelijk gemaakt door de utrechtsebazaar 5.mp3',ipTop);

Met Vriendelijk Groet Andre

[drOhimself]

Zo te zien wordt e.e.a. beperkt tot de volgende tijdstippen:
Bij start wordt er gewacht tot het héle uur ( PAL.WaitForTime(T['XX:00:00']);)
Dan wordt er gekeken of het 20:00 uur wordt. (while ((Now >= T['20:00:01']) )
Als het 20:00 is, dan moet er gewacht worden tot het 20:05:59 is ( PAL.Waitfortime ('xx:05:59');)
Dan wordt er gekeken of het 21:00 uur wordt. (while ((Now >= T['21:00:01']) )
Als het 21:00 is, dan moet er gewacht worden tot het 21:05:59 is ( PAL.Waitfortime ('xx:05:59');)

Dan staat er nog een foutje in, onderaan : PAL.WaitForTime(T['XX:30:00']);
Denk dat je daar de T moet verwijderen......dan zou ie ook iets moeten doen op het halve uur...!
Succes !

[Joggum]

Kan iemand mij vertellen waarom dit niet wil werken?
krijg een fout melding bij de laatste regel. (rode balk)

Code: Selecteer alles

while DayOfWeek(Now) = friday and ((Now >= T['23:59:15'])
and(Now <= T['23:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['23:59:45']);
PAL.LockExecution;
end;

while DayOfWeek(Now) = Saturday and ((Now >= T['00:59:15']) and (Now <= T['00:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['00:59:45']);
PAL.LockExecution;
end;

PAL.Loop:= True;
PAL.WaitForTime(T['00:59:55']);
Queue.AddFile('C:\TOTH.mp3',ipTop);
ActivePlayer.FadeToNext;

[drOhimself]

Is dit het hele script ?
Of een gedeelte ?

[Joggum]

Een gedeelte, de dag checker wil niet lijkt wel. Ik probeer dus een week.PAL te maken.
Moet ik trouwens bij elke tijd die ik invoer ook de dag checken?
Ik heb namelijk dat als ik deze PAL aan zet hij alle jingels ervoor eerst afspeelt voor hij weer verder gaat met het .cwf

[drOhimself]

Sorry, maar met 'gedeeltes' van script kunnen we niet veel.
Graag hele script (in Code !!) plaatsen en aangeven waar (liefst met regel nummer) het fout gaat.

[Joggum]

Het gaat om de dag checker regel 1 tot en met 12

[drOhimself]

Graag hele script (in Code !!) plaatsen en aangeven waar (liefst met regel nummer) het fout gaat.

[Wout]

Het gaat om de dag checker regel 1 tot en met 12

Zoals drO al aangeef, liever de complete code.
Het is geen super-secret code wat je aan het maken bent, maar het helpt wel voor ons om je fout op te zoeken.
Wij zijn geen helderziende hoe de code verder loopt.

Je hoef het niet te delen, maar dan delen we ook niet de oplossing.

[Joggum]

Code: Selecteer alles

// Maandag 00:00 uur
    while DayOfWeek(Now) = Monday and ((Now >= T['00:00:01']) and
           (Now <= T['00:00:10'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Classics'].QueueBottom(smLRP, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['2014'].QueueBottom(smLRPA, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);

end;
PAL.LockExecution;
end;



// Maandag 01:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['00:59:40']) and (Now <= T['00:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['SoulfulHouse'].QueueBottom(smLRP, EnforceRules);
Cat['90'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;


// Maandag 02:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['01:59:40']) and (Now <= T['01:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Classics'].QueueBottom(smLRP, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['2014'].QueueBottom(smLRPA, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;

// Maandag 03:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['02:59:40']) and (Now <= T['02:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['SoulfulHouse'].QueueBottom(smLRP, EnforceRules);
Cat['90'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;


// Maandag 04:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['03:59:40']) and (Now <= T['03:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Classics'].QueueBottom(smLRP, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['2014'].QueueBottom(smLRPA, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;

// Maandag 05:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['04:59:40']) and (Now < T['04:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['SoulfulHouse'].QueueBottom(smLRP, EnforceRules);
Cat['90'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;

// Maandag 06:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['05:59:40']) and (Now <= T['05:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Classics'].QueueBottom(smLRP, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['2014'].QueueBottom(smLRPA, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;

// Maandag 07:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['06:59:40']) and (Now <= T['06:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['SoulfulHouse'].QueueBottom(smLRP, EnforceRules);
Cat['90'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;

// Maandag 08:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['07:59:40']) and (Now <= T['07:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Classics'].QueueBottom(smLRP, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['2014'].QueueBottom(smLRPA, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;

// Maandag 09:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['08:59:40']) and (Now <= T['08:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['SoulfulHouse'].QueueBottom(smLRP, EnforceRules);
Cat['90'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
PAL.LockExecution;
end;

// Maandag 10:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['09:59:40']) and (Now <= T['09:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Classics'].QueueBottom(smLRP, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['2014'].QueueBottom(smLRPA, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;

// Maandag 11:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['10:59:4']) and (Now <= T['10:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['SoulfulHouse'].QueueBottom(smLRP, EnforceRules);
Cat['90'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;


// Maandag 12:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['11:59:40']) and (Now <= T['11:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Classics'].QueueBottom(smLRP, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['2014'].QueueBottom(smLRPA, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;

// Maandag 13:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['12:59:40']) and (Now < T['12:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['SoulfulHouse'].QueueBottom(smLRP, EnforceRules);
Cat['90'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;

// Maandag 14:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['13:59:40']) and (Now <= T['13:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Classics'].QueueBottom(smLRP, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['2014'].QueueBottom(smLRPA, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;


// Maandag 15:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['14:59:40']) and (Now <= T['14:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['SoulfulHouse'].QueueBottom(smLRP, EnforceRules);
Cat['90'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;

// Maandag 16:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['15:59:40']) and (Now <= T['15:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Classics'].QueueBottom(smLRP, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['2014'].QueueBottom(smLRPA, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;


// Maandag 17:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['16:59:40']) and (Now <= T['16:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['SoulfulHouse'].QueueBottom(smLRP, EnforceRules);
Cat['90'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;

// Maandag 18:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['17:59:40']) and (Now <= T['17:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Classics'].QueueBottom(smLRP, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['2014'].QueueBottom(smLRPA, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;


// Maandag 19:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['18:59:40']) and (Now <= T['18:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['SoulfulHouse'].QueueBottom(smLRP, EnforceRules);
Cat['90'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;


// Maandag 20:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['19:59:40']) and (Now <= T['19:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Classics'].QueueBottom(smLRP, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['2014'].QueueBottom(smLRPA, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;

// Maandag 21:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['20:59:40']) and (Now <= T['20:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Activeplayer.FadeToNext;
var QueueTime : Integer = (60*60*1300);
While Queue.Duration < QueueTime do
Begin
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['SoulfulHouse'].QueueBottom(smLRP, EnforceRules);
Cat['90'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['00'].QueueBottom(smLRP, EnforceRules);
Cat['2013'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Rap'].QueueBottom(smLemmingLogic, EnforceRules);
Cat['10'].QueueBottom(smLRP, EnforceRules);
Cat['Jingels (All)'].QueueBottom(smRandom, NoRules);

Cat['Nu-Disco'].QueueBottom(smLRP, EnforceRules);
Cat['Soul Funk'].QueueBottom(smLRP, EnforceRules);
Cat['Slow'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;

// Maandag 22:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['21:59:40']) and (Now <= T['21:59:59'])) do

begin
PAL.UnLockExecution;
Queue.Clear;
Queue.AddFile('C:\TOTHmaart2014.mp3.mp3',ipTop);
Dir['F:\HD BACKUP\GREENERROOM\GASTMIX\John Wil\Nieuw'].Rescan;
Dir['F:\HD BACKUP\GREENERROOM\GASTMIX\John Wil\Nieuw'].QueueDir(ipBottom);
ActivePlayer.FadeToNext;


end;
PAL.LockExecution;
end;

Geeft geen foutmelding meer , start en sluit weer af. Doet helemaal niks.
Heb van alles geprobeerd.
Ik wil dus 7 aparte dag scripts maken omdat elke dag van de week anders is en events tussen zitten.
Dit zou de script voor maandag worden.

[drOhimself]

Kijkend naar je script, vallen mij de volgende dingen op :

1. Bij // Maandag 09:00 uur, mist er een 'end; ' commando.
2. Onderaan staat een 'end;' commando te veel.
3. Is dit werkelijk een juiste bestands-naam : 'C:\TOTHmaart2014.mp3.mp3' ? (dus 2x .mp3 )

Pas deze dingen eens aan, en test nog eens opnieuw.
(Hopelijk reageer je deze keer wat sneller....)

[Joggum]

Ja 2x mp3 klopt. Als ik daar een van weg haal doet ie ook niks (raar)

Script doet het nog niet.
Rennen ,is een tijdje bezig maar gebeurt niks en stopt.

[drOhimself]

Nog even een bevestiging graag :
Zodra je een PAL script in SAM toevoegt, dan kun je met de knop 'Compile' kijken of het script goed gekeurd is door SAM.
SAM test hier of er geen fouten in het script zitten.

PAL_Compile.jpg

Kreeg je geen meldingen ?

[Joggum]

KLopt! Geeft geen fout melding.

[Joggum]

Moet ik trouwens bij elke tijd die ik invoer ook de dag checken?
i.v.m. crash of stroom uitval.

[drOhimself]

Indien je géén dag invoert, dan zou elke dag op ingestelde tijd een actie plaatsvinden, dus lijkt me wel logisch dat je de dag ook invoert.
Ik zie op die maandag maar erg weinig 'spannende' wijzigingen bij ieder uur.
Zouden je luisteraars het merken of je nu aan het begin van een uur, eentje uit 'Classics' draait, of uit 'Nu-Disco'......?
Is dat gedaan om het jezelf moeilijk te maken ?

Ik denk de enige manier om je PALscript goed te testen, is indien je er nog wat WriteLn commando's in plaatst.
Hierdoor krijg je in je PALscherm een goed overzicht WAT er exact gebeurt.
Of je script opdelen, per uur, en dat individueel uittesten.

Nog even over je mp3 (C:\TOTHmaart2014.mp3.mp3).
Je hebt die mp3 dan ook zo met die naam opgeslagen, denk ik.

[Joggum]

Is die dag checker wel goed dan ??

[Wout]

Als je een hele week ga programmeren dan is wellicht de Event-schedulerr beter voor je.
PAL is beter voor kleine scripts of out-of-the-box programmering.

Uitleg over de Event-scheduler vind je in de onderstaande link.
viewtopic.php?t=2656&p=16782#p16782