Jingel op bepaalde dagen door mix heen!

[fratam]

Hoi allemaal,

ik wil op de vrijdag en de zaterdagavonden van 1800-0200 deze PAL gebruiken om door mijn mix programma's iedere 15 min een shout te laten klinken!

nu is deze onderstaande PAL voor de hele week en ieder uur

iemand een idee dat deze PAL alleen op de aangegeven dagen en tijden de shouts laat klinken???

Code: Selecteer alles

PAL.Loop := True;

var Song : TSongInfo;
Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules);

  PAL.WaitForTime('+00:15:00');  //elke kwartier je station-shout over je muziek heen
   Aux1.QueueSong(Song);
    Aux1.Play;

  
Code:
 PAL.WaitForTime('XX:15:00');  //elk uur om XX:15 je station-shout over je muziek heen  

bedankt alvast

[Wout]

Code: Selecteer alles

PAL.Loop:=True;

    PAL.LockExecution;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
var Vrijdag    : Boolean;
var Zaterdag   : Boolean;
var Weekend    : Boolean;
var Song       : TSongInfo;

var Begintijd  : string = '18:00:00'; // Begintijd
var Eindtijd   : string = '23:59:59'; // Eindtijd
var Begintijd1 : string = '00:00:00'; // Begintijd1
var Eindtijd1  : string = '01:59:59'; // Eindtijd2
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// Enkele dag, De Vrijdag
Vrijdag := (DayOfWeek(Now) = Friday);
// Enkele dag, De Zaterdag
Zaterdag := (DayOfWeek(Now) = Saturday);
//Hieronder kan je dagen combineren :)
//------------------------------------------------------------------------------
// Alle dagen in het weekend,Vrijdag en Zaterdag
Weekend := (Vrijdag or Zaterdag);
//------------------------------------------------------------------------------
//+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
    PAL.UnLockExecution;

while (Weekend) and ((Now >= T[Begintijd] ) and (Now <= T[Eindtijd] ))
                 or ((Now >= T[Begintijd1]) and (Now <= T[Eindtijd1])) do
 begin

Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules);

  PAL.WaitForTime('+00:15:00');  //elke kwartier je station-shout over je muziek heen
   Aux1.QueueSong(Song);
    Aux1.Play;

end ;
 

[skeleton]

En hoe doe ik dat voor het nieuws ?

Ik heb een nieuwsbericht ieder uur, (behalve tijdens de nacht), maar dit is enkel gesproken (dus zonder achtergrond muziek).
Ik zou graag tijdens het nieuws een achtergrond muziekje hebben.
1 probleem : Soms begint het nieuws om vb 19:00:20 (uur:min:sec) maar soms ook om 19:01:34 maar soms ook om 18:59:54 en soms ook om .... en ook om ... enz enz
Ik wil maar zeggen dat het niet altijd STIPT begint.

Kan sam hier ook zorgen voor een passende tune ENKEL als vb een bepaalde MP3 speelt (nieuws.mp3) ?

[Wout]

Ik zou graag tijdens het nieuws een achtergrond muziekje hebben.

Het gebruik van NieuwsDonwloadTool zal je [s]probleem[/s] uitdaging oplossen.
viewtopic.php?f=81&t=2086&p=13624&hilit ... ool#p13624