NHenry
Messages postés15112Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention13 avril 2024159 18 sept. 2016 à 19:52
Ce code nécessite VB6 pour pouvoir être utiliser.
Il n'y a pas d’exécutable ni d'installateur dans le zip.
VB6 n'est plus vendu officiellement.
Je te recommande donc de voir pour trouver une autre source ou de la refaire dans un langage plus récent (VB.NEt, C#.NET, Python, Java, ...)
nicos148
Messages postés2Date d'inscriptiondimanche 18 septembre 2016StatutMembreDernière intervention18 septembre 2016 18 sept. 2016 à 19:47
Je suis intéressé par ce programme. j'ai téléchargé tous les fichiers mais après je ne sais comment faire pour l'utiliser ?
existe t il une procédure d'installation quelque part ?
Comment faire pour installer ce bandeau ?
Merci d'avance pour la ou les personnes qui pourront m'aider.
brunosalvadorneuffr
Messages postés1Date d'inscriptiondimanche 4 novembre 2007StatutMembreDernière intervention11 août 2012 11 août 2012 à 11:47
bonjour,
Je debute en VB. Je viens d`installer VB express 2010 et je n arrive pas à l ouvrir.
Avez vous le moyen pour le convertir ?
nicoanna49
Messages postés1Date d'inscriptionmardi 7 juin 2011StatutMembreDernière intervention 7 juin 2011 7 juin 2011 à 10:13
salut a tous comment on fait pour installer ce bandeau???? merci d'avance
alflok
Messages postés2Date d'inscriptionmercredi 7 avril 2010StatutMembreDernière intervention 7 avril 2010 7 avril 2010 à 13:33
SALUT DRISSOU
merci pour ta reponse, est ce qu'il te derait possible de me rendre ce service?
s'il te plait
cs_drissou
Messages postés160Date d'inscriptiondimanche 7 décembre 2003StatutMembreDernière intervention14 janvier 2009 7 avril 2010 à 12:45
Salut ALFOLK
Effective ce sont des sources non compilées, donc non utilisables comme cela.
Il faut que quelqu'un te le compile et te fournisse tout le programme d'installation : il doit avoir le logiciel Visual basic 6.0 pour cela
alflok
Messages postés2Date d'inscriptionmercredi 7 avril 2010StatutMembreDernière intervention 7 avril 2010 7 avril 2010 à 09:40
bonjour, je voudrais installer le programme mais je n'y arrive pas. pour la petite info, je n'y connais rien en programmation, je veux juste un bandeau qui defile avec les infos boursieres.
les extensions des fichiers ne sont pas reconnus par mon ordi.
mrci
Yaminator
Messages postés12Date d'inscriptionmercredi 31 mars 2004StatutMembreDernière intervention29 octobre 2008 13 déc. 2007 à 19:22
salut, j'aime bien ton programme, j'ai une question :
Où récupère tu les valeurs ? Fil rss ? ou ?
Merci pour ta réponse
cs_drissou
Messages postés160Date d'inscriptiondimanche 7 décembre 2003StatutMembreDernière intervention14 janvier 2009 20 févr. 2006 à 14:42
Bonnes améliorations..
Ce que je te proposais c'est au cas ou tu voudrais rajouter d'autres cotations SBF 240 etc.. et donc rajouter d'autres bandeaux, tu vas vite être débordé avec Pos1, pos2 pos3..
donc tu fais un tableau de positions Pos()
De même dans cette version les deux bandeaux tournent dans le même sens mais si tu fais un tableau Sens() tu pourras l'utiliser dans ta procédure Défile à la place de 'intSens'
Tu peux faire un tableau Bandeau() qui contiendra l'indice du badeau à utiliser
voici un exemple d'adaptation de ta procédure Défile
Public Sub Defile(Indice As Long) ' Texte As String, IntSens As Long, Bandeau As Long)
Dim str As String
Dim sts As String
Dim stx As String
Static pos1 As Long
Static pos2 As Long
' on a créé
' - un tableau 'Texte()' qui contient les textes à télécharger
' - un tableau 'Pos()' qui contient les positions
' - un tableau 'Sens()' qui contiendra le sens de défilement
' - un tableau de labels 'lblInfo' dont l'indice commence à 1
pos(Indice) = pos(Indice + 1)
If pos(Indice) > Len(Texte(Indice)) Then
pos(Indice) = 0
End If
Select Case Sens(Indice)
Case 0
' défilement de droite à gauche
str = Left(Texte, pos1)
sts = Mid(Texte, pos1 + 1)
stx = sts + str
Case 1
' défilement de gauche à droite
str = Right(Texte, pos1)
sts = Mid(Texte, 1, Len(Texte) - pos1)
stx = str + sts
End Select
Select Case Indice
Case 0
frmPanneau.Caption = stx
Case Else
frmPanneau.lblInfo(Indice).Caption = stx
End Select
End Sub
je ne l'ai pas testée mais je pense que cela pourrait convenir en adaptant tes variables et ton label.
avec ceci tu peux rajouter 2, 3 ou 10 bandeaux : plus besoin d'augmenter tes lignes de programmation.
enfin sur ce point..
Driss
cs_razzor
Messages postés31Date d'inscriptionjeudi 29 juillet 2004StatutMembreDernière intervention17 février 2006 17 févr. 2006 à 23:19
J'ai revu un peu tout le code comme tu le préconisais, par contre je ne vois pas trop l'avantage d'un tableau de sens de défilement et du tableau de positions. Peut être peux mieux m'expliquer ce que tu sous entends par là ? est ce que cela rajoutera de la fluidité au code ?
Dans l'exécution du code, je reste tributaire des temps d'accès aux adresses url et comme il y en a une vingtaine, ca prend un peu de temps. D'où l'effet de ralentissement visible à l'oeil lorsqu'il y a remise à jour des données.
J'ai rajouté une commande de changement de sens de défilement en pointant la souris sur le label et en cliquant droit, et modification de la vitesse de défilement par click gauche.
cs_drissou
Messages postés160Date d'inscriptiondimanche 7 décembre 2003StatutMembreDernière intervention14 janvier 2009 17 févr. 2006 à 13:35
allez on continue... ;o)
1 . dans ta form load diminue un peu la hauteur de ton lbl à 290 sinon à 320 on voit le haut d'une deuxième ligne
2. pour gagner un peu d'efficacité, il faut éviter à chaque timer de refaire un accès disque pour lire le fichier et avoir l'url.
il faudrait charge tous ces chemins une seule fois, au début du programme.
3. je pense aussi qu'il faudrait faire une procédure commune pour gérer l'affichage avec comme paramètres : le texte, le nom du label/caption de la forme et le sens de défilement, voire la variable de position (qui peut être un tableau indicé)
comme cela (la seule différence étant le sens de défilement)
au départ on crée des tableaux indicés
- tableau de chaines équivalent au 'texte'
- un tableau d'indice label avec par exemple -1 pour le caption de la form
- un tableau de sens de défilement
- un tableau de positions
Driss
cs_razzor
Messages postés31Date d'inscriptionjeudi 29 juillet 2004StatutMembreDernière intervention17 février 2006 15 févr. 2006 à 19:47
J'ai refait le code au mieux en suivant tes indications.
Par contre, le fait de réinitialiser la variable Texte a pour conséquence de refaire démarrer le bandeau au début, chose qu'on voulait éviter, rappelle toi. J'ai fini par trouver une méthode qui m'oblige à attendre la fin du défilement de tout le texte sur le bandeau avant de réinterroger.
J'ai géré le problème du figeage du bandeau par un évenement de la souris lorsque qu'elle passe au dessus de la forme. (j'ai emprunté le module de classe et l'ai retravaillé un peu)
Je n'ai gardé qu'un timer pour le déclenchement des remises à jour.
Pour répondre à ta question, j'ai l'impression que l'information est renouvelée toutes les minutes sur Boursorama. Mais il faut forcer la mise à jour sur le site lorsque tu navigues sur la page web.
En tout cas, c'est une bonne collaboration qui permet d'avancer.
Merci.
cs_drissou
Messages postés160Date d'inscriptiondimanche 7 décembre 2003StatutMembreDernière intervention14 janvier 2009 15 févr. 2006 à 14:22
quelle est la fréquence de mise à jour des cotations sur Boursorama ?
cs_drissou
Messages postés160Date d'inscriptiondimanche 7 décembre 2003StatutMembreDernière intervention14 janvier 2009 15 févr. 2006 à 13:04
Nickel ton prog..
peut être pourrais tu diminuer le nombre de timers
pour la mise à jour , je mettrais un seul timer avec 1 fois sur 2 mise un jour d'un des deux bandeaux.
Quant à ceux pour le déroulement ils n'ont d'intérêt que si tu veux faire défiler de manière différentes tes deux bandeaux
( enfin sans vouloir critiquer..)
A quand le SBF 250, voire le choix de valeurs..
' remarques sur tes remarques
au lieu de limiter la taille de texte et texte2, il faut remettre à vide dans chaque procédure de maj : texte=vbnullstring
texte2=vbnullstring
et le problèmr est réglé
' une petite 'amélioration' pour arrêter provisoirement le défilement si tu veux noter une valeur
rajoute
Private Sub lblInfo_Click()
tmrIndice.Enabled = Not (tmrIndice.Enabled)
tmrTicker.Enabled = Not (tmrTicker.Enabled)
End Sub
le défilement s'arrêtera et repartira à chaque click
Drissou
cs_drissou
Messages postés160Date d'inscriptiondimanche 7 décembre 2003StatutMembreDernière intervention14 janvier 2009 15 févr. 2006 à 12:08
tu as raison j'ai oublié de réinitialiser au début de ta proc MiseàJour..
je vais douwnloader ta nouvelle version
Drissou
cs_razzor
Messages postés31Date d'inscriptionjeudi 29 juillet 2004StatutMembreDernière intervention17 février 2006 14 févr. 2006 à 19:08
J'adopte ta méthode, elle est convaincante avec un petit bémol cependant que j'ai aussi éprouvé.
Dans cette méthode, tu ne gères pas la longueur de la variable Texte qui ne cesse d'enfler au fur et à mesure des déclenchements timer.
Au bout d'un moment certain, cette variable atteint le max de sa capacité et les données ne sont plus rafraichies alors que le message continue de défiler.
C'est pourquoi je suis obligé de tronquer la fin de la variable texte par :
texte = Mid(Texte,1,6000)
6000 est une valeur déterminée au réel en analysant la longueur de la variable texte après chaque déclenchement timer.
J'ai remanié le code avec cette fois ci deux bandeaux indépendants avec les valeurs du SBF120 et les valeurs des indices Boursiers internationnaux.
Bien merci à toi pour ton code génial (je le pense) qui m'a permis de franchir une étape supplémentaire me permettant de renouveler les infos toutes les minutes.
cs_drissou
Messages postés160Date d'inscriptiondimanche 7 décembre 2003StatutMembreDernière intervention14 janvier 2009 14 févr. 2006 à 16:38
dans ton module j'ai mis
Global Texte As String
Global Pos As Long
ta proc MiseàJour devient : seulement changement
Public Sub MiseàJour()
Dim sResult As String
Dim intDebut As Long
Dim intSuite As Long
Dim intSuite2 As Long
Dim valeur As String
Dim s As String
Dim i As Long
Const sUrl = "http://www.boursorama.com/tableaux/cours_az.phtml?MARCHE=1rPCAC"
' ----
' Open App.Path & "\fichier.htm" For Output As #1
' Print #1, sResult
' Close #1
sResult = GetUrlFile(sUrl)
For i = 0 To UBound(Tabl)
valeur = Tabl(i) 'nom de la valeur du CAC
intDebut = InStr(sResult, valeur) ' emplacement dans le fichier html
If intDebut = 0 Then GoTo fin
intSuite = InStr(intDebut, sResult, "right") + 7 ' repère emplacement côte valeur
intSuite2 = InStr(intSuite, sResult, "</TD>")
Public Sub Defile(frmBo As Form)
Dim str As String
Dim sts As String
Dim stx As String
Pos = Pos + 1
If Pos > Len(Texte) Then
Pos = 0
End If
' défilement de droite à gauche
str = Left(Texte, Pos)
sts = Mid(Texte, Pos + 1)
stx = sts + str
frmBo.Caption = stx
End Sub
voilà
maintenant sur le double bandeau, je pense que ce n'est pas possible dans le caption..
il faudra agrandir ta fenêtre un peu plus
pour ma part je ne connais pas bien les indices boursiers, mais je serai intéressé par tes trouvailles
bon courage
Driss
cs_razzor
Messages postés31Date d'inscriptionjeudi 29 juillet 2004StatutMembreDernière intervention17 février 2006 14 févr. 2006 à 13:48
Merci,
Je cherche de mon côté mais ta solution de modif est la bienvenue !
L'étape suivante sera l'affichage conjugué du SF 120 pour les connaisseurs et des indices boursiers internationnaux sur deux bandes glissantes.
cs_drissou
Messages postés160Date d'inscriptiondimanche 7 décembre 2003StatutMembreDernière intervention14 janvier 2009 14 févr. 2006 à 13:30
Sympa ton prog, simple et efficace
le seul problème est que lorsqu'il y a une mise à jour le bandeau reprend au début.
j'ai modifié un tout petit peu ton prog pour permettre la reprise du défilement làoù on était au moment de la mise à jour..
18 sept. 2016 à 19:52
Il n'y a pas d’exécutable ni d'installateur dans le zip.
VB6 n'est plus vendu officiellement.
Je te recommande donc de voir pour trouver une autre source ou de la refaire dans un langage plus récent (VB.NEt, C#.NET, Python, Java, ...)
18 sept. 2016 à 19:47
existe t il une procédure d'installation quelque part ?
Comment faire pour installer ce bandeau ?
Merci d'avance pour la ou les personnes qui pourront m'aider.
11 août 2012 à 11:47
Je debute en VB. Je viens d`installer VB express 2010 et je n arrive pas à l ouvrir.
Avez vous le moyen pour le convertir ?
7 juin 2011 à 10:13
7 avril 2010 à 13:33
merci pour ta reponse, est ce qu'il te derait possible de me rendre ce service?
s'il te plait
7 avril 2010 à 12:45
Effective ce sont des sources non compilées, donc non utilisables comme cela.
Il faut que quelqu'un te le compile et te fournisse tout le programme d'installation : il doit avoir le logiciel Visual basic 6.0 pour cela
7 avril 2010 à 09:40
les extensions des fichiers ne sont pas reconnus par mon ordi.
mrci
13 déc. 2007 à 19:22
Où récupère tu les valeurs ? Fil rss ? ou ?
Merci pour ta réponse
20 févr. 2006 à 14:42
Ce que je te proposais c'est au cas ou tu voudrais rajouter d'autres cotations SBF 240 etc.. et donc rajouter d'autres bandeaux, tu vas vite être débordé avec Pos1, pos2 pos3..
donc tu fais un tableau de positions Pos()
De même dans cette version les deux bandeaux tournent dans le même sens mais si tu fais un tableau Sens() tu pourras l'utiliser dans ta procédure Défile à la place de 'intSens'
Tu peux faire un tableau Bandeau() qui contiendra l'indice du badeau à utiliser
voici un exemple d'adaptation de ta procédure Défile
Public Sub Defile(Indice As Long) ' Texte As String, IntSens As Long, Bandeau As Long)
Dim str As String
Dim sts As String
Dim stx As String
Static pos1 As Long
Static pos2 As Long
' on a créé
' - un tableau 'Texte()' qui contient les textes à télécharger
' - un tableau 'Pos()' qui contient les positions
' - un tableau 'Sens()' qui contiendra le sens de défilement
' - un tableau de labels 'lblInfo' dont l'indice commence à 1
pos(Indice) = pos(Indice + 1)
If pos(Indice) > Len(Texte(Indice)) Then
pos(Indice) = 0
End If
Select Case Sens(Indice)
Case 0
' défilement de droite à gauche
str = Left(Texte, pos1)
sts = Mid(Texte, pos1 + 1)
stx = sts + str
Case 1
' défilement de gauche à droite
str = Right(Texte, pos1)
sts = Mid(Texte, 1, Len(Texte) - pos1)
stx = str + sts
End Select
Select Case Indice
Case 0
frmPanneau.Caption = stx
Case Else
frmPanneau.lblInfo(Indice).Caption = stx
End Select
End Sub
je ne l'ai pas testée mais je pense que cela pourrait convenir en adaptant tes variables et ton label.
avec ceci tu peux rajouter 2, 3 ou 10 bandeaux : plus besoin d'augmenter tes lignes de programmation.
enfin sur ce point..
Driss
17 févr. 2006 à 23:19
Dans l'exécution du code, je reste tributaire des temps d'accès aux adresses url et comme il y en a une vingtaine, ca prend un peu de temps. D'où l'effet de ralentissement visible à l'oeil lorsqu'il y a remise à jour des données.
J'ai rajouté une commande de changement de sens de défilement en pointant la souris sur le label et en cliquant droit, et modification de la vitesse de défilement par click gauche.
17 févr. 2006 à 13:35
1 . dans ta form load diminue un peu la hauteur de ton lbl à 290 sinon à 320 on voit le haut d'une deuxième ligne
2. pour gagner un peu d'efficacité, il faut éviter à chaque timer de refaire un accès disque pour lire le fichier et avoir l'url.
il faudrait charge tous ces chemins une seule fois, au début du programme.
3. je pense aussi qu'il faudrait faire une procédure commune pour gérer l'affichage avec comme paramètres : le texte, le nom du label/caption de la forme et le sens de défilement, voire la variable de position (qui peut être un tableau indicé)
comme cela (la seule différence étant le sens de défilement)
au départ on crée des tableaux indicés
- tableau de chaines équivalent au 'texte'
- un tableau d'indice label avec par exemple -1 pour le caption de la form
- un tableau de sens de défilement
- un tableau de positions
Driss
15 févr. 2006 à 19:47
Par contre, le fait de réinitialiser la variable Texte a pour conséquence de refaire démarrer le bandeau au début, chose qu'on voulait éviter, rappelle toi. J'ai fini par trouver une méthode qui m'oblige à attendre la fin du défilement de tout le texte sur le bandeau avant de réinterroger.
J'ai géré le problème du figeage du bandeau par un évenement de la souris lorsque qu'elle passe au dessus de la forme. (j'ai emprunté le module de classe et l'ai retravaillé un peu)
Je n'ai gardé qu'un timer pour le déclenchement des remises à jour.
Pour répondre à ta question, j'ai l'impression que l'information est renouvelée toutes les minutes sur Boursorama. Mais il faut forcer la mise à jour sur le site lorsque tu navigues sur la page web.
En tout cas, c'est une bonne collaboration qui permet d'avancer.
Merci.
15 févr. 2006 à 14:22
15 févr. 2006 à 13:04
peut être pourrais tu diminuer le nombre de timers
pour la mise à jour , je mettrais un seul timer avec 1 fois sur 2 mise un jour d'un des deux bandeaux.
Quant à ceux pour le déroulement ils n'ont d'intérêt que si tu veux faire défiler de manière différentes tes deux bandeaux
( enfin sans vouloir critiquer..)
A quand le SBF 250, voire le choix de valeurs..
' remarques sur tes remarques
au lieu de limiter la taille de texte et texte2, il faut remettre à vide dans chaque procédure de maj : texte=vbnullstring
texte2=vbnullstring
et le problèmr est réglé
' une petite 'amélioration' pour arrêter provisoirement le défilement si tu veux noter une valeur
rajoute
Private Sub lblInfo_Click()
tmrIndice.Enabled = Not (tmrIndice.Enabled)
tmrTicker.Enabled = Not (tmrTicker.Enabled)
End Sub
le défilement s'arrêtera et repartira à chaque click
Drissou
15 févr. 2006 à 12:08
je vais douwnloader ta nouvelle version
Drissou
14 févr. 2006 à 19:08
Dans cette méthode, tu ne gères pas la longueur de la variable Texte qui ne cesse d'enfler au fur et à mesure des déclenchements timer.
Au bout d'un moment certain, cette variable atteint le max de sa capacité et les données ne sont plus rafraichies alors que le message continue de défiler.
C'est pourquoi je suis obligé de tronquer la fin de la variable texte par :
texte = Mid(Texte,1,6000)
6000 est une valeur déterminée au réel en analysant la longueur de la variable texte après chaque déclenchement timer.
J'ai remanié le code avec cette fois ci deux bandeaux indépendants avec les valeurs du SBF120 et les valeurs des indices Boursiers internationnaux.
Bien merci à toi pour ton code génial (je le pense) qui m'a permis de franchir une étape supplémentaire me permettant de renouveler les infos toutes les minutes.
14 févr. 2006 à 16:38
Global Texte As String
Global Pos As Long
ta proc MiseàJour devient : seulement changement
Public Sub MiseàJour()
Dim sResult As String
Dim intDebut As Long
Dim intSuite As Long
Dim intSuite2 As Long
Dim valeur As String
Dim s As String
Dim i As Long
Const sUrl = "http://www.boursorama.com/tableaux/cours_az.phtml?MARCHE=1rPCAC"
' ----
' Open App.Path & "\fichier.htm" For Output As #1
' Print #1, sResult
' Close #1
sResult = GetUrlFile(sUrl)
For i = 0 To UBound(Tabl)
valeur = Tabl(i) 'nom de la valeur du CAC
intDebut = InStr(sResult, valeur) ' emplacement dans le fichier html
If intDebut = 0 Then GoTo fin
intSuite = InStr(intDebut, sResult, "right") + 7 ' repère emplacement côte valeur
intSuite2 = InStr(intSuite, sResult, "</TD>")
' ici la modification
Texte = Texte & Tabl(i) & Space(2) & _
Mid(sResult, intSuite, intSuite2 - intSuite) & "?" & Space(1) & _
Mid(sResult, InStr(intSuite, sResult, "%") - 5, 6) & Space(10)
fin:
Next i
End Sub
et ta procédure Defile devient
Public Sub Defile(frmBo As Form)
Dim str As String
Dim sts As String
Dim stx As String
Pos = Pos + 1
If Pos > Len(Texte) Then
Pos = 0
End If
' défilement de droite à gauche
str = Left(Texte, Pos)
sts = Mid(Texte, Pos + 1)
stx = sts + str
frmBo.Caption = stx
End Sub
voilà
maintenant sur le double bandeau, je pense que ce n'est pas possible dans le caption..
il faudra agrandir ta fenêtre un peu plus
pour ma part je ne connais pas bien les indices boursiers, mais je serai intéressé par tes trouvailles
bon courage
Driss
14 févr. 2006 à 13:48
Je cherche de mon côté mais ta solution de modif est la bienvenue !
L'étape suivante sera l'affichage conjugué du SF 120 pour les connaisseurs et des indices boursiers internationnaux sur deux bandes glissantes.
14 févr. 2006 à 13:30
le seul problème est que lorsqu'il y a une mise à jour le bandeau reprend au début.
j'ai modifié un tout petit peu ton prog pour permettre la reprise du défilement làoù on était au moment de la mise à jour..
Drissou