ANTI-NL script

Voor vragen over Playlist Automation Language.
Plaats reactie
Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

ANTI-NL script

Ongelezen bericht door drOhimself » 16 jul 2017, 16:17

Het komt wel eens voor dat je bepaalde genres juist NIET wilt afspelen.
Bijvoorbeeld als je een hekel hebt aan Nederlandstalige muziek (of Duits, of noem-maar-op).
Je hebt jouw muziek verzameling goed op orde, dat wil zeggen, je hebt bij al jouw nummers het 'genre' goed ingevuld.
Indien jouw SAM automatisch de queue vult, kan het makkelijk gebeuren dat er een nummer tussen komt, die toevallig het 'verkeerde' genre heeft.

Nog voordat dit nummer afgespeelt wordt, wordt het ong. 10 seconden voor de start in de 2e player gezet.
Dat is de 'QueuedPalyer'. Daar kunnen we op testen met het volgende scriptje :

Code: Selecteer alles

// Broadcasterforum 2017/07/16 v3
// ANTI-NL script. Indien het genre een van onderstaande is, laadt dan volgend nummer.

PAL.Loop := True ;  
var Done : Boolean = False;
var Song : TSongInfo;
While not Done do
	begin
		if QueuedPlayer <> nil then
		begin
			Done := True;
			Song := QueuedPlayer.GetSongInfo;
			if 	( Song['genre'] = 'Nederlands' ) or
				( Song['genre'] = 'nederlands' ) or 
				( Song['genre'] = 'Hollands' ) or 
				( Song['genre'] = 'Dutch' ) or 
				( Song['genre'] = 'Feest muziek' ) or 
				( Song['genre'] = 'Duits' ) or
				( Song['genre'] = 'Nederlandstalig' )
			then QueuedPlayer.Eject;
		end; //case
	end;
Afbeelding drOhimself for BroadcasterForum 2017-07-16
Uiteraard kun je dit voor allerlei andere genres gebruiken.
Je kunt het ook aanpassen indien je tijdens bepaalde uren van de dag er gebruik van wilt maken.
Groedjez,
drO

GerberaRadio
***
Berichten: 73
Lid geworden op: 29 mar 2009, 14:59
SAM-versie: 4.2.2.*
Database: MySQL 5.0
Windows: XP
Locatie: Lelystad
Contacteer:

Re: ANTI-NL script

Ongelezen bericht door GerberaRadio » 21 sep 2017, 12:47

Hoi Hoi, Heb je ook een script die je in je schedule kan plaatsen? Zodat je op bepaalde tijdstippen genre's wel tussen door komen?
Alvast bedankt voor de hulp!
Yesterday's Music Today!

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: ANTI-NL script

Ongelezen bericht door drOhimself » 21 sep 2017, 20:43

Geen idee of dit ook werkt in je Schedule.
Je zou dat gewoon kunnen proberen.
Groedjez,
drO

GerberaRadio
***
Berichten: 73
Lid geworden op: 29 mar 2009, 14:59
SAM-versie: 4.2.2.*
Database: MySQL 5.0
Windows: XP
Locatie: Lelystad
Contacteer:

Re: ANTI-NL script

Ongelezen bericht door GerberaRadio » 21 sep 2017, 21:43

Maar dat script werkt niet in de schedule! Dus hoe past je dit aan?
Yesterday's Music Today!

GerberaRadio
***
Berichten: 73
Lid geworden op: 29 mar 2009, 14:59
SAM-versie: 4.2.2.*
Database: MySQL 5.0
Windows: XP
Locatie: Lelystad
Contacteer:

Re: ANTI-NL script

Ongelezen bericht door GerberaRadio » 22 sep 2017, 08:14

Ik probeerde een beetje aan het script te sleutelen, maar ik kom er niet uit! Ik wil deze werkend hebben om 18:58 en om 23:58 kan de genre's weer gedraaid worden! Graag uitleg of script ervoor? Alvast bedankt voor de hulp!

Dé de Haas (GerberaRadio)
Yesterday's Music Today!

GerberaRadio
***
Berichten: 73
Lid geworden op: 29 mar 2009, 14:59
SAM-versie: 4.2.2.*
Database: MySQL 5.0
Windows: XP
Locatie: Lelystad
Contacteer:

Re: ANTI-NL script

Ongelezen bericht door GerberaRadio » 22 sep 2017, 10:53

Code: Selecteer alles

// Broadcasterforum 2017/07/16 v3
// ANTI-NL script. Indien het genre een van onderstaande is, laadt dan volgend nummer.

PAL.Loop := True ;  
PAL.WaitForTime(T['18:58:00']);
var Done : Boolean = False;
var Song : TSongInfo;
While not Done do
   begin

      if QueuedPlayer <> nil then
      begin
         Done := True;
         Song := QueuedPlayer.GetSongInfo;
         if    ( Song['genre'] = 'Nederlands' ) or
            ( Song['genre'] = 'nederlands' ) or 
            ( Song['genre'] = 'Hollands' ) or 
            ( Song['genre'] = 'Feest muziek' ) or
            ( Song['genre'] = 'Duits' ) or
            ( Song['genre'] = 'Nederlandstalig' )   or
            ( Song['genre'] = 'Dutch' )   or
            ( Song['genre'] = 'Palingsound' )  or
            ( Song['genre'] = 'Evergreens' )

         then QueuedPlayer.Eject;
      end; //case
      end;
PAL.WaitForTime(T['23:58:00']);
Laatst gewijzigd door GerberaRadio op 22 sep 2017, 11:08, 1 keer totaal gewijzigd.
Yesterday's Music Today!

GerberaRadio
***
Berichten: 73
Lid geworden op: 29 mar 2009, 14:59
SAM-versie: 4.2.2.*
Database: MySQL 5.0
Windows: XP
Locatie: Lelystad
Contacteer:

Re: ANTI-NL script

Ongelezen bericht door GerberaRadio » 22 sep 2017, 10:55

Ik weet niet of dit werkt, laat mij even weten ik test zelf ook!
Yesterday's Music Today!

Gebruikersavatar
DjEricDaCosta
*
Berichten: 13
Lid geworden op: 25 jul 2017, 22:37
SAM-versie: Geen.
Database: MS SQL
Windows: Windows 10
Contacteer:

Re: ANTI-NL script

Ongelezen bericht door DjEricDaCosta » 22 sep 2017, 11:41

Leuk idee en zeer handig om een Genre uit te sluiten Thanks
[smilie=good.gif]

GerberaRadio
***
Berichten: 73
Lid geworden op: 29 mar 2009, 14:59
SAM-versie: 4.2.2.*
Database: MySQL 5.0
Windows: XP
Locatie: Lelystad
Contacteer:

Re: ANTI-NL script

Ongelezen bericht door GerberaRadio » 22 sep 2017, 12:22

Erg handig, maar met die tijden werkt het niet echt! Bij dat laatste regel blijft hij hangen! Dus dat heb ik al getest! Hoe zorg ik voor dat de anti Nederlands script werkt zonder dat ik handmatig hoef te starten en te stoppen!
Yesterday's Music Today!

Gebruikersavatar
DjEricDaCosta
*
Berichten: 13
Lid geworden op: 25 jul 2017, 22:37
SAM-versie: Geen.
Database: MS SQL
Windows: Windows 10
Contacteer:

Re: ANTI-NL script

Ongelezen bericht door DjEricDaCosta » 22 sep 2017, 14:38

GerberaRadio schreef:Erg handig, maar met die tijden werkt het niet echt! Bij dat laatste regel blijft hij hangen! Dus dat heb ik al getest! Hoe zorg ik voor dat de anti Nederlands script werkt zonder dat ik handmatig hoef te starten en te stoppen!
Misschien // voor de laatste regel in het script plaatsen?

// Afbeelding drOhimself for BroadcasterForum 2017-07-16
[smilie=good.gif]

GerberaRadio
***
Berichten: 73
Lid geworden op: 29 mar 2009, 14:59
SAM-versie: 4.2.2.*
Database: MySQL 5.0
Windows: XP
Locatie: Lelystad
Contacteer:

Re: ANTI-NL script

Ongelezen bericht door GerberaRadio » 22 sep 2017, 15:00

Het is de bedoeling dat er geen Nederlands of dutch etc tussen 18:58 en 06:58! Maar ik test dit scripje hij blijft op 23:58 hangen waar door het script niet werkt!
Yesterday's Music Today!

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: ANTI-NL script

Ongelezen bericht door drOhimself » 22 sep 2017, 22:57

Zou zoiets misschien werken voor je ?

Code: Selecteer alles

// Broadcasterforum 2017/07/16 v3
// ANTI-NL script. Indien het genre een van onderstaande is, laadt dan volgend nummer.

PAL.Loop := True ;  
var Done : Boolean = False;
var Song : TSongInfo;
while DayOfWeek(Now) = Monday and ((Now >= T['18:58:']) and (Now <= T['23:58:00'])) do
		begin
			While not Done do
				begin
					if QueuedPlayer <> nil then
						begin
							Done := True;
							Song := QueuedPlayer.GetSongInfo;
							if	( Song['genre'] = 'Nederlands' ) or
								( Song['genre'] = 'nederlands' ) or 
								( Song['genre'] = 'Hollands' ) or 
								( Song['genre'] = 'Feest muziek' ) or
								( Song['genre'] = 'Duits' ) or
								( Song['genre'] = 'Nederlandstalig' )   or
								( Song['genre'] = 'Dutch' )   or
								( Song['genre'] = 'Palingsound' )  or
								( Song['genre'] = 'Evergreens' )
							then QueuedPlayer.Eject;
						end; //case
				end;
		end;
Groedjez,
drO

GerberaRadio
***
Berichten: 73
Lid geworden op: 29 mar 2009, 14:59
SAM-versie: 4.2.2.*
Database: MySQL 5.0
Windows: XP
Locatie: Lelystad
Contacteer:

Re: ANTI-NL script

Ongelezen bericht door GerberaRadio » 23 sep 2017, 12:55

Dank je wel man! Helemaal top!

Dé de Haas
Yesterday's Music Today!

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: ANTI-NL script

Ongelezen bericht door drOhimself » 24 sep 2017, 17:13

Als het werkt, is het mooi.
Als je het BEGRIJPT, is het natuurlijk nog mooier!


Verzonden vanaf mijn iPhone met Tapatalk
Groedjez,
drO

Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht