Script PAL pour SAM Broadcaster : jouer un bip horaire

le Lundi 15 janvier 2007 à 08:00 par Matt

Ce script PAL permet de jouer un bip horaire au début de chaque nouvelle heure. Il faut pointer vers le fichier son qui contient les bips.

PLAIN TEXT

CODE :

1. {Script PAL - Bip horaire par Matt - www.skyminds.net}
2. function ActivePlayer:TPlayer ; forward ;
3.  
4. {On attend la bonne heure}
5. PAL.WaitForTime(T['XX:00:00']) ;
6.  
7. {On ajoute le fichier bip}
8. Queue.Addfile('C :\bip.wav',ipTop) ;
9. ActivePlayer.FadeToNext ;
10.  
11. {On lance le bon deck}
12. function ActivePlayer:TPlayer ;
13. begin
14. if DeckA.Status = psPlaying then
15. Result := DeckA
16. else
17. Result := DeckB ;
18. end ;

Intérêt un peu limité mais bon, on ne sait jamais.

Lien permanent

Posté dans Web/Tech | Tags: bip, PAL, SAM Broadcaster, scripts PAL |

26 commentaires à “Script PAL pour SAM Broadcaster : jouer un bip horaire”

1. 1
   zenith dit :
   le 16 mai 2007 à 18:54 [ Citer ]
   

   {On ajoute le fichier bip}
   Queue.Addfile('C :\bip.wav',ipTop)

   bjr Matt bravo pr le script(pal) et si a la place du fichier je veux fait passer 1 playlist ? j'ai essayé de modifier ton script en mettant (c:\playlist.m3u',ipTop) à la place du fichier MP3, malheuresement ça ne marche pas comme je veux, ou alors je me suis trompé quelque part ? aide moi stp. Merci d'avance.

   
   
2. 2
   Matt dit :
   le 16 mai 2007 à 19:33 [ Citer ]
   

   Samut zenith,

   Si tu veux charger une playlist, il faut que tu utilises la fonction AddList() et non Addfile(). Essaie ceci :

   {On ajoute le fichier bip}
Queue.AddList('C :\playlist.m3u',ipTop)

   
   
3. 3
   zenith dit :
   le 16 mai 2007 à 20:04 [ Citer ]
   

   Merci pour ta reponse Matt effectivement ça marche nickel.
   1 autre inquietude stp, il y t-il un moyen pour equilibrer le niveaux du volume des chanson ?
   une fois encore merci pour ta reponse

   
   
4. 4
   seb dit :
   le 13 juillet 2007 à 22:36 [ Citer ]
   

   Bonjour, merci pour le script,

   par contre si on ne veux pas que la lecture se fasse sur un deck (et donc "coupe" le titre qui est en cours de diffusion), comment s'y prend on ?

   L'option de lire le bip horaire avec le SoundFX pourrait etre une solution, avec un parametre permettant de gerer le fade de Deck en cours de lecture.

   quelqu'un a une idée sur le code que ca donnerait ? mes competences en pal sont plus que limitée (j'ai déjà bien galeré pour comprendre qu'avec un "PAL.Loop := True ; le script se repetera de lui meme :( )

   Tant que j'y suis, peut on trouver des tutos "super simple" sur le Palscript (genre avec des exemples concrets) quelque part ? pas evident de comprendre le Pal quand le seul language qu'on connait est le HTML ;)

   
   
5. 5
   Sebbabas dit :
   le 26 juillet 2007 à 0:15 [ Citer ]
   

   Salut le script fonctionne mais je suis obligé de le reactiver apres chaque heure.
   Y a t il une soluce pour qu il reste tout le temps actif.
   Merci

   
   
6. 6
   disneyweb dit :
   le 23 août 2007 à 1:31 [ Citer ]
   

   salut à tous,

   voila, jai donc utiliser le script pour le bip horaire, MAIS, étant assez créatif, jai décider de mettre un top horaire correspondant a chaque heure :

   PAr exemple a 1h le MR dit " Il est 1h ".

   sauf que le script ne fonctione pas dans ce cas la.

   en duplicant les ligne et en changeant les ('XX:00:00') par les heures corespondantes et les adresses de fichiers correspondant, soit ca lance tous les top horaires au démarage de sam ou alors il execute le meme bip horaire pendant 1h.

   comment faire pour obtenir un script qui soit capable de lancer un top horaire different a chaque heure sans se planter ??

   merci ce serai suuuper top de chopper ca parceque j'en ai suuuper besoin.

   et un grand merci a tous pour votre boulo....

   
   
7. 7
   dj_jean_jean dit :
   le 30 septembre 2007 à 9:41 [ Citer ]
   

   je suis arrivé a faire mon scripte pour ajouter des fichiers au sommet du conducteur pour les top-h sans couper la zik en cour. Ce scripte ne se répète pas car il est commendé par un évènement dans event schedulder sui lance le scriptre a XX:59.00.

   function ActivePlayer:TPlayer ; forward ;

   {On attend la bonne heure}
   PAL.WaitForTime(T['XX:59:45']) ;

   {On ajoute le fichier bip}
   Cat['decro'].QueueTop(smRandom,NoRules) ;
   Cat['apprentissage'].QueueTop(smRandom,NoRules) ;
   Cat['ecologie'].QueueTop(smRandom,NoRules) ;
   Cat['sécurité routière'].QueueTop(smRandom,NoRules) ;
   Cat['l'ennemi intime'].QueueTop(smRandom,NoRules) ;
   Cat['top-h'].QueueTop(smRandom,NoRules) ;

   {On lance le bon deck}
function ActivePlayer:TPlayer ;
begin
if DeckA.Status = psPlaying then
Result := DeckA
else
Result := DeckB ;
end ;

   il faut bien penser a mettre la liste des fichiers à lire a l'envers dans le scripte pour que dans le conducteur ils soient dans le bon sens
   mais le blem c'est que là il ajoute que la première et la dernière ligne et avec des retour à la ligne entre chaque catégorie ça revient au même, simplement là ça les ajoutent d'un coup.

   Donc pour résumer, ce scripte ajoute les fichiers au sommet du conducteur sans lancer la zik, mais il y a que le top-h et le décro qui s'ajoutent vous pouvez m'aider à trouver pourquoi SVP ?

   
   
8. 8
   Matt dit :
   le 30 septembre 2007 à 17:28 [ Citer ]
   

   Salut,

   Suivant ce à quoi correspondent tes catégories, je mettrais :

   Cat['decro'].QueueTop(smRandom,NoRules) ;
Cat['apprentissage'].QueueTop(smLemmingLogic,EnforceRules) ;
Cat['ecologie'].QueueTop(smLemmingLogic,EnforceRules) ;
Cat['sécurité routière'].QueueTop(smLemmingLogic,EnforceRules) ;
Cat['l'ennemi intime'].QueueTop(smLemmingLogic,EnforceRules) ;
Cat['top-h'].QueueTop(smRandom,NoRules) ;

   decro et top-h sont les deux seules catégories à ne pas suivre les règles (pas plus de X diffusions).

   
   
9. 9
   DISNEYWEB dit :
   le 30 septembre 2007 à 17:56 [ Citer ]
   

   RE...

   Je souhaite donc savoir si par hasard, quelqu'un sais si il existe un script qui balance un TOP H different a chaques heures ?
   jai une petite impression que ma demande ne conçerne persone... ouinnn !!

   en fait j'aimerai un bip horaire different de chaques heures sans que ces derniers soient ajoutées en BDD.

   pour lemoment rien de rien ! jai essayer plusieurs combinaisons mais sans succes..

   merci a vous de m'aider....

   
   
10. 10
    dj_jean_jean dit :
    le 30 septembre 2007 à 20:02 [ Citer ]
    

    DSL mais ton scripte n'a rien changé

    pour toi disneyweb je crérais 1 script par top-h différent qui commendera d'ajouter le top-h en tête de conducteur, et crée un évènement qui commende que a tel heure tel script ce lance et qui ajoutera le bon top-h. l'évènement commendera de lancer le bon scripte par exemple 1min avant que l'heure et comme ça SAM ne fait pas tout même temps.

    Je ne sais pas si je me suis bien fait comprendre ...

    
    
11. 11
    DISNEYWEB dit :
    le 30 septembre 2007 à 20:05 [ Citer ]
    

    euuu jai pas top compris.. as tu un exemple ??

    
    
12. 12
    dj_jean_jean dit :
    le 30 septembre 2007 à 20:17 [ Citer ]
    

    en faite ce que je dis c'est que au sommet tu crée dans SAM broadcaster un évènement qui commendera le lancement des différents scripte des top-h.

    En fait c'est hiérarchisé.

    En bas tu as plein de scripte qui sont à l'arrêt où chaque scripte comme un tip de top-h. tu as par exemple top-h1.pal top-H2.pal ...
    Et au dessus tu as un script qui commende de lancer a 1H le script top-h1.pal

    en faite par exemple pour le top-h de 1H :

    SAM tourne normalement
    à 00:55:00 le controleur d'évènement de SAM commande à top-h1.pal de ce lancer
    top-h1.pal ce lance et ce met en attente
    00:59:45 le script ce lance et ajoute les fichiers en tête de conducteur

    comprend mieux ?

    
    
13. 13
    DISNEYWEB dit :
    le 30 septembre 2007 à 20:21 [ Citer ]
    

    jai deja essayer avec 24 script.

    et donc voici celui pour celui de 00h cotenant ceci :

    PAL.Loop := True ;

    function ActivePlayer:TPlayer ; forward ;
    Var B : Boolean ;
    B:=FALSE ;

    {Durée de la fenêtre en millisecondes!}
    const Delta = 240*1000 ;

    {Début de la fenêtre}
    const Debut = '23:58:00' ;

    {Heure du top si le titre est trop long}
    const Btime = '00:01:00' ;

    {Attendre la bonne minute}
    PAL.WaitForTime(T[Debut]) ;

    {Si le titre se termine dans les 4 minutes suivantes on place le top}
    if (ActivePlayer.Duration>0) and ((ActivePlayer.Duration-ActivePlayer.CurTime)

    
    
14. 14
    dj_jean_jean dit :
    le 30 septembre 2007 à 20:34 [ Citer ]
    

    utilise

    {On attend la bonne heure}
PAL.WaitForTime(T['XX:59:45']) ;

    {On ajoute le fichier bip}
    Cat['top-h'].QueueTop(smRandom,NoRules) ;

    {On lance le bon deck}
    function ActivePlayer:TPlayer ;
    begin
    if DeckA.Status = psPlaying then
    Result := DeckA
    else
    Result := DeckB ;
    end ;

    tu fait un scripte pour chaque top-h avec ce code en modifiant

    Cat['top-h'].QueueTop(smRandom,NoRules) ;

    pour que ça commande ton fichier

    chez moi il marche avec 1 fichier mais avec plusieurs il beug

    
    
15. 15
    DISNEYWEB dit :
    le 30 septembre 2007 à 20:43 [ Citer ]
    

    je modifie quoi exactement ?

    je fais :

    Cat['top-h/21.mp3'].QueueTop(smRandom,NoRules) ; ?

    
    
16. 16
    dj_jean_jean dit :
    le 30 septembre 2007 à 21:34 [ Citer ]
    

    Queue.Addfile('C :\bip.wav',ipTop) ;

    
    
17. 17
    DISNEYWEB dit :
    le 3 octobre 2007 à 23:34 [ Citer ]
    

    décidement je ne vais jammais trouver un script qui soit capable d'executer un top horaire different a chaques heures...

    le script que tu m'as proposer est déja le script de base qui est plus haut.

    celui ci n'execute qu'un MEME topH toute les heures....

    a l'aiiiide !

    
    
18. 18
    DISNEYWEB dit :
    le 4 octobre 2007 à 0:02 [ Citer ]
    

    en fait jai fait un script pour chaques heures mais le probleme est que le script execute le top H au moin 50 fois...

    je suis oblogé de l'arreter...

    j'aimerai qu'il ne l'execute qu'une seule fois pour son heure bien précise...

    
    
19. 19
    dj_jean_jean dit :
    le 4 octobre 2007 à 10:33 [ Citer ]
    

    pour ton top-h c'est un fichier audio ou une suite de fichiers audio pris dans plusieurs catégories comme moi ?

    
    
20. 20
    DISNEYWEB dit :
    le 4 octobre 2007 à 11:20 [ Citer ]
    

    non justement... si ce n'etait que ca... ; ca irai...

    Theoriquement, les fichiers audios sont au nombre de 24 placés dans une seule et uique categiorie.

    enfait je cherche soit un script capable de lire un TOP H different pour chaques heures, ou 24 script capable de lire sont TOP H respectif sans se planter.

    je rapel que quand je modifie le script come ceci :

    au lieux que ce soit XX.59.45 je met pour le TOP de 13hH : 12.59.45.

    le probleme est que le topH se lance bien en Qtop mais le script le lance un certain nombres de fois inacceptable pour une radio.

    vous avez compris qu'il m'est impossible de lancer et arreter les script manuelement.

    chaques TOP H pour chaques heures cela me parait important pour radio d'autant plus qu'ils sont pret à etre lancés, il n'attendent plus que le script...

    j'espere trouver sur ce forum le bonheur de mes auditeurs;...

    VOICI MON SCRIPT TEL QU'IL EST, EN ESPERANT TROUVER L'EREURE QUI ME SAUVERA :

    PAL.Loop := True ;

    function ActivePlayer:TPlayer ; forward ;
    Var B : Boolean ;
    B:=FALSE ;

    {Durée de la fenêtre en millisecondes!}
    const Delta = 240*1000 ;

    {Début de la fenêtre}
    const Debut = '12:58:00' ;

    {Heure du top si le titre est trop long}
    const Btime = '13:01:00' ;

    {Attendre la bonne minute}
    PAL.WaitForTime(T[Debut]) ;

    {Si le titre se termine dans les 4 minutes suivantes on place le top}
    if (ActivePlayer.Duration>0) and ((ActivePlayer.Duration-ActivePlayer.CurTime)

    merci avous :)

    
    
21. 21
    dj_jean_jean dit :
    le 4 octobre 2007 à 13:22 [ Citer ]
    

    oui mais tu veux que ton top-h prenne un fichier dans une playliste de SAM ou qu'il lance un fichier pressis ?

    
    
22. 22
    DISNEYWEB dit :
    le 4 octobre 2007 à 13:33 [ Citer ]
    

    non non !

    Mon but est que le ou les scripts aillent chercher son / ou les fichiers des 24 TOPh sans qu'il soient dans la BDD.

    soit via une catégorie ou directement dans le DD.

    
    
23. 23
    dj_jean_jean dit :
    le 4 octobre 2007 à 18:00 [ Citer ]
    

    envoye moi ton adresse msn à dj_jean_jean@hit-generation.fr je t'expliquerait clairement car on arrive pas a ce comprendre comme ça.

    
    
24. 24
    DISNEYWEB dit :
    le 4 octobre 2007 à 18:04 [ Citer ]
    

    je t'ai ajouter... ajoutes moi stu veux...

    merci, bye

    m-s-p@hotmail.fr

    
    
25. 25
    Matt dit :
    le 4 octobre 2007 à 18:56 [ Citer ]
    

    Salut,

    Disneyweb, je crois que tu ce que tu cherches ressemble à ceci :

    function ActivePlayer:TPlayer ; forward ;
PAL.Loop := True ;

    const TimeHeader : String = 'E:\StationPromo\Times\header.mp3' ;
    const TimeHours : String = 'E:\StationPromo\Times\Hours\' ;
    const TimeMinutes : String = 'E:\StationPromo\Times\Minutes\' ;
    const MyGMTZone : Integer = 10 ;

    var C,N : Integer ;
    var fname : String ;
    var fnamehh : String ;
    var fnamemm : String ;
    var ampm : String ;
    var E : DateTime = Queue.ETA ; // Return the length of the queues
    var hh,mm,ss,ms : Integer ;

    N := 0 ;
    while N < 24 do begin

    DecodeTime(Now,hh,mm,ss,ms);
    if (hh = 0) then hh := 24;
    WriteLn('The Time Is ' IntToStr(hh) ':' IntToStr(mm));

    //WriteLn('Wait for 10 Minutes'); // Say time every ten minutes
    //PAL.WaitForTime(T[' 00:10:00']);

    //PAL.WaitForPlayCount(1);
    //DecodeTime(Now,hh,mm,ss,ms);

    E := Queue.ETA; // You could even wait for the current
    DecodeTime(E,hh,mm,ss,ms); // cue length of time to finish
    if (hh <= 9) then
    fnamehh := '0' IntToStr(hh) '.mp3' //get the right file name
    else
    fnamehh := IntToStr(hh) '.mp3'; //get the right file name
    WriteLn(fnamehh);

    if (mm <= 9) then
    fnamemm := '0' IntToStr(mm) '.mp3' //get the right file name
    else
    fnamemm := IntToStr(mm) '.mp3'; //get the right file name
    WriteLn(fnamemm);

    WriteLn('SayTime at ' IntToStr(hh) ':' IntToStr(mm)); // Just checking
    //PAL.WaitForTime(E);

    // you need to reverse the order, mm - hh - header, so that the header
    // ends up in queuetop.
    //Queue.AddFile(TimeMinutes fnamemm,ipTop);
    //Queue.AddFile(TimeHours fnamehh,ipTop);
    //Queue.AddFile(TimeHeader,ipTop);
    //ActivePlayer.FadeToNext; // then fade to say the time.

    Queue.AddFile(TimeHeader,ipBottom);
    Queue.AddFile(TimeHours fnamehh,ipBottom);
    Queue.AddFile(TimeMinutes fnamemm,ipBottom);
    PAL.WaitForTime(E);
    PAL.WaitForQueue(4); // wait till the queue fills again - 4 or more
    // but what does it do in the even that

    N := N 1;
    end;

    function ActivePlayer:TPlayer;
begin
if DeckA.Status = psPlaying then
Result := DeckA
else
Result := DeckB;
end;


    Voici les sons de l'heure en anglais, à toi de les enregistrer/trouver en français. N'oublie pas de modifier le chemin vers les fichiers MP3 dans les 5 premières lignes du script.

    
    
26. 26
    DISNEYWEB dit :
    le 4 octobre 2007 à 19:18 [ Citer ]
    

    coool super un grand merci a toi ... mais...

    ba oui je fais mon chieur, parcequ'il y a un mais...

    sam m'indique une erreur de syntax a la ligne 22 :

    Syntax Error ")" exepted [line : 22, colum : 24]

    je suis en train de voir..

    sinon oui mes toph de toutes les heures etaient pretes.. il ne manque plus que le script... qui marche si possible...

    si jammais tu vois d'ou cela peux venir, je suis en standby..

    ciao

    
    

Aucun trackback

Laisser un commentaire

• Entrez les termes que vous recherchez. Recherche
  

• Catégories

  • Anime/Série Blog Boulot Classics Links Misc Music/Ciné PHP-MySQL Web/Tech WordPress

  
  

• Syndication

  • 
    

    
    Votre publicité ici !
    
    TLA ∗ HU ∗ Oxado ∗ AD42

    
    
  
  

• • Commentaires

    • syks s dans Script PAL pour SAM Broadcaster : diffuser une publicité ou un jingle toutes les 5 chansons: Merci de...
    • Matt dans Script PAL pour SAM Broadcaster : diffuser une publicité ou un jingle toutes les 5 chansons: Salut Yann,...
    • Syks S dans Script PAL pour SAM Broadcaster : diffuser une publicité ou un jingle toutes les 5 chansons: Bonjour...
    • Matt dans Eureka saison 3: Lorsqu’une version n’est pas conforme aux normes d’usage (décalages ou...
    • Matt dans Fin des vacances d’été 2008…: Oui, il y a des périodes comme ça… positivons !
    
    

• RSS Syndication

  • 

    

Copyright © 1999-2008 Matt B. - SkyMinds.Net.
Tous droits de reproduction et de diffusion réservés. IDDN | Sitemap | RSS | Vie privée.