BroadcasterForum Nederland

Code: Selecteer alles

PAL.Loop:=True;

    PAL.LockExecution;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
var Dinsdag      : Boolean;
var Donderdag    : Boolean;
var DDays        : Boolean;
var Begintijd    : string = '20:00:00'; // Begintijd
var Eindtijd     : string = '22:59:59'; // Eindtijd
var QueueTimeUur : Integer = 3*(60*60*1200);  //1=1uur 2=2uur 3=3uur om X uur muziek te vullen :)
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// Enkele dag, De Dinsdag
Dinsdag := (DayOfWeek(Now) = Tuesday);
// Enkele dag, De Donderdag
Donderdag := (DayOfWeek(Now) = Thursday);
//Hieronder kan je dagen combineren :)
//------------------------------------------------------------------------------
// Alle D-dagen, Dinsdag & Donderdag
DDays := (Dinsdag or Donderdag);
//------------------------------------------------------------------------------
//+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-

while (DDays) and ((Now >= T[Begintijd]) and (Now <= T[Eindtijd])) do
 begin

Queue.Clear;

    While Queue.Duration < QueueTimeUur do
  Begin
Cat['Nederlands'].QueueBottom(smLRP, EnforceRules);
Cat['Nederlands'].QueueBottom(smLRP, EnforceRules);
  end;

ActivePlayer.FadeTonext;
 
PAL.WaitForTime(T[Eindtijd]);
ActivePlayer.FadeTonext;

 end;
 
// Onderstaand regel altijd als laatste houden.
  PAL.UnLockExecution;