PAL script voor één uur uit bepaalde CAT

[valkenier]

Hallo allemaal

Na lang zoeken op dit mooie forum heb ik een prachtig PAL script gevonden.
Alleen ik snap er niet veel van hoe het werkt.
Zal het in het kort even uitleggen wat de bedoeling is .

Ik zocht een script voor een bepaalde uur muziek uit een map te draaien ,en die vond ik dus na lang zoeken (de aanhouder wint hahaha).
Het script werkt wel om te beginnen maar stopt niet naar een uur.
Nu is mijn vraag ,,kan er iemand er eens na kijken en desnoods veranderen zodat het goed werkt,en dus ook weer automatich stopt.
Dus zeg maar,,,ik wil graag een cat muziek draaien van 10:00 tot 11:00 uur .
Hieronder even het script dat ik heb gevonden ,en natuurlijk dank voor dat script!.

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;
while ((Now >= T['12:59:45']) and (Now <= T['12:59:50'])) do
begin
PAL.UnLockExecution;
Queue.Clear;
var QueueTime : Integer = (60*60*1230); 
While Queue.Duration < QueueTime do 
Begin 
Cat['duitstalig'].QueueBottom(smLemmingLogic, EnforceRules);
end; 
PAL.LockExecution;
  end;
PAL.UnLockExecution;

Ik hoop dat iemand me kan helpen. [smilie=good.gif]

Met vriendelijke groet Valkenier

[drOhimself]

Wat wil je dat er gebeurt na dat uur ?
Queue weer leeg ?

[valkenier]

Goedemorgen drOhimself

ja zodat hij dan de playlist weer zelf pakt .
Dus van 11:00 tot 12:00 een cat en dan na dat uur gewoon weer verder gaat met de playlist in sam

Groet jouke

[valkenier]

Moet nog wel even zeggen dat ik shoutcast2 heb

[drOhimself]

Moet nog wel even zeggen dat ik shoutcast2 heb

Lijkt me niets met je 'probleem' te maken te hebben.

ja zodat hij dan de playlist weer zelf pakt .
Dus van 11:00 tot 12:00 een cat en dan na dat uur gewoon weer verder gaat met de playlist in sam

Het lijkt mij dat je dus een playlist hebt tot een bepaalde tijd.
Geen idee of het nu 10:00 / 11.00 / 12.00 of 13.00 is??
In je verhaal is het mij niet duidelijk hoor, je gebruikt meerdere tijden.
Dan zegt je nieuwe script dat de queue leeg moet om 12.59.50. (=13.00 dus)
Dan vult je nieuwe script de queue aan met songs uit CAT ['duitstalig'], tot ruim één uur (60*60*1230).

Maar hoe komt dan in eerste instantie jouw playlist in SAM ?
Wat heb je daar voor gedaan om het in SAM te krijgen ?

Je zegt dat je nieuwe script werkt, dus je ziet je queue gevuld worden met duitstalige nummers.
Ik zie niet in het script staan dat er nog iets moet gebeuren na dat uur.
Ook niet dat de queue weer leeg gemaakt moet worden na dat uur.

Net onderstaand script getest : (Let op de aangepaste tijden !!! )
In mijn SAM stond ingesteld dat mijn queue automatisch 10 nummers pakt uit mijn verzameling, dit heb ik even op 0 gezet.

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;
	while ((Now >= T['18:05:45']) and (Now <= T['18:05:50'])) do
		begin
			PAL.UnLockExecution;
			Queue.Clear;
			var QueueTime : Integer = (60*60*1050);
			While Queue.Duration < QueueTime do 
				Begin 
					Cat['DUITS'].QueueBottom(smLemmingLogic, NoRules);
				end; 
			PAL.LockExecution;
		end;
PAL.UnLockExecution;

Loopt als een zonnetje, haalt mijn queue leeg precies om 18:05:50; vult dan uit mijn CAT 'DUITS' tot plm één uur.
Wat je daarna wilt doen, is helemaal 'up-to-you' !

[valkenier]

Goedenavond drOhimself

Vriendelijk bedankt voor het script, [smilie=good.gif]
Ik draai normaal de playlist 24 per uur dag in sam ,dus wilde ik ook een tussenuur even andere muziek draaien uit een catogorie .
ik draai elke uur het nos nieuws ,en is de bedoeling dat het script de cat gaat pakken na het nieuws.
Dan zou het mooi zijn dat het PAL script tussen het nieuws en het volgende nieuws draaid ,is ongeveer 58 min en dan weer de normale playlist pakt.

Met vriendelijke groet
Jouke

[valkenier]

Goedenavond drOhimself

Ben het programma nu aan het draaien maar zie dat er dubbele inkomen terwijl er maar 1 nummer van in de lijst staat.
Kan dat anders gemaakt worden?? verder draaid het perfect.

hieronder even een afbeeld ervan

[drOhimself]

Die nummers kunnen nooit in de CAT 'Duitstalig' staan....

Ik had -omdat in niet veel songs in de CAT 'Duits' had staan- even de regel aangepast naar 'NoRules' zodat het niet uitmaakt wat er in de queue wordt gezet.
( Cat['DUITS'].QueueBottom(smLemmingLogic, NoRules);)
Dit zou je nog even kunnen aanpassen naar :
Cat['DUITS'].QueueBottom(smLemmingLogic, EnforceRules);

Werkt het dan nog niet goed, is het meestal het beste om het script even uit SAM te verwijderen, en daarna weer toe te voegen.
Compileren, en dan pas runnen.
Werkt het dan nog niet, dan graag volledige script in je antwoord zetten (gebruikmakend van de knop Code)

[valkenier]

Goedemorgen drOhimself

Hij doet het nu perfect ,dus vriendelijk bedankt voor de hulp die je me hebt gegeven .
Alleen hij gaat na het uur door met duits en ik wilde dat de laatste plaat om 5 min voor het uur de lijst leeggooit

[smilie=good.gif] [smilie=good.gif] [smilie=good.gif]

[drOhimself]

Werkt het dan nog niet, dan graag het volledige script waar je nu mee werkt, in je antwoord zetten (gebruikmakend van de knop Code)

[valkenier]

Code: Selecteer alles

PAL.Loop:=True;
PAL.LockExecution;
   while ((Now >= T['15:02:20']) and (Now <= T['15:02:25'])) do
      begin
         PAL.UnLockExecution;
         Queue.Clear;
         var QueueTime : Integer = (60*60*1050);
         While Queue.Duration < QueueTime do 
            Begin 
               Cat['Engels'].QueueBottom(smLemmingLogic, EnforceRules);
            end; 
         PAL.LockExecution;
      end;
PAL.UnLockExecution

Hoop dat het zo is ,ik heb er geen verstand van sorry

Hier nog even een kleine uitleg wat ik bedoel.

Het is de bedoeling dat het script na het nieuws start (dus zeg maar 09:02:00 en moet stoppen om 09:57:00 ) dus tegen het einde van het uur weer zelf stopt.
Ik doe dat nu handmatig,dus ik druk om 3 min voor het nieuwe uur op stop van het script in sam,anders draaid die na het nieuws weer door .

Hieronder nog eens een uitleg van het stoppen .




Groet jouke

[drOhimself]

Het zou met dit aangevulde script moeten lukken.
Hierbij hoef je dus NIET meer op pauze te drukken.

Code: Selecteer alles

PAL.Loop:=True;
writeln(' Wachten op start uur');
PAL.LockExecution;
	// Vul hieronder de 'start'-tijd in.
	while ((Now >= T['14:57:20']) and (Now <= T['14:57:29'])) do
		begin
			PAL.UnLockExecution;
				Queue.Clear;
				var QueueTime : Integer = (60*60*1050);
				While Queue.Duration < QueueTime do 
					Begin 
						Cat['Engels'].QueueBottom(smLemmingLogic, EnforceRules);
					end; 
			PAL.LockExecution;
		end;
PAL.UnLockExecution;
writeln(' Wachten op einde uur');
PAL.LockExecution;
	// Vul hieronder de 'eind'-tijd in.
	while ((Now >= T['15:57:20']) and (Now <= T['15:57:29'])) do
		begin
			PAL.UnLockExecution;
				Queue.Clear;
				writeln(' Klaar');
			PAL.LockExecution;
		end;
PAL.UnLockExecution;

[valkenier]

Goedenavond drOhimself

heb het script een uur getest en het begin gaat helemaal goed , alleen op het einde van het uur word queue niet leeggemaakt en gaat dus door met muziek laden , daar ligt het denk ik aan .

Met vriendelijke groet
Jouke

[drOhimself]

Ik denk dat je de onderste tijd regel niet correct hebt ingevuld.
Probeer er aan te denken om iedere keer het script mee te zenden, zodat ik direct kan zien waarmee je draait.

[valkenier]

Code: Selecteer alles

PAL.Loop:=True;
writeln(' Wachten op start uur');
PAL.LockExecution;
   // Vul hieronder de 'start'-tijd in.
   while ((Now >= T['17:57:20']) and (Now <= T['17:57:29'])) do
      begin
         PAL.UnLockExecution;
            Queue.Clear;
            var QueueTime : Integer = (60*60*1050);
            While Queue.Duration < QueueTime do 
               Begin 
                  Cat['Engels'].QueueBottom(smLemmingLogic, EnforceRules);
               end; 
         PAL.LockExecution;
      end;
PAL.UnLockExecution;
writeln(' Wachten op einde uur');
PAL.LockExecution;
   // Vul hieronder de 'eind'-tijd in.
   while ((Now >= T['18:57:20']) and (Now <= T['18:57:29'])) do
      begin
         PAL.UnLockExecution;
            Queue.Clear;
            writeln(' Klaar');
         PAL.LockExecution;
      end;
PAL.UnLockExecution;

Dit is het script dat ik van je heb gekregen.
Het begin werkt helemaal goed (17:57:20 dan gooid hij de platen erin , maar dan moet hij eigenlijk om 18:57:20 de queue leeggooien, omdat daarna het nieuws eraan komt en de normale programmering verder gaat.
Sorry dat ik het een beetje vreemd overbreng, maar er nu bijna zelf niets meer van [smilie=blush2.gif]

[drOhimself]

Ik ga hem hier nog eens testen, snap niet waarom ie het eerder bij mij wel deed.......
22:00 moet ik wel weten.......

[drOhimself]

Gaat hier helemaal goed hoor !
Ik heb de eerste writeln-regel eruit gehaald ('Wachten op start uur') en de wacht tijd aan het eind van het uur iets verhoogd, zodoende heeft SAM iets meer tijd om de queue leeg te maken, mogelijk was het te krap ingesteld.

Code: Selecteer alles

// Vult de lege queue aan begin van uur met songs uit 1 CAT
// Leegt de queue weer aan eind van uur
PAL.Loop:=True;
PAL.LockExecution;
   // Vul hieronder de 'start'-tijd in.
   while ((Now >= T['21:51:20']) and (Now <= T['21:51:29'])) do
      begin
         PAL.UnLockExecution;
            Queue.Clear;
            var QueueTime : Integer = (60*60*1050);
            While Queue.Duration < QueueTime do 
               Begin 
                  // Cat['Engels'].QueueBottom(smLemmingLogic, EnforceRules);
               end; 
         PAL.LockExecution;
      end;
PAL.UnLockExecution;
writeln(' Wachten op einde uur');
PAL.LockExecution;
   // Vul hieronder de 'eind'-tijd in. MISSCHIEN IETS LANGER NODIG ??
   while ((Now >= T['21:57:20']) and (Now <= T['21:57:32'])) do
      begin
         PAL.UnLockExecution;
            Queue.Clear;
            writeln('Klaar');
         PAL.LockExecution;
      end;
PAL.UnLockExecution;

[drOhimself]

Inmiddels is probleem opgelost.
De eind tijd stond niet goed ingesteld.