Nummers op volgorde afspelen

[Goofy35]

Ik wil dus op bepaalde tijden de top40 afspelen, ik heb begrepen dat ik dat via de event schedule moet doen en daar de tijden moet instellen.

Nu heb ik met clockwheel de volgende opdracht:
Cat['top 40'].QueueBottom(smWeighted, EnforceRules);

Maar ik heb de nummers gerenamed in de volgorde van de top 40.

bv 01 naam.mp3
02 naam.mp3
enz enz enz

Nu wil ik dat hij bij de 40ste mpr begint en dan naar de nummer 1.

Met de opdracht die ik nu doet speelt SAM ze random en dat is niet de bedoeling.

Ik hoop dat het een beetje duidelijk is??

[Kees]

Ga naar deze site..
http://www.oddgravity.de/
Download daar Playlist Creator 3.(FREEWARE)
Maak nu van de top 40 een playlist en laat deze door de ES of een PAL script starten.

[Goofy35]

dat is wel een makkelijk programma joh, heel makkelijk.

De playlist die eruit komt rollen wil ik graag starten in een PAL scrip.

Maar kopieer ik die playlist in een palscrip komt die allemaal met errors....

[Goofy35]

Ik heb al iets gevonden voor een palscrip.

Queue.AddList('c:\playlisttop40\top40.m3u',ipBottom);

Misschien dat er anderen ook iets aan hebben

[Kees]

Daar zullen vele al iets aan hebben gehad want deze en nog andere PAL commando's staan in de voorbeeld file example.PAL

[Goofy35]

Okay dat is me dus gelukt nu kom ik het volgende tegen:

Als dit script draait wil ik de request uitzetten en dat doe ik met:

RequestPolicy.Enabled := False;

Queue.AddList('c:\top40\top40.m3u',ipTop);

RequestPolicy.Enabled := True;

Hij zet nu eerst de requests uit, laad vervolgens de top playlist, maar daarna zet die gelijk weer de request aan.

Is er een manier om die request aan te zetten als hij die 40 nummertjes gedraaid heeft??

Groetjes: Goof

[Kees]

Okay dat is me dus gelukt nu kom ik het volgende tegen:

Als dit script draait wil ik de request uitzetten en dat doe ik met:

RequestPolicy.Enabled := False;

Queue.AddList('c:\top40\top40.m3u',ipTop);

RequestPolicy.Enabled := True;

Hij zet nu eerst de requests uit, laad vervolgens de top playlist, maar daarna zet die gelijk weer de request aan.

Is er een manier om die request aan te zetten als hij die 40 nummertjes gedraaid heeft??

Groetjes: Goof

2 aparte PAL scriptjes maken.
1 met

Code: Selecteer alles

RequestPolicy.Enabled := False;

en 1 met

Code: Selecteer alles

RequestPolicy.Enabled := True;

en laat deze door de Event scheduler starten.
Zo werk ik er hier ook mee.

[Goofy35]

Ik heb het nu zo gedaan:

RequestPolicy.Enabled := False;

Queue.AddList('c:\top40\top40.m3u',ipTop);

PAL.WaitForTime('+01:00:10');

RequestPolicy.Enabled := True;

Nu wacht 1 uurtje, zo hou ik alles in 1 scripje.


Is er ook een manier om eventuele PAL scrips die ook in die tijd draaien, uit te schakelen??

[Kees]

Dan zullen we toch moeten weten wat voor PAL scripts dit zijn.

[Goofy35]

Ha Kees,

Ik heb bijvoorbeeld een jingle scrip lopen, die laat om de 10 liedjes een jingeltje horen.

Die zou ik uit willen hebben staan als die top40 begint

[Kees]

Scriptje online zetten a.u.b.

[Goofy35]

Scriptje online zetten a.u.b.

Ha Kees, hieronder mijn scripje, met toch weer een foutmelding

{ PAL Script created on 3-7-2008 15:55:29 }
{==================================================}
PAL.Loop:=True;

PAL.LockExecution;

// while DayOfWeek(Now) = Monday and ((Now >= T['14:05:53']) and
// (Now <= T['14:05:56'])) do

Het onderstaande had ik overgenomen van een vorig bericht van je, maar als ik hem run dan geeft hij de volgende foutmelding aan: Syntax error: Invalid Operands [line12: colum:22. en dit is bij: *

while DayOfWeek(Now) = Tuesday and ((Now >= T['11:58:53']) and
(Now <= T['11:59:56'])) or
DayOfWeek(Now) *= Wednesday and ((Now >= T['21:25:53']) and
(Now <= T['21:25:56'])) or
DayOfWeek(Now) = Thursday and ((Now >= T['16:23:53']) and
(Now <= T['16:23:56'])) or
DayOfWeek(Now) = Friday and ((Now >= T['11:58:53']) and
(Now <= T['11:58:56'])) or
DayOfWeek(Now) = Saturday and ((Now >= T['11:58:53']) and
(Now <= T['11:58:56'])) do


begin
PAL.UnlockExecution;

//Jukebox uitzetten
RequestPolicy.Enabled := False;

Queue.AddList('c:\top40scrip\top40.m3u',ipTop);

//PAL.WaitForTime('+01:00:10');

//Jukebox aanzetten
RequestPolicy.Enabled := True;

PAL.LockExecution;
end;
PAL.UnlockExecution;


en het scripje wat contstant mee draait is jingels.PAL

PAL.Loop := True;
PAL.WaitForPlayCount(20);
Cat['Jingles (All)'].QueueTop(smRandom, NoRules);

Dit scripje zou ik graag uit willen zetten in het vorige scrip, maar ook weer aan als dat mogelijk is.

Ik hoop dat je eruit komt

[Kees]

Code: Selecteer alles

While (DayOfWeek(Now) = (Tuesday)) and ((Now >= T['11:58:53']) and (Now <= T['11:59:56'])) or
      (DayOfWeek(now) = (Wednesday)) and ((Now >= T['21:25:53']) and (Now <= T['21:25:56'])) or
      (DayOfWeek(Now) = (Thursday)) and ((Now >= T['16:23:53']) and (Now <= T['16:23:56'])) or
      (DayOfWeek(Now) = (Friday)) and ((Now >= T['11:58:53']) and (Now <= T['11:58:56'])) or
      (DayOfWeek(Now) = (Saturday)) and ((Now >= T['11:58:53']) and (Now <= T['11:58:56'])) do
begin
end;

Wat betreft je jingle PAL....
Mogelijk kan ik alles in een PAL script verwerken.
Daarvoor heb ik je clockwheel nodig.
Zet deze online kan ik eens kijken of ik de samenvoegtechniek kan toepassen.
Het schijnt dat ik dit hier en daar al meer heb toegepast. :rolleyes:

[Goofy35]

haha toch wel makkelijk hoor als je er sjoege van heb.

Maar dit is mijn clockwheel.


Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['jukenederlands'].QueueBottom(smRandom, EnforceRules);
Cat['60'].QueueBottom(smRandom, EnforceRules);

Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['70'].QueueBottom(smRandom, EnforceRules);

Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['jukenederlands'].QueueBottom(smRandom, EnforceRules);
Cat['80'].QueueBottom(smRandom, EnforceRules);

Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['90'].QueueBottom(smRandom, EnforceRules);

Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['jukenederlands'].QueueBottom(smRandom, EnforceRules);
Cat['2000'].QueueBottom(smRandom, EnforceRules);


Ben nieuwsgierig wat je ervan gaat brouwen..... :rolleyes:

[Kees]

Je moet je clockwheel leeghalen en dit PAL script continu laten draaien.

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExeCution;
While (DayOfWeek(Now) = (Tuesday)) and ((Now >= T['11:58:53']) and (Now <= T['11:59:56'])) or
      (DayOfWeek(now) = (Wednesday)) and ((Now >= T['21:25:53']) and (Now <= T['21:25:56'])) or
      (DayOfWeek(Now) = (Thursday)) and ((Now >= T['16:23:53']) and (Now <= T['16:23:56'])) or
      (DayOfWeek(Now) = (Friday)) and ((Now >= T['11:58:53']) and (Now <= T['11:58:56'])) or
      (DayOfWeek(Now) = (Saturday)) and ((Now >= T['11:58:53']) and (Now <= T['11:58:56'])) do
begin
PAL.UnLockExeCution;
RequestPolicy.Enabled := False;
Queue.AddList('c:\top40scrip\top40.m3u',ipTop);
PAL.WaitForTime('+01:00:10');
RequestPolicy.Enabled := True;
PAL.LockExecution;
end;
While Queue.Count < 3 do
Begin
PAL.UnlockExecution;
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['jukenederlands'].QueueBottom(smRandom, EnforceRules);
Cat['60'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['70'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
Cat['jukenederlands'].QueueBottom(smRandom, EnforceRules);
Cat['80'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['90'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['Nederlands'].QueueBottom(smRandom, EnforceRules);
Cat['jukenederlands'].QueueBottom(smRandom, EnforceRules);
Cat['2000'].QueueBottom(smRandom, EnforceRules);
Cat['Jingles (All)'].QueueBottom(smRandom, NoRules);
PAL.lockExecution;
end;
PAL.UnlockExecution;

[Goofy35]

Ha Kees,

hij draait hoor, eens kijken wat het allemaal gaat doen, dank je wel TOPPIE

[Kees]

Ha Kees,

hij draait hoor, eens kijken wat het allemaal gaat doen, dank je wel TOPPIE

Ik hoop datgeen wat hij moet doen !
Zo..nu eerst een :drinkers: , het is zo benauwd hier in
Bergen Op Zoom.
De Stad met de beste haring !
Alleen hou ik niet van haring !