nouvelle version de radio fm

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

bjr a tous
j'ai r' ajouté une option de plus au poste radio fm

mettre des stations au favori
la prochaine que vous allumez le poste vous pouvez
utilisé le pavé numérique pour choisir une station enregistré

nouvelle version de radio fm Captur15

attention enregistré les images les images séparées dans un dossier
nommer gfx du dossier ou se trouve le programme

nouvelle version de radio fm Captur16

pour supprimer un favori sélectionné n'est pas encore fini d’être codé
bonne écoute sur la courgette

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

' DOSSIER
Dim DossierGFX$,DossierRF$
DossierGFX$="C:\Program Files\Radio Fm\GFX\"
DossierRF$="C:\Program Files\Radio Fm\"
Dir_Change DossierRF$

Label Choix,Plus,Moin,Lecture,Etein
Label NiveauSon,Silence,SelectFavori,SelectDelet,SelectStation

Color 0,0,0,0
Height 0,180
Width 0,600
Caption 0,"Radio FM"
Font_Size 0,10
Font_Bold 0
Font_Color 0,0,255,0
On_Close 0,Etein
Hide 0
' resize off form 0
If File_exists("C:\Program Files\poste Fm\form.dll")=1
Dll_On "C:\Program Files\poste Fm\form.dll"
res% = DLL_CALL2("SetSize",HANDLE(0),0)
Width 0,601
Dll_Off
End_if

' création browser
Dll_On "KGF.dll"
WB% = dll_call1("WB_Create",Handle(0))
res% = dll_call5("WB_Locate",WB%,10,50,0,0)

Alpha 1
Left 1,200

' liste des stations
List 2
Top 2,25
Left 2,280
Width 2,160
Height 2,80
Color 2,0,0,0
Font_Color 2,0,255,0
Font_Size 2,10
File_Load 2,"stations.txt"
On_Click 2,Choix
Alpha 3
Left 3,280 : Top 3,5
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
Min 6,0 :Max 6,65535

Picture 7
Width 7,20 : Height 7,20
Left 7,245
Top 7,85
Led$="Led_Eteint.bmp"
File_Load 7,DossierGFX$+"Led_Eteint.bmp"
Hint 7,"Silence"
On_Click 7,Silence
Hint 7,"Silence"
inactive 7

Picture 8
Top 8,115 : Left 8,280
Height 8,20
File_Load 8,DossierGFX$+"Select.bmp"
On_Click 8,SelectFavori
Hint 8,"Mettre aux favori"
Picture 9
Top 9,115 : Left 9,355
Height 9,20
File_Load 9,DossierGFX$+"Delet.bmp"
On_Click 9,SelectDelet
Hint 9,"Effacer le favori"
inactive 8
inactive 9

' 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
Hint 20,"Station Suivante"

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
Hint 30,"Station précédante"

' SECTION DES FAVORIS********************
Container 40
Top 40,2 : Left 40,450
Width 40,Height(0)-53
Height 40,Width(40)+10
Caption 40," Favori "
For Res%=401 to 409
Button Res%
Parent Res%,40
Width Res%,30 : Height Res%,30
On_Click Res%,SelectStation
Hint Res%,"Libre"
Next Res%
Left 401,9:Top 401,20
Caption 401,"1"
Left 402,49:Top 402,20
Caption 402,"2"
Left 403,89:Top 403,20
Caption 403,"3"
Left 404,9:Top 404,60
Caption 404,"4"
Left 405,49:Top 405,60
Caption 405,"5"
Left 406,89:Top 406,60
Caption 406,"6"
Left 407,9:Top 407,100
Caption 407,"7"
Left 408,49:Top 408,100
Caption 408,"8"
Left 409,89:Top 409,100
Caption 409,"9"

grid 500 : Grid_Column 500,3 : Grid_Row 500,9 : Hide 500

If File_exists("C:\Program Files\Radio Fm\poste Fm.ini")=1
Grid_Load 500,"C:\Program Files\Radio Fm\poste Fm.ini"
End_If
Show 0
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

SelectFavori:
File_Load 8,DossierGFX$+"Select_On.bmp"
wait 1000
File_Load 8,DossierGFX$+"Select.bmp"
For Rang%=1 to 9
If Grid_Read$(500,Rang%,1)=""
Grid_Write 500,Rang%,1,Station$ : Grid_Write 500,Rang%,2,url$
Grid_Write 500,Rang%,3,Item_Index(2)
Exit_For
End_If
Next Rang%
Grid_Save 500,9,2,"C:\Program Files\Radio Fm\poste Fm.ini"
Hint 400+Rang%,Station$
Return
SelectDelet:
Rang%=Val(Caption$(Number_Click))
Grid_Write 500,Rang%,1,"" : Grid_Write 500,Rang%,2,"" : Grid_Write 500,Rang%,3,""
Grid_Save 500,9,2,"C:\Program Files\Radio Fm\poste Fm.ini"
Caption
return
SelectStation:
Frequence%=Val(Caption$(Number_Click))
Item_Select 2,Val(Grid_Read$(500,Frequence%,3))
Hint 400+Rang%,Station$
gosub Choix
return

' selection des stations
Choix:
Caption 11,"" : Caption 12,"" : Caption 13,"" : Caption 14,"" : Caption 15,"" : Caption 16,""
Active 7
active 8
active 9
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
Position 6,bin_and(GaucheVol%,hex("0000FFFF"))

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,DossierGFX$+Led$

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

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

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

quelque correction de bug au niveau des favoris
delete n'est tjr pas codé

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

' DOSSIER
Dim DossierGFX$,DossierRF$
DossierGFX$="C:\Program Files\Radio Fm\GFX\"
DossierRF$="C:\Program Files\Radio Fm\"
Dir_Change DossierRF$

Label Choix,Plus,Moin,Lecture,Etein
Label NiveauSon,Silence,SelectFavori,SelectDelet,SelectStation

Color 0,0,0,0
Height 0,180
Width 0,600
Caption 0,"Radio FM"
Font_Size 0,10
Font_Bold 0
Font_Color 0,0,255,0
On_Close 0,Etein
Hide 0
' resize off form 0
If File_exists("C:\Program Files\poste Fm\form.dll")=1
Dll_On "C:\Program Files\poste Fm\form.dll"
res% = DLL_CALL2("SetSize",HANDLE(0),0)
Width 0,601
Dll_Off
End_if

' création browser
Dll_On "KGF.dll"
WB% = dll_call1("WB_Create",Handle(0))
res% = dll_call5("WB_Locate",WB%,10,50,0,0)
Alpha 1
Left 1,100

' liste des stations
List 2
Top 2,25
Left 2,280
Width 2,160
Height 2,80
Color 2,0,0,0
Font_Color 2,0,255,0
Font_Size 2,10
File_Load 2,"stations.txt"
On_Click 2,Choix
Alpha 3
Left 3,280 : Top 3,5
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
Min 6,0 :Max 6,65535

Picture 7
Width 7,20 : Height 7,20
Left 7,245
Top 7,85
Led$="Led_Eteint.bmp"
File_Load 7,DossierGFX$+"Led_Eteint.bmp"
Hint 7,"Silence"
On_Click 7,Silence
Hint 7,"Silence"
inactive 7

Picture 8
Top 8,115 : Left 8,280
Height 8,20
File_Load 8,DossierGFX$+"Select.bmp"
On_Click 8,SelectFavori
Hint 8,"Mettre aux favori"
Picture 9
Top 9,115 : Left 9,355
Height 9,20
File_Load 9,DossierGFX$+"Delet.bmp"
On_Click 9,SelectDelet
Hint 9,"Effacer le favori"
inactive 8
inactive 9

' 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
Hint 20,"Station Suivante"

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
Hint 30,"Station précédante"

' SECTION DES FAVORIS********************
Container 40
Top 40,2 : Left 40,450
Width 40,Height(0)-53
Height 40,Width(40)+10
Caption 40," Favori "
For Res%=401 to 409
Button Res%
Parent Res%,40
Width Res%,30 : Height Res%,30
On_Click Res%,SelectStation
Hint Res%,"Libre"
Next Res%
Left 401,9:Top 401,20
Caption 401,"1"
Left 402,49:Top 402,20
Caption 402,"2"
Left 403,89:Top 403,20
Caption 403,"3"
Left 404,9:Top 404,60
Caption 404,"4"
Left 405,49:Top 405,60
Caption 405,"5"
Left 406,89:Top 406,60
Caption 406,"6"
Left 407,9:Top 407,100
Caption 407,"7"
Left 408,49:Top 408,100
Caption 408,"8"
Left 409,89:Top 409,100
Caption 409,"9"

grid 500 : Grid_Column 500,3 : Grid_Row 500,9 : Hide 500

If File_exists("C:\Program Files\Radio Fm\poste Fm.ini")=1
Grid_Load 500,"C:\Program Files\Radio Fm\poste Fm.ini"
End_If
For N%=1 to 9
   If Grid_Read$(500,N%,1)<>""
   Hint 400+N%,Grid_Read$(500,N%,1)
   If Grid_Read$(500,N%,1)="" Then Exit_For
   End_If
Next N%

Show 0
Frequence%=0
res% = dll_call0("CreateMasterVolume")
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

' ========================SELECTE LES FAVORIS===================
SelectFavori:
   File_Load 8,DossierGFX$+"Select_On.bmp"
   For Rang%=1 to 9
   If Grid_Read$(500,Rang%,1)=""
   Grid_Write 500,Rang%,1,Station$ : Grid_Write 500,Rang%,2,url$
   Grid_Write 500,Rang%,3,Item_Index(2)
   Exit_For
   End_If
   Next Rang%
   Grid_Save 500,9,3,"C:\Program Files\Radio Fm\poste Fm.ini"
   Hint 400+Rang%,Station$
   wait 1000
   File_Load 8,DossierGFX$+"Select.bmp"
Return
SelectDelet:
   Rang%=Val(Caption$(Number_Click))
   Grid_Write 500,Rang%,1,"" : Grid_Write 500,Rang%,2,"" : Grid_Write 500,Rang%,3,""
   Grid_Save 500,9,2,"C:\Program Files\Radio Fm\poste Fm.ini"

return
SelectStation:
   N%=Val(Caption$(Number_Click))
   Frequence%=Grid_Read$(500,N%,3)
   Gosub Choix
return
' ========================SELECTE LES FAVORIS===================

' ========================selection des stations
Choix:
   Caption 11,"" : Caption 12,"" : Caption 13,"" : Caption 14,"" : Caption 15,"" : Caption 16,""
   Active 7
   active 8
   active 9
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
   Position 5,bin_and(GaucheVol%,hex("0000FFFF"))

   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"
   res% = dll_call1("SetMasterMute",1)
   Else
   Led$="Led_Eteint.bmp"
   res% = dll_call1("SetMasterMute",0)
   End_If
   File_Load 7,DossierGFX$+Led$
Return
************************************************************

Etein:
res% = dll_call1("SetMasterMute",0)
res% = dll_call1("WB_Delete",WB%)
Dll_Off
Terminate
Return

Salut Pascal !

Où puis-je télécharger tous les fichiers de ta radio ?

Je ne trouve pas de webdav dans ta signature...

En attendant, bonne continuation !

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

?? fait un copier coller a l'imageet tu sépare le img en bmp a l'aide paint
c pas compliqué

» Data Image Creator D.I.C
» PANORAMIC V 0.9 23 est disponible
» Nouvelle version
» Nouvelle version 0.34
» Nouvelle version 0.37