Script om het uur

[carl-jackson]

Hi,

Ik heb verschillende uurjingles, bijvoorbeeld : "Goeiemiddag en welkom bij SupermusicFM, het is 12u".
Zo heb ik jingles voor elk uur.
Hoe kan ik er dan voor zorgen dat telkens als er een nieuw uur is automatisch STIPT de uurjingle wordt gespeeld?
Daarna volgt gewoon mijn muziek. Zoiets van Cat['Music (All)'] zeker?

Met vriendelijke groeten,

Carl Jackson

[Wout]

Met een PAL-script kan je het volgende maken.
(opslaan als uurjingle.PAL, via kladblok)

Code: Selecteer alles

PAL.Loop:=true;

PAL.WaitForTime(T['23:59:59']);
 Queue.AddFile('c:\Jingles\00uur.mp3',ipTop);
  ActivePlayer.FadeToNext;

PAL.WaitForTime(T['01:00:00']);
 Queue.AddFile('c:\Jingles\01uur.mp3',ipTop);
  ActivePlayer.FadeToNext;

PAL.WaitForTime(T['02:00:00']);
 Queue.AddFile('c:\Jingles\02uur.mp3',ipTop);
  ActivePlayer.FadeToNext;

PAL.WaitForTime(T['03:00:00']);
 Queue.AddFile('c:\Jingles\03uur.mp3',ipTop);
  ActivePlayer.FadeToNext;

...enzvoorts

Als je je muziek doet via het Clockwheel dan doet de PAL automatisch ieder uur je jingle afspelen.

[carl-jackson]

Ok, heel hard bedankt!
Zal binnenkort eens proberen want ben nu niet thuis!!

[carl-jackson]

Heb het uitgetest maar jammergenoeg werkt het niet. Ik krijg bij de status van mijn PAL-script : "Wating For time 23:59:59". Waarschijnlijk bekijkt het script enkel de eerste lijnen en daar staat dat SAM moet wachten tot het 23u59:59 is. Heb ook 23:59:59 al eens onderaan gezet maar dan beginnen alle uurjingles gewoon na elkaar te spelen

Hieronder de code van uuropener.PAL:

Code: Selecteer alles

PAL.Loop:=true;

PAL.WaitForTime(T['23:59:59']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 12u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['01:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 13u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['02:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 14u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['03:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 15u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['04:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 16u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['05:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 17u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['06:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 18u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['07:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 19u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['08:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 20u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['09:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 21u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['10:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 10u00 & 22u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['11:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 11u00 & 23u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['12:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 12u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['13:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 13u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['14:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 14u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['15:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 15u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['16:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 16u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['17:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 17u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['18:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 18u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['19:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 19u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['20:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 20u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['21:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 09u00 & 21u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['22:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 10u00 & 22u00.mp3',ipTop);
ActivePlayer.FadeToNext;

PAL.WaitForTime(T['23:00:00']);
Queue.AddFile('H:\Super Music FM\Uuropener\Super Music FM Start 11u00 & 23u00.mp3',ipTop);
ActivePlayer.FadeToNext;

[Wout]

Klopt, was nog wat dingen vergeten.
Ben ook net begonnen met PAL.

Ben met de onderstaande bezig geweest en na talloze vastlopers met SAM :wallbash: is het me gelukt.

Code: Selecteer alles

PAL.Loop:=True;

PAL.LockExecution;

// 01 uur `s nachts
    while (Now >= T['00:00:01']) and (Now <= T['00:59:59']) do

begin
  PAL.WaitForTime(T['01:00:00']);
   Queue.AddFile('c:\opener.mp3',ipTop);
     ActivePlayer.FadeToNext;
end;

// 02 uur `s nachts
    while (Now >= T['01:00:01']) and (Now <= T['01:59:59']) do

begin
  PAL.WaitForTime(T['02:00:00']);
   Queue.AddFile('c:\opener.mp3',ipTop);
     ActivePlayer.FadeToNext;
end;

// 03 uur `s nachts
    while (Now >= T['02:00:01']) and (Now <= T['02:59:59']) do

begin
  PAL.....
enz enz