PAL script

Kletsen over van alles en nog wat !
Plaats reactie
variable

PAL script

Ongelezen bericht door variable »

Hoi.

ik heb een vraag is er een script voor dat je op een willekeurige dat 1 uurtje andere muziek kunt draaien als de non-stop loopt
bijvoorbeeld wij draaien normaal top 40 muziek en dat je 1 uurtje van de dag trance muziek kunt draaien en dat hij naar het uur weer overgaat naar top 40 muziek

ik hoop dat mij iemand kan helpen
MVG henk
Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: PAL script

Ongelezen bericht door drOhimself »

Zo'n script moet hier wel te vinden zijn.
Ik denk alleen dat ik net zo veel tijd kwijt ben met zoeken.
Groedjez,
drO
variable

Re: PAL script

Ongelezen bericht door variable »

Hoi drO

Ben al een hele week aan het zoeken op dit mooie form
maar ben het nog niet tegen gekomen

groetjes henk
Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: PAL script

Ongelezen bericht door drOhimself »

Hoe heb je momenteel je non-stop ingericht ?
Ook met een PAL script ?
Groedjez,
drO
variable

Re: PAL script

Ongelezen bericht door variable »

Hoi drO

Heb nu de nonstop draaien met de clockwheel
en dat draait heel mooi.
Maar ik zocht een PAL script dat je een middag of morgen in de week kon programmeren dat er andere muziek in de queue komt bijvoorbeeld top 40 muziek van 12:00 tot 18:00 en dat hij stopt en de clockwheel de queue weer vol gooit met muziek

mvg henk
variable

Re: PAL script

Ongelezen bericht door variable »

Hoi drO

Ik heb hier op het form een PAL script gevonden en zie dat hij 1 uur muziek uit een bepaalde Cat haalt
nu is mij vraag kan ik zie tijden ook aan passen dat hij er 2uur van maakt en instellen op een bepaalde dag

en de vraag is waar dient deze regel voor var QueueTime : Integer = (60*60*1050);
ik hoop dat jij mij kan helpen

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;
Mvg Henk
Laatst gewijzigd door drOhimself op 25 mei 2017, 19:04, 1 keer totaal gewijzigd.
Reden: Code in [ code ] gezet
Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: PAL script

Ongelezen bericht door drOhimself »

Ja, deze is perfect om te gebruiken !
Dus zorg wel dat je de songs die je in die één (of twee) uur wilt gebruiken in een category staan bij jou.

Uit de PAL :
// Cat['Engels'].QueueBottom(smLemmingLogic, EnforceRules);
Dus hier een een Category 'Engels' aanwezig, let daar op, of pas het aan.
Vergeet ook niet die // weg te halen want dat wordt die regel als 'comment' gezien en NIET uitgevoerd.

Uit de PAL :
// Vul hieronder de 'start'-tijd in.
while ((Now >= T['21:51:20']) and (Now <= T['21:51:29'])) do

Als je bijvoorbeeld dat uur wilt beginnen om 22.00, dan zou ik die tijd even wat dichter bij 22.00 plaatsen, dus dan zou het worden :
// Vul hieronder de 'start'-tijd in.
while ((Now >= T['21:59:20']) and (Now <= T['21:59:29'])) do

Wil je één uur hebben, dan sluit je af met deze regel :
// Vul hieronder de 'eind'-tijd in. MISSCHIEN IETS LANGER NODIG ??
while ((Now >= T['22:59:20']) and (Now <= T['22:59:29'])) do

Wil je twéé uur hebben, dan sluit je af met deze regel :
// Vul hieronder de 'eind'-tijd in. MISSCHIEN IETS LANGER NODIG ??
while ((Now >= T['23:59:20']) and (Now <= T['23:59:29'])) do

De regel var QueueTime : Integer = (60*60*1050);
is er om de queue voor ongeveer één uur te vullen, maar meestal wordt er 1200 ipv 1050 gebruikt.
Intern werken PALscipts met tijdseenheden van microseconden.
Niet iets om je druk om te maken, kijk maar eens tot hoever je queue gevuld wordt met 1050.
Is dat te weinig voor één uur, verhoog die 1050 dan naar 1200.

Om het vullen van je queue goed uit te voeren zou je ook nog deze regel kunnen bekijken :
var QueueTime : Integer = 3*(60*60*1200); //1=1uur 2=2uur 3=3uur om X uur muziek te vullen :)

Snap je die ?
Groedjez,
drO
variable

Re: PAL script

Ongelezen bericht door variable »

Hoi drO

Ik heb het script in sam geplakt en aangepast maar hij doet het gewoon niet
heb van alles geprobeerd maar ik kom er niet uit

mvg henk
Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: PAL script

Ongelezen bericht door drOhimself »

Okay, krijg je foutmeldingen ?
Plaats hier aub JOUW palscript dan kunnen we eens kijken wat ie doet.


Verzonden vanaf mijn iPhone met Tapatalk
Groedjez,
drO
Gebruikersavatar
Arjan
**
Berichten: 41
Lid geworden op: 10 aug 2007, 17:59
SAM-versie: 4.4.2.
Database: FireBird
Windows: 7 64-bits

Re: PAL script

Ongelezen bericht door Arjan »

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['19:59:20']) and (Now <= T['19:59:29'])) do
      begin
         PAL.UnLockExecution;
            Queue.Clear;
            var QueueTime : Integer = (60*60*1050);
            While Queue.Duration < QueueTime do 
               Begin 
                  // Cat['polka'].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['20:59:20']) and (Now <= T['20:59:29'])) do
      begin
         PAL.UnLockExecution;
            Queue.Clear;
            writeln('Klaar');
         PAL.LockExecution;
      end;
PAL.UnLockExecution;
Hoi

ik heb deze PAL script ook bij mij doet hij het ook niet.
bij output geeft hij aan. Wachten op einde uur. of hoort dat zo?



Groeten Arjan
Plaats reactie