-- webtv show -- tv & radio francaises

5/5 (45 avis)

Vue 26 988 fois - Téléchargée 3 019 fois

Description

WebTV Show avec uniquement les principales WebTV et WebRadio francaises.

Source / Exemple :


Private Sub Command_Click()
  annee = Format(Date, "yyyy")
  mois = Format(Date, "mm")
  jour = Format(Date, "dd")
  hier = jour - 1
  jourselect = Combo1.Text
  moisselect = Combo2.Text
  Me.Caption = Command.Caption
  WMPTV.Controls.stop
  
If Option1.Value = True Then
  If Hour(Time) < 14 Then
    WMPTV.URL = "http://s.tf1.fr/FluxJt/jt20d" & hier & mois
  End If
  If Hour(Time) > 13 Then
    If Hour(Time) < 21 Then
      WMPTV.URL = "http://s.tf1.fr/FluxJt/jt13d" & jour & mois
    End If
  End If
  If Hour(Time) > 20 Then
    WMPTV.URL = "http://s.tf1.fr/FluxJt/jt20d" & jour & mois
  End If
End If
If Option2.Value = True Then
  WMPTV.URL = "http://s.tf1.fr/FluxJt/jt13d" & jourselect & moisselect
End If
If Option3.Value = True Then
  WMPTV.URL = "http://s.tf1.fr/FluxJt/jt20d" & jourselect & moisselect
End If
End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Doudou_Dimitri
Messages postés
16
Date d'inscription
mardi 25 avril 2006
Statut
Membre
Dernière intervention
1 novembre 2007

24 sept. 2007 à 13:46
je trouve que l'idee d'une liste deroulante pour radio et tv serait tres apreciable et prendrait moins de place et permetrait egalement de mettre plus de chaine. compte tu faire une version liste deroulante? tres beau prog te mets +10
djalal90
Messages postés
1
Date d'inscription
lundi 19 décembre 2005
Statut
Membre
Dernière intervention
24 avril 2007

10 avril 2007 à 01:45
Salut, serais t'il possible de faire un version avec une liste déroulante au lieux des bouton!
Merci!
poldere
Messages postés
69
Date d'inscription
samedi 14 mai 2005
Statut
Membre
Dernière intervention
12 août 2007

8 avril 2007 à 20:51
En passant j'ai tester le programme en version .exe sur plusieurs configuration de machine ( mélange de XP SP1 et 2, WMP 10 et 11, IE 6 et 7 ) je n'ai pas rencontré de difficulté avec la SHDOCVW.DLL .
L'option Timer pour s'endormir en radio ou TV que j'ai tester vite fait fonctionne aussi.
Mais je vais pas trop de saboter ton projet lol, je me contenterais de ramer avec les autres.
A plus
ByZoN
Messages postés
33
Date d'inscription
lundi 30 janvier 2006
Statut
Membre
Dernière intervention
1 janvier 2007

8 avril 2007 à 09:36
Salut, pour le réveil j' y travail, je pense pouvoir donner des nouvelles rapidement et merci pour les infos.
Pour les modifs y a pas de prob.; je suis heureux de contribuer à realiser un vieux rêve. Perso gamin moi aussi j' étais passionné de tous ca!
poldere
Messages postés
69
Date d'inscription
samedi 14 mai 2005
Statut
Membre
Dernière intervention
12 août 2007

7 avril 2007 à 23:21
Vite fait sur le même principe :
Option5(2) pour la TV ça marche aussi ( avec M6 pour le moment ).
Ca rajoute 2 options à ce merveilleux programme :)

Private Sub Timer2_Timer()
If Hour(Time) = Combo1.Text Then
If Minute(Time) = Combo2.Text Then
Me.WindowState = 0
Me.Caption = "Alarme"
Me.Width = 8025
Label3.Visible = False
Label5.Visible = True
If Option5(1).Value = True Then ' option pour le réveil avec la radio
WMPTV.settings.volume = 100
WMPTV.Controls.stop
WMPTV.URL = "http://www.hotmixradio.fr/stream/hotmix.m3u"
Timer2.Enabled = False
Timer3.Enabled = False
End If
If Option5(2).Value = True Then ' option pour le réveil avec la tv
WMPTV.settings.volume = 100
WMPTV.Controls.stop
WMPTV.URL = "http://live01.eepad.dz/st_eqoon_demo_2"
Timer2.Enabled = False
Timer3.Enabled = False
End If
If Option5(0).Value = True Then
Timer3.Enabled = True
End If
End If
End If
End Sub
Afficher les 45 commentaires

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.