| Novembre 2024 | | Lun | Mar | Mer | Jeu | Ven | Sam | Dim |
|---|
| | | | | 1 | 2 | 3 | | 4 | 5 | 6 | 7 | 8 | 9 | 10 | | 11 | 12 | 13 | 14 | 15 | 16 | 17 | | 18 | 19 | 20 | 21 | 22 | 23 | 24 | | 25 | 26 | 27 | 28 | 29 | 30 | |  Calendrier |
|
|
| | Ecouter la radio fm sur votre pc |  |
| | | Auteur | Message |
|---|
pascal10000
Nombre de messages : 812
Localisation : Troyes
Date d'inscription : 05/02/2011
| | Sujet: 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 | |
| | | | Minibug
Nombre de messages : 4570
Age : 58
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| | Sujet: Re: Ecouter la radio fm sur votre pc Mar 28 Nov 2017 - 20:04 | |
| Salut Pascal10000 Je trouve l'idée géniale !  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. | |
| | | | pascal10000
Nombre de messages : 812
Localisation : Troyes
Date d'inscription : 05/02/2011
| | Sujet: 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 | |
| | | | Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: 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 ! | |
| | | | Marc
Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Re: Ecouter la radio fm sur votre pc Mar 28 Nov 2017 - 21:35 | |
| Voilà une idée de génie ! Bravo Pascal1000 | |
| | | | Minibug
Nombre de messages : 4570
Age : 58
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| | Sujet: 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...  ) 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 | |
| | | | Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: 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 ? | |
| | | | Minibug
Nombre de messages : 4570
Age : 58
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| | Sujet: 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. | |
| | | | Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: 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. | |
| | | | Minibug
Nombre de messages : 4570
Age : 58
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| | Sujet: Re: Ecouter la radio fm sur votre pc Mer 29 Nov 2017 - 0:33 | |
| | |
| | | | Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: 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. | |
| | | | pascal10000
Nombre de messages : 812
Localisation : Troyes
Date d'inscription : 05/02/2011
| | Sujet: 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  | |
| | | | Minibug
Nombre de messages : 4570
Age : 58
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| | Sujet: 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... N'empêche que l'idée de départ est excellente ! Avoir la radio avec Panoramic, c'est la classe non ?! | |
| | | | pascal10000
Nombre de messages : 812
Localisation : Troyes
Date d'inscription : 05/02/2011
| | Sujet: 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 | |
| | | | Minibug
Nombre de messages : 4570
Age : 58
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| | Sujet: 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 | |
| | | | pascal10000
Nombre de messages : 812
Localisation : Troyes
Date d'inscription : 05/02/2011
| | Sujet: 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! | |
| | | | Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: 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
| |
| | | | Minibug
Nombre de messages : 4570
Age : 58
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| | Sujet: 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. | |
| | | | pascal10000
Nombre de messages : 812
Localisation : Troyes
Date d'inscription : 05/02/2011
| | Sujet: 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"?
| |
| | | | Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: 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. | |
| | | | Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Jeu 30 Nov 2017 - 7:46 | |
| Bravo les gars ! Une idée géniale de Pascal 10000 Et une superbe réalisation collégiale.  | |
| | | | pascal10000
Nombre de messages : 812
Localisation : Troyes
Date d'inscription : 05/02/2011
| | Sujet: 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   | |
| | | | Contenu sponsorisé
| | Sujet: Re: Ecouter la radio fm sur votre pc | |
| |
| | | | | | Ecouter la radio fm sur votre pc | |
|
Sujets similaires | |
|
| | Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |
