nummer aankondiging

Voor vragen over Playlist Automation Language.
Plaats reactie
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 » 14 mei 2010, 16:41

Voor de gene die wel hun nieuwe muziek willen horen. :-D
In losse.rar staan een drie-tal mp3, die je in aparte mappen moet plaatsen.
De juiste jingle in de juiste map.
Mappen maken doe je via onderstaand.
Je hebt niet voldoende permissies om de bijlagen van dit bericht te bekijken.
Afbeelding

ojee66
******
Berichten: 224
Lid geworden op: 20 jul 2006, 21:42
SAM-versie: 4.2.2.*
Database: MySQL 4.1
Windows: 2000
Locatie: Waddinxveen
Contacteer:

Re: nummer aankondiging

Ongelezen bericht door ojee66 » 14 mei 2010, 18:18

Bedankt Wout,

Heel andere opzet
Mijn kennis van PAL om zoiets te schrijven schiet nog te kort
Door trail/error leer ik, dus ik ga met bovenstaand ff pielen..

ojee66
******
Berichten: 224
Lid geworden op: 20 jul 2006, 21:42
SAM-versie: 4.2.2.*
Database: MySQL 4.1
Windows: 2000
Locatie: Waddinxveen
Contacteer:

Re: nummer aankondiging

Ongelezen bericht door ojee66 » 15 mei 2010, 21:37

Code: Selecteer alles

var C : TDataSet;
var Cnts : Integer = 1;
var R : Integer = RandomInt(5);
var Nieuw, Open, Einde, Q :TSongInfo;
var A : Array of String= ['30000', '60000', '90000', '120000', '150000'];
var B : Array of String= ['2', '3', '4', '5', '6'];
var DTXT3 : String;
const snippet_file = 'C:\rdsinfo\snippet\snippet.txt';
var snippet_line : TStringList;
var LinePos : Integer = 0;
Pal.Loop:= True;
PAL.WaitForTime('XX:15:00');
while ((ActivePlayer.Duration - ActivePlayer.CurTime) > 10000) do;
PAL.LockExecution;
	Open   := CAT['begin-snippet'].ChooseSong(smRandom,NoRules);  //  Begin Jingle
	Nieuw  := CAT['tussen-snippet'].ChooseSong(smRandom,NoRules); //  Tussen Jingle
	Einde  := CAT['einde-snippet'].ChooseSong(smRandom,NoRules); //  Einde Jingle
	C := Query('SELECT * FROM songlist '+
				'WHERE date_added >= DATE_SUB( NOW( ), INTERVAL 4 WEEK ) AND songtype = :songtype '+
				'ORDER BY RAND() LIMIT 5',['S'], False);
	C.First;
	while not C.EOF do
		begin
			Queue.Addfile(+C['filename'],IpTop);
			Cnts := Cnts + 1;
 DTXT3 :=    C['filename'] + '\n' ;
 AppendStringToFile(snippet_file,DTXT3);
			C.Next;
		end;
	Q := Open;
PAL.UnLockExecution;
PAL.WaitForTime('XX:15:00');
		repeat
			Cnts := Cnts  - 1;
			Aux1.QueueSong(Q);
			Aux1.Play;			
			ActivePlayer.FadeToNext;
			QueuedPlayer.Seek(StrToInt(A[R]));
			Pal.WaitForTime (T['+00:00:10']);
 		Q := Nieuw;
		until Cnts = 1 ;
		Aux1.QueueSong(Einde);
		Aux1.Play;
  Queue.Addfile((+C['filename']),IpTop);
		ActivePlayer.FadeToNext;
	C.Free;


{ Load banner lines into stringlist object }
if FileExists(snippet_file) then
snippet_line.LoadFromFile(snippet_file)
else
WriteLn('snippet source file does not exist!');
LinePos := 0;
while (LinePos<snippet_line.Count) do
begin
Queue.AddFile(snippet_line[LinePos],ipTop);
  LinePos := LinePos + 1;
end;	
 //<--BroadcasterForum.nl, Wout Franken & thanks to SenseoMan-->
In de snippet.txt moet alleen nog een cr/lf komen zodat de filename's elk op hun eigen regel komen.
Dat krijg ik nog niet voor elkaar...

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 » 15 mei 2010, 22:47

Je bent bezig voor het volgend uur?

Is het dan niet makkelijker om eerst de Queue een uur te laten vullen
en dan via SQL de queuelist laten lezen en dan plaat 3, 5, 7 te pakken voor de hooks.
Afbeelding

ojee66
******
Berichten: 224
Lid geworden op: 20 jul 2006, 21:42
SAM-versie: 4.2.2.*
Database: MySQL 4.1
Windows: 2000
Locatie: Waddinxveen
Contacteer:

Re: nummer aankondiging

Ongelezen bericht door ojee66 » 16 mei 2010, 12:22

Code: Selecteer alles

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

Pal.Loop:= True;
PAL.WaitForTime('XX:18:00');

while ((ActivePlayer.Duration - ActivePlayer.CurTime) > 10000) do;

PAL.LockExecution;

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

 C := Query('SELECT songlist.* FROM songlist, queuelist '+
      ' WHERE (songlist.ID = queuelist.songID) AND' +
      ' songlist.songtype = '+ QuotedStr('S') +
      ' ORDER BY RAND() LIMIT 5',[],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:10']);
 		Q := Nieuw;
		until Cnts = 1 ;

		Aux1.QueueSong(Einde);
		Aux1.Play;
  Queue.Addfile((+C['filename']),IpTop);
		ActivePlayer.FadeToNext;
	C.Free;
	
 //<--BroadcasterForum.nl, Wout Franken & thanks to SenseoMan-->
Het was ff zoeken naar de juiste sql query :)

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 » 16 mei 2010, 13:34

Klopt, zo had ik ook ongeveer in gedachte. ;-)
En dat kan je voor je TOH spelen & je weet wat er volgend uur komt.

B.t.w.
Queue.Addfile((+C['filename']),IpTop);
helemaal onderaan nog verwijderen anders komt ie 2 keer voor in je uurlijst. ;-)

Dus dan wordt het om het compleet te maken.
(wel meer als 3 platen in je queue anders werkt het niet, hier heb ik 15 erin staan)
En hij start elk uur om 59:20 met korte stukjes muziek wat dan volgend uur komt.

Code: Selecteer alles

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'];

 PAL.WaitForTime('XX:59:20');

while ((ActivePlayer.Duration - ActivePlayer.CurTime) > 20000) 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

 C := Query('SELECT * FROM songlist '+
            ' INNER JOIN queuelist ON (songlist.ID = queuelist.songID) AND songtype = :songtype '+
            ' AND duration >= 220000 ORDER BY RAND() LIMIT 3',['S'],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-->
 
Afbeelding

MRadioBeat
Beginnende SAM-gebruiker
Berichten: 7
Lid geworden op: 11 okt 2010, 19:32
SAM-versie: 4.2.2.*
Database: MariaDB

Re: nummer aankondiging

Ongelezen bericht door MRadioBeat » 11 okt 2010, 19:44

Mooi scriptje maar die van jou wout laat alleen 5 stukjes random nummers horen, je vind ze niet terug in dat uur wat komen gaat.

Dus hij werkte niet voor mij en ik heb hem dus iets aangepast. is me eerste script waar ik nu mee knooi en wat goed uitpakt voor mij. dus het is mischien een beetje rommelig.

Wat moet je doen?

1. Maak de mappen gereed zoals Wout ze hierboven vermelde.
2. Zet je playlist rotation rules allemaal op 1 min. (anders zoekt hij foute nummers)
3. Zet je Queue op 2 (heb ik tenminste ivm langer dan een uur)
4. Verander onderaan het script de Categorie namen en zet jouw mapnaam er neer.
5. eventueel kan je je eigen jingles ook in die mappen doen.

Wat doet mijn script.?
De mijne laat elk uur 5 kleine stukjes horen van nummers (aankondiging).
en daarnaa gooit hij om de 1 minuut de nummers van die kleine stukjes in de queue.
Ik heb er ook random nummers bijgezet zodat je ze niet achter elkaar te horen krijgt.

Try it :D

Code: Selecteer alles

PAL verwijderd ivm betere pal aanpassing
Ik hoop dat jullie hier wat aan hebben.
Laatst gewijzigd door MRadioBeat op 14 okt 2010, 13:30, 1 keer totaal gewijzigd.

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 » 13 okt 2010, 12:07

MRadioBeat schreef:Mooi scriptje maar die van jou wout laat alleen 5 stukjes random nummers horen,
je vind ze niet terug in dat uur wat komen gaat.
Dus hij werkte niet voor mij en ik heb hem dus iets aangepast.
Ik snap niet wat je bedoelt maar zal vanavond eens naar kijken.
Afbeelding

Dwarrel
*****
Berichten: 191
Lid geworden op: 24 mar 2010, 11:00
SAM-versie: SAM 2014.5
Database: MySQL 5.0
Windows: 8.1
Locatie: Den Haag
Contacteer:

Re: nummer aankondiging

Ongelezen bericht door Dwarrel » 13 okt 2010, 12:27

Wout schreef:
MRadioBeat schreef:Mooi scriptje maar die van jou wout laat alleen 5 stukjes random nummers horen,
je vind ze niet terug in dat uur wat komen gaat.
Dus hij werkte niet voor mij en ik heb hem dus iets aangepast.
Ik snap niet wat je bedoelt maar zal vanavond eens naar kijken.
Misschien was het beter geweest om aan te geven wat je had aangepast....!!!

Dwarrel....

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 » 13 okt 2010, 20:54

Ja, nu begrijp ik je. :-D

De nieuwe hits worden wel de 'hooks' van gedraaid, alleen hoor je ze niet voorbij komen in het uur.
Dat klopt inderdaad. Het had ook een bepaalde reden ervoor toen.
Afbeelding

Gebruikersavatar
Evertje
******
Berichten: 284
Lid geworden op: 27 nov 2008, 23:06
SAM-versie: SAM 2015.2
Database: MySQL 5.5
Windows: Windows 10

Re: nummer aankondiging

Ongelezen bericht door Evertje » 13 okt 2010, 22:43

Dan krijg je toch elk uur dezelfde muziek?!

Ik vind de aanpassing van MRadioBeat dan ook totaal geen waardevolle toevoeging aan het origineel van Wout..

Eerst staat er 4 maal..

Code: Selecteer alles

Cnts := Cnts + 3;
..ff snel gerekend is dat 13.. En daarna 4 maal..

Code: Selecteer alles

Cnts := Cnts  - 1;
..waardoor ik uitkom op 9.. ..wat is et nut??

Wout gebruikte Cnts als beveiliging om te voorkomen dat er herhaaldelijk te horen is "New music", zonder dat er vanuit mysql ook maar één song is geladen!!

Daarna zie ik 4 maal..

Code: Selecteer alles

Cnts := Cnts  - 1;
Aux1.QueueSong(Q);
Aux1.Play;
ActivePlayer.FadeToNext;
QueuedPlayer.Seek(StrToInt(A[R]));
Pal.WaitForTime (T['+00:00:08']);
Q := Nieuw;
..terwijl je dat in een repeat loop kan plaatsen?! Efficiëntie!! :?

Goed dat je je eigen stempel op iets probeert te zetten, alleen is het ditmaal enigszins mislukt.. :roll:

MRadioBeat
Beginnende SAM-gebruiker
Berichten: 7
Lid geworden op: 11 okt 2010, 19:32
SAM-versie: 4.2.2.*
Database: MariaDB

Re: nummer aankondiging

Ongelezen bericht door MRadioBeat » 14 okt 2010, 13:02

Nou ik heb er toch bijstaan dat het rommelig zou zijn , omdat dit me eerste script was.
ik weet zo niet wat die andere functies deden dus ik heb ze erin laten staan...
maar tog werkt hij voor mij.


HET GAAT ER TOCH OM DAT JE HET EERST ZELF PROBEERT OM ER VAN TE LEREN?
zodat je niet meteen vraagt voordat je probeert ?
anders leer je het niet!! vind ik..

andere mensen worden er gek van als je het zelf niet eens probeert voodat je het vraagt.
anders had ik meteen wel om een nieuw script gevraagt.

daarom heb ik et zo gedaan en als je me dan gewoon uit kan normaal leggen wat er overbodig is
dan kan ik er van leren!!
ik vind dat je wel wat aardiger mag reageren!

met vriendelijke groet,

bas

Gebruikersavatar
Evertje
******
Berichten: 284
Lid geworden op: 27 nov 2008, 23:06
SAM-versie: SAM 2015.2
Database: MySQL 5.5
Windows: Windows 10

Re: nummer aankondiging

Ongelezen bericht door Evertje » 14 okt 2010, 13:16

Dan zou het..

Code: Selecteer alles

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', '200000'];

	RequestPolicy.Enabled := True;
PAL.WaitForTime('xx:59:30');
	RequestPolicy.Enabled := False;

	Queue.AddFile('C:\Documents and Settings\Administrator\Desktop\Tunes\test\30 Nummer 30.wma',ipTop);

PAL.WaitForPlayCount(1);
	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

		C := Query('SELECT * FROM songlist WHERE date_added >= DATE_SUB( NOW( ), INTERVAL 1 WEEK ) AND songtype = :songtype ORDER BY RAND() LIMIT 4',['S'], False);
		C.First;
			while not C.EOF do
				Begin
					Queue.Addfile(+C['filename'],IpTop);
					Cnts := Cnts + 1;
					C.Next;
				End;
		C.Free;
	PAL.UnLockExecution;

	Q := Open;

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

	Aux1.QueueSong(Einde);
	Aux1.Play;
	Queue.Addfile((+C['filename']),IpTop);
	ActivePlayer.FadeToNext;

	// Snap alleen nog niet waarom dit hieronder staat?!
	Cat['Beat Non Stop'].QueueBottom(smMRP, EnforceRules);
	Pal.WaitForTime (T['+00:01:01']);
	Cat['Beat Non Stop'].QueueBottom(smMRP, EnforceRules);
	Cat['Beat Non Stop'].QueueBottom(smLRP, EnforceRules);
	Pal.WaitForTime (T['+00:01:01']);
	Cat['Beat Non Stop'].QueueBottom(smMRP, EnforceRules);
	Cat['Beat Non Stop'].QueueBottom(smLRP, EnforceRules);
	Pal.WaitForTime (T['+00:01:01']);
	Cat['Beat Non Stop'].QueueBottom(smMRP, EnforceRules);
	Cat['Beat Non Stop'].QueueBottom(smRandom, EnforceRules);
	Pal.WaitForTime (T['+00:01:01']);
	Cat['Beat Non Stop'].QueueBottom(smMRP, EnforceRules);
	Cat['Beat Non Stop'].QueueBottom(smLRP, EnforceRules);
	Cat['Beat Non Stop'].QueueBottom(smLRP, EnforceRules);
	Cat['Beat Non Stop'].QueueBottom(smLRP, EnforceRules);
	Cat['Beat Non Stop'].QueueBottom(smRandom, EnforceRules);
	Cat['Beat Non Stop'].QueueBottom(smLRP, EnforceRules);
	Cat['Beat Non Stop'].QueueBottom(smLRP, EnforceRules);
	Cat['Beat Non Stop'].QueueBottom(smRandom, EnforceRules);
	Cat['Beat Non Stop'].QueueBottom(smLRP, EnforceRules);
	Cat['Beat Non Stop'].QueueBottom(smLRP, EnforceRules);
	Cat['Beat Non Stop'].QueueBottom(smRandom, EnforceRules);
		
	// Wel zo netjes om de copyright regels van het originele script laten staan..
	//<--BroadcasterForum.nl, Wout Franken & thanks to SenseoMan-->
..zoiets worden?!
Als je et naast het origineel legt, heb je alleen 16 x erbij gezet..

Code: Selecteer alles

    Pal.WaitForTime (T['+00:01:01']);
    Cat['Beat Non Stop'].QueueBottom(smMRP, EnforceRules);
MRadioBeat schreef:HET GAAT ER TOCH OM DAT JE HET EERST ZELF PROBEERT OM ER VAN TE LEREN?
zodat je niet meteen vraagt voordat je probeert ?
anders leer je het niet!! vind ik..
Maar aangezien het je eerste keer is, ben je op de goede weg.. :)

MRadioBeat
Beginnende SAM-gebruiker
Berichten: 7
Lid geworden op: 11 okt 2010, 19:32
SAM-versie: 4.2.2.*
Database: MariaDB

Re: nummer aankondiging

Ongelezen bericht door MRadioBeat » 14 okt 2010, 13:36

:: Aangepast ::
----------
ORDER BY RAND() LIMIT 3',['S'],True); naar ORDER BY RAND() LIMIT 5',['S'],True);
// Snap alleen nog niet waarom dit hieronder staat?!
Cat['Beat Non Stop'].QueueBottom(smMRP, EnforceRules);
Pal.WaitForTime (T['+00:01:01']);
Cat['Beat Non Stop'].QueueBottom(smMRP, EnforceRules);
Cat['Beat Non Stop'].QueueBottom(smLRP, EnforceRules);
Nou als je 2 tracks in je queue laat staan, dan vult hij een hele playlist aan + die laatst gedraaid,
want dat was het probleem bij wout, hij laat wel kleine stukjes horen maar gooit ze daarna niet in de playlist. en als je dus je playlist rotation op 1 min laat staan dan doet hij dat precies. waarom weet ik ook niet :P

Ik heb hem net ook aangepast met 5 tracks :D

Code: Selecteer alles

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'];

PAL.WaitForTime('XX:59:20');

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

 C := Query('SELECT * FROM songlist '+
            ' INNER JOIN queuelist ON (songlist.ID = queuelist.songID) AND songtype = :songtype '+
            ' AND duration >= 220000 ORDER BY RAND() LIMIT 5',['S'],True);

 C.First;
  while not C.EOF do
   begin
    Cnts := Cnts + 5;
 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;

// Hier laad hij de playlist in je queue met de 5 tracks die je er aangekondigt zijn. zorg wel dat je bij de config je playlist rotation rules op 1 minuut hebt staan
      Pal.WaitForTime (T['+00:01:01']);
      Cat['Tracks'].QueueBottom(smMRP, EnforceRules);
      Pal.WaitForTime (T['+00:01:01']);
      Cat['Tracks'].QueueBottom(smMRP, EnforceRules);
      Cat['Tracks'].QueueBottom(smLRP, EnforceRules);
      Pal.WaitForTime (T['+00:01:01']);
      Cat['Tracks'].QueueBottom(smMRP, EnforceRules);
      Cat['Tracks'].QueueBottom(smLRP, EnforceRules);
      Pal.WaitForTime (T['+00:01:01']);
      Cat['Tracks'].QueueBottom(smMRP, EnforceRules);
      Cat['Tracks'].QueueBottom(smRandom, EnforceRules);
      Pal.WaitForTime (T['+00:01:01']);
      Cat['Tracks'].QueueBottom(smMRP, EnforceRules);
      Cat['Tracks'].QueueBottom(smLRP, EnforceRules);
      Cat['Tracks'].QueueBottom(smLRP, EnforceRules);
      Cat['Tracks'].QueueBottom(smLRP, EnforceRules);
      Cat['Tracks'].QueueBottom(smRandom, EnforceRules);
      Cat['Tracks'].QueueBottom(smLRP, EnforceRules);
      Cat['Tracks'].QueueBottom(smLRP, EnforceRules);
      Cat['Tracks'].QueueBottom(smRandom, EnforceRules);
      Cat['Tracks'].QueueBottom(smLRP, EnforceRules);
      Cat['Tracks'].QueueBottom(smLRP, EnforceRules);
      Cat['Tracks'].QueueBottom(smRandom, EnforceRules);

   //<--BroadcasterForum.nl, Wout Franken & thanks to SenseoMan-->
Laatst gewijzigd door MRadioBeat op 14 okt 2010, 13:52, 2 keer totaal gewijzigd.

Gebruikersavatar
Evertje
******
Berichten: 284
Lid geworden op: 27 nov 2008, 23:06
SAM-versie: SAM 2015.2
Database: MySQL 5.5
Windows: Windows 10

Re: nummer aankondiging

Ongelezen bericht door Evertje » 14 okt 2010, 13:43

While..

Code: Selecteer alles

while not C.EOF do
   begin
//    Queue.Addfile(C['filename'],IpTop);
    Cnts := Cnts + 5;
.. betekend dat hij elke keer als er een resultaat is uit de SQL, hij Cnts + 5 doet!!
Dus alleen LIMIT 5 in de query is al genoeg, Cnts + 5 ff terug zetten op Cnts + 1 dus..

Want..

Code: Selecteer alles

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 ;
.. anders maakt hij hier 25x een loop!!
Terwijl er maximaal 10 a 15 nummers per uur te beluisteren zijn..

Je telt nu alleen de Cnts op, maar voegt niets toe aan de queue:

Code: Selecteer alles

while not C.EOF do
   begin
    Cnts := Cnts + 5;
C.Next;
   end;
..om vervolgens..

Code: Selecteer alles

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 ;
..25 x te horen: "New music!"

Want daarna voeg je pas nummers toe aan je queue..
Laatst gewijzigd door Evertje op 14 okt 2010, 13:49, 1 keer totaal gewijzigd.

MRadioBeat
Beginnende SAM-gebruiker
Berichten: 7
Lid geworden op: 11 okt 2010, 19:32
SAM-versie: 4.2.2.*
Database: MariaDB

Re: nummer aankondiging

Ongelezen bericht door MRadioBeat » 14 okt 2010, 13:48

okej dank je evertje, zag er niet veel van maar heb het aangepast :P
dank je :D

Gebruikersavatar
Evertje
******
Berichten: 284
Lid geworden op: 27 nov 2008, 23:06
SAM-versie: SAM 2015.2
Database: MySQL 5.5
Windows: Windows 10

Re: nummer aankondiging

Ongelezen bericht door Evertje » 14 okt 2010, 13:51

Geen dank, volgens mij werkt het nog niet helemaal.. Lees je priveberichten eens?!

MRadioBeat
Beginnende SAM-gebruiker
Berichten: 7
Lid geworden op: 11 okt 2010, 19:32
SAM-versie: 4.2.2.*
Database: MariaDB

Re: nummer aankondiging

Ongelezen bericht door MRadioBeat » 14 okt 2010, 13:53

Evert ik heb hem weer terug gezet naar 5


want als ik hem op 1 zet repeat hij hem maar 1x
en geen 5x.

en als ik hem op 5 zet dan doet hij et wel goed.

qradio
****
Berichten: 98
Lid geworden op: 18 dec 2009, 21:07
SAM-versie: SAM 2013.6
Database: MySQL 5.5
Windows: 8.1

Re: nummer aankondiging

Ongelezen bericht door qradio » 16 nov 2010, 21:07

Ik ben erg benieuwd hoe dit afloopt. Ik ben zelf ook begonnen om het werkend te krijgen, maar valt niet mee. :roll:

Bijvoorbeeld 5 stukjes van een track laten horen met jingle ertussen net na je uuropener, en dan deze 5 stukjes ook later in dat uur terug horen als het gehele nummer. Dus een aankondiging aan het begin van een nieuw uur over wat je komend uur kunt verwachten.

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 » 16 nov 2010, 21:46

Dat doet ie ook. :-D
viewtopic.php?f=81&t=2509&start=20#p18426
LIMIT 3 veranderen in LIMIT 5.
En zorg voor genoeg platen in je Queue!
Afbeelding

Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht