PAL doet niet wat ik wil..... Wat doe ik fout?

Voor vragen over Playlist Automation Language.
Plaats reactie
superwuppie

PAL doet niet wat ik wil..... Wat doe ik fout?

Ongelezen bericht door superwuppie »

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;
var QueueTime : Integer = (60*60*500); (wat betekend dit nu percies????)

// Zondag 15:00 uur
while DayOfWeek(Now) = Sunday and ((Now >= T['14:59:15']) and (Now <= T['14:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['14:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedemiddag).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 15 uur.mp3',ipTop);
Cat['Engels NL'].QueueBottom(smRandom, EnforceRules); (bij andere uren heb ik een andere CAT als opener, kan dit zo?)

PAL.LockExecution;
end;

Daarbij heb ik ook de clockwheel in gevuld met:
Of moet dit eigenlijk in het PAL script staan?
Betekend het ook dat hij van elke Cat 1 nummer in de Queue zet??

Code: Selecteer alles

Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Cat['Engels NL'].QueueBottom(smRandom, EnforceRules);
Cat['Piraten Muziek'].QueueBottom(smRandom, EnforceRules);
Cat['Rustig NL'].QueueBottom(smRandom, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Cat['Meezingers NL'].QueueBottom(smRandom, EnforceRules);
Cat['Vlot 60'].QueueBottom(smRandom, EnforceRules);
Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Piraten Muziek'].QueueBottom(smRandom, EnforceRules);
Cat['Engels NL'].QueueBottom(smRandom, EnforceRules);
Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Vlot 70'].QueueBottom(smRandom, EnforceRules);
Cat['Meezingers NL'].QueueBottom(smRandom, EnforceRules);
Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Cat['Jingles'].QueueBottom(smRandom, NoRules);
Cat['Piraten Muziek'].QueueBottom(smRandom, EnforceRules);
Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Script loopt opzich goed alleen hij houd zich niet aan de jingles om de 4 platen.
Soms om de 10 platen of soms 2 jingles achter elkaar???
Nu moet ik wel zeggen dat nog niet alle mappen GOED gevuld zijn ivm uitzoek werk.
Kan dat de oorzaak zijn??? Of doe ik iets anders verkeerd...


Bedankt alvast voor de reactie!
Omhoog
superwuppie

Re: PAL doet niet wat ik wil..... Wat doe ik fout?

Ongelezen bericht door superwuppie »

Was ik nog even.

Heb het zelf nog eens aangepast.

Heb nu onder in de PAL de lijst gemaakt voor de playlist.
Dit werkt ook, maar nu zet hij tussen de regels van het nieuws (tijdsmelding,nieuws,uuropener) een song.
Wat resulteerd in een tijdsmelding, dan een muziek file, daarna het nieuws en uuropener.
De playlist maker is dus sneller dan de 3 tracks onder elkaar te zetten.
Kan er een vertraging in gezet worden van bv 5sec.
dat hij na 5sec pas de playlist gaat maken onder de 3 files van het nieuws??
Omhoog
Gebruikersavatar
Gerrit
Moderator
Berichten: 883
Lid geworden op: 16 nov 2008, 00:08
SAM-versie: 2018.7
Database: MySQL
Windows: 10
Locatie: Veenendaal
Contacteer:
Contacteer Gerrit

Re: PAL doet niet wat ik wil..... Wat doe ik fout?

Ongelezen bericht door Gerrit »

Volgens mij heb je de Clockwheel met muziek ook nog aan staan !!
Vroeger was ik een twijfelaar, ik ben daar nu niet meer zo zeker van.
en
Ik houd van kritiek, maar ik moet het er wel mee eens zijn.
Omhoog
superwuppie

Re: PAL doet niet wat ik wil..... Wat doe ik fout?

Ongelezen bericht door superwuppie »

Gerrit dankje wel voor je antwoord.
Momenteel kan ik dat niet na kijken omdat pc uitstaat, maar ik heb zo'n vermoeden dat dat wel eens kan kloppen.

Heb het lijstje wel gekopieerd, maar niet weg gehaald volgens mij!
Ik laat het nog wel weten.
Dankje wel alvast!
Omhoog
superwuppie

Re: PAL doet niet wat ik wil..... Wat doe ik fout?

Ongelezen bericht door superwuppie »

Hoi Gerrit daar was ik nog eens.

Het klopt ook de Clockwheel stond nog aan!
Het loopt nu stukken beter.

Ga weer verder knutselen!

Thanx
Omhoog
superwuppie

Re: PAL doet niet wat ik wil..... Wat doe ik fout?

Ongelezen bericht door superwuppie »

Kom weer op een volgend probleem!

Ik heb voor elke dag een aparte PAL gemaakt.
Met onderaan 20 Cat's (ongeveer een uur muziek)
Met deze opzet was de bedoeling dat ik dan per dag een andere playlist kan maken.
Maar als ze allemaal op running staan, maakt hij per uur toch de playlist..

Dus na xx:59:45 gaat hij een nieuwe queue maken van maar liefst 7 uur.

Hoe kan ik dat verhelpen? Dacht door de Schudler te activeren (elke dag om 23:50:00 andere PAL te laden), maar dan laat hij de ouwe nog op running staan, dus dat schiet niet op.
Is hier toch een oplossing voor.???

Zodat ik toch per dag een iets ander format kan maken.??

Veel vragen weer. Maar weet dat er slimme mensen hier zitten.

Bedankt weer alvast!
Omhoog
Gebruikersavatar
Gerrit
Moderator
Berichten: 883
Lid geworden op: 16 nov 2008, 00:08
SAM-versie: 2018.7
Database: MySQL
Windows: 10
Locatie: Veenendaal
Contacteer:
Contacteer Gerrit

Re: PAL doet niet wat ik wil..... Wat doe ik fout?

Ongelezen bericht door Gerrit »

Zet eerst maar eens 1 PAL van een willekeurige dag online, dan kunnen we zien hoe je het hebt ingevuld en waar het fout gaat!

Gerrit.
Vroeger was ik een twijfelaar, ik ben daar nu niet meer zo zeker van.
en
Ik houd van kritiek, maar ik moet het er wel mee eens zijn.
Omhoog
superwuppie

Re: PAL doet niet wat ik wil..... Wat doe ik fout?

Ongelezen bericht door superwuppie »

Hierbij het script!

Code: Selecteer alles


PAL.Loop:=True;
PAL.LockExecution;
var QueueTime : Integer = (60*60*500);


// Maandag 00:00 uur
while DayOfWeek(Now) = Sunday and ((Now >= T['23:59:15']) and (Now <= T['23:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['23:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedenavond).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 00 uur.mp3',ipTop);

PAL.LockExecution;
end;


// Maandag 01:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['00:59:15']) and (Now <= T['00:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['00:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedenavond).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 01 uur.mp3',ipTop);

PAL.LockExecution;
end;


// Maandag 02:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['01:59:15']) and (Now <= T['01:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['01:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedenavond).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 02 uur.mp3',ipTop);


PAL.LockExecution;
end;


// Maandag 03:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['02:59:15']) and (Now <= T['02:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['02:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedenavond).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 03 uur.mp3',ipTop);


PAL.LockExecution;
end;


// Maandag 04:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['03:59:15']) and (Now <= T['03:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['03:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedenavond).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 04 uur.mp3',ipTop);


PAL.LockExecution;
end;


// Maandag 05:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['04:59:15']) and (Now < T['04:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['04:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedenavond).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 05 uur.mp3',ipTop);


PAL.LockExecution;
end;


// Maandag 06:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['05:59:15']) and (Now <= T['05:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['05:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedemorgen).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 06 uur.mp3',ipTop);


PAL.LockExecution;
end;

// Maandag 07:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['06:59:15']) and (Now <= T['06:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['06:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedemorgen).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 07 uur.mp3',ipTop);


PAL.LockExecution;
end;


// Maandag 08:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['07:59:15']) and (Now <= T['07:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['07:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedemorgen).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 08 uur.mp3',ipTop);


PAL.LockExecution;
end;


// Maandag 09:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['08:59:15']) and (Now <= T['08:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['08:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedemorgen).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 09 uur.mp3',ipTop);


PAL.LockExecution;
end;


// Maandag 10:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['09:59:15']) and (Now <= T['09:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['09:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedemorgen).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 10 uur.mp3',ipTop);


PAL.LockExecution;
end;


// Maandag 11:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['10:59:15']) and (Now <= T['10:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['10:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedemorgen).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 11 uur.mp3',ipTop);


PAL.LockExecution;
end;

// Maandag 12:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['11:59:15']) and (Now <= T['11:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['11:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedemiddag).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 12 uur.mp3',ipTop);


PAL.LockExecution;
end;

// Maandag 13:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['12:59:15']) and (Now <= T['12:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['12:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedemiddag).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 13 uur.mp3',ipTop);


PAL.LockExecution;
end;

// Maandag 14:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['13:59:15']) and (Now <= T['13:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['13:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedemiddag).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 14 uur.mp3',ipTop);


PAL.LockExecution;
end;


// Maandag 15:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['14:59:15']) and (Now <= T['14:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['14:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedemiddag).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 15 uur.mp3',ipTop);

PAL.LockExecution;
end;

// Maandag 16:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['15:59:15']) and (Now <= T['15:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['15:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedemiddag).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 16 uur.mp3',ipTop);


PAL.LockExecution;
end;

// Maandag 17:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['16:59:15']) and (Now <= T['16:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['16:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedemiddag).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 17 uur.mp3',ipTop);


PAL.LockExecution;
end;;

// Maandag 18:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['17:59:15']) and (Now <= T['17:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['17:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedenavond).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 18 uur.mp3',ipTop);


PAL.LockExecution;
end;

// Maandag 19:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['18:59:15']) and (Now <= T['18:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['18:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedenavond).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 19 uur.mp3',ipTop);

PAL.LockExecution;
end;

// Maandag 20:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['19:59:15']) and (Now <= T['19:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['19:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedenavond).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 20 uur.mp3',ipTop);


PAL.LockExecution;
end;


// Maandag 21:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['20:59:15']) and (Now <= T['20:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['20:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedenavond).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 21 uur.mp3',ipTop);

PAL.LockExecution;
end;


// Maandag 22:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['21:59:15']) and (Now <= T['21:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['21:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedenavond).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 22 uur.mp3',ipTop);

PAL.LockExecution;
end;


// Maandag 23:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['22:59:15']) and (Now <= T['22:59:25'])) do
begin
PAL.UnLockExecution;
PAL.WaitForTime(T['22:59:30']);
Queue.Clear;
Queue.AddFile('Z:\Diverse\RHO Uur openers\Jingle - RHO Uuropener (Goedenavond).mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Nieuws\Het RHO - Nieuws.mp3',ipTop);
Queue.AddFile('Z:\Diverse\RHO Tijdsein\RHO Tijdsein - Het is 23 uur.mp3',ipTop);
PAL.LockExecution;
end;
// einde Maandag

While Queue.Duration < QueueTime Do
begin
PAL.UnLockExecution;
Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Cat['Engels NL'].QueueBottom(smRandom, EnforceRules);
Cat['Piraten Muziek'].QueueBottom(smRandom, EnforceRules);
Cat['Rustig NL'].QueueBottom(smRandom, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Cat['Meezingers NL'].QueueBottom(smRandom, EnforceRules);
Cat['Vlot 60'].QueueBottom(smRandom, EnforceRules);
Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Piraten Muziek'].QueueBottom(smRandom, EnforceRules);
Cat['Engels NL'].QueueBottom(smRandom, EnforceRules);
Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Vlot 70'].QueueBottom(smRandom, EnforceRules);
Cat['Meezingers NL'].QueueBottom(smRandom, EnforceRules);
Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['Piraten Muziek'].QueueBottom(smRandom, EnforceRules);
Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Cat['Algemeen NL'].QueueBottom(smRandom, EnforceRules);
Cat['Engels NL'].QueueBottom(smRandom, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);

PAL.LockExecution;
end;
PAL.UnLockExecution;
Hoop dat je er wat mee kan!
Omhoog
Gebruikersavatar
Gerrit
Moderator
Berichten: 883
Lid geworden op: 16 nov 2008, 00:08
SAM-versie: 2018.7
Database: MySQL
Windows: 10
Locatie: Veenendaal
Contacteer:
Contacteer Gerrit

Re: PAL doet niet wat ik wil..... Wat doe ik fout?

Ongelezen bericht door Gerrit »

Code: Selecteer alles

// Maandag 00:00 uur
while DayOfWeek(Now) = Sunday and ((Now >= T['23:59:15']) and (Now <= T['23:59:25'])) do
Ik zie hier al een fout staan !
Verander die eerst maar eens in deze:

Code: Selecteer alles

Maandag 00:00 uur
while DayOfWeek(Now) = Monday and ((Now >= T['23:59:15']) and (Now <= T['23:59:25'])) do
Loop alle pallen nog maar eens een keer goed door.

Gerrit.
Vroeger was ik een twijfelaar, ik ben daar nu niet meer zo zeker van.
en
Ik houd van kritiek, maar ik moet het er wel mee eens zijn.
Omhoog
superwuppie

Re: PAL doet niet wat ik wil..... Wat doe ik fout?

Ongelezen bericht door superwuppie »

Ik heb dit script gekopieerd uit de weekplanner die hier op het forum te vinden is.

Dus die Sunday staat daar gewoon ook zo.
En naar mijn in zien klopt het ook wat daar staat. Want op dat tijd stip is het nog zondag!

daarna gaat maandag verder. Elke dag staat in de eerste regel de dag er voor!

Daar ligt de fout niet volgens mij!
Alles werkt ook gewoon alleen hij maakt dan playlisten van 7 uur aan (van elke dag 1 uur), waardoor hij alles door elkaar gooit.
Omhoog
Gebruikersavatar
Gerrit
Moderator
Berichten: 883
Lid geworden op: 16 nov 2008, 00:08
SAM-versie: 2018.7
Database: MySQL
Windows: 10
Locatie: Veenendaal
Contacteer:
Contacteer Gerrit

Re: PAL doet niet wat ik wil..... Wat doe ik fout?

Ongelezen bericht door Gerrit »

Oeps, [smilie=blush2.gif] je hebt gelijk, het is dan nog zondag.

Vraagje: Waarom heb je 7 PAL's draaien terwijl het allemaal met 1 weekpal kan ?

Ik heb het vermoeden dat die 7 PAL's elkaar beinvloeden.
Vroeger was ik een twijfelaar, ik ben daar nu niet meer zo zeker van.
en
Ik houd van kritiek, maar ik moet het er wel mee eens zijn.
Omhoog
Gebruikersavatar
Gerrit
Moderator
Berichten: 883
Lid geworden op: 16 nov 2008, 00:08
SAM-versie: 2018.7
Database: MySQL
Windows: 10
Locatie: Veenendaal
Contacteer:
Contacteer Gerrit

Re: PAL doet niet wat ik wil..... Wat doe ik fout?

Ongelezen bericht door Gerrit »

var QueueTime : Integer = (60*60*500);
Dit staat bovenaan het script en houd in dat hij een uur wat niet met muziek is ingevuld, gaat laden met een uur muziek van het format wat helemaal onderaan het script staat.
En die 60*60*500 is de "code" van ongeveer een uur, Wout heeft het wel eens uitgelegd op het forum hoe die berekening precies gaat.

Op die manier hoef je alleen maar die uren in te vullen die afwijken van het "normale" Format (onderaan)

En als je nu een uur alleen maar nederlandse muziek wil dan kun je het ook nog zo doen:
Bovenaan het script zet je dit erbij:

Code: Selecteer alles

var QueueTimeNederlands : Integer = (60*60*1300);
En dan bij de uren waar je nederlands wil horen zet je dit erneer:

Code: Selecteer alles

Queue.AddFile('k:\nieuws\nieuws.wav',ipBottom);
Cat['uur-promo'].QueueBottom(smRandom,NoRules);
Queue.AddFile('k:\nieuws\open1.wav',ipBottom);
While Queue.Duration < QueueTimeNederlands do 
Begin 
Cat['Nederlands'].QueueBottom(smLRP, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smLRP, EnforceRules);
Cat['Nederlands'].QueueBottom(smLRP, EnforceRules);
end;
PAL.LockExecution;
end;
Op deze manier wordt je uur gevuld met eerst een NL plaat dan een Jingle en dan 2x NL en weer jingle enz. enz.

Gerrit.
Vroeger was ik een twijfelaar, ik ben daar nu niet meer zo zeker van.
en
Ik houd van kritiek, maar ik moet het er wel mee eens zijn.
Omhoog
Gebruikersavatar
Wout
Beheerder
Berichten: 3522
Lid geworden op: 03 dec 2007, 14:17
SAM-versie: 2019.3
Database: MariaDB
Windows: 11
Locatie: West-Brabant
Contacteer:
Contacteer Wout

Re: PAL doet niet wat ik wil..... Wat doe ik fout?

Ongelezen bericht door Wout »

Kan jij me vertellen wat deze regel betekend:var QueueTime : Integer = (60*60*500);
Het vullen van de Queue tot en met of groter als de tijd van (60*60*500 = 1800000 miliseconden = half uur)
m.a.w. vul voor 1 half uurtje muziek in de Queue.

Voor 1 uur is het (60 seconden * 60 minuten * 1000 mili = 3.600.000 miliseconden = 1 uur)

Dus
var QueueTime : Integer = (60*60*1000);
(als Queue geen 1 uur (60 minuten | 3.600.000 miliseconden) aan muziek is gevuld.)
begin
(dan begin het met de loop (begin | end) totdat het 60 minuten Queue heeft bereikt.)
Cat etc..
(hoe meer cat erin staan, hoe minder nauwkeurig hij de Queue vult, als het nog geen 60 minuten heeft bereik, dan loopt ie weer van begin tot eind incl alle CAT, probeer het maar eens uit met 2 cat vs 16 cat & kijk maar naar je QueueTime in Queue)
end;
Afbeelding
Omhoog
Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht

Terug naar “PAL”