FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Calculatrice
par papydall Hier à 22:54

» EPP_V01 éditeur pour Panoramic
par Minibug Mer 19 Sep 2018 - 21:03

» [RESOLU] Quelle ligne est sélectionnée dans SYNEDIT ?
par Jean Claude Mer 19 Sep 2018 - 21:02

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Mer 19 Sep 2018 - 15:58

» Planétarium virtuel.
par Pedro Alvarez Mer 19 Sep 2018 - 9:28

» Demande pour Jack concernant PanExpress
par Marc Mar 18 Sep 2018 - 23:56

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub : variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

» MEMO avec des possibilités de commande
par Oscaribout Mer 12 Sep 2018 - 1:06

» La théorie du chaos
par jean_debord Mar 11 Sep 2018 - 9:30

» Orbites de l’ensemble de Mandelbrot
par Jean Claude Lun 10 Sep 2018 - 21:08

» Version instantanée V 0.9.29i2 du 4/09/2018
par silverman Mer 5 Sep 2018 - 10:15

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 Ecouter la radio fm sur votre pc

Aller en bas 
AuteurMessage
pascal10000

avatar

Nombre de messages : 703
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Ecouter la radio fm sur votre pc   Mar 28 Nov 2017 - 8:22

bonjour a tous

mon p'tit prg n'est qu'une ébauche
un truc simple sans personnalité
il manque encore des stations en tout il y en près d'une centaine
mais je ne les ferais pas toute si vous avez du temps a perdre
prenez le temps d'en rajouter
dans le programme il y en a 26
utilisé aussi kgf.dll pour un browser internet

Code:

Dim Station$,url$,Frequence%,Q%,LeftD% ,res%,WB%

Label Choix,Plus,Moin,Lecture,Etein
Color 0,0,0,0
Height 0,180
Font_Size 0,10
Font_Bold 0
Font_Color 0,0,255,0
On_Close 0,Etein

Dll_On "D:\Programmation\Projet Panoramic\poste radio\kgf.dll"
WB% = dll_call1("WB_Create",Handle(0))
res% = dll_call5("WB_Locate",WB%,10,50,0,0)

Alpha 1
Left 1,200
' Tableau FREQUENCE
Container 10
Caption 10,"FREQUENCE"
Left 10,20 :Top 10,20
Width 10,200 : Height 10,52
Hide 10

LeftD%=-10
For Q%=11 to 16
LeftD%=LeftD%+30
DIGIT1 Q%
Parent Q%,10
Top Q%,15
Width Q%,20
Height Q%,34
Left Q%,LeftD%
Color Q%,0,255,0
Caption Q%,""
Next Q%
Show 10

Button 20
Left 20,221 : Top 20,28
Width 20,21 : Height 20,21
Font_Size 20,16
Font_Bold 20
Caption 20,"+"
On_Click 20,Plus

Button 30
Left 30,221 : Top 30,52
Width 30,21 : Height 30,21
Font_Size 30,20
Font_Bold 30
Caption 30,"-"
On_Click 30,Moin

url$="http://www.ecouterradioenligne.com/"
Frequence%=0
End

Plus:
Set_Focus 10
Frequence%=Frequence%+1
If Frequence%=>26 Then Frequence%=1
Gosub Choix
Return

Moin:
Set_Focus 10
Frequence%=Frequence%-1                     
If Frequence%=0 Then Frequence%=26
Gosub Choix
Return


Choix:                                                   
 Caption 11,"" : Caption 12,"" : Caption 13,"" : Caption 14,"" : Caption 15,"" : Caption 16,""
Select Frequence%
 Case 1 : Station$="France-Inter"
          Caption 13,"8" : Caption 14,"7" : Caption 15,"-" : Caption 16,"8" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/france-inter/"
 Case 2 : Station$="Générations"
          Caption 13,"8" : Caption 14,"8" : Caption 15,"-" : Caption 16,"2" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/generations/"
 Case 3 : Station$="Nostalgie"
          Caption 13,"9" : Caption 14,"0" : Caption 15,"-" : Caption 16,"4" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/nostalgie/"
 Case 4 : Station$="Chante-France"
          Caption 13,"9" : Caption 14,"0" : Caption 15,"-" : Caption 16,"9" :Caption 1,Station$
          url$=""
 Case 5 : Station$="Contact-Fm"
          Caption 13,"9" : Caption 14,"1" : Caption 15,"-" : Caption 16,"4" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/contact-fm/"
 Case 6 : Station$="Cherie-Fm"
          Caption 12,"9" : Caption 13,"1." : Caption 14,"7" : Caption 15,"-" : Caption 16,"1" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/cherie/"
 Case 7 : Station$="France-Musique"
          Caption 12,"9" : Caption 13,"2." : Caption 14,"0" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/france-musique/"
 Case 8 : Station$="france-culture"   
          Caption 12,"9" : Caption 13,"3." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/france-culture/"
 Case 9 : Station$="Orient-Fm"   
          Caption 12,"9" : Caption 13,"4." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/orient/"
 Case 10 : Station$="galaxie FM France"   
          Caption 12,"9" : Caption 13,"5." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/galaxie/"
 Case 11 : Station$="Puls Radio"   
          Caption 12,"9" : Caption 13,"5." : Caption 14,"4" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/puls/"
 Case 12 : Station$="Jazz"   
          Caption 12,"9" : Caption 13,"5." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/jazz/"
 Case 13 : Station$="Skyrock"   
          Caption 12,"9" : Caption 13,"6." : Caption 14,"0" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/skyrock/"
 Case 14 : Station$="Voltage"   
          Caption 12,"9" : Caption 13,"6." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/voltage/"
 Case 15 : Station$="Rire et chanson"   
          Caption 12,"9" : Caption 13,"7." : Caption 14,"4" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/rire-et-chanson/"
 Case 16 : Station$="Metropolys"   
          Caption 12,"9" : Caption 13,"7." : Caption 14,"6" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/metropolys/"
 Case 17 : Station$="FG DJ Radio"   
          Caption 12,"9" : Caption 13,"8." : Caption 14,"2" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/fg-dj/"
 Case 18 : Station$="Vibration FM"   
          Caption 12,"9" : Caption 13,"8." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/vibration/"
 Case 19 : Station$="Latina"   
          Caption 12,"9" : Caption 13,"9." : Caption 14,"0" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/latina/"
 Case 20 : Station$="France Maghreb 2 France"   
          Caption 12,"9" : Caption 13,"9." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/maghreb-2/"
 Case 21 : Station$="NRJ"   
          Caption 11,"1" : Caption 12,"0" : Caption 13,"0." : Caption 14,"3" : Caption 15,"-" : Caption 16,"1" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/nrj-france/"
 Case 22 : Station$="Alouette France"   
          Caption 11,"1" : Caption 12,"0" : Caption 13,"0." : Caption 14,"3" : Caption 15,"-" : Caption 16,"2" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/alouette/"
 Case 23 : Station$="Fun Radio"   
          Caption 11,"1" : Caption 12,"0" : Caption 13,"1." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/fun/"
 Case 24 : Station$="Oui FM"   
          Caption 11,"1" : Caption 12,"0" : Caption 13,"2." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$=""
 Case 25 : Station$="MFM Radio France"   
          Caption 11,"1" : Caption 12,"0" : Caption 13,"2." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/mfm/"
 Case 26 : Station$="Gold FM"   
          Caption 11,"1" : Caption 12,"0" : Caption 13,"3." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/gold-fm/"
End_Select                                             
gosub Lecture
Return

Lecture:
res% = dll_call2("WB_Url",WB%,adr(url$))
Return

Etein:
Dll_Off
Terminate

bonne écoute sur la courgette
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 3021
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mar 28 Nov 2017 - 20:04

Salut Pascal10000

Je trouve l'idée géniale ! cheers

J'ai rencontré quelques blocages, mais l'idée est là.
On peux sûrement améliorer le code, j'ai d'ailleurs quelques idées...
Si j'ai un peu de temps je vais regarder de plus près.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
pascal10000

avatar

Nombre de messages : 703
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mar 28 Nov 2017 - 20:38

merci minibug
Au moin un qui prend mon idée avec du sérieu fait ce que tu peut
les radios régional peuvent être inclus mais ça en fait de trop
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mar 28 Nov 2017 - 21:03

C'est chouette ! Une nouvelle idée, et une nouvelle application des fonctions de KGF.dll. Bravo !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Marc

avatar

Nombre de messages : 865
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mar 28 Nov 2017 - 21:35


Voilà une idée de génie !

Bravo Pascal1000 cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 3021
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mar 28 Nov 2017 - 22:46

@Pascal :

J'ai repris ton code pour le simplifier même s'il y a plein de chose encore a faire...

Je suis passer par des DATA pour faire une liste des radio avec liens et fréquences en 'claire'.
Ensuite j'ai simplifié un peu le code pour améliorer la lisibilité (enfin bon ça c'est selon chacun...  Wink )

Par contre j'ai voulu mettre le FORM 0 en BORDER_HIDE,
et là j'ai une erreur avec le fonction de Klaus lors du changement des stations.
C'est bizarre et je sais pas trop pourquoi !?



Dernière édition par Minibug le Mer 29 Nov 2017 - 20:41, édité 5 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mer 29 Nov 2017 - 0:13

Citation :
j'ai une erreur avec le fonction de Klaus lors du changement des stations.
Peux-tu en dir plus ? Numéro de ligne, par exemple, et l'identification de l'erreur ou une capture d'écran ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Minibug

avatar

Nombre de messages : 3021
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mer 29 Nov 2017 - 0:17

Bonsoir Klaus !

Je viens de trouver !

Il suffit de déclarer la DLL après l'initialisation de la FORM 0
Maintenant tout est OK !

Je viens mettre à jour le programme. Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mer 29 Nov 2017 - 0:30

pas tout à fait exact, Minibug. Ceci marche:
Code:
DLL_ON "kgf.dll"
BORDER_HIDE 0
WB% = DLL_CALL1("WB_Create",HANDLE(0))
res% = DLL_CALL5("WB_Locate",WB%,10,50,0,0)
En fait, c'est le positionnement du WebBrowser par WB_Locate qui doit être fait après le changement d'aspect de la form 0.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Minibug

avatar

Nombre de messages : 3021
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mer 29 Nov 2017 - 0:33

Oui c'est bien ce que j'avais compris mais j'ai pris un raccourci pour l'explication !

Laughing Laughing Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mer 29 Nov 2017 - 1:03

Si je peux me permettre une suggestion d'amélioration (d'évolution, de changement...) pour un programme qui ne m'appartient pas: Il serait intéressant d'avoir un bouton ouvrant un sélecteur de stations (dans une autre form, par exemple), où un objet LIST montrerait toutes les stations disponibles. Un clic sur une des stations sélectionnerait directement cette station.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
pascal10000

avatar

Nombre de messages : 703
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mer 29 Nov 2017 - 7:49

klaus
vas y améliore le programme c'est une possibilité
de mettre un list j'y avais pensé même un combo

VOUS AVEZ CHAMP LIBRE Exclamation Exclamation
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 3021
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mer 29 Nov 2017 - 10:38

Salut a tous !

J'ai mis le code à jour dans mon poste au dessus avec un combo qui contient la liste des radios.
J'ai aussi amélioré l'affichage.

Enfin bon je m'amuse avec le code de Pascal10000... Wink

N'empêche que l'idée de départ est excellente !
Avoir la radio avec Panoramic, c'est la classe non ?!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
pascal10000

avatar

Nombre de messages : 703
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mer 29 Nov 2017 - 11:52

bjr
amélioration du poste 41 station et une liste de sélection de la
sation

source:
Code:

Dim Station$,url$,Frequence%,Q%,LeftD% ,res%,WB%

Label Choix,Plus,Moin,Lecture,Etein
Color 0,0,0,0
Height 0,180
Font_Size 0,10
Font_Bold 0
Font_Color 0,0,255,0
On_Close 0,Etein

Dll_On "D:\Programmation\Projet Panoramic\poste radio\kgf.dll"
WB% = dll_call1("WB_Create",Handle(0))
res% = dll_call5("WB_Locate",WB%,10,50,0,0)

Alpha 1
Left 1,200


List 2
Top 2,20
Left 2,260
Height 2,80
Color 2,0,0,0
Font_Color 2,0,255,0
File_Load 2,"D:\Programmation\Projet Panoramic\poste radio\stations.txt"
On_Click 2,Choix

' Tableau FREQUENCE
Container 10
Caption 10,"FREQUENCE"
Left 10,20 :Top 10,20
Width 10,200 : Height 10,52
Hide 10

LeftD%=-10
For Q%=11 to 16
LeftD%=LeftD%+30
DIGIT1 Q%
Parent Q%,10
Top Q%,15
Width Q%,20
Height Q%,34
Left Q%,LeftD%
Color Q%,0,255,0
Caption Q%,""
Next Q%
Show 10

Button 20
Left 20,221 : Top 20,28
Width 20,21 : Height 20,21
Font_Size 20,16
Font_Bold 20
Caption 20,"+"
On_Click 20,Plus

Button 30
Left 30,221 : Top 30,52
Width 30,21 : Height 30,21
Font_Size 30,20
Font_Bold 30
Caption 30,"-"
On_Click 30,Moin

Frequence%=0
End

Plus:
Set_Focus 10
Frequence%=Frequence%+1
If Frequence%=>42 Then Frequence%=1
Gosub Choix
Return

Moin:
Set_Focus 10
Frequence%=Frequence%-1                      
If Frequence%=0 Then Frequence%=42
Gosub Choix
Return


Choix:                                                    
 Caption 11,"" : Caption 12,"" : Caption 13,"" : Caption 14,"" : Caption 15,"" : Caption 16,""

If Clicked(2)=1 Then Frequence%=Item_Index(2)
Select Frequence%
 Case 1 : Station$="France-Inter"
          Caption 13,"8" : Caption 14,"7" : Caption 15,"-" : Caption 16,"8" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/france-inter/"
 Case 2 : Station$="Générations"
          Caption 13,"8" : Caption 14,"8" : Caption 15,"-" : Caption 16,"2" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/generations/"
 Case 3 : Station$="Nostalgie"
          Caption 13,"9" : Caption 14,"0" : Caption 15,"-" : Caption 16,"4" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/nostalgie/"
 Case 4 : Station$="Chante-France"
          Caption 13,"9" : Caption 14,"0" : Caption 15,"-" : Caption 16,"9" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/chante-france/"
 Case 5 : Station$="Contact-Fm"
          Caption 13,"9" : Caption 14,"1" : Caption 15,"-" : Caption 16,"4" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/contact-fm/"
 Case 6 : Station$="Cherie-Fm"
          Caption 12,"9" : Caption 13,"1." : Caption 14,"7" : Caption 15,"-" : Caption 16,"1" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/cherie/"
 Case 7 : Station$="France-Musique"
          Caption 12,"9" : Caption 13,"2." : Caption 14,"0" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/france-musique/"
 Case 8 : Station$="france-culture"    
          Caption 12,"9" : Caption 13,"3." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/france-culture/"
 Case 9 : Station$="Orient-Fm"    
          Caption 12,"9" : Caption 13,"4." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/orient/"
 Case 10 : Station$="Galaxie FM France"    
          Caption 12,"9" : Caption 13,"5." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/galaxie/"
 Case 11 : Station$="Puls Radio"    
          Caption 12,"9" : Caption 13,"5." : Caption 14,"4" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/puls/"
 Case 12 : Station$="Jazz"    
          Caption 12,"9" : Caption 13,"5." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/jazz/"
 Case 13 : Station$="Skyrock"    
          Caption 12,"9" : Caption 13,"6." : Caption 14,"0" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/skyrock/"
 Case 14 : Station$="Voltage"    
          Caption 12,"9" : Caption 13,"6." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/voltage/"
 Case 15 : Station$="Rire et chanson"    
          Caption 12,"9" : Caption 13,"7." : Caption 14,"4" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/rire-et-chanson/"
 Case 16 : Station$="Metropolys"    
          Caption 12,"9" : Caption 13,"7." : Caption 14,"6" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/metropolys/"
 Case 17 : Station$="FG DJ Radio"    
          Caption 12,"9" : Caption 13,"8." : Caption 14,"2" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/fg-dj/"
 Case 18 : Station$="Vibration FM"    
          Caption 12,"9" : Caption 13,"8." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/vibration/"
 Case 19 : Station$="Latina"    
          Caption 12,"9" : Caption 13,"9." : Caption 14,"0" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/latina/"
 Case 20 : Station$="France Maghreb 2 France"    
          Caption 12,"9" : Caption 13,"9." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/maghreb-2/"
 Case 21 : Station$="NRJ"    
          Caption 11,"1" : Caption 12,"0" : Caption 13,"0." : Caption 14,"3" : Caption 15,"-" : Caption 16,"1" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/nrj-france/"
 Case 22 : Station$="Alouette France"    
          Caption 11,"1" : Caption 12,"0" : Caption 13,"0." : Caption 14,"3" : Caption 15,"-" : Caption 16,"2" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/alouette/"
 Case 23 : Station$="Fun Radio"    
          Caption 11,"1" : Caption 12,"0" : Caption 13,"1." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/fun/"
 Case 24 : Station$="Oui FM"    
          Caption 11,"1" : Caption 12,"0" : Caption 13,"2." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$=""
 Case 25 : Station$="MFM Radio France"    
          Caption 11,"1" : Caption 12,"0" : Caption 13,"2." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/mfm/"
 Case 26 : Station$="Gold FM"    
          Caption 11,"1" : Caption 12,"0" : Caption 13,"3." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/gold-fm/"
 Case 27 : Station$="Virgin"    
           Caption 11,"1" : Caption 12,"0" : Caption 13,"3." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
           url$="http://www.ecouterradioenligne.com/virgin/"
 Case 28 : Station$="RFM"    
           Caption 11,"1" : Caption 12,"0" : Caption 13,"3." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
           url$="http://www.ecouterradioenligne.com/rfm/"
 Case 29 : Station$="Hit West France"    
           Caption 11,"1" : Caption 12,"0" : Caption 13,"4." : Caption 14,"1" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
           url$="http://www.ecouterradioenligne.com/hit-west/"
 Case 30 : Station$="RTL"    
           Caption 11,"1" : Caption 12,"0" : Caption 13,"4." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
           url$="http://www.ecouterradioenligne.com/rtl/"
 Case 31 : Station$="Europe 1"    
           Caption 11,"1" : Caption 12,"0" : Caption 13,"4." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
           url$="http://www.ecouterradioenligne.com/europe/"
 Case 32 : Station$="Radio FIP"    
         Caption 11,"1" : Caption 12,"0" : Caption 13,"5." : Caption 14,"1" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/fip/"
 Case 33 : Station$="France-Info"    
         Caption 11,"1" : Caption 12,"0" : Caption 13,"5." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/france-info/"
 Case 34 : Station$="RTL2"    
         Caption 11,"1" : Caption 12,"0" : Caption 13,"5." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/rtl2/"
 Case 35 : Station$="Beur FM France"    
         Caption 11,"1" : Caption 12,"0" : Caption 13,"6." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/beur/"
 Case 36 : Station$="France-Bleu"    
         Caption 11,"1" : Caption 12,"0" : Caption 13,"7." : Caption 14,"1" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/france-bleu/"
 Case 37 : Station$="RFI France"    
         Caption 11,"1" : Caption 12,"0" : Caption 13,"7." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/rfi/"
 Case 38 : Station$="Radio Meuh France"    
         Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"1" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/meuh/"
 Case 39 : Station$="Enjoy Radio"    
         Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"2" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/enjoy/"
 Case 40 : Station$="La Grosse Radio France"    
         Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"3" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/la-grosse/"
 Case 41 : Station$="Africa-1-France"    
         Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"4" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/africa-1-france/"
 Case 42 : Station$="Swigg Radio"    
         Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"5" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/ado/"
End_Select                                              
gosub Lecture
Return

Lecture:
res% = dll_call2("WB_Url",WB%,adr(url$))
Return

Etein:
Dll_Off
Terminate

a rajouter dans le dossier
ce fichié des stations
nommer stations.txt:

Code:
France-Inter
Générations
Nostalgie
Chante-France
Contact-Fm
Cherie-Fm
France-Musique
france-culture
Orient-Fm
Galaxie FM France
Puls Radio
Jazz
Skyrock
Voltage
Rire et chanson
Metropolys
FG DJ Radio
Vibration FM
Latina
France Maghreb 2 France
NRJ
Alouette France
Fun Radio
Oui FM
MFM Radio France
Gold FM
Virgin
RFM
Hit West France
RTL
Europe 1
Radio FIP
France-Info
RTL2
Beur FM France
France-Bleu
RFI France
Radio Meuh France
Enjoy Radio
La Grosse Radio France
Africa-1-France
Swigg Radio
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 3021
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mer 29 Nov 2017 - 17:33

Salut Pascal10000 !

Suite à ta mise a jour, j'ai suivi avec une nouvelle présentation et toutes les nouvelles stations que tu as ajouté !



Code:

' ------------ RADIO PANORAMIC ------------
' D'après une idée originale de Pascal10000
' Reprise par Minibug // le 29.11.2017
' -----------------------------------------

DIM Station$(42) , url$(42) , Freq$(42) , url1$ , num% , res% , WB% , vol% , volg% , vold% , volt% , n%
DIM obj% , cont% , dig%(6) , station% , chaine% , but%(3) , selec% , trb%

LABEL clic , change , exit

DATA "France-Inter" , "87_80" , "france-inter/"
DATA "Générations" , "88_20" , "generations/"
DATA "Nostalgie" , "90_40" , "nostalgie/"
DATA "Chante-France" , "90_90" , "chante-france/"
DATA "Contact-Fm" , "91_40" , "contact-fm/"
DATA "Cherie-Fm" , "91_70" , "cherie/"
DATA "France-Musique" , "92_00" , "france-musique/"
DATA "france-culture" , "93_50" , "france-culture/"
DATA "Orient-Fm" , "94_30" , "orient/"
DATA "Galaxie FM France" , "95_30" , "galaxie/"
DATA "Puls Radio" , "95_40" , "puls/"
DATA "Jazz" , "95_70" , "jazz/"
DATA "Skyrock" , "96_00" , "skyrock/"
DATA "Voltage" , "96_90" , "voltage/"
DATA "Rire et chanson" , "97_40" , "rire-et-chanson/"
DATA "Metropolys" , "97_60" , "metropolys/"
DATA "FG DJ Radio" , "98_20" , "fg-dj/"
DATA "Vibration FM" , "98_70" , "vibration/"
DATA "Latina" , "99_00" , "latina/"
DATA "France Maghreb 2 France" , "99_50" , "maghreb-2/"
DATA "NRJ" , "100_30" , "nrj-france/"
DATA "Alouette France" , "100_30" , "alouette/"
DATA "Fun Radio" , "101_90" , "fun/"
DATA "Oui FM" , "102_30" , "oui-fm"
DATA "MFM Radio France" , "102_70" , "mfm/"
DATA "Gold FM" , "103_30" , "gold-fm/"
DATA "Virgin" , "103_50" , "virgin/"
DATA "RFM" , "103_90" , "rfm/"
DATA "Hit West France" , "104_10" , "hit-west/"
DATA "RTL" , "104_30" , "rtl/"
DATA "Europe 1" , "104_70" , "europe/"
DATA "Radio FIP" , "105_10" , "fip/"
DATA "France-Info" , "105_50" , "france-info/"
DATA "RTL2" , "105_90" , "rtl2/"
DATA "Beur FM France"  , "106_70" , "beur/"
DATA "France-Bleu" , "107_10" , "france-bleu/"
DATA "RFI France" , "107_90" , "rfi/"
DATA "Radio Meuh France" , "109_10" , "meuh/"
DATA "Enjoy Radio" , "109_20" , "enjoy/"
DATA "La Grosse Radio France" , "109_30" , "la-grosse/"
DATA "Africa-1-France" , "109_40" , "africa-1-france/"
DATA "Swigg Radio" , "109_50" , "ado/"

BORDER_HIDE 0 : LEFT 0,5 : TOP 0,5 : HEIGHT 0,150 : WIDTH 0,315 : COLOR 0,50,150,100 : obj%=obj%+1

PICTURE obj% : LEFT obj%,2 : TOP obj%,2 : WIDTH obj%,311 : HEIGHT obj%,22 : COLOR obj%,255,255,255 : obj%=obj%+1
  ALPHA obj% : PARENT obj%,0 : LEFT obj%,2 : TOP obj%,2 : CAPTION obj%," RADIO PANORAMIC" : FONT_COLOR obj%,0,0,0 : COLOR obj%,255,255,255
      FONT_NAME obj%,"Arial" : FONT_BOLD obj% : FONT_SIZE obj%,14 : obj%=obj%+1
  ALPHA obj% : PARENT obj%,0 : LEFT obj%,296 : TOP obj%,2 : CAPTION obj%,"X" : FONT_COLOR obj%,0,0,0 : COLOR obj%,255,255,255
      FONT_NAME obj%,"Arial" : FONT_BOLD obj% : FONT_SIZE obj%,14 : ON_CLICK obj%,exit : but%(3)=obj% : obj%=obj%+1
 
PICTURE obj% : LEFT obj%,5 : TOP obj%,28 : WIDTH obj%,305 : HEIGHT obj%,75 : COLOR obj%,0,0,0 : obj%=obj%+1
  ALPHA obj% : LEFT obj%,13 : TOP obj%,33 : FONT_COLOR obj%,0,255,0 : FONT_BOLD obj% : COLOR obj%,0,0,0 : FONT_SIZE obj%,12 : station%=obj% : obj%=obj%+1
  FOR n%=1 to 6                                               
      DIGIT1 obj% : LEFT obj%,(n%*30)-20 : TOP obj%,60 : WIDTH obj%,20 : HEIGHT obj%,34 : COLOR obj%,0,255,0 : CAPTION obj%,"" : dig%(n%)=obj% : obj%=obj%+1
  NEXT n% 
  ALPHA obj% : LEFT obj%,225 : TOP obj%,57 : FONT_COLOR obj%,0,255,0 : COLOR obj%,0,0,0 : FONT_SIZE obj%,12 : chaine%=obj% : obj%=obj%+1

TRACK_BAR obj% : LEFT obj%,-2 : TOP obj%,103 : WIDTH obj%,319 : HEIGHT obj%,19 : ON_CHANGE obj%,change : MIN obj%,0 : MAX obj%,65535 : trb%=obj% : obj%=obj%+1

PANEL obj% : LEFT obj%,5 : TOP obj%,126 : WIDTH obj%,30 : HEIGHT obj%,19 : FONT_SIZE obj%,12 : FONT_BOLD obj% : CAPTION obj%,"<<" : ON_CLICK obj%,clic : but%(1)=obj% : obj%=obj%+1
COMBO obj% : LEFT obj%,36 : TOP obj%,125 : WIDTH obj%,242 : FONT_SIZE obj%,9 : FONT_BOLD obj% : ON_CLICK obj%,clic : selec%=obj% : obj%=obj%+1
PANEL obj% : LEFT obj%,280 : TOP obj%,126 : WIDTH obj%,30 : HEIGHT obj%,19 : FONT_SIZE obj%,12 : FONT_BOLD obj% : CAPTION obj%,">>" : ON_CLICK obj%,clic : but%(2)=obj% : obj%=obj%+1

FOR n%=1 TO 42 : READ Station$(n%) : READ Freq$(n%) : READ url$(n%) : ITEM_ADD selec%," "+RIGHT$("00"+STR$(n%),2)+" - "+Station$(n%) : NEXT n%

DLL_ON "kgf.dll"

WB% = DLL_CALL1("WB_Create",HANDLE(0)) : res% = DLL_CALL5("WB_Locate",WB%,10,50,0,0)
vol% = dll_call0("GetMasterVolume") : volg% = bin_and(vol%,hex("0000FFFF")) : vold% = dll_call2("bin_SHR",vol%,16) : POSITION trb%,volg%

TRIGGER_CLICK but%(2)

END

clic:
  IF NUMBER_CLICK=selec% THEN num%=ITEM_INDEX(selec%)
  IF NUMBER_CLICK=but%(1) THEN num%=num%-1 : IF num%<1 THEN num%=42
  IF NUMBER_CLICK=but%(2) THEN num%=num%+1 : IF num%=43 THEN num%=1
 
  FOR n%=LEN(Freq$(num%)) TO 1 STEP -1 : CAPTION dig%(n%),MID$(Freq$(num%),n%,1) : NEXT n%
  CAPTION station%,Station$(num%)
  CAPTION chaine%,"Chaîne"+CHR$(13)+STR$(num%)+"/42 "
  url1$="http://www.ecouterradioenligne.com/"+url$(num%)
  res% = DLL_CALL2("WB_Url",WB%,ADR(url1$))
  SET_FOCUS 0
RETURN

change:
  volg%=POSITION(trb%) : IF volg%<0 : volg%=0 : END_IF : IF volg%>65535 : volg%=65535 : END_IF
  vold%=POSITION(trb%) : IF vold%<0 : vold%=0 : END_IF : IF vold%>65535 : vold%=65535 : END_IF
  vold%=DLL_CALL2("bin_SHL",vold%,16) : volt%=BIN_OR(volg%,vold%) : res%=DLL_CALL1("SetMasterVolume",volg%)
RETURN

exit:
  TERMINATE
 


Dernière édition par Minibug le Ven 8 Déc 2017 - 15:30, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
pascal10000

avatar

Nombre de messages : 703
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mer 29 Nov 2017 - 18:13

sympa ce que tu as fait!

Je n'sais pas pourquoi que la station 42 ne fonctionne pas!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mer 29 Nov 2017 - 20:47

Ah, j'ai pris du retard... J'ai dû m'absenter pour la journée, et je ne reprends que maintenant.

Donc, en partant de la version de ce matin, j'ai fait une version avec un sélecteur direct pour les stations. Le bouton "?" fait apparaître une liste, et un clic sur une ligne de cette liste va directement à cette station. Un autre clic sur "?" cache le sélecteur:
Code:
 ' radios.bas
DIM Station$(26) , url$(26) , Freq$(26) , url1$ , num% , res% , WB% , n%, aff%
DIM obj% , cont% , dig%(6) , chaine% , but%(4)

LABEL change , exit, what, choice

DATA "France-Inter", "http://www.ecouterradioenligne.com/france-inter/" , " 87_80"        , "Générations" , "http://www-ecouterradioenligne.com/generations/" , " 88_20"
DATA "Nostalgie" , "http://www.ecouterradioenligne.com/nostalgie/" , " 90_40"              , "Chante-France" , "https://www.chantefrance.com/player/" , " 90_90"
DATA "Contact-Fm" , "http://www.ecouterradioenligne.com/contact-fm/" , " 91_40"            , "Cherie-Fm" , "http://www.ecouterradioenligne.com/cherie/" , " 91_70"
DATA "France-Musique" , "http://www.ecouterradioenligne.com/france-musique/" , " 92_00"    , "france-culture" , "http://www.ecouterradioenligne.com/france-culture/" , " 93_50"
DATA "Orient-Fm" , "http://www.ecouterradioenligne.com/orient/" , " 94_30"                , "galaxie FM France" , "http://www.ecouterradioenligne.com/galaxie/" , " 95_30"   
DATA "Puls Radio" , "http://www.ecouterradioenligne.com/puls/" , " 95_40"                  , "Jazz" , "http://www.ecouterradioenligne.com/jazz/" , " 95_70"
DATA "Skyrock" , "http://www.ecouterradioenligne.com/skyrock/" , " 96_00"                  , "Voltage" , "http://www.ecouterradioenligne.com/voltage/" , " 96_90"
DATA "Rire et chanson" , "http://www.ecouterradioenligne.com/rire-et-chanson/" , " 97_40"  , "Metropolys" , "http://www.ecouterradioenligne.com/metropolys/" , " 97_60"
DATA "FG DJ Radio" , "http://www.ecouterradioenligne.com/fg-dj/" , " 98_20"                , "Vibration FM" , "http://www.ecouterradioenligne.com/vibration/" , " 98_70"
DATA "Latina" , "http://www.ecouterradioenligne.com/latina/" , " 99_00"                    , "France Maghreb 2 France" , "http://www.ecouterradioenligne.com/maghreb-2/" , " 99_50"
DATA "NRJ" , "http://www.ecouterradioenligne.com/nrj-france/" , "100_30"                  , "Alouette France" , "http://www.ecouterradioenligne.com/alouette/" , "100_30"
DATA "Fun Radio" , "http://www.ecouterradioenligne.com/fun/" , "101_90"                  , "Oui FM" , "http://player.ouifm.fr/rock/" , "102_30"
DATA "MFM Radio France" , "http://www.ecouterradioenligne.com/mfm/" , "102_70"            , "Gold FM" , "http://www.ecouterradioenligne.com/gold-fm/" , "103_30"

FOR n%=1 TO 26 : READ Station$(n%) : READ url$(n%) : READ Freq$(n%) : NEXT n%

BORDER_HIDE 0 : LEFT 0,5 : TOP 0,5 : HEIGHT 0,105 : WIDTH 0,355 : FONT_SIZE 0,10 : FONT_BOLD 0 : FONT_COLOR 0,0,255,0 : COLOR 0,0,0,0 : obj%=obj%+1

CONTAINER obj% : PARENT obj%,0 : CAPTION obj%," RADIO et FREQUENCE " : LEFT obj%,10 :TOP obj%,7 : WIDTH obj%,310 : HEIGHT obj%,84 : cont%=obj% : obj%=obj%+1

FOR n%=1 to 6                                             
  DIGIT1 obj% : PARENT obj%,cont% : LEFT obj%,(n%*30)-10 : TOP obj%,40 : WIDTH obj%,20 : HEIGHT obj%,34 : COLOR obj%,0,255,0 : CAPTION obj%,"" : dig%(n%)=obj% : obj%=obj%+1
NEXT n%

ALPHA obj% : PARENT obj%,cont% : LEFT obj%,20 : TOP obj%,17 : chaine%=obj% : obj%=obj%+1

FOR n%=1 TO 4 : BUTTON obj% : LEFT obj%,321 : TOP obj%,n%*22-13 : WIDTH obj%,21 : HEIGHT obj%,21 : FONT_SIZE obj%,16 : FONT_BOLD obj% : but%(n%)=obj% : obj%=obj%+1 : NEXT n%
CAPTION but%(1),"+" : ON_CLICK but%(1),change : CAPTION but%(2),"-" : ON_CLICK but%(2),change : CAPTION but%(3),"?" : ON_CLICK but%(3),what : CAPTION but%(4),"X" : ON_CLICK but%(4),exit

DLL_ON "kgf.dll"
WB% = DLL_CALL1("WB_Create",HANDLE(0))
res% = DLL_CALL5("WB_Locate",WB%,10,50,0,0)

TRIGGER_CLICK but%(1)

END

change:
  IF NUMBER_CLICK=but%(1) THEN num%=num%+1 : IF num%=27 THEN num%=1
  IF NUMBER_CLICK=but%(2) THEN num%=num%-1 : IF num%<1 THEN num%=26
  FOR n%=LEN(Freq$(num%)) TO 1 STEP -1 : CAPTION dig%(n%),MID$(Freq$(num%),n%,1) : NEXT n%
  CAPTION chaine%,Station$(num%)+" - (Chaine "+STR$(num%)+"/26)"
  url1$=url$(num%)
  res% = DLL_CALL2("WB_Url",WB%,ADR(url1$))
RETURN

exit:
  TERMINATE
 
what:
  IF OBJECT_EXISTS(99)=0
    form 99
    BORDER_HIDE 99 : LEFT 99,LEFT(0)+WIDTH(0) : TOP 99,TOP(0) : HEIGHT 99,105 : WIDTH 99,200 : FONT_SIZE 99,10 : FONT_BOLD 99 : FONT_COLOR 99,0,255,0 : COLOR 0,0,0,0
    LIST 100 : PARENT 100,99 : FULL_SPACE 100 : COLOR 100,0,0,0 : FONT_COLOR 100,0,255,0
    ON_CLICK 100,choice
    FOR n%=1 TO 26
      ITEM_ADD 100,Station$(n%)
    NEXT n%
    aff% = 1
    RETURN
  END_IF
  IF aff%=1
    HIDE 99
    aff% = 0
  ELSE
    SHOW 99
    aff% = 1
  END_IF 
  RETURN
 
choice:
  num% = ITEM_INDEX(100)
  FOR n%=LEN(Freq$(num%)) TO 1 STEP -1 : CAPTION dig%(n%),MID$(Freq$(num%),n%,1) : NEXT n%
  CAPTION chaine%,Station$(num%)+" - (Chaine "+STR$(num%)+"/26)"
  url1$=url$(num%)
  res% = DLL_CALL2("WB_Url",WB%,ADR(url1$))
  RETURN
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Minibug

avatar

Nombre de messages : 3021
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mer 29 Nov 2017 - 21:12

Bonsoir Klaus !

Effectivement c'est une possibilité, et en plus cela s'intègre parfaitement dans l'interface.
Perso j'ai choisi le combo mais c'est plus pour la simplicité du code qu'autre chose...

Après c'est chacun son choix !

Je me demandais s'il était possible d'ajouter le réglage du volume ?
Peut être est ce qu'il y a cette option dans KGF pour le volume général ?
J'avoue ne pas avoir étudié la question mais ça pourrait être sympa...

Edit :
j'ai même en tête le vu-mètre que tu avais fait si tu te souviens...
Il faudrait que je recherche dans mes archives à l'occasion. Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
pascal10000

avatar

Nombre de messages : 703
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mer 29 Nov 2017 - 21:39

bsr Klaus

Peut on utilisé avec kgf des script Java et en particulier après avoir cree une fnêtre
de la commande "WB_Create"?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Ecouter la radio fm sur votre pc   Mer 29 Nov 2017 - 22:47

Oui, si tu lui charges une page HTML contenant le Java-Script. Ca marche.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Yannick

avatar

Nombre de messages : 8083
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Jeu 30 Nov 2017 - 7:46

cheers Bravo les gars !

Une idée géniale de Pascal 10000
Et une superbe réalisation collégiale.
Cool
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pascal10000

avatar

Nombre de messages : 703
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: Ecouter la radio fm sur votre pc   Sam 9 Déc 2017 - 1:42

nouvelle amélioration du poste

avec un silence du poste

Code:
Dim Station$,url$,Frequence%,Q%,LeftD% ,res%,WB%
Dim Volume%,GaucheVol%,DroitVol%,Min_Track5%,Max_Track5%,Hnd_Dll%
Dim Winmm$,FonctionWinmm$,Eteint$,Allume$,Led$

Label Choix,Plus,Moin,Lecture,Etein
Label NiveauSon,Silence

Color 0,0,0,0
Height 0,180
Width 0,530
Caption 0,"Radio FM"
Font_Size 0,10
Font_Bold 0
Font_Color 0,0,255,0
On_Close 0,Etein

' resize off form 0
If File_exists("D:\Programmation\Projet Panoramic\poste radio\form.dll")=1
Dll_On "D:\Programmation\Projet Panoramic\poste radio\form.dll"
res% = DLL_CALL2("SetSize",HANDLE(0),0)
Width 0,531
Dll_Off
End_if

' création browser
Dll_On "D:\Programmation\Projet Panoramic\poste radio\kgf.dll"
WB% = dll_call1("WB_Create",Handle(0))
res% = dll_call5("WB_Locate",WB%,10,50,0,0)
Winmm$="Winmm.Dll"
Hnd_Dll% = dll_call1("LoadDLL",adr(Winmm$))

Alpha 1
Left 1,200

' liste des stations
List 2
Top 2,40
Left 2,260
Height 2,80
Color 2,0,0,0
Font_Color 2,0,255,0
File_Load 2,"D:\Programmation\Projet Panoramic\poste radio\stations.txt"
On_Click 2,Choix
Alpha 3
Left 3,260 : Top 3,20
Caption 3,"Stations:"

Track_Bar 5
Left 5,20: Top 5,85
Width 5,222: Height 5,26
Min 5,0 :Max 5,65535
On_Change 5,NiveauSon
Progress_Bar 6
Left 6,20: Top 6,120
Width 6,222: Height 6,10

Picture 7
Width 7,20 : Height 7,20
Left 7,260
Top 7,125
Led$="Led_Eteint.bmp"
File_Load 7,"D:\Programmation\Projet Panoramic\poste radio\GFX\Led_Eteint.bmp"
Hint 7,"Silence"
On_Click 7,Silence

' Tableau FREQUENCE
Container 10
Caption 10,"FREQUENCE"
Left 10,20 :Top 10,20
Width 10,200 : Height 10,52
Hide 10

LeftD%=-10
For Q%=11 to 16
LeftD%=LeftD%+30
DIGIT1 Q%
Parent Q%,10
Top Q%,15
Width Q%,20
Height Q%,34
Left Q%,LeftD%
Color Q%,0,255,0
Caption Q%,""
Next Q%
Show 10

Button 20
Left 20,221 : Top 20,28
Width 20,21 : Height 20,21
Font_Size 20,16
Font_Bold 20
Caption 20,"+"
On_Click 20,Plus

Button 30
Left 30,221 : Top 30,52
Width 30,21 : Height 30,21
Font_Size 30,20
Font_Bold 30
Caption 30,"-"
On_Click 30,Moin

Frequence%=0
End

' selection des fréquences + ou -
Plus:
Set_Focus 10
Frequence%=Frequence%+1
If Frequence%=>42 Then Frequence%=1
Item_Select 2,Frequence%
Gosub Choix
Return

Moin:
Set_Focus 10
Frequence%=Frequence%-1                      
If Frequence%=<0 Then Frequence%=42
Item_Select 2,Frequence%
Gosub Choix
Return

' selection des stations
Choix:                                                    
 Caption 11,"" : Caption 12,"" : Caption 13,"" : Caption 14,"" : Caption 15,"" : Caption 16,""

If Clicked(2)=1 Then Frequence%=Item_Index(2)
Select Frequence%
 Case 1 : Station$="France-Inter"
          Caption 13,"8" : Caption 14,"7" : Caption 15,"-" : Caption 16,"8" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/france-inter/"
 Case 2 : Station$="Générations"
          Caption 13,"8" : Caption 14,"8" : Caption 15,"-" : Caption 16,"2" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/generations/"
 Case 3 : Station$="Nostalgie"
          Caption 13,"9" : Caption 14,"0" : Caption 15,"-" : Caption 16,"4" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/nostalgie/"
 Case 4 : Station$="Chante-France"
          Caption 13,"9" : Caption 14,"0" : Caption 15,"-" : Caption 16,"9" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/chante-france/"
 Case 5 : Station$="Contact-Fm"
          Caption 13,"9" : Caption 14,"1" : Caption 15,"-" : Caption 16,"4" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/contact-fm/"
 Case 6 : Station$="Cherie-Fm"
          Caption 12,"9" : Caption 13,"1." : Caption 14,"7" : Caption 15,"-" : Caption 16,"1" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/cherie/"
 Case 7 : Station$="France-Musique"
          Caption 12,"9" : Caption 13,"2." : Caption 14,"0" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/france-musique/"
 Case 8 : Station$="France-culture"    
          Caption 12,"9" : Caption 13,"3." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/france-culture/"
 Case 9 : Station$="Orient-Fm"    
          Caption 12,"9" : Caption 13,"4." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/orient/"
 Case 10 : Station$="Galaxie FM France"    
          Caption 12,"9" : Caption 13,"5." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/galaxie/"
 Case 11 : Station$="Puls Radio"    
          Caption 12,"9" : Caption 13,"5." : Caption 14,"4" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/puls/"
 Case 12 : Station$="Jazz"    
          Caption 12,"9" : Caption 13,"5." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/jazz/"
 Case 13 : Station$="Skyrock"    
          Caption 12,"9" : Caption 13,"6." : Caption 14,"0" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/skyrock/"
 Case 14 : Station$="Voltage"    
          Caption 12,"9" : Caption 13,"6." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/voltage/"
 Case 15 : Station$="Rire et chanson"    
          Caption 12,"9" : Caption 13,"7." : Caption 14,"4" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/rire-et-chanson/"
 Case 16 : Station$="Metropolys"    
          Caption 12,"9" : Caption 13,"7." : Caption 14,"6" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/metropolys/"
 Case 17 : Station$="FG DJ Radio"    
          Caption 12,"9" : Caption 13,"8." : Caption 14,"2" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/fg-dj/"
 Case 18 : Station$="Vibration FM"    
          Caption 12,"9" : Caption 13,"8." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/vibration/"
 Case 19 : Station$="Latina"    
          Caption 12,"9" : Caption 13,"9." : Caption 14,"0" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/latina/"
 Case 20 : Station$="France Maghreb 2 France"    
          Caption 12,"9" : Caption 13,"9." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/maghreb-2/"
 Case 21 : Station$="NRJ"    
          Caption 11,"1" : Caption 12,"0" : Caption 13,"0." : Caption 14,"3" : Caption 15,"-" : Caption 16,"1" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/nrj-france/"
 Case 22 : Station$="Alouette France"    
          Caption 11,"1" : Caption 12,"0" : Caption 13,"0." : Caption 14,"3" : Caption 15,"-" : Caption 16,"2" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/alouette/"
 Case 23 : Station$="Fun Radio"    
          Caption 11,"1" : Caption 12,"0" : Caption 13,"1." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/fun/"
 Case 24 : Station$="Oui FM"    
          Caption 11,"1" : Caption 12,"0" : Caption 13,"2." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$=""
 Case 25 : Station$="MFM Radio France"    
          Caption 11,"1" : Caption 12,"0" : Caption 13,"2." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/mfm/"
 Case 26 : Station$="Gold FM"    
          Caption 11,"1" : Caption 12,"0" : Caption 13,"3." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
          url$="http://www.ecouterradioenligne.com/gold-fm/"
 Case 27 : Station$="Virgin"    
           Caption 11,"1" : Caption 12,"0" : Caption 13,"3." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
           url$="http://www.ecouterradioenligne.com/virgin/"
 Case 28 : Station$="RFM"    
           Caption 11,"1" : Caption 12,"0" : Caption 13,"3." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
           url$="http://www.ecouterradioenligne.com/rfm/"
 Case 29 : Station$="Hit West France"    
           Caption 11,"1" : Caption 12,"0" : Caption 13,"4." : Caption 14,"1" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
           url$="http://www.ecouterradioenligne.com/hit-west/"
 Case 30 : Station$="RTL"    
           Caption 11,"1" : Caption 12,"0" : Caption 13,"4." : Caption 14,"3" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
           url$="http://www.ecouterradioenligne.com/rtl/"
 Case 31 : Station$="Europe 1"    
           Caption 11,"1" : Caption 12,"0" : Caption 13,"4." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
           url$="http://www.ecouterradioenligne.com/europe/"
 Case 32 : Station$="Radio FIP"    
         Caption 11,"1" : Caption 12,"0" : Caption 13,"5." : Caption 14,"1" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/fip/"
 Case 33 : Station$="France-Info"    
         Caption 11,"1" : Caption 12,"0" : Caption 13,"5." : Caption 14,"5" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/france-info/"
 Case 34 : Station$="RTL2"    
         Caption 11,"1" : Caption 12,"0" : Caption 13,"5." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/rtl2/"
 Case 35 : Station$="Beur FM France"    
         Caption 11,"1" : Caption 12,"0" : Caption 13,"6." : Caption 14,"7" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/beur/"
 Case 36 : Station$="France-Bleu"    
         Caption 11,"1" : Caption 12,"0" : Caption 13,"7." : Caption 14,"1" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/france-bleu/"
 Case 37 : Station$="RFI France"    
         Caption 11,"1" : Caption 12,"0" : Caption 13,"7." : Caption 14,"9" : Caption 15,"-" : Caption 16,"0" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/rfi/"
 Case 38 : Station$="Radio Meuh France"    
         Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"1" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/meuh/"
 Case 39 : Station$="Enjoy Radio"    
         Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"2" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/enjoy/"
 Case 40 : Station$="La Grosse Radio France"    
         Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"3" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/la-grosse/"
 Case 41 : Station$="Africa-1-France"    
         Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"4" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/africa-1-france/"
 Case 42 : Station$="Swigg Radio"    
         Caption 12,"9" : Caption 13,"9" : Caption 14,"9." : Caption 15,"0" : Caption 16,"5" :Caption 1,Station$
         url$="http://www.ecouterradioenligne.com/ado/"
End_Select                                              
gosub Lecture
Return

Lecture:
res% = dll_call2("WB_Url",WB%,adr(url$))
NiveauSon()
Return

' / GESTIONS DU VOLUME         /
***********************************************************
NiveauSon:
    GaucheVol%=position(5)
    If GaucheVol%<0 Then GaucheVol%=0
    If GaucheVol%>65535 Then GaucheVol%=65535

    DroitVol%=position(5)
    If DroitVol%<0 Then DroitVol%=0
    If DroitVol%>65535 Then DroitVol%=65535

    DroitVol% = dll_call2("bin_SHL",DroitVol%,16)
    res% = dll_call1("SetMasterVolume",GaucheVol%)
Return

Sub NiveauSon()
' RECUPERE LE NIVEAU ACTUEL DU SON
    Volume% = dll_call0("GetMasterVolume")
    GaucheVol% = bin_and(volume%,hex("0000FFFF"))
    DroitVol% = dll_call2("bin_SHR",volume%,16)
    position 5,GaucheVol%
End_Sub

Silence:
    If Led$="Led_Eteint.bmp"
    Led$="Led_Allume.bmp"
    volume% = GaucheVol%
    position 5,0
    Gosub NiveauSon
    Else
    Led$="Led_Eteint.bmp"
    position 5,volume%
    NiveauSon()
    Gosub NiveauSon
    End_If
    File_Load 7,"D:\Programmation\Projet Panoramic\poste radio\GFX\"+Led$

Return
************************************************************

Etein:
res% = dll_call1("WB_Delete",WB%)
res% = dll_call1("UnLoadDLL",Hnd_Dll%)
Dll_Off
Terminate
Return

rajouter les 2 leds dans un dosier nommé gfx

     

       
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Ecouter la radio fm sur votre pc   

Revenir en haut Aller en bas
 
Ecouter la radio fm sur votre pc
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Ecouter la radio fm sur votre pc
» Questions Bbox Miami
» Radio avec BBOX TV FIBRE
» Quelle partie de votre cerveau utilisez-vous ?
» Votre chanson préféré de NOEL c'est laquelle ?

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: