nummer aankondiging

Voor vragen over Playlist Automation Language.
Plaats reactie
Adrie
**
Berichten: 46
Lid geworden op: 29 jan 2009, 18:33
SAM-versie: 4.9.0.*
Database: MySQL 5.4
Windows: 7 32-bits
Locatie: Den Haag
Contacteer:

Re: nummer aankondiging

Ongelezen bericht door Adrie » 26 aug 2014, 09:34

Ik heb deze vraag c.q. het vervolg ondergebracht in een nieuw topic onder "Database".
Groet, Adrie

Adrie
**
Berichten: 46
Lid geworden op: 29 jan 2009, 18:33
SAM-versie: 4.9.0.*
Database: MySQL 5.4
Windows: 7 32-bits
Locatie: Den Haag
Contacteer:

Re: nummer aankondiging

Ongelezen bericht door Adrie » 29 aug 2014, 18:17

Ik heb nog een alternatief bedacht om onderstaande code niet toe te passen maar in plaats daarvan een stukje script wat achter de 3 laatste nummers (teasers) een stukje tekst mee geeft dat het om "Teasers" gaat.
Dus bv;

Blof - Harder Dan Ik Hebben Kan (Teaser)
Splitsing - Recht uit het hart (Teaser)
Toontje Lager - Vroeg of laat (Teaser)

Misschien dat iemand daar een idee over heeft hoe dat stukje tekst er dan op een relatief eenvoudige manier er aan toegevoegd kan worden.

Code: Selecteer alles

ExecSQL('DELETE FROM historylist WHERE songID = :songid ORDER BY ID DESC LIMIT 1',[lastID[0]]);
ExecSQL('DELETE FROM historylist WHERE songID = :songid ORDER BY ID DESC LIMIT 1',[lastID[1]]);
ExecSQL('DELETE FROM historylist WHERE songID = :songid ORDER BY ID DESC LIMIT 1',[lastID[2]]);
Groet, Adrie

Gebruikersavatar
tinus102
***
Berichten: 50
Lid geworden op: 17 okt 2010, 13:55
SAM-versie: SAM 2014.5
Database: MySQL 5.0
Windows: Server 2012
Locatie: Sassenheim
Contacteer:

Re: nummer aankondiging

Ongelezen bericht door tinus102 » 03 sep 2014, 11:32

Ik ben ook aan de slag gegaan met de Teaser 2.0 van Wout.
Hij werkt perfect alleen ik heb eigen jingels laten maken.
Voor zover ik nu begrijp is de fadetijd voor de Intro en tussen jingle gelijk?
En kun je de fade tijd van je intro jingle niet aanpassen??

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: nummer aankondiging

Ongelezen bericht door Wout » 03 sep 2014, 21:37

Klopt, tijden van intro & tussen zijn gelijk, maar ik snap ook je uitdaging.
Zal kijken of ik daar een verbetering in kan maken.

d.m.v. de tijd die een intro-jingle heeft om de plaat op de achtergrond langzaam luider te faden tot dat de intro-jingle zijn eind heeft bereikt.
en met de tussen-jingle de fade-tijd aanpassen aan de tussenjingle.
Zoals gebruik in voorbeeld in het forum
viewtopic.php?f=81&t=4965#p35525
Afbeelding

Gebruikersavatar
Qtronix
***
Berichten: 67
Lid geworden op: 08 dec 2007, 12:16
SAM-versie: SAM 2018.6
Database: MySQL 4.1
Windows: 7 64-bits
Contacteer:

Re: nummer aankondiging

Ongelezen bericht door Qtronix » 25 okt 2014, 10:11

Ook maar eens mee gaan stoeien
[tt]Greetz[/tt]
Qtronix

Afbeelding

Gebruikersavatar
BeatFlex010
***
Berichten: 57
Lid geworden op: 09 okt 2014, 10:44
SAM-versie: 4.9.0.*
Database: MySQL 5.0
Windows: XP
Locatie: Rotterdam
Contacteer:

Re: nummer aankondiging

Ongelezen bericht door BeatFlex010 » 25 okt 2014, 10:24

Kan ik dit script enkel gebruiken, als ik gebruik maak van een database ?
Let The Beat Control Your Mind >> www.beatflex.nl

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: nummer aankondiging

Ongelezen bericht door drOhimself » 25 okt 2014, 10:34

BeatFlex010 schreef:Kan ik dit script enkel gebruiken, als ik gebruik maak van een database ?
Geloof zelfs dat het enkel werkt met een MySQL database.....
Groedjez,
drO

Gebruikersavatar
BeatFlex010
***
Berichten: 57
Lid geworden op: 09 okt 2014, 10:44
SAM-versie: 4.9.0.*
Database: MySQL 5.0
Windows: XP
Locatie: Rotterdam
Contacteer:

Re: nummer aankondiging

Ongelezen bericht door BeatFlex010 » 25 okt 2014, 11:20

drOhimself schreef:
BeatFlex010 schreef:Kan ik dit script enkel gebruiken, als ik gebruik maak van een database ?
Geloof zelfs dat het enkel werkt met een MySQL database.....
Oke helaas.
Bedankt voor de informatie :)
Let The Beat Control Your Mind >> www.beatflex.nl

Gebruikersavatar
tinus102
***
Berichten: 50
Lid geworden op: 17 okt 2010, 13:55
SAM-versie: SAM 2014.5
Database: MySQL 5.0
Windows: Server 2012
Locatie: Sassenheim
Contacteer:

Re: nummer aankondiging

Ongelezen bericht door tinus102 » 30 okt 2014, 22:07

Wout schreef:Klopt, tijden van intro & tussen zijn gelijk, maar ik snap ook je uitdaging.
Zal kijken of ik daar een verbetering in kan maken.

d.m.v. de tijd die een intro-jingle heeft om de plaat op de achtergrond langzaam luider te faden tot dat de intro-jingle zijn eind heeft bereikt.
en met de tussen-jingle de fade-tijd aanpassen aan de tussenjingle.
Zoals gebruik in voorbeeld in het forum
viewtopic.php?f=81&t=4965#p35525
Hoi Wout,

Ik was nog nieuwsgierig of je nog tijd had gezien in mijn uitdaging?? :D

michielv
*
Berichten: 15
Lid geworden op: 24 jan 2009, 20:46

Re: nummer aankondiging

Ongelezen bericht door michielv » 01 mar 2015, 11:37

*schop*

Is het ook mogelijk dit script op gezette tijden te laten lopen? Ik zou het bv graag om 20 en 40 minuten over heel willen laten lopen en niet teveel in de buurt van heel zelf ivm verversing queue.

Ook vind ik de openingsjingle van Wout's 2.0 script te veel door het fragment heen gaan. Is het mogelijk die wat losser van het fragment te zetten?

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: nummer aankondiging

Ongelezen bericht door Wout » 01 mar 2015, 14:49

michielv schreef:*schop*

Is het ook mogelijk dit script op gezette tijden te laten lopen? Ik zou het bv graag om 20 en 40 minuten over heel willen laten lopen en niet teveel in de buurt van heel zelf ivm verversing queue.

Ook vind ik de openingsjingle van Wout's 2.0 script te veel door het fragment heen gaan. Is het mogelijk die wat losser van het fragment te zetten?
Tijden is geen probleem.
Alleen de fragmenten losser zetten wordt wel een uitdaging.
Afbeelding

michielv
*
Berichten: 15
Lid geworden op: 24 jan 2009, 20:46

Re: nummer aankondiging

Ongelezen bericht door michielv » 01 mar 2015, 15:17

Tijd zowaar zelf opgelost :) Al doende leer ik!

michielv
*
Berichten: 15
Lid geworden op: 24 jan 2009, 20:46

Re: nummer aankondiging

Ongelezen bericht door michielv » 01 mar 2015, 19:20

Ik zag dat iemand bij versie 1 van het script van Wout het voor elkaar gekregen had om de teasers pas te laten starten als de huidige plaat klaar op basis van de geldende crossfade-settings, in plaats van een vastgesteld aantal seconden voor het einde van die plaat. Is die wijziging ook in versie 2.0 mogelijk, en zo ja, weet iemand hoe?

michielv
*
Berichten: 15
Lid geworden op: 24 jan 2009, 20:46

Re: nummer aankondiging

Ongelezen bericht door michielv » 03 mar 2015, 09:03

Toch nog een vraag. Na veel geexperimenteer lijkt het script van drO http://www.broadcasterforum.nl/bericht22335.html#p22335 het beste te werken voor me (houdt rekening met vaste crossfadepunten in de jingles, geen vreemde fuckups in dubbele platen of wegvallende platen in de queue), maar het enige nadeel is dat hij 3 fragmenten uit de volledige queue pakt en dat is met een queue van 10 wat ver vooruitkijken. Weet iemand hoe ik in dat script instel dat hij niet verder kijkt dan de eerste 5 aankomende songs?

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: nummer aankondiging

Ongelezen bericht door Wout » 03 mar 2015, 09:23

michielv schreef:Weet iemand hoe ik in dat script instel dat hij niet verder kijkt dan de eerste 5 aankomende songs?
Ik denk dat ik het wel weet. :D

In het script van drO verander je de volgende SQL-query

Code: Selecteer alles

// Deze selectie haalt 6 songs uit de huidige queue
	C := Query('SELECT * FROM songlist '+
            ' INNER JOIN queuelist ON (songlist.ID = queuelist.songID) AND songtype = :songtype '+
            ' AND duration >= 220000 ORDER BY RAND() LIMIT 6',['S'],True);
naar

Code: Selecteer alles

        C := Query(' '
            +'SELECT filename '
            +'FROM songlist AS s '
            +'INNER JOIN '
            +'(SELECT songID FROM queuelist ORDER BY sortID ASC LIMIT 5) AS q '
            +'ON s.ID = q.songID '
            +'AND duration >= 160000 '
            +'ORDER BY RAND() '
            +'LIMIT 3 '
        ,[],True) ;
Waarbij LIMIT 5 op regel 5 kijkt 5 platen vooruit
& LIMIT 3 is dat er maar 3 teasers wordt gedraaid.
Afbeelding

michielv
*
Berichten: 15
Lid geworden op: 24 jan 2009, 20:46

Re: nummer aankondiging

Ongelezen bericht door michielv » 25 mei 2018, 15:12

Schop!

Zonder dat ik bij mijn weten iets veranderd heb aan het script pakt ie ineens voor m'n gevoel wel 20 seconden per theater ipv 10, het is echt veel te lang. Iemand enig idee waar het fout gaat?
// Draait op ingesteld tijdstip, 5 seconden van 6 nummers (met voor- tussen- en eind-Jingle)
// van selectie Nieuwe muziek
// of van huidige selectie in queue

Pal.Loop:= True;

var C : TDataSet;
var Cnts : Integer = 1;
var R : Integer = RandomInt(6);
var Nieuw, Open, Einde, Q :TSongInfo;
var A : Array of String= ['30000', '60000', '90000', '120000', '150000', '180000'];

// Stel hier tijdstip in
PAL.WaitForTime('XX:29:00');

// Stel hier seconden in wat huidig nummer nog zou moet spelen (20000 = 20 seconden)
while ((ActivePlayer.Duration - ActivePlayer.CurTime) > 10000) do;

PAL.LockExecution;

Open := CAT['Open'].ChooseSong(smRandom,NoRules); // Begin Jingle
Nieuw := CAT['Nieuw'].ChooseSong(smRandom,NoRules); // Tussen Jingle
Einde := CAT['Einde'].ChooseSong(smRandom,NoRules); // Einde Jingle

// Deze selectie haalt alleen nieuwe songs van laatste 7 dagen binnen.
// C := Query('SELECT * FROM songlist '+
// 'WHERE date_added >= DATE_SUB( NOW( ), INTERVAL 1 WEEK ) AND songtype = :songtype '+
// 'ORDER BY RAND() LIMIT 10',['S'], False);

// Deze selectie haalt 6 songs uit de huidige queue
C := Query(' '
+'SELECT filename '
+'FROM songlist AS s '
+'INNER JOIN '
+'(SELECT songID FROM queuelist ORDER BY sortID ASC LIMIT 5) AS q '
+'ON s.ID = q.songID '
+'AND duration >= 160000 '
+'ORDER BY RAND() '
+'LIMIT 3 '
,[],True) ;
C.First;
while not C.EOF do
begin
Queue.Addfile(+C['filename'],IpTop);
Cnts := Cnts + 1;
C.Next;
end;

Q := Open;

PAL.UnLockExecution;

repeat
Cnts := Cnts - 1;
Aux1.QueueSong(Q);
Aux1.Play;
ActivePlayer.FadeToNext;
QueuedPlayer.Seek(StrToInt(A[R]));
Pal.WaitForTime (T['+00:00:05']);
Q := Nieuw;
until Cnts = 1 ;

Aux1.QueueSong(Einde);
Aux1.Play;
ActivePlayer.FadeToNext;
C.Free;

//<--BroadcasterForum.nl, Wout Franken & thanks to SenseoMan-->

Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht