controle PAL script nieuws

[FH8]

Geduld is een schone zaak.... Ik heb nu de volgende PAL getest

Code: Selecteer alles

PAL.Loop:=True;

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

   D := T['+01:00:00']; //De tijd nu + 1 uur erbij
  C1 := T['07:00:00']; //De Tijd dat het nieuws weer meedoet.

 tijd := FormatDateTime('hh', D); //maak de uur aan. 18..19..etc
  

    D := T['XX:59:57'];  //de tijd voor elk uur te starten
 writeln(D);

 Begin
    PAL.WaitForTime(D);   //wachten op tijd
     if D >= C1  then
      Begin            //Thnx Evert :)
        Queue.AddFile('C:\Jingles\uuropener.mp3',ipTop);
      End;
  Queue.AddFile('E:\Audio\nieuws.mp3',ipTop);  
 Queue.AddFile('C:\\Jingles\nieuwsjingle.mp3',ipTop);
 End;

ActivePlayer.FadeToNext; 

En ja hoor, ieder uur nieuws/weer met bijbehorende vormgeving. Nu nog een uursluiter erin toevoegen en dan is deze missie ook weer geslaagd. Het eindresultaat post ik zeker hier!! Nogmaals dank Wout, voor het sturen in de goede richting!

[FH8]

De PAL is nu compleet inclusief de uursluiter. Het draait als een zonnetje. Case closed!!

Code: Selecteer alles

PAL.Loop:=True;

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

   D := T['+01:00:00']; //De tijd nu + 1 uur erbij
  C1 := T['07:00:00']; //De Tijd dat het nieuws weer meedoet.

 tijd := FormatDateTime('hh', D); //maak de uur aan. 18..19..etc
  

    D := T['XX:59:57'];  //de tijd voor elk uur te starten
 writeln(D);

 Begin
    PAL.WaitForTime(D);   //wachten op tijd
     if D >= C1  then
      Begin            //Thnx Evert :)
        Queue.AddFile('C:\Jingles\uuropener.mp3',ipTop);
      End;
  Queue.AddFile('E:\Audio\nieuws.mp3',ipTop);  
 Queue.AddFile('C:\\Jingles\nieuwsjingle.mp3',ipTop);
Queue.AddFile('C:\Jingles\zometeenmeer.mp3',ipTop);
 End;

ActivePlayer.FadeToNext; 

[Wout]

Tja, weet niet wat ik ervan moet denken.
De PAL waarvoor jij het wilt gebruiken, nieuws tussen 07:00 t/m 24:00 gaat niet lukken met bovenstaande PAL.

Heb maar een juiste gemaakt, dat dan andere gebruikers niet in de war raken.
Tevens heb ik wat commentaar bij gedaan, waardoor het 1 en ander duidelijker wordt.

Code: Selecteer alles

PAL.Loop := True ;

    var News : DateTime ;

    // het nieuws gaat mee doen van 07:00 t/m einde dag
    News := T['07:00:00'] ; 

    // hier wordt elk uur 3 seconden voor het uur gewacht
    PAL.WaitForTime(T['XX:59:57']) ;
    // als de tijd ouder is dan de nieuws-tijd dan doet de nieuws.mp3 mee
    // ** Begin nieuws ** //
    if Now >= News  then
    Begin 
        Queue.AddFile('E:\Audio\nieuws.mp3',ipTop) ; 
        Queue.AddFile('C:\Jingles\nieuwsjingle.mp3',ipTop) ;           
    End ;
    // ** Einde nieuws ** //
    // hieronder de mp3 die je elk uur hoort
    Queue.AddFile('C:\Jingles\uuropener.mp3',ipTop) ;
    Queue.AddFile('C:\Jingles\zometeenmeer.mp3',ipTop) ;
    // nadat de script wel of geen nieuws heeft geplaats dan volgt er altijd een fade-plaats
    ActivePlayer.FadeToNext ;  

[FH8]

Dat is dan wel een beetje vreemd. De door mij gebruikte PAL draait al een dag zonder problemen!? Wellicht zit daar toch iets goeds in. Ik krijg ieder uur netjes het nieuws incl. vormgeving...
Maar ik ga dan ook maar eens die van jou testen. JIj bent de ten slotte de pro!
Thanx!!!

[FH8]

Heb het script van Wout getest. Nu gaat alle vormgeving in de verkeerde volgorde afgespeeld worden.
Nu gaat het zo:

nieuwsjingle.mp3
zometeenmeer.mp3
uuropener.mp3
nieuws.mp3

Maar het moet zo!

zometeenmeer.mp3
nieuwsjingle.mp3
nieuws.mp3
uuropener.mp3

Ben ik weer aan zet

[FH8]

Om dan het verhaal maar compleet te maken. Met dank aan Wout.

Code: Selecteer alles

PAL.Loop := True ;

    var News : DateTime ;

    // het nieuws gaat mee doen van 07:00 t/m einde dag
    News := T['07:00:00'] ; 

    // hier wordt elk uur 3 seconden voor het uur gewacht
    PAL.WaitForTime(T['XX:59:57']) ;
    // als de tijd ouder is dan de nieuws-tijd dan doet de nieuws.mp3 mee
    // ** Begin nieuws ** //
    if Now >= News  then
    Begin 
        Queue.AddFile('C:\Jingles\uuropener.mp3',ipTop) ; 
        Queue.AddFile('E:\Audio\nieuws.mp3',ipTop) ;           
    End ;
    // ** Einde nieuws ** //
    // hieronder de mp3 die je elk uur hoort
    Queue.AddFile('C:\Jingles\nieuwsjingle.mp3',ipTop) ;
    Queue.AddFile('C:\Jingles\zometeenmeer.mp3',ipTop) ;
    // nadat de script wel of geen nieuws heeft geplaats dan volgt er altijd een fade-plaats
    ActivePlayer.FadeToNext ;  

Met deze PAL zit ook de vormgeving in de juiste volgorde!!

[FH8]

Alles loopt perfect. Dank je Wout, wat mij betreft nu dan case closed!