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

Soyez le premier à donner votre avis sur cette source.

Vue 8 389 fois - Téléchargée 883 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
jdolls Messages postés 4 Date d'inscription mercredi 13 octobre 2010 Statut Membre Dernière intervention 14 novembre 2010
15 oct. 2010 à 11:39
bonjour,

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

Merci,
sacotte Messages postés 34 Date d'inscription dimanche 1 décembre 2002 Statut Membre Dernière intervention 9 janvier 2010
4 janv. 2009 à 20:58
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
absolute13 Messages postés 2 Date d'inscription jeudi 4 novembre 2004 Statut Membre Dernière intervention 7 janvier 2009
4 nov. 2004 à 01:50
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
hhhdaigre Messages postés 9 Date d'inscription dimanche 23 mars 2003 Statut Membre Dernière intervention 17 septembre 2004
10 mai 2003 à 13:48
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 !
cs_Dino Messages postés 87 Date d'inscription dimanche 16 décembre 2001 Statut Membre Dernière intervention 4 septembre 2004
28 févr. 2003 à 22:47
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.