Valeur et variation du cac40 en temps réèl.

Soyez le premier à donner votre avis sur cette source.

Vue 8 003 fois - Téléchargée 862 fois

Description

C'est un petit utilitaire qui permet de suivre en casi temps réèl la valeur du cac 40 ainsi que la variation sur la journée. Le programme utilise des api pour la connection internet et pas le control ms.

Source / Exemple :


Option Explicit
'--------------
Private Const sUrl = "http://bourse.tf1.fr/cours_indices.phtml?symbole=1rPCAC"

Private Sub Update()
    Dim lngOpen             As Long
    Dim lngOpenUrl          As Long
    Dim lngRetVal           As Long
    Dim lngBytes            As Long
    Dim blnDown             As Boolean
    Dim sBuffer             As String * 2048
    Dim sResult             As String
    Dim intDebut            As Integer
    
    lngOpen = InternetOpen(scUserAgent, _
              INTERNET_OPEN_TYPE_PRECONFIG, _
              vbNullString, vbNullString, 0)
    
    If lngOpen = 0 Then
        MsgBox "il y a un problème avec votre connection internet"
        Exit Sub
    End If
    ' ----
    lngOpenUrl = InternetOpenUrl(lngOpen, sUrl, _
                vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
    
    If lngOpenUrl = 0 Then
        MsgBox "le site internet de tf1 n'est pas disponible"
        Exit Sub
    End If
    ' ----
    blnDown = True
    While blnDown
        sBuffer = vbNullString
        lngRetVal = InternetReadFile(lngOpenUrl, _
                    sBuffer, Len(sBuffer), lngBytes)
       If lngRetVal = 0 Then
            MsgBox "problème de lecture de la page": Exit Sub
            Exit Sub
        End If
        sResult = sResult & Left$(sBuffer, lngBytes)
        If Not CBool(lngBytes) Then blnDown = False
        DoEvents
    Wend
    ' ----
    'Open App.Path & "\fichier.bin" For Output As #1
    'Print #1, sResult
    'Close #1
    
    intDebut = InStr(sResult, "<!-- TABLEAU COURS-->")
    
    lblValeur.Caption = Replace(Mid(sResult, intDebut + 160, 7), ">", "")
    lblVariation.Caption = Mid(sResult, intDebut + 253, 6)
End Sub

Private Sub Check1_Click()
    
    If Check1.Value = vbChecked Then
        MakeTopMost Me.hwnd
    Else
        MakeNormal Me.hwnd
    End If
    
End Sub

Private Sub Form_Load()
    Update
    MakeTopMost Me.hwnd
End Sub

Private Sub tm_Timer()
    Update
End Sub

Conclusion :


j'ai volontairement laissé les trois lignes qui écrivent dans le fichier.bin
mais il vaut mieux les enlever pour compiler le prg.

@ vous lire, VIC

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
4
Date d'inscription
mercredi 13 octobre 2010
Statut
Membre
Dernière intervention
14 novembre 2010

bonjour,

quel logiciel faut-il se procurer pour lire ce programme?

Merci,
Messages postés
34
Date d'inscription
dimanche 1 décembre 2002
Statut
Membre
Dernière intervention
9 janvier 2010

Bonjour,
Ce code semble marcher et est très simple. Pour l'instant il ne trouve pas le site de TF1. Est ce normal?
Comment faire pour trouver les adresses des autres valeurs? et/ou comment faire pour aller lire les valeurs sur un autres site exemple boursorama?
Merci d'avance de votre réponse
Michel
Messages postés
2
Date d'inscription
jeudi 4 novembre 2004
Statut
Membre
Dernière intervention
7 janvier 2009

Salut,
Je suis tombe sur ce petit utilitaire
ma fois sympa, mais l'auteur devrait
blinde le parsing de l'HTML
car on ne voit vraiment le CAC ;-))
Cordialement
Messages postés
9
Date d'inscription
dimanche 23 mars 2003
Statut
Membre
Dernière intervention
17 septembre 2004

Ce code est très simple et très efficace! On peut ensuite y rajouter d'autre actions/indices très facilement.
Un truc intéressant ser ait de déterminé si les marchés sont fermés ou non, car quand la bourse ferme, le cours devient 1955.2 (c), et le " (c) " en question p^rovoque une erreur de calcul de la variation.
En tout ce petit prog est super. Je travaille dans la finance ( gestion de portefeuille d'actions ) alors si tu as une question, n'hésite pas à me contacter : crazymax@noos.fr Je m'amuserai bine à le développer un peu, voire d'y mettre un graphique !
Messages postés
87
Date d'inscription
dimanche 16 décembre 2001
Statut
Membre
Dernière intervention
4 septembre 2004

Plus qu'a faire un joli graphique et ce sera chouette ...
Afficher les 7 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.