Vraag over PAL op vaste tijden per artiest

[frank12]

Beste Mensen

Ik zit met de volgende probleem.
We hebben 5 Promotie artiesten op onze zender. Deze mogen van de Sena en Buma Licentie niet vaker dan 1x in de 2,5 gedraait worden. Daarom gaan we eigelijk op 3 uur zitten.
Op dit moment staan de promo artiesten allemaal in 1 map.

Nu willen wij dat om een bepaalde tijd 1 artiest gekozen worden en in de Queue gezet word. En dit na een bepaalde tijd weer herhaald. Maar dat die dan wel de volgende artiest pakt.

Voorbeeld:
14:00 - Marcel Zomers - 1 Dag zomers
14:40 - Wim Vos - De smokkelaar
15:20 - Zanger Geert - Mooi meisje
Enzenz........
Maar wel zo dat 1 artiest niet vaker dan 1x per 3 uur te horen is, met telkens een ander nummer
Heeft iemand misschien een idee hoe ik dit het beste kan oplossen doormiddel van een palletje.
Indien het nodig is kunnen wij ook elke artiest in een eigen map zetten.

Elke mogelijke antwoord bedanken wij jullie voor.


MvG Frank

[Wout]

En dit?

Dan draait het elke artiest pas na 3 uur.
Kan je rustig je eigen format aanhouden met de "promotie-mappen" erin.

[frank12]

Ja dat zal idd een optie zijn.
we draaien eigelijk nu nog niet met een format.
We hebben op dit moment via event de jingle's en reclame spots lopen. Daar naast hebben we onze map leeg gekiept in sam (35,000 tracks) en draaien met de nonstop.
we zijn op dit moment wel bezig om een week format op te zetten voor de nonstop uren.
Dit door middel van een week script van de forum. Alleen wegens plots minder tijd er voor, zal het week format langer meoten wachten. Daarom was ik opzoek na een palletje die deze tijd voor ons goed kon overbrugen max 3 maand.

Maar bedankt voor mee denken.

[frank12]

Ik kwam een scriptje tegen op het forum. Deze aan gepast na onze mappen.


Nu vroeg ik mij af op ik het volgende kan gebruiken, voor elke artiest.

Code: Selecteer alles

PAL.Loop := True;
PAL.WaitForTime('+00:30:05'); 
Cat[Marcel Zomers].QueueTop(smRandom, EnforceRules); ipTop;

PAL.Loop := True;
PAL.WaitForTime('+03:30:05'); 
Cat[Marcel Zomers].QueueTop(smRandom, EnforceRules); ipTop;

PAL.Loop := True;
PAL.WaitForTime('+06:30:05'); 
Cat[Marcel Zomers].QueueTop(smRandom, EnforceRules); ipTop;[/

Graag hoor ik jullie oordeel hier over, of dit gaat werken om de promo artiest elke 3 uur af te laten spelen.

[Kees]

Code: Selecteer alles

Cat[Marcel Zomers].QueueTop(smLRPA, EnforceRules); ipTop;

[frank12]

Bedankt Kees. We gaan dit even testen.
Sorry voor late antwoord, ben paar dagen ziek geweest.

[frank12]

Beste Sam gebruikers

Ik heb het bovenstaande script van het forum getrokken. Kees had mij een aangepast regel bij gedaan. Ma nu krijg ik de volgende error in het PAL script.

Code: Selecteer alles

Compiler Errors

Het script ziet er nu als volgt uit.

Code: Selecteer alles

PAL.Loop := True;
PAL.WaitForTime('+00:37:05'); 
Cat[Marcel Zomers].QueueTop(smLRPA, EnforceRules); ipTop;

PAL.Loop := True;
PAL.WaitForTime('+03:37:05'); 
Cat[Marcel Zomers].QueueTop(smLRPA, EnforceRules); ipTop;

PAL.Loop := True;
PAL.WaitForTime('+06:37:05'); 
Cat[Marcel Zomers].QueueTop(smLRPA, EnforceRules); ipTop;

PAL.Loop := True;
PAL.WaitForTime('+09:37:05'); 
Cat[Marcel Zomers].QueueTop(smLRPA, EnforceRules); ipTop;

PAL.Loop := True;
PAL.WaitForTime('+12:37:05'); 
Cat[Marcel Zomers].QueueTop(smLRPA, EnforceRules); ipTop;

PAL.Loop := True;
PAL.WaitForTime('+15:37:05'); 
Cat[Marcel Zomers].QueueTop(smLRPA, EnforceRules); ipTop;

PAL.Loop := True;
PAL.WaitForTime('+18:37:05'); 
Cat[Marcel Zomers].QueueTop(smLRPA, EnforceRules); ipTop;

PAL.Loop := True;
PAL.WaitForTime('+21:37:05'); 
Cat[Marcel Zomers].QueueTop(smLRPA, EnforceRules); ip

weet iemand waar het hier verkeert gaat. Elk mogelijk antwoord gaat mij dank na uit.

MvG Frank

[Wout]

Code: Selecteer alles

Cat[Marcel Zomers].QueueTop(smLRPA, EnforceRules); ipTop;

Der moeten nog ' ' tussen Marcel Zomers.
En ipTop; hoeft er niet in omdat er al QueueTop instaat.

Code: Selecteer alles

Cat['Marcel Zomers'].QueueTop(smLRPA, EnforceRules);

Code: Selecteer alles

PAL.Loop := True;
PAL.WaitForTime('+03:00:05'); //na elke 3 uur speelt SAM in de map Marcel Zomers
Cat['Marcel Zomers'].QueueTop(smLRPA, EnforceRules); 

[Kees]

En ipTop; hoeft er niet in omdat er al QueueTop instaat.

En waarom heb ik die fout niet gezien ?

[frank12]

Bedankt Kees.

Waarom je dat niet hebt gezien die fout weet ik niet. Ma wat maakt het uit. Iedereen ziet soms wat over hoofd.

Wel bedankt van deze zeide

[frank12]

Hoi Kees

Je had mij het volgende script gedaan.

Code: Selecteer alles

PAL.Loop := True;
PAL.WaitForTime('+03:00:05'); //na elke 3 uur speelt SAM in de map Marcel Zomers
Cat['Marcel Zomers'].QueueTop(smLRPA, EnforceRules); 

Deze werkt na behoren zoals jij het zij. Maar kan het zo gedaan worden dat wij de promo artiesten kunnen spreiden. Nu is het zo, dat als we een noodgedwonnen herstart moeten doen. Dat alle promotie artiesten in het zelfde uur voor bij komen en dit om de 3 uur. We zouden dan handmatig de script moeten starten om de artiesten gespreid over de 3 uur te krijgen.

Ik hoop dat je zo iets kan maken. Voor een voorbeeld hoe we de artiesten hebben in gedeelt zie een van mijn eerde geposte code.

Maar het komt op neer dat we het als volgt wouden laten draaien.

00:04:00 Zanger Geert
00:34:00 Marcel Zomers
01:04:00 Edwin Naber
01:34:00 Wim Vos
02:34:00 michel Bodifee

03:04:00 Zanger Geert
03:34:00 Marcel Zomers
04:04:00 Edwin Naber
04:34:00 Wim Vos
05:34:00 michel Bodifee
Enz...

We hopen dat dit mogelijk is.

MvG

[Kees]

Kijk..dat zijn de leuke ..daar ga ik voor !
FF geduld..ik sleutel wat in elkaar..

[frank12]

Kijk..dat zijn de leuke ..daar ga ik voor !
FF geduld..ik sleutel wat in elkaar..

:finga: Zie ik wist dat ik Kees weer blij kon maken met een leuk knutsel project.
Kees maak er zo als gewoonlijks weer wat leuks van. We wachten in spanning af.

Maar lange tijd jou niet gezien op het forum.
Fijn dat je het Team weer bent komen versterken.
Top

[frank12]

Beste Kees

Enige weken gelden hadden we even over een palletje.
Je wou hier voor ons na kijken. Ik wou even vragen hoe het er voorstond.
Of dat je nog ff de tijd nodig hebt.

Hoor het graag even van je.

Groet

[Kees]

Beste Kees

Enige weken gelden hadden we even over een palletje.
Je wou hier voor ons na kijken. Ik wou even vragen hoe het er voorstond.
Of dat je nog ff de tijd nodig hebt.

Hoor het graag even van je.

Groet

ben er druk mee bezig

[frank12]

Heej die Kees

ik kwam even om de hoek kijken hoe het er voorstond met het script.
Of was je er nog mee bezig?

Ik hoor het wel

MvG Frank

[ojee66]

in plaats van +3 uur er vaste tijden van maken????

De artistnamen als variabelen definieren

Hoef je alleen de eerste x regels te wijzigen

[ojee66]

Code: Selecteer alles

PAL.Loop := True;
var tijd : String;
var D : DateTime;
var Artist1,Artist2,Artist3 : TSongInfo;

Artist1 := CAT['promo artist1'].ChooseSong(smRandom,EnforceRules);
Artist2 := CAT['promo artist2'].ChooseSong(smRandom,EnforceRules);
Artist3 := CAT['promo artist3'].ChooseSong(smRandom,EnforceRules);

PAL.WaitForTime('XX:15:00');

tijd := FormatDateTime('hh', Now);
if  (tijd = '00') then tijd := '24';
writeln (tijd);

 begin
 if ((tijd = '14') OR (tijd = '17') OR (tijd = '20')) then IdlePlayer.QueueSong(Artist1)
 else if ((tijd = '15') OR (tijd = '18') OR (tijd = '21')) then IdlePlayer.QueueSong(Artist2)
 else if ((tijd = '16') OR (tijd = '19') OR (tijd = '22')) then IdlePlayer.QueueSong(Artist3)
  end;

niet getest!!!

[frank12]

Beste

Bedankt voor deze PAL.
Maar mag ik vragen wat deze prezies doet.
Want van de tijds indeling snap ik eigelijk niet veel van.

Ik ga hem morgen even hier testen of hij het doet.

Bedankt al vast voor deze.

[Wout]

. Deze mogen van de Sena en Buma Licentie niet vaker dan 1x in de 2,5 gedraait worden.

Om even een oud topic te kicken.

Ik heb contact gehad met Buma/Stemra over het feit 1 x per 2,5 uur.
Dat klopt niet.

Je mag onbeperkt dezelfde artiest + nummer achter elkaar draaien.
Al heb je maar 1 nummer in je SAM, die mag je onbeperkt achter elkaar laten draaien.
(mits je natuurlijk Buma/Stemra rechten betaald)

Tevens mogen ze het nummer ook onbeperkt verzoeken.
Dat je dat zelf wilt is een 2-de.