La radio sur votre pc

Soyez le premier à donner votre avis sur cette source.

Vue 6 098 fois - Téléchargée 1 056 fois

Description

voila la liste des radios compiler dans un projet VB 98 ; il y a aussi le module de transparence qui rend un effet d'opacité a la liste des radios présente.
cliquer et écoutez

Source / Exemple :


Dim Radio(10) As String
Dim nom(10) As String

Private Sub Form_Load()

Transparence Form1.hWnd, 160
Radio(0) = "http://streaming.radio.rtl.fr:80/rtl-1-44-96"
nom(0) = "RTL"

Radio(1) = "http://webradio.europe1.fr/V4/europe1/europe1.asx"
nom(1) = "Europe1"

Radio(2) = "http://player.rfm.fr/V4/player_rfm/rfm.asx"
nom(2) = "Rfm"

Radio(3) = "http://streaming.radio.funradio.fr:80/fun-1-44-96"
nom(3) = "Fun Radio"

Radio(4) = "http://player.virginradio.fr/V4/virgin/virgin.asx"
nom(4) = "Virgin Radio"

Radio(5) = "http://viphttp.yacast.net/nrj/PUBWEBRADIOS/NOSTALGIE/encodernostalgie.asx"
nom(5) = "Nostalgie"

Radio(6) = "http://players.tv-radio.com/metafichiers/france_inter_mp3-128k.m3u"
nom(6) = "France Inter"

Radio(7) = "http://players.creacast.com/creacast/france_info/playlist.asx"
nom(7) = "France Info"

Radio(8) = "http://mp3.live.tv-radio.com/fbsudlorraine/all/fbsudlorraine.mp3"
nom(8) = "France Bleu"
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub Picture1_Click(Index As Integer)
For a = 0 To 8
If Index = a Then
    Form2.Show
    Transparence Form2.hWnd, 160
    Form2.WindowsMediaPlayer1.URL = Radio(a)
    Form2.Caption = "Lecteur  -  " & nom(a)
End If
Next
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

oudlarbi
Messages postés
9
Date d'inscription
dimanche 17 juin 2007
Statut
Membre
Dernière intervention
10 mars 2014
-
très bonne aide , concept de réalisation ergonomique
Ultrabytes
Messages postés
15
Date d'inscription
dimanche 7 mars 2010
Statut
Membre
Dernière intervention
13 septembre 2010
-
C'est sympa comme programme en plus pas trop difficile. Par contre, je ne sais pas si un programme comme ça ne devrait pas être fait en c++. Mais bon, très bien.
cs_gridha
Messages postés
28
Date d'inscription
vendredi 15 août 2008
Statut
Membre
Dernière intervention
23 septembre 2010
-
pratique mais comment ajouter d'autres stations radio
nb
Europe1 et France Inter ne fonctionnent pas
à quoi cela est il du
zulrigh
Messages postés
24
Date d'inscription
samedi 10 janvier 2009
Statut
Membre
Dernière intervention
7 juin 2014
-
Gridha ; peut-être que certaine radio ne fonctionnent plus, je regarderai ça un de ces 4 !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.