Aangepaste weekloper

[tinus102]

Code: Selecteer alles

PAL.Loop:=True;

 var tijd, uur : string;
 var D : DateTime;

   D := T['+01:00:00'];
tijd := FormatDateTime('hh', D);
  uur := 'c:\' + tijd + '.mp3';

    D := T['XX:59:54'];

 begin
    PAL.WaitForTime(D);
        Queue.Addfile(uur, ipTop);
    ActivePlayer.FadeTonext;
 end; 

Misschien vraag ik wel te veel maar als ik deze weekloper gebruik en ik wil na het nieuws alleen op donderdag en vrijdag op 2 verschillende tijden een internet stream geopende hebben wat moet ik dan aanpassen.

Nu gebruik ik de uitgebreide weekloper om dit te realiseren. Maar ik wil het graag wat korter en overzichtelijker maken.

Alvast bedankt

[Wout]

Denk dat het makkelijker is om dat via Event Schudeler te regelen.

[tinus102]

Ik regel de muziek via de Event Scheduler maar wat ik wil is eigenlijk het volgende

Is het donderdag 17:00 uur dan open na nieuws direct naar de stream te gaan.
ditzelfde geld voor donderdag 18:00 uur en vrijdag 19:00 uur en vrijdag 20:00 uur.

Via de Event Scheduler kan ik moeilijk de eind tijd van het nieuws berekenen of vast stellen.

Ik hoop dat je begrijpt wat ik bedoel.

[Gerrit]

Misschien dat je het met deze PAL kunt uitvoeren.
3 palletjes met verschillende uren en dagen maken (aanpassen), dan zou het moeten lukken.

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
  Queue.AddFile('http://XXX.XX.XX.125:8080',ipTop);
  end;

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

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

Suc6,

Gerrit.