PAL script voor jingles

[Advil]

Heey iedereen,

Ik ben al ff op zoek naar een script voor jingles. Ik heb er al 1 namelijk deze:

Code: Selecteer alles

PAL.Loop:=True;
Cat['Jingles nieuw'].QueueTop(smLRP, NoRules);
PAL.WaitForPlayCount(5);

Maar het probleem is,

Ik heb jingles voor het weekend, de ochtend, avond, middag en namiddag. Dus nu zou ik graag een script willen, die kijkt naar welke dag we zijn (voor de weekend jingles) en dat hij ook kijkt naar de tijd,

Dat dus van 6.00u tot 11.00 uur de jingle goedemorgen speelt.
van 12.00 tot 13.00 uur de jingle goedemiddag
van 14.00 tot 18.00 uur goede namiddag
van 19.00 tot 23.00 uur jingle goede avond.
En ook nog van 00.00 tot 5.00 uur jingle goede nacht.

Maar 1 probleem denk ik, ik heb meerdere andere jingles, en die zouden daar ook nog tussen mogen. en ik heb ook nog verschillende soorten jingles van goede middag ect...

Als iemand mij zou kunnen helpen, zou ik héél erg blij zijn!

Alvast bedankt!

[Wout]

Je kan de week-PAL verbouwen met alleen de jingle erin.

[Advil]

euh.... Ik kan NIETS van PAL. Dus ik heb dat ook geprobeerd om dat te doen, maar hij blokkeerde complet, en het werkt dus ook niet.

[Wout]

Probeer anders deze PAL eens om te bouwen.
viewtopic.php?f=81&t=2232&hilit=verschi ... ren#p16014

[Wout]

Nou vooruit dan, omdat ik me verveelde.
Een PAL voor je behoefte.

Code: Selecteer alles

PAL.Loop := True ;

    // function begin
    function Jingle(start:integer; eind:integer; i:string; wacht:integer): string ;
    begin    
        var tijd : string ;
        
        if eind = 24 then 
        begin 
            eind := 23 ; 
            tijd := ':59:59'; 
        end
        else tijd := ':00:00' ;
        
        if (Now >= T[IntToStr(start)+':00:00']) and (Now < T[IntToStr(eind)+tijd]) then
        begin
            Queue.AddFile('c:\jingle\'+i+'.mp3',ipTop) ;
            PAL.WaitForPlayCount(wacht) ;
        end ;
    end ;
    // function eind

    // begin tijd, eind tijd, naam van jingle, en wachttijd per plaat
    jingle(00,06,'nacht',5) ;
    jingle(06,12,'ochtend',5) ;
    jingle(12,18,'middag',5) ;
    jingle(18,24,'avond',5) ;

// maart 2013, broadcasterforum.nl   

[Advil]

Bedankt,

Is die zo goed ingevuld?

Code: Selecteer alles

PAL.Loop := True ;

    // function begin
    function Jingle(start:integer; eind:integer; i:string; wacht:integer): string ;
    begin    
        var tijd : string ;
        
        if eind = 24 then 
        begin 
            eind := 23 ; 
            tijd := ':59:59'; 
        end
        else tijd := ':00:00' ;
        
        if (Now >= T[IntToStr(start)+':00:00']) and (Now < T[IntToStr(eind)+tijd]) then
        begin
            Queue.AddFile('C:\Users\Robin\Saved Games\muziek\Jingles ClubFM Nieuw'+i+'.mp3',ipTop) ;
            PAL.WaitForPlayCount(wacht) ;
        end ;
    end ;
    // function eind

    // begin tijd, eind tijd, naam van jingle, en wachttijd per plaat
    jingle(00,06,'nacht',5) ;
    jingle(06,12,'ochtend',5) ;
    jingle(12,18,'middag',5) ;
    jingle(18,24,'avond',5) ;

// maart 2013, broadcasterforum.nl   

[drOhimself]

Zal je zelf even moeten testen.
Kunnen we niet zelf doen.
Bij mij werkt ie.....

[Advil]

Bij mij werkt hij niet, ik weet zelfs niet hoe ik hem moet juistzetten...

[Wout]

hmm, dan zal je een fout hebben gemaakt in je directory of een spatie te weinig.

Misschien is het verstandiger om eerst te starten met Event Scheduler (ES)
aangezien je nog maar weinig weet van PAL.
(Voor PAL heb je geduld nodig en doorzettingsvermogen)
ES staat in SAM bij desktop B.
Er staat op het forum het een en ander uitgelegd over ES.

Tip! lees onderstaande linken ook eens door.
viewtopic.php?t=2656&p=16782#p16782
viewtopic.php?f=81&t=2909#p18308
viewtopic.php?f=216&t=1938#p12675
viewtopic.php?f=216&t=2910#p18329

[drOhimself]

Jouw regel met je directory :

Code: Selecteer alles

Queue.AddFile('C:\Users\Robin\Saved Games\muziek\Jingles ClubFM Nieuw'+i+'.mp3',ipTop) ;

lijkt wel niet goed....
Je bent de laatste \ vergeten.
Dus dan moet het zo worden :

Code: Selecteer alles

Queue.AddFile('C:\Users\Robin\Saved Games\muziek\Jingles ClubFM Nieuw\'+i+'.mp3',ipTop) ;

Je had slimmer gehandeld om gewoon even een directory 'c:\jingles' aan te maken, daarin je jingles zetten, en dan kon je de hele PAL van Wout zo gebruiken.

[Advil]

Moet ik dan bij die onderste regels:

// begin tijd, eind tijd, naam van jingle, en wachttijd per plaat
jingle(00,06,'nacht',5) ;
jingle(06,12,'ochtend',5) ;
jingle(12,18,'middag',5) ;
jingle(18,24,'avond',5) ;

Die 'nacht' ect.. Is dat de volledige naam van de jingle? of is dat dan deze naam dat de file moet hebben: jingle avond ??? graag wat meer uitleg.

[drOhimself]

Klopt, dat zijn de namen van de jingles.
Dus in de map C:\Users\Robin\Saved Games\muziek\Jingles ClubFM Nieuw\ heb je dan 4 jingles staan, genaamd :
nacht.mp3
ochtend.mp3
middag.mp3
avond.mp3

Let goed op dat je de regel met
Queue.AddFile('C:\Users\Robin\Saved Games\muziek\Jingles ClubFM Nieuw\'+i+'.mp3',ipTop) ;
goed neerzet, dus met de \ achter Nieuw.

[Advil]

thxxxxxx Dus ik kan ook de naam veranderen van de jingles? ;p

[edit] Het lukt!, ik kan de namen van de jingles veranderen. Bedankt Wout en Dro

Jullie zijn pro

[drOhimself]

Da's goed te horen !
We gooien er een slotje op.