Temperatuur PAL! (weer-PAL)

[Wout]

Alweer een PAL, inderdaad de weer-PAL.

Wat doet deze PAL?
-Deze PAL regelt in de broeierige zomer-maanden of in de ijzige wintermaanden de muziek.
Als in de zomer de temperatuur boven de 25 graden uitkomt dan speelt hij een liedje af uit de map zomer.
En in de winter als de temperatuur onder de 5 graden uitkomt dan een liedje uit de map winter.
Dat doet het elke half uur van 7 uur `s ochtends tot 10 uur `s avonds.

Wat heb ik nodig ervoor?
-Onderstaande PAL en 1 map zomer met zomer-hits en 1 map winter met winter-hits.

Nog problemen?
-PAL werkt nu, het kan zijn dat ik in de toekomst nog uitbreid met regen/mist etc..
Probeer niet de URL te forceren en ook niet om de 5 minuten te laten refreshen.
Daarmee overbelast je me hoster ermee en kan het zijn dat andere er problemen mee ondervinden.

Voor de rest veel plezier ermee.

Code: Selecteer alles

PAL.Loop := True ;

    while ((Now >= T['07:00:00']) and (Now <= T['22:00:00'])) do
    begin
        var S : String ;
        var Song : TSongInfo ;
        Song := TSongInfo.Create ;

        // Hier haalt ie de temperatuur mee op
        S := WebToStr( 'http://woutfm.nl/wout/weer2.php' ) ;

        // Hier laat ie bij output zien de temperatuur
        WriteLn(s) ;    
        
        // artiest wordt aantal graden, het was niet anders ;)    
        Song['artist'] := S ;

        // als het kouder is dan 5 graden dan de map winter
        if  Song['artist'] <= 5 then
            Begin
                Cat['winter'].QueueTop(smLRP, EnforceRules) ;
                WriteLn('Brrr weer') ;
            End

        // als het warmer wordt dan 25 graden dan map zomer
        else if  Song['artist'] >= 25 then
            Begin
                Cat['zomer'].QueueTop(smLRP, NoRules) ;
                WriteLn('blote billen weer :)') ;
            End    ;
        
        // geheugen schoonmaken
        Song.Free ;    
        
        // en hier wacht ie steeds een half uurtje
        PAL.WaitForTime(T['NEXT30']) ;
    end;
// Wout Franken, Broadcasterforum.nl, 3 juli 2011      

[drOhimself]

uuuhhhh Wout, regelt deze PAL ook of het ZOMERS weer wordt ?
[smilie=yahoo.gif]

[qradio]

Ik vind dit toch wel grappig hoor. Zodra ik tijd heb ga ik hem inladen (y)

[hitradioliberty]

Hallo Woud,

Een heel interessant PAL script, ga hem ook deze week erin zetten.
Ik ben nu nog in het buitenland op vakantie.
Heb je ook voor ons het weer2.php script?


Groeten Ron

[qradio]

Werkt prima (y) Helaas komt de temperatuur de laatste tijd niet boven de 25 graden. Kan je daar ook een PAL voor schrijven [smilie=beach.gif] Ik heb de temperatuur dus als test enige tijd wat lager ingesteld en dat gaat prima. Uitbreiding op deze PAL is altijd welkom

[hitradioliberty]

Wout, werkte prima en vooral afgelopen weekend, we wachten af op het komend weekend want dan gaat de temperatuur weer tijdelijk omhoog.

[Robert]

Hé Wout,

Weer een mooi script van je. Kan je het script "weer2.php" ook online zetten ?
In mijn omgeving zit WeerstationKaatsheuvel.nl en daar mag ik de temperatuur vandaan halen.

Alvast bedankt,
Robert

[Wout]

Kan je het script "weer2.php" ook online zetten ?

Heb het anders gedaan ook om bandbreedte te besparen op mijn site.
kan je vanaf heden via google je weer op laten zoeken.
Verander bergen%20op%20zoom naar jouw gewenste woonplaats.

Code: Selecteer alles

PAL.Loop := True ;

    var S : String ;
    var starts, ends : Integer;
    var Song : TSongInfo ;
    Song := TSongInfo.Create ;

    // Hier haalt ie de temperatuur mee op
    S := WebToStr( 'http://www.google.com/ig/api?weather=bergen%20op%20zoom' ) ;
    PAL.WaitForTime('+00:00:05');

    starts := Pos('<temp_c data',S);
        
    if starts > 0 then
        Begin
            Delete(S, 1, starts + 13);
            ends := Pos('"/>', S);
            if ends > 0 then
                Begin
                    Delete(S, ends, 1000);
                End;
        End;

    // Hier laat ie bij output zien de temperatuur
    WriteLn(s) ;

    // artiest wordt aantal graden, het was niet anders ;)
    Song['artist'] := S ;

    // als het kouder is dan 5 graden dan de map winter
    if  Song['artist'] <= 5 then
        Begin
            Cat['winter'].QueueTop(smLRP, EnforceRules) ;
            WriteLn('Brrr weer') ;
        End

    // als het warmer wordt dan 25 graden dan map zomer
    else if  Song['artist'] >= 25 then
        Begin
            Cat['zomer'].QueueTop(smLRP, NoRules) ;
            WriteLn('blote billen weer :)') ;
        End ;

    // geheugen schoonmaken
    Song.Free ;

    // en hier wacht ie steeds een half uurtje
    PAL.WaitForTime(T['NEXT30']) ;

// Wout Franken, Broadcasterforum.nl, 3 juli 2011
// Wout Franken & inspiratie dankzij Evertje , Broadcasterforum.nl, 2 Februari 2012   

[hitradioliberty]

Wout bedankt, mooi script, ik heb deze meteen bij mij aangepast.
Scheelt voor jou weer bandbreedte.

Bedankt voor het delen van dit script.

[Wout]

Weer een kleine aanpassing gemaakt.
Nu hoef je geen extra mappen/categorieën te maken.

Hij kijkt nu naar de titel van een plaat en plaats het in je queue.

Het is iets makkelijker gemaakt met een config erin.
In de config kan je alles naar wens veranderen.

Maar let op!
woonplaats := 'bergen%20op%20zoom' ;
De spatie moeten worden veranderd in %20

Dan kan je de juiste temperatuur instellen waarbij het moet activeren.
winter_temp := '5' ;
Als het kouder wordt dan 5 graden dan krijg je een winter-plaatje
En bij de zomer is het net andersom.
Probeer niet de getallen van zomer & winter gelijk of te overlappen.

De zoekwoorden waarbij het zoekt in de titel`s van de muziek.
winter_woord_1 := '%winter%' ;

Hij zoekt alle nummers op met het woord winter erin.
de % is dat hij de hele titel kan zoeken, anders zoekt hij alleen met een nummer met 1 woord, winter.
Maar Winter In America willen we ook horen, daarom %

En het mag geen nummer pakken die al binnen 3 uur is geweest.
uur := '3' ;

Code: Selecteer alles

PAL.Loop := True ;

    var S, woonplaats, uur, winter_woord_1, winter_woord_2, winter_woord_3, zomer_woord_1, zomer_woord_2, zomer_woord_3, winter_temp, zomer_temp  : String ;
    var starts, ends : Integer;
    var Song : TSongInfo ;
    var Q : TDataSet;
    Song := TSongInfo.Create ;
    
    //*******CONFIG*******
    //********************
    
    woonplaats := 'bergen%20op%20zoom' ;     //spatie = %20
    
    winter_temp := '5' ;
    winter_woord_1 := '%winter%' ;
    winter_woord_2 := 'ice%' ;
    winter_woord_3 := '%cold%' ;
    
    zomer_temp := '25' ;
    zomer_woord_1 := '%zomer%' ;
    zomer_woord_2 := '%summer%' ;
    zomer_woord_3 := '%hot%' ;    
    
    uur := '3' ;   // alleen platen pakken die al 3 uur niet zijn geweest
    
    //********************
    //*****END*CONFIG*****

    // Hier haalt ie de temperatuur mee op
    S := WebToStr( 'http://www.google.com/ig/api?weather='+woonplaats ) ;
    PAL.WaitForTime('+00:00:05');

    starts := Pos('<temp_c data',S);
        
    if starts > 0 then
        Begin
            Delete(S, 1, starts + 13);
            ends := Pos('"/>', S);
            if ends > 0 then
                Begin
                    Delete(S, ends, 1000);
                End;
        End;

    // Hier laat ie bij output zien de temperatuur
    WriteLn(s) ;

    // artiest wordt aantal graden, het was niet anders ;)
    Song['artist'] := S ;

    // als het kouder is dan x graden dan de map winter
    if  Song['artist'] <= winter_temp then
        Begin
            WriteLn('Brrr weer') ;
            Q := Query('SELECT * FROM songlist where date_played <= DATE_SUB( NOW( ), INTERVAL :uur HOUR ) and  title like :1 or title like :2 or title like :3 LIMIT 1',[uur, winter_woord_1, winter_woord_2, winter_woord_3],False);
            Q.First;
            while not Q.EOF do
                begin
                    Queue.Addfile(Q['filename'],IpTop);
                    Q.Next;
                end;
            Q.Free;             
        End

    // als het warmer wordt dan x graden dan map zomer
    else if  Song['artist'] >= zomer_temp then
        Begin
            WriteLn('blote billen weer :)') ;        
            Q := Query('SELECT * FROM songlist where date_played <= DATE_SUB( NOW( ), INTERVAL :uur HOUR ) and  title like :1 or title like :2 or title like :3 LIMIT 1',[uur, zomer_woord_1, zomer_woord_2, zomer_woord_3],False);
            Q.First;
            while not Q.EOF do
                begin
                    Queue.Addfile(Q['filename'],IpTop);
                    Q.Next;
                end;
            Q.Free;                 
        End ;

    // geheugen schoonmaken
    Song.Free ;

    // en hier wacht ie steeds een half uurtje
    PAL.WaitForTime(T['NEXT30']) ;

// Wout Franken & inspiratie dankzij Evertje , Broadcasterforum.nl
// 3 juli 2011, 2 Februari 2012, 4 Februari 2012
 

[qradio]

Die Wout he! GEWELDIG!!! [smilie=good.gif] [smilie=good.gif]
Zucht, welke zal ik nou kiezen

Bedankt man [smilie=wink3.gif]

[Gerrit]

Ik weet het wel, ik kies voor de laatste, die andere zijn mij teveel werk.

Gerrit.

[RealTech]

Wout,

Script draait, maar hij pakt iedere keer hetzelfde nummer (Acda & De Munnik - Voicemail) uit mijn lijst (en ik heb er echt 50.000 instaan). Enig idee waar dit in kan zitten?

[Robert]

Hé Wout,

Je hebt het weer voor elkaar...... Helaas heb ik hetzelfde probleem als bij RealTech. Het script kiest steeds hetzelfde nummer uit. Enig idee waar dat aan ligt ? Ben zelf al aan het stoeien geweest maar tot dusver zonder resultaat.

Alvast bedankt Wout !!!

[Wout]

[s]Denk dat het aan :uur lig.
Zal vanavond een update maken.

Je kan de :uur vervangen door 3 (select * blabla 3 bla bla)[/s]
gedaan

[Wout]

Was vergeten wat () te plaatsen.

Tevens hoef je nu geen %20 gebruiken voor de spatie voor je woonplaats.
Dat mag nu weer met spatie`s.

Code: Selecteer alles

    PAL.Loop := True ;

        var S, woonplaats, uur, winter_woord_1, winter_woord_2, winter_woord_3, zomer_woord_1, zomer_woord_2, zomer_woord_3, winter_temp, zomer_temp  : String ;
        var starts, ends : Integer;
        var Song : TSongInfo ;
        var Q : TDataSet;
        Song := TSongInfo.Create ;

        //*******CONFIG*******
        //********************

        woonplaats := 'bergen op zoom' ;

        winter_temp := '5' ;
        winter_woord_1 := '%winter%' ;
        winter_woord_2 := 'ice%' ;
        winter_woord_3 := '%cold%' ;

        zomer_temp := '25' ;
        zomer_woord_1 := '%zomer%' ;
        zomer_woord_2 := '%summer%' ;
        zomer_woord_3 := '%hot%' ;

        uur := '3' ;   // alleen platen pakken die al 3 uur niet zijn geweest

        //********************
        //*****END*CONFIG*****

        // Hier haalt ie de temperatuur mee op
        S := WebToStr( 'http://www.google.com/ig/api?weather='+URLencode(woonplaats) ) ;
        PAL.WaitForTime('+00:00:05');

        starts := Pos('<temp_c data',S);

        if starts > 0 then
            Begin
                Delete(S, 1, starts + 13);
                ends := Pos('"/>', S);
                if ends > 0 then
                    Begin
                        Delete(S, ends, 1000);
                    End;
            End;

        // Hier laat ie bij output zien de temperatuur
        WriteLn(s) ;

        // artiest wordt aantal graden, het was niet anders ;)
        Song['artist'] := S ;

        // als het kouder is dan x graden dan de map winter
        if  Song['artist'] <= winter_temp then
            Begin
                WriteLn('Brrr weer') ;
                Q := Query('SELECT * FROM songlist where date_played <= DATE_SUB( NOW( ), INTERVAL :uur HOUR ) and  (title like :1 or title like :2 or title like :3) LIMIT 1',[uur, winter_woord_1, winter_woord_2, winter_woord_3],False);
                Q.First;
                while not Q.EOF do
                    begin
                        Queue.Addfile(Q['filename'],IpTop);
                        Q.Next;
                    end;
                Q.Free;
            End

        // als het warmer wordt dan x graden dan map zomer
        else if  Song['artist'] >= zomer_temp then
            Begin
                WriteLn('blote billen weer :)') ;
                Q := Query('SELECT * FROM songlist where date_played <= DATE_SUB( NOW( ), INTERVAL :uur HOUR ) and (title like :1 or title like :2 or title like :3) LIMIT 1',[uur, zomer_woord_1, zomer_woord_2, zomer_woord_3],False);
                Q.First;
                while not Q.EOF do
                    begin
                        Queue.Addfile(Q['filename'],IpTop);
                        Q.Next;
                    end;
                Q.Free;
            End ;

        // geheugen schoonmaken
        Song.Free ;

        // en hier wacht ie steeds een half uurtje
        PAL.WaitForTime(T['NEXT30']) ;

    // Wout Franken & inspiratie dankzij Evertje , Broadcasterforum.nl
    // 3 juli 2011, 2 Februari 2012, 4 Februari 2012

 

hij pakt iedere keer hetzelfde nummer (Acda & De Munnik - Voicemail) uit mijn lijst

Waarschijnlijk nu niet meer, ik heb ook nog 1 % verwijderd.
Hij reageer ook op Acda & De Munnik - Voicemail, dat is ook weer niet goed. [smilie=no.gif]

[RealTech]

Wout, heel veel dank. Hij gaat vandaag op de testbank. Eerste test ziet er goed uit (Koos Alberts - Wintertijd).

Grtz,
RealTech

[RealTech]

Script lijkt nu prima te werken. Heb een kleine aanpassing in de SQL selectie gemaakt omdat heel veel echte kerstnummers de genoemde woorden in de titel hebben en die wil ik momenteel niet draaien.

Voor iedereen die dit ook niet wil hierbij de aanpassing.

Code: Selecteer alles

Q := Query('SELECT * FROM songlist where date_played <= DATE_SUB( NOW( ), INTERVAL :uur HOUR ) and  (title like :1 or title like :2 or title like :3) and (genre != "Christmas") LIMIT 1',[uur, winter_woord_1, winter_woord_2, winter_woord_3],False);

Overigens is de laatste selectie die voor mij gemaakt is door dit script wel een aardige: The Baseballs - Hot 'n' Cold [smilie=yahoo.gif]
Zomer of winter.... altijd goed!

[Robert]

Het werkt toppie, bedankt voor het script en ook bedankt voor de laatste aanpassing !!!

[Eagle 1974]

Script werkt idd toppie
heb er enkel nog klein stukkie aantoegevoegt

Code: Selecteer alles

    PAL.Loop := True ;

        var S, woonplaats, uur, winter_woord_1, winter_woord_2, winter_woord_3, zomer_woord_1, zomer_woord_2, zomer_woord_3, winter_temp, zomer_temp  : String ;
        var starts, ends : Integer;
        var Song : TSongInfo ;
        var Q : TDataSet;
        Song := TSongInfo.Create ;

        //*******CONFIG*******
        //********************


BEGIN    //toeVeogd
  IF (Encoders[0].Status='Encoding') THEN      //toeVeogd

    Begin     //toeVeogd


 

        woonplaats := 'Delft' ;

        winter_temp := '5' ;
        winter_woord_1 := '%winter%' ;
        winter_woord_2 := 'ice%' ;
        winter_woord_3 := '%cold%' ;

        zomer_temp := '20' ;
        zomer_woord_1 := '%zomer%' ;
        zomer_woord_2 := '%summer%' ;
        zomer_woord_3 := '%hot%' ;

        uur := '3' ;   // alleen platen pakken die al 3 uur niet zijn geweest

        //********************
        //*****END*CONFIG*****

        // Hier haalt ie de temperatuur mee op
        S := WebToStr( 'http://www.google.com/ig/api?weather='+URLencode(woonplaats) ) ;
        PAL.WaitForTime('+00:00:05');

        starts := Pos('<temp_c data',S);

        if starts > 0 then
            Begin
                Delete(S, 1, starts + 13);
                ends := Pos('"/>', S);
                if ends > 0 then
                    Begin
                        Delete(S, ends, 1000);
                    End;
            End;

        // Hier laat ie bij output zien de temperatuur
        WriteLn(s) ;

        // artiest wordt aantal graden, het was niet anders ;)
        Song['artist'] := S ;

        // als het kouder is dan x graden dan de map winter
        if  Song['artist'] <= winter_temp then
            Begin
                WriteLn('Brrr weer') ;
                Q := Query('SELECT * FROM songlist where date_played <= DATE_SUB( NOW( ), INTERVAL :uur HOUR ) and  (title like :1 or title like :2 or title like :3) and (genre != "Kerst") LIMIT 1',[uur, winter_woord_1, winter_woord_2, winter_woord_3],False);
                Q.First;
                while not Q.EOF do
                    begin
                        Queue.Addfile(Q['filename'],IpTop);
                        Q.Next;
                    end;
                Q.Free;
            End

        // als het warmer wordt dan x graden dan map zomer
        else if  Song['artist'] >= zomer_temp then
            Begin
                WriteLn('blote billen weer :)') ;
                Q := Query('SELECT * FROM songlist where date_played <= DATE_SUB( NOW( ), INTERVAL :uur HOUR ) and (title like :1 or title like :2 or title like :3) LIMIT 1',[uur, zomer_woord_1, zomer_woord_2, zomer_woord_3],False);
                Q.First;
                while not Q.EOF do
                    begin
                        Queue.Addfile(Q['filename'],IpTop);
                        Q.Next;
                    end;
                Q.Free;
            End ;

        // geheugen schoonmaken
        Song.Free ;

        // en hier wacht ie steeds een half uurtje
        PAL.WaitForTime(T['NEXT30']) ;

    // Wout Franken & inspiratie dankzij Evertje , Broadcasterforum.nl
    // 3 juli 2011, 2 Februari 2012, 4 Februari 2012

    END:   //toeVeogd
END;    //toeVeogd
       
 

de regels met de tekst //toeVeogd erachter zodat hij niet werkt als je niet aan het encode bent.
zodat die niet elk half uur een nummer in je queue zet als er een live dj draait.