jotrash
Messages postés373Date d'inscriptionmardi 31 décembre 2002StatutMembreDernière intervention19 juin 2007
-
25 avril 2004 à 22:13
jtoto
Messages postés29Date d'inscriptionlundi 2 janvier 2006StatutMembreDernière intervention23 février 2009
-
1 mars 2006 à 13:25
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
jtoto
Messages postés29Date d'inscriptionlundi 2 janvier 2006StatutMembreDernière intervention23 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és4Date d'inscriptionmercredi 2 juin 2004StatutMembreDernière intervention29 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és1243Date d'inscriptionmardi 7 mai 2002StatutMembreDernière intervention18 février 20195 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és41Date d'inscriptionmardi 23 mars 2004StatutMembreDernière intervention18 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és73Date d'inscriptionlundi 20 octobre 2003StatutMembreDernière intervention12 juillet 20076 4 juin 2004 à 21:37
Chkiffe grave !!!
top dard
LeCarpiste
Messages postés37Date d'inscriptionmardi 8 janvier 2002StatutMembreDernière intervention26 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és23Date d'inscriptionmardi 9 septembre 2003StatutMembreDerniè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és37Date d'inscriptionmardi 8 janvier 2002StatutMembreDernière intervention26 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és37Date d'inscriptionmardi 8 janvier 2002StatutMembreDernière intervention26 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és37Date d'inscriptionmardi 8 janvier 2002StatutMembreDernière intervention26 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és39Date d'inscriptionlundi 2 décembre 2002StatutMembreDernière intervention15 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és39Date d'inscriptionlundi 2 décembre 2002StatutMembreDernière intervention15 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és200Date d'inscriptionlundi 10 mars 2003StatutMembreDerniè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és36Date d'inscriptionmardi 9 mars 2004StatutMembreDernière intervention18 octobre 2005 27 avril 2004 à 10:49
Ton programme est super ca merite un 9
clementio
Messages postés432Date d'inscriptionsamedi 18 mai 2002StatutMembreDernière intervention17 février 20141 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és432Date d'inscriptionsamedi 18 mai 2002StatutMembreDernière intervention17 février 20141 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és4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 20199 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és200Date d'inscriptionlundi 10 mars 2003StatutMembreDerniè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és4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 20199 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és70Date d'inscriptiondimanche 11 janvier 2004StatutMembreDerniè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és70Date d'inscriptiondimanche 11 janvier 2004StatutMembreDernière intervention 1 octobre 2004 25 avril 2004 à 22:26
lol, pkoi faire compliquer qd on peut faire simple.
1 mars 2006 à 13:25
Encore Bravo pour les chaines Hertiennes
9 juin 2005 à 18:33
commen ça se fait ?
4 août 2004 à 13:45
picPrg.ScaleWidth = Abs(LlMax) + Abs(LlMin)
Suis sous Xp!! Dommage car ce prog m'aurait été bien utile!!!
5 juin 2004 à 10:45
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
4 juin 2004 à 21:37
top dard
24 mai 2004 à 10:18
Merci d'avance et à bientôt !
Bonne journée !
6 mai 2004 à 16:00
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, @+
1 mai 2004 à 13:13
picPrg.ScaleWidth = Abs(LlMax) + Abs(LlMin)
ligne 169.
@+
28 avril 2004 à 13:42
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 !
@+
28 avril 2004 à 13:41
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 !
@+
27 avril 2004 à 23:16
Sinon bonne idee de prog
MERCI
27 avril 2004 à 23:15
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
27 avril 2004 à 10:52
27 avril 2004 à 10:49
26 avril 2004 à 00:25
C'est vrai que ça bouclait indéfiniment mais maintenant tout est rentré dans l'ordre...
26 avril 2004 à 00:10
Alors attendez demain ou la mise à jour pour tester...
25 avril 2004 à 23:56
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" ;) )
25 avril 2004 à 23:47
Surement l'IA du programme d'echecs, qui doit faire bugger cet autre programme
;-)
25 avril 2004 à 22:48
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 ! [;)] )
@+
25 avril 2004 à 22:31
25 avril 2004 à 22:26
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")
:-)
25 avril 2004 à 22:13
sinon le code est pas mal le graphisme est bien !!