Commentaires sur une source : CLM'S PROGTV : LE PROG TV EN UN COUPS D'OEIL

jtoto Messages postés 29 Date d'inscription lundi 2 janvier 2006 Statut Membre Dernière intervention 23 février 2009
1 mars 2006 à 13:25

C'est un très joli programme il merite 10/10 mais je ne sais pas comment rajouter les chaines de la TNT: w9,TMC,Serie Club, RTL9, Jimmy, EuroSport, Cinestar, Cine premiére, AB1...
Encore Bravo pour les chaines Hertiennes

nicopoal Messages postés 4 Date d'inscription mercredi 2 juin 2004 Statut Membre Dernière intervention 29 juillet 2005
9 juin 2005 à 18:33

pareil pour moi un erreur 5 argument ou appel de procédure incorrect
commen ça se fait ?

pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 5
4 août 2004 à 13:45

Erreur chez moi sur :
picPrg.ScaleWidth = Abs(LlMax) + Abs(LlMin)

Suis sous Xp!! Dommage car ce prog m'aurait été bien utile!!!

zzmanshow Messages postés 41 Date d'inscription mardi 23 mars 2004 Statut Membre Dernière intervention 18 mars 2010
5 juin 2004 à 10:45

ché moi, sa merde, g une erreur 5
argument ou appel de procédure incorrect
pouvé vs médé
sinon, a regardé la capture décran de ton prog, sa a lair cool

HagRapMan Messages postés 73 Date d'inscription lundi 20 octobre 2003 Statut Membre Dernière intervention 12 juillet 2007 6
4 juin 2004 à 21:37

Chkiffe grave !!!
top dard

LeCarpiste Messages postés 37 Date d'inscription mardi 8 janvier 2002 Statut Membre Dernière intervention 26 mars 2008
24 mai 2004 à 10:18

Salut Clementio, bon toujours le même problème, pourrais-tu m'aider, je suis en XP, chez moi, ou ce problème apparaît ! Ici je suis en NT et pas de soucis !

Merci d'avance et à bientôt !
Bonne journée !

rodryg Messages postés 23 Date d'inscription mardi 9 septembre 2003 Statut Membre Dernière intervention 6 janvier 2008
6 mai 2004 à 16:00

Code très interessant et formateur. Merci.

Pour compléter avec les chaines qui m'interessent (Cable) j'aimerai bien avoir les codes du type ("166009873&channels=europe_tf1") pour Euronews, Odyssée, Téva, Série club, MTV etc... que je n'ai pas trouvé sur le site de référence http://fr.tv.yahoo.com/ parmi ceux qui sont accessibles. Une idée?

bonne prog, @+

LeCarpiste Messages postés 37 Date d'inscription mardi 8 janvier 2002 Statut Membre Dernière intervention 26 mars 2008
1 mai 2004 à 13:13

Un problème apparait ici : "Erreur d'exécution '380' valeur de propriété incorrecte !

picPrg.ScaleWidth = Abs(LlMax) + Abs(LlMin)

ligne 169.

@+

LeCarpiste Messages postés 37 Date d'inscription mardi 8 janvier 2002 Statut Membre Dernière intervention 26 mars 2008
28 avril 2004 à 13:42

Salut Clementio, toujours aussi bien, c'est un plaisir !

Pourrais-tu rajouter, en + du détail à la journée, un détail à la semaine, pour une chaîne ou + ?

Serait-il possible d'avoir des chaînes de TPS en + ?

Allez, bonne prog et bonne journée !
@+

LeCarpiste Messages postés 37 Date d'inscription mardi 8 janvier 2002 Statut Membre Dernière intervention 26 mars 2008
28 avril 2004 à 13:41

Salut Clementio, toujours aussi bien, c'est un plaisir !

Pourrais-tu rajouter, en + du détail à la journée, un détail à la semaine, pour une chaîne ou + ?

Serait-il possible d'avoir des chaînes de TPS en + ?

Allez, bonne prog et bonne journée !
@+

tich3012 Messages postés 39 Date d'inscription lundi 2 décembre 2002 Statut Membre Dernière intervention 15 octobre 2004
27 avril 2004 à 23:16

J'ai oublie : un truc de bien dans la programmation c'est les commentaires kan ils y sont

Sinon bonne idee de prog
MERCI

tich3012 Messages postés 39 Date d'inscription lundi 2 décembre 2002 Statut Membre Dernière intervention 15 octobre 2004
27 avril 2004 à 23:15

Voici le code pour que ca boucle pas :

procedure :Private Sub imgChaine_Click(Index As Integer)

Remplacer le 1er 'IF' apres ' For lCompteur = 0 To UBound(sProgChaine(Index).lDeb)'
par ce IF la :
If sProgChaine(Index).lDeb(lCompteur) <= lMaintenant Then
If sProgChaine(Index).lDeb(lCompteur) <= sProgChaine(Index).lFin(lCompteur) Then
'On est sur le meme jour
If sProgChaine(Index).lFin(lCompteur) > lMaintenant Then
lblActDeb.Caption = NombreEnChaine(sProgChaine(Index).lDeb(lCompteur))
lblAct.Caption = sProgChaine(Index).sNom(lCompteur)
lblAct.Tag = lCompteur
If sProgChaine(Index).lFin(lCompteur) <> -1 Then
lblActFin.Caption = NombreEnChaine(sProgChaine(Index).lFin(lCompteur))
lblAprDeb.Caption = NombreEnChaine(sProgChaine(Index).lDeb(lCompteur + 1))
lblApr.Caption = sProgChaine(Index).sNom(lCompteur + 1)
lblApr.Tag = lCompteur + 1
If sProgChaine(Index).lFin(lCompteur + 1) <> -1 Then
lblAprFin.Caption = NombreEnChaine(sProgChaine(Index).lFin(lCompteur + 1))
End If
End If
End If
Else
If sProgChaine(Index).lFin(lCompteur) > 0 Then
'On est pas sur le meme jour
lblActDeb.Caption = NombreEnChaine(sProgChaine(Index).lDeb(lCompteur))
lblAct.Caption = sProgChaine(Index).sNom(lCompteur)
lblAct.Tag = lCompteur
If sProgChaine(Index).lFin(lCompteur) <> -1 Then
lblActFin.Caption = NombreEnChaine(sProgChaine(Index).lFin(lCompteur))
lblAprDeb.Caption = NombreEnChaine(sProgChaine(Index).lDeb(lCompteur + 1))
lblApr.Caption = sProgChaine(Index).sNom(lCompteur + 1)
lblApr.Tag = lCompteur + 1
If sProgChaine(Index).lFin(lCompteur + 1) <> -1 Then
lblAprFin.Caption = NombreEnChaine(sProgChaine(Index).lFin(lCompteur + 1))
End If
End If
End If

End If
End If

La ca marche En esperant que ca reste clair

bubble44 Messages postés 200 Date d'inscription lundi 10 mars 2003 Statut Membre Dernière intervention 3 août 2004
27 avril 2004 à 10:52

C'est vrai qu'il est pas mal celui la, il me reste plus qu'a acheter une tv lol.

vpcorpprog Messages postés 36 Date d'inscription mardi 9 mars 2004 Statut Membre Dernière intervention 18 octobre 2005
27 avril 2004 à 10:49

Ton programme est super ca merite un 9

clementio Messages postés 432 Date d'inscription samedi 18 mai 2002 Statut Membre Dernière intervention 17 février 2014 1
26 avril 2004 à 00:25

Ca y est, c'est réparer, désolé pour ce bug...

C'est vrai que ça bouclait indéfiniment mais maintenant tout est rentré dans l'ordre...

clementio Messages postés 432 Date d'inscription samedi 18 mai 2002 Statut Membre Dernière intervention 17 février 2014 1
26 avril 2004 à 00:10

Je viens de comprendre le bug, c'est le passage de minuit qui fait tout planter!!!

Alors attendez demain ou la mise à jour pour tester...

cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
25 avril 2004 à 23:56

C'est vrais que mis a part la partie programme qui est
bien codé dans la majeure partie, le programme plante.
Tout depend du contenue des pages. La plupart du temp
c'est a cause de instr(...) dont tu fait une utilisation plus
que hazardeuse !

B@nne prog

(pour le coup c'est "le bug en un coup d'oeil" ;) )

bubble44 Messages postés 200 Date d'inscription lundi 10 mars 2003 Statut Membre Dernière intervention 3 août 2004
25 avril 2004 à 23:47

Moi ca merde, ca semble boucler, on peut meme pu cliquer sur les chaines.
Surement l'IA du programme d'echecs, qui doit faire bugger cet autre programme

;-)

cs_EBArtSoft Messages postés 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
25 avril 2004 à 22:48

clementio> Enfin une source bien faite sur ce site (meme si le sujet de la source est plus ou moins discutable) , ça faisait
longtemp... je dirait meme que j'en avais pas vue une depuis ta derniere source...

(entre nous je crois que ton clm echec va te suivre
partout maitenant ! [;)] )

@+

gandalfkhorne Messages postés 70 Date d'inscription dimanche 11 janvier 2004 Statut Membre Dernière intervention 1 octobre 2004
25 avril 2004 à 22:31

Oups, désolé je n'avais po vu les options supplémentaires, désolé encore une fois et ton jeu d'echec s'il marche t bien doué pke une IA jose meme po imaginé ;)

gandalfkhorne Messages postés 70 Date d'inscription dimanche 11 janvier 2004 Statut Membre Dernière intervention 1 octobre 2004
25 avril 2004 à 22:26

lol, pkoi faire compliquer qd on peut faire simple.

Un WebBrowser de Microsoft Internet Controls 6.0 aurait bien suffit, agrémenter d'une petite ligne WebBrowser.Naviguate("http://www.television.epiknet.org/programme.php")

:-)

jotrash Messages postés 373 Date d'inscription mardi 31 décembre 2002 Statut Membre Dernière intervention 19 juin 2007
25 avril 2004 à 22:13

lol on a l eprog tele on a le changeur de chaine mais jamais on aura le programme de tv ou on pourrait mettre des plugins ... euh je megare la

sinon le code est pas mal le graphisme est bien !!

Votre réponse