Valeur et variation du cac40 en temps réèl.
Soyez le premier à donner votre avis sur cette source.
Vue 8 174 fois - Téléchargée 863 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.
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
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
- Cac 40 temps reel
- Cac 40 en temps reel - Meilleures réponses
- Cac40 temps réel - Meilleures réponses
- Cac 40 temps réel ✓ - Forum - PHP
- Heure en temps reel - Guide
- Afficher heure javascript temps réel - Guide
- Heure en temps réel dans un StatusStrip ✓ - Forum - Visual Basic
- 3d temps reel - Codes sources - Visual Basic / VB.NET (Graphique)
quel logiciel faut-il se procurer pour lire ce programme?
Merci,
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
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
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 !
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.