Script PAL pour SAM Broadcaster : jouer un style de musique donné pendant un créneau horaire
le Lundi 11 décembre 2006 à 08:21 par MattUn script PAL un peu plus complexe cette fois qui concernera surtout les webradios qui ont des émissions bien déterminées, à heure fixe, avec un créneau horaire bien déterminé.
Les fichiers de chaque style de musique doivent être classés dans les différentes catégories de SAM (fenêtre Playlist > Catégories) : il suffit de créer différents dossiers (instrumental, contemporary et sabbath dans l'exemple suivant) et de placer les fichiers dans ces différents dossiers.
CODE :
-
{PAL script : style de musique par créneau horaire par Matt - www.skyminds.net}
-
-
{*************************************************************
-
Définition des variables.
-
**************************************************************}
-
PAL.Loop := True ;
-
var mytime : DateTime = now ;
-
var D : Integer ;
-
-
var start_time_instrumental, end_time_instrumental : DateTime ;
-
var start_time_contemporary, end_time_contemporary : DateTime ;
-
var start_time_sabbath, end_time_sabbath : DateTime ;
-
-
{*************************************************************
-
A vous d'ajuster les heures ! Je lance le script 15 minute avant l'heure parce qu'il
-
reste toujours 3 ou 4 chansons dans la file d'attente. Si vous souhaitez que cela
-
commence à l'heure exacte, il vous suffit d'ajouter la commande Queue.Clear
-
**************************************************************}
-
start_time_instrumental := date + EncodeTime(07,45,00,0) ;
-
end_time_instrumental := date + EncodeTime(08,45,00,0) ;
-
-
start_time_contemporary := date + EncodeTime(10,45,00,0) ;
-
end_time_contemporary := date + EncodeTime(12,45,00,0) ;
-
-
start_time_sabbath := date + EncodeTime(16,45,00,0) ;
-
end_time_sabbath := date + EncodeTime(20,45,00,0) ;
-
-
{*************************************************************
-
Le script est lancé le Samedi et obéit aux règles catégories/heures.
-
**************************************************************}
-
if DayOfWeek(Now) = Saturday then
-
begin
-
if( mytime>= start_time_instrumental) and (mytime <= end_time_instrumental) Then
-
begin
-
cat['Instrumental'].QueueBottom(smLemmingLogic,EnforceRules) ;
-
PAL.WaitForQueue(1) ;
-
end ;
-
if( mytime>= start_time_contemporary) and (mytime <= end_time_contemporary) Then
-
begin
-
cat['Contemporary'].QueueBottom(smLemmingLogic,EnforceRules) ;
-
PAL.WaitForQueue(1) ;
-
end ;
-
if( mytime>= start_time_sabbath) and (mytime <= end_time_sabbath) Then
-
begin
-
cat['DemoTracks'].QueueBottom(smLemmingLogic,EnforceRules) ;
-
PAL.WaitForQueue(1) ;
-
end ;
-
end ;
Vous n'avez plus qu'à vous pencher sur le contenu de l'émission !
Lien permanent
.
le 27 août 2008 à 1:19 [ Citer ]
Bonjours,
J'ai essayé mais sa me met toujours copiler errors
Moi j'ai fait ceci pour exemple
{PAL script : style de musique par créneau horaire par Matt - http://www.skyminds.net}
{QUELQUES INFOS DU SYSTEME -
Un script PAL un peu plus complexe cette fois qui concernera surtout les
webradios qui ont des émissions bien déterminées, à heure fixe, avec un
créneau horaire bien déterminé.
Les fichiers de chaque style de musique doivent être classés dans les
différentes catégories de SAM (fenêtre Playlist > Catégories) : il suffit
de créer différents dossiers (instrumental, contemporary et sabbath dans
l'exemple suivant) et de placer les fichiers dans ces différents dossiers.}
{*************************************************************
Définition des variables.
**************************************************************}
PAL.Loop := True ;
var mytime : DateTime = now ;
var D : Integer ;
var start_time_Mix, end_time_Mix : DateTime ;
var start_time_RadioMP3, end_time_RadioMP3 : DateTime ;
var start_time_sabbath, end_time_sabbath : DateTime ;
{*************************************************************
A vous d'ajuster les heures ! Je lance le script 15 minute avant l'heure parce qu'il
reste toujours 3 ou 4 chansons dans la file d'attente. Si vous souhaitez que cela
commence à l'heure exacte, il vous suffit d'ajouter la commande Queue.Clear
**************************************************************}
start_time_Mix := date + EncodeTime(01,05,00,0) ;
end_time_Mix := date + EncodeTime(03,00,00,0) ;
start_time_RadioMP3 := date + EncodeTime(03,05,00,0) ;
end_time_RadioMP3 := date + EncodeTime(17,45,00,0) ;
start_time_sabbath := date + EncodeTime(17,46,00,0) ;
end_time_sabbath := date + EncodeTime(20,45,00,0) ;
{*************************************************************
Le script est lancé le Samedi et obéit aux règles catégories/heures.
**************************************************************}
if DayOfWeek(Now) = Wednesday then
begin
if( mytime>= start_time_Mix) and (mytime = start_time_RadioMP3) and (mytime = start_time_sabbath) and (mytime < = end_time_sabbath) Then
begin
cat['sabbath'].QueueBottom(smLemmingLogic,EnforceRules) ;
PAL.WaitForQueue(1) ;
end ;
end ;
-----------------------
Donc un dossier dans playlist qui est sous le nom Mix, RadioMP3 et un sous sabbath.
Le fichier pal est demandé de se lancé le mercredi chose que j'ai testé 10 minutes avant pour voir si cela execute, et j'ai toujours le message d'erreur.
En haut du fichier pal ceci (var D : Integer ;) veut il dire qu'il va chercher dans D:( disque dur ) ou c'est comme ça ?
Pose cette question car je debute dans la chose et que j'y connais pas grand chose et bien dommage qu'il y a pas plus de fichier pal proposé et bien utile.
Merci d'avance pour vos futurs réponses.
Amicalement
le 27 août 2008 à 18:51 [ Citer ]
Salut Ludovic,
Je n'ai pas de problèmes de compilation sur ce script.
var D : Integer ;est une définition de variable. Rien à voir avec la lettre du disque dur. As-tu essayé de ne pas changer le script mais d'utiliser les mêmes noms de catégories ?