BANDEAU DE COTATIONS DES VALEURS DU CAC40

Commentaire de drissou le 14/02/2006 13:30:46

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..

Drissou

Commentaire de drissou le 14/02/2006 16:38:49

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>")
        
' 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

Commentaire de drissou le 15/02/2006 12:08:09

tu as raison j'ai oublié de réinitialiser au début de ta proc MiseàJour..
je vais douwnloader ta nouvelle version

Drissou

Commentaire de drissou le 15/02/2006 14:22:11

quelle est la fréquence de mise à jour des cotations sur Boursorama ?

Commentaire de drissou le 17/02/2006 13:35:55

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

Commentaire de drissou le 20/02/2006 14:42:44

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