Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 23:49:33

[CASTLE] DU NOUVEAU CHEZ CASTLE, LA NOUVELLE VERSION DE WINDSOR ET DYNAMICPROXY EST SORTIE. par tja

MICROSOFT VOUS PERMET DE TESTER ECMASCRIPT 5 (ES3.1) par FREMYCOMPANY

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

RE : VBA EXCEL, PROGRAMMATION D'UN FILTRE AVANCé : OPéRATEUR ET/OU NE FONCTIONNE PAS par fngoagouni

COMMENT FAIRE L'IMPRESSION SUR UNE IMPRIMENTE MATRICIELLE par rckdeath

QUELQU'UN POURRAIT M'AIDER à TERMINER MON PROJET ? par steeventide

RE : A PROPOS DES COMBOBOX... par liocifer

OU EST MON SSTAB par zapad

+ de logiciels à télécharger

1 465 594 membres
632 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 098 codes, 1 303 376 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

MSCHART AFFICHAGE EN TEMPS REEL

Information sur la source

Catégorie :Maths Niveau : Débutant Date de création : 10/10/2003 Date de mise à jour : 10/10/2003 21:12:52 Vu / téléchargé: 5 246 / 1 412

Auteur : jojok65

Ecrire un message privé

Note :

6,00 / 10

Commentaire sur cette source (17)

Ajouter un commentaire et/ou une note

Description

ce petit code de demonstration montre comment se servir de Mschart pour afficher des graphiques en temps reel. 7 données sont monitorees sur un graphique type ligne. j ai remplacer ici l acquisition de données par des constantes, a vous de l ameliorer suivant vos besoins. Ce code fait partie d un programme de monitoring bien plus volumineux et fonctionne sans probleme depuis maintenant 2 ans.

Source

Dim Tv1Graph(40) As Integer
Dim Tv2Graph(40) As Integer
Dim ToilGraph(40) As Integer
Dim Pv1graph(40) As Integer
Dim Pv2graph(40) As Integer
Dim Igraph(40) As Integer
Dim Ugraph(40) As Integer
Private Sub Form_Load()
Call ResetingGraph
End Sub
Private Sub Timer1_Timer()
Call next_data
End Sub
Private Sub next_data()
Dim i, ii As Integer
For i = 1 To 39 ' Avance graphique
Tv1Graph(i) = Tv1Graph(i + 1)
Tv2Graph(i) = Tv2Graph(i + 1)
ToilGraph(i) = ToilGraph(i + 1)
Pv1graph(i) = Pv1graph(i + 1)
Pv2graph(i) = Pv2graph(i + 1)
Igraph(i) = Igraph(i + 1)
Ugraph(i) = Ugraph(i + 1)
Next i
Tv1Graph(40) = 5 'valeur a afficher
Tv2Graph(40) = 10
ToilGraph(40) = 15
Pv1graph(40) = 20
Pv2graph(40) = 30
Igraph(40) = 40
Ugraph(40) = 50
With MSChart1
For ii = 1 To 40
.Row = ii
.Column = 1
.Data = Tv1Graph(ii)
.Column = 2
.Data = Tv2Graph(ii)
.Column = 3
.Data = ToilGraph(ii)
.Column = 4
.Data = Pv1graph(ii)
.Column = 5
.Data = Pv2graph(ii)
.Column = 6
.Data = Igraph(ii)
.Column = 7
.Data = Ugraph(ii)
Next ii
End With
End Sub
Private Sub ResetingGraph() 'Sous Routine effacement du chart
Dim iii, iiii As Integer
For iii = 1 To 7 ' RESETING GRAPH location points
MSChart1.Column = iii
For iiii = 1 To 40
MSChart1.Row = iiii
MSChart1.Data = 0
Next iiii
Next iii
Erase Tv1Graph ' Reseting arrays
Erase Tv2Graph
Erase ToilGraph
Erase Pv1graph
Erase Pv2graph
Erase Igraph
Erase Ugraph
MSChart1.Row = 1
End Sub

Dim Tv1Graph(40) As Integer
Dim Tv2Graph(40) As Integer
Dim ToilGraph(40) As Integer
Dim Pv1graph(40) As Integer
Dim Pv2graph(40) As Integer
Dim Igraph(40) As Integer
Dim Ugraph(40) As Integer
Private Sub Form_Load()
Call ResetingGraph
End Sub
Private Sub Timer1_Timer()
Call next_data
End Sub
Private Sub next_data()
Dim i, ii As Integer

For i = 1 To 39                  ' Avance graphique
    Tv1Graph(i) = Tv1Graph(i + 1)
    Tv2Graph(i) = Tv2Graph(i + 1)
    ToilGraph(i) = ToilGraph(i + 1)
    Pv1graph(i) = Pv1graph(i + 1)
    Pv2graph(i) = Pv2graph(i + 1)
    Igraph(i) = Igraph(i + 1)
    Ugraph(i) = Ugraph(i + 1)
Next i
       
Tv1Graph(40) = 5                'valeur a afficher
Tv2Graph(40) = 10
ToilGraph(40) = 15
Pv1graph(40) = 20
Pv2graph(40) = 30
Igraph(40) = 40
Ugraph(40) = 50
    
    With MSChart1
    
     For ii = 1 To 40
        .Row = ii
        
        .Column = 1
        .Data = Tv1Graph(ii)
     
        .Column = 2
        .Data = Tv2Graph(ii)
        
        .Column = 3
        .Data = ToilGraph(ii)
        
        .Column = 4
        .Data = Pv1graph(ii)
        
        .Column = 5
        .Data = Pv2graph(ii)
       
        .Column = 6
        .Data = Igraph(ii)
        
        .Column = 7
        .Data = Ugraph(ii)
       
        Next ii
      End With
End Sub

Private Sub ResetingGraph()         'Sous Routine effacement du chart
    Dim iii, iiii As Integer
    For iii = 1 To 7             ' RESETING GRAPH location points
     MSChart1.Column = iii
        For iiii = 1 To 40
           MSChart1.Row = iiii
          MSChart1.Data = 0
        Next iiii
    Next iii
    Erase Tv1Graph              ' Reseting arrays
    Erase Tv2Graph
    Erase ToilGraph
    Erase Pv1graph
    Erase Pv2graph
    Erase Igraph
    Erase Ugraph
  MSChart1.Row = 1
End Sub

Conclusion

pour les remerciements ( au vu du nombre de demande sur le forum...)
un petit mail sympa a jojok65@hotmail.com ... :-)

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

chart cop.frm 2 908 octets
chart cop.frx17 427 octets
chart cop.vbp 716 octets
chart cop.vbw 49 octets

Télécharger le zip

Sources de la même categorie

MINIMISATION DE FONCTIONS BOOLÉENNES par ChristophePel

EQUATION DIOPHANTIENNE DU 1ER DEGRÉ (MÉTHODE D'EULER) par apexinfo

LECTEUR DE PENSÉE .NET par Appil

MATHÉMATIQUESARAB par azelham

TABLES DE MULTIPLICATION par Caracal43

Toutes les sources de la catégorie Maths

Commentaires et avis

Commentaire de pluplu le 10/10/2003 17:41:53

c'est surement bien ton truc, mais j'ai essayé vite fait de le projeter sur un form, ajouter les deux composants et voir ce que ça dit, et là ça foire avec des erreures de dépassement et on à alors le choix entre deux soluces, soit essayé de débogué ton code soit de voire ce que tu as voulu faire et le refaire de toute pièce...
Personnellemnt j'aurai préféré un exemple clé en main.

Commentaire de jojok65 le 10/10/2003 21:07:21

je vais envoyer un zip complet, mais autrement, il y a des petits reglages a faire sur l option personaliser de mschart

Commentaire de jojok65 le 10/10/2003 21:13:45

voila le zip est ajouter
enjoy it !!

Commentaire de pluplu le 11/10/2003 10:23:21

oui c'est mieux comme cela, et c'est encore plus démonstratif si l'on met des valeurs en random par ex.

Private Sub next_data()
Dim i, ii As Integer

For i = 1 To 39                  ' Avance graphique
    Tv1Graph(i) = Tv1Graph(i + 1)
    Tv2Graph(i) = Tv2Graph(i + 1)
    ToilGraph(i) = ToilGraph(i + 1)
    Pv1graph(i) = Pv1graph(i + 1)
    Pv2graph(i) = Pv2graph(i + 1)
    Igraph(i) = Igraph(i + 1)
    Ugraph(i) = Ugraph(i + 1)
Next i

Tv1Graph(40) = Int((15 * Rnd) + 1)               'valeur a afficher
Tv2Graph(40) = Int((15 * Rnd) + 1)
ToilGraph(40) = Int((15 * Rnd) + 10)
Pv1graph(40) = 20
Pv2graph(40) = 30
Igraph(40) = 40
Ugraph(40) = 50
.................................etc etc

Commentaire de jojok65 le 11/10/2003 20:09:36

tu as raison pluplu, mais le but premier etait de montrer l avancement du graphe suivant une base de temps reglable et surtout que ca ne plante pas a la 40ieme donnéés.
ce code fait partie d un soft qui fait l aquisition de donnée en temps reel, donc, j ai supprimer les var et taper des constantes a la place en vitesse
voila
:-)
joel

Commentaire de jojok65 le 11/10/2003 23:50:48

pas d autres commentaires ?

Commentaire de PROGRAMMIX le 12/10/2003 09:45:24

Ce serait bien de pouvoir limiter voire supprimer l'effet de clignotement lors de chaque changement du graphique.

Commentaire de mpays le 13/10/2003 10:58:33

Quelqu'un connait il la solution pour éviter le clignotement du graphique ?
Je suis à la recherche de ça depuis pas mal de temps à présent ...

Commentaire de gzed le 05/07/2004 17:01:27

mpays>> tu as trouve comment supprimer le clignotement??

Commentaire de renardeau le 28/07/2004 17:23:08

j'ai fait avant de voir ceci, que je n'ai pas testé, un graph en temps réel qui ne clignotte pas...

mais je n'ai pas de problèmes comme vous le voyez clignottement

même à plus de 30 000 données (hé oui, mon problème a même été de gérer le plus de 32000 et des poussière (cf un integer)) je n'ai eu aucun problème de ce type !

j'ai un appareil, lorsque je recois une donnée je l'indique au graphe et je complète ma mschart.rowcount au fur et a mesure.

Commentaire de renardeau le 28/07/2004 17:23:23

Commentaire de PROGRAMMIX le 28/07/2004 21:08:46

>>> renardeau

Et peut-on voir ce que tu as fait ?

Parce que ce n'est pas ta source "MSChart vers BMP" qui peut nous éclairer sur la méthode à utiliser pour résoudre ce problème.

Commentaire de renardeau le 29/07/2004 10:15:03

je l'ai mis http://www.vbfrance.com/code.aspx?ID=24990

en espérant que vous la comprenniez bien

un zip suivra (pas avant 1 petit mois - vacances et bcp d'occupation) si le besoin s'en fait ressentir.

mais Programmix, je pensait que "j'ai un appareil, lorsque je recois une donnée je l'indique au graphe et je complète ma mschart.rowcount au fur et a mesure." pouvait suffire pour bien comprendre...

J'ai passé un peu plus de temps mais j'espère que cela aidera ;)

Commentaire de philochon le 22/10/2004 17:37:30

salut

est il possible d'inverser des axes X et Y, c'est a dire que la base de temps soit sur l'axe des Y et que les données soient sur l'axe des X ??

bye

Commentaire de renardeau le 22/10/2004 20:31:45

à toi à le faire lors de l'encodage....

de faire progresser les Y plutôt que les X ...

ou de le copier dans une image que tu as la grande joie de faire tourner ;)

Commentaire de PROGRAMMIX le 22/10/2004 22:01:24

>> renardeau,
à quand le zip promis pour ta source 24990 ?

Commentaire de renardeau le 16/01/2007 21:38:41

voir la modif du 31 janvier 2005