Nieuws pal script elk uur

Voor vragen over Playlist Automation Language.
Gebruikersavatar
Wout
Moderator
Berichten: 3227
Lid geworden op: 03 dec 2007, 14:17
SAM-versie: SAM 2018.10
Database: MySQL 8.0
Windows: Windows 10
Locatie: Bergen op Zoom
Contacteer:

Re: Nieuws pal script elk uur

Ongelezen bericht door Wout » 03 jun 2018, 16:32

Je gebruikt als database zeker FireBird?

De code die je gebruikt is voor MySQL-database. Beide lijken veel op elkaar maar sommige functie werken niet.
Afbeelding

Arjan
**
Berichten: 34
Lid geworden op: 10 aug 2007, 16:59
SAM-versie: 4.4.2.
Database: FireBird
Windows: 7 64-bits

Re: Nieuws pal script elk uur

Ongelezen bericht door Arjan » 03 jun 2018, 16:35

ja klopt ik gebruik FireBird. dus dan moet ik een andere pal gebruiken?

Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Nieuws pal script elk uur

Ongelezen bericht door drOhimself » 05 jun 2018, 10:22

Beste is om niet met FireBird te werken.
De meeste PAL scripts werken op MySQL.
Groedjez,
drO

Arjan
**
Berichten: 34
Lid geworden op: 10 aug 2007, 16:59
SAM-versie: 4.4.2.
Database: FireBird
Windows: 7 64-bits

Re: Nieuws pal script elk uur

Ongelezen bericht door Arjan » 05 jun 2018, 15:52

oke bedankt. dan zal ik sam even er nieuw op zetten en de keuze maken voor MySQL database.
en MySQL op mijn pc zetten.

Groeten Arjan

Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Nieuws pal script elk uur

Ongelezen bericht door drOhimself » 05 jun 2018, 17:12

Succes !


Verzonden vanaf mijn iPhone met Tapatalk
Groedjez,
drO

Arjan
**
Berichten: 34
Lid geworden op: 10 aug 2007, 16:59
SAM-versie: 4.4.2.
Database: FireBird
Windows: 7 64-bits

Re: Nieuws pal script elk uur

Ongelezen bericht door Arjan » 05 jun 2018, 18:43

Hoi.

op zicht draait de pal script nu wel alleen hij draait het liedje wat op dat moment draait helemaal uit dan pas speelt hij het nieuws af. dus zeg maar om 19: 59:55 zou hij het nieuws moeten afspelen. maar dat doet hij niet hij speelt eerst gewoon desbetreffende mp3 af dan pas het nieuws. hij geeft bij de output nu aan Geen Resultaat. het pal script heb ik hier vandaan weg gehaald bericht37083.html#p37083
het gaat mij er om dat hij het nieuws precies op het uur te laten draaien zonder dat de voorgaande plaat wordt afgebroken
Je hebt niet voldoende permissies om de bijlagen van dit bericht te bekijken.

Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Nieuws pal script elk uur

Ongelezen bericht door drOhimself » 10 jun 2018, 15:17

Plaats hier ook even jouw script bij.
Er is namelijk geen link naar het script waar ik op kan klikken.
Groedjez,
drO

Arjan
**
Berichten: 34
Lid geworden op: 10 aug 2007, 16:59
SAM-versie: 4.4.2.
Database: FireBird
Windows: 7 64-bits

Re: Nieuws pal script elk uur

Ongelezen bericht door Arjan » 10 jun 2018, 15:52

Het gaat om deze pal script.
ik heb hem nu een tijdje lopen op zicht gaat het wel goed alleen het nieuws zal om zeg maar 16:00 uur moeten beginne alleen hij begint dan om 16:04 of 16:05 uur.

Code: Selecteer alles

Pal.Loop := True ;

    // Begin het script op elk uur vanaf 5 voor het uur
    PAL.WaitForTime(T['XX:59:55']) ;

    // Speed some things up
    Pal.LockExecution ;

        // Wat variabele instellen
        var RestTijd : Integer ;
        var Now_minutes, tijd, uur : String ;
        var D : TDataSet ;
        var plus_uur : DateTime ;

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

        // Alleen de minuten van het uur
        Now_minutes := FormatDateTime('n', Now) ;

        // De aantal minuten afhalen van 1 uur en waar rekening is gehouden met de spelende nummer in miliseconden
        RestTijd := ( ( (60 - Now_minutes ) * 60000) ) - ( Activeplayer.Duration - ActivePlayer.CurTime ) ;

        // Hier zoek ie de nummer met de juiste lengte + een beetje meer
        D := QUERY('SELECT ' +
            'songlist.artist, songlist.filename, songlist.duration ' +
        'FROM ' +
            'songlist ' +
        'WHERE ' +
            'date_played <= DATE_SUB( NOW( ), INTERVAL 1 HOUR )' +  // Alleen nummers die al 1 uur niet zijn gespeeld
        'AND '+
            'duration '+
        'BETWEEN '+
            ':RestTijd '+
        'AND '+
            ':RestTijd + 9000 ' +    // Hier wat speling op de lengte van het gezochte nummer met 9 seconden
        'ORDER BY RAND() ' +    // Hij pakt een willekeurige nummer die voldoet aan de eisen
        'LIMIT 1', [RestTijd], True ) ;

        D.First ;

        if not D.EOF then
            begin
                Queue.AddFile('http://download.omroep.nl/nos/radionieuws/radiobulletin.mp3',ipTop);
                Queue.Addfile(uur, ipTop);
                Queue.Addfile(+D['filename'], IpTop) ;
                D.next ;
            end
        else
            begin
                WriteLn('Geen Resultaat');
                
                Queue.AddFile('http://download.omroep.nl/nos/radionieuws/radiobulletin.mp3',ipTop);
                Queue.Addfile(uur, ipTop);
            end;
        D.free ;

    // Slow some things down
    Pal.UnLockExecution ;


Gebruikersavatar
Wout
Moderator
Berichten: 3227
Lid geworden op: 03 dec 2007, 14:17
SAM-versie: SAM 2018.10
Database: MySQL 8.0
Windows: Windows 10
Locatie: Bergen op Zoom
Contacteer:

Re: Nieuws pal script elk uur

Ongelezen bericht door Wout » 10 jun 2018, 21:02

Je dient de xx:59:55 te veranderen naar xx:55:00
Afbeelding

Arjan
**
Berichten: 34
Lid geworden op: 10 aug 2007, 16:59
SAM-versie: 4.4.2.
Database: FireBird
Windows: 7 64-bits

Re: Nieuws pal script elk uur

Ongelezen bericht door Arjan » 11 jun 2018, 16:56

Hoi.

ik heb het verandert naar xx:55:00 het werkt nu goed.
bedankt .

Groeten Arjan

spidy601
Beginnende SAM-gebruiker
Berichten: 3
Lid geworden op: 28 apr 2019, 17:48
SAM-versie: SAM 2019.1
Database: MariaDB
Windows: Windows 10
Contacteer:

Re: Nieuws pal script elk uur

Ongelezen bericht door spidy601 » 28 apr 2019, 18:05

hoi ik denk dat dit bericht gigantische off topic is.
ik vond dit script goed om te gebruiken ik zoek namelijk een sript dat de mp3 aanpast op de rest tijd van het nieuws.

nu heb ik wel verschilende tijd seins van bijv. goedenmidag het is nu ..... uur nu volgt het nieuws.
maar hoe krijg ik deze tijd seins in het script vermeld.
ik zie wel dit stukje script
uur := 'c:\tijd\' + tijd + '.mp3' ;
als ik dan het bestands pad aanpas naar
D:\D:\Music Sam BR\20 F Nieuws Tijdsein\tijdseinuren krijg ik de mp3 niet te horen
maar ik krijg wel een file te zien.

mijn vraag is hoe kan ik een tijd sein laten werken in dit script.
want dit nieuws script werkt super goed.

en ik vind het zwaar irritant nummers af te moeten kappen voor het nieuws.
groet nick

spidy601
Beginnende SAM-gebruiker
Berichten: 3
Lid geworden op: 28 apr 2019, 17:48
SAM-versie: SAM 2019.1
Database: MariaDB
Windows: Windows 10
Contacteer:

Re: Nieuws pal script elk uur

Ongelezen bericht door spidy601 » 28 apr 2019, 18:12

ik heb het zelf al opgelost heb een map aangemaakt op de harde schijf D:
en heb de map verandert in tijd
= 'D:\tijd\' + tijd + '.mp3' ;
nu werkt mijn tijd sein wel gowd.

ik vind dit echt een super goed pal script.
heel soms start het nieuws in om XX:01 of soms om XX:02 maar dat vind ik zelf nog wel redelijk.
want de meeste keren word het nieuws gestart op XX:00
groet nick

Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht