Discussion :

[sef313]

Bonjour, voila je suis actuellement en stage dans une entreprise et celle-ci me demande de recupere des données via un programme vb et de les retranscrire en graphique 3D à l'aide de chartdirector.
Mon programme est pour l'instant divisé en 2 form une qui recupere les données en plusieurs messages et le second (chartdirector) qui fait les graphiques ( pour l'instant les données de mes graphiques sont inscrite manuellement) et j'aimerai donc trouver comment faire que le generateur de graphique cherche les données dans mon premier form. Si quelqu'un a une idée je suis preneur.

donnée chartdirector =

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Dim dataX()
   dataX = Array(20, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29, 29)
    Dim dataY()
    dataY = Array(69, 72, 75, 94, 97, 106, 118, 128, 140, 149, 162, 171, 184, 193, 202, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 97, 109, 118, 131, 140, 149, 162, 174, 184, 196, 202, 215, 224, 236, 249, 258, 267, 280, 289, 298, 314, 323, 332, 345, 354, 366, 376, 385, 397, 407, 416, 428, 438, 447, 459, 472, 481, 494, 503, 512, 525, 537, 546, 556, 568, 577, 590, 599, 611, 621, 633, 642, 652, 664, 673, 686, 695, 704, 717, 729, 739, 748, 760, 770, 779, 791, 804, 813, 822, 832, 844, 856, 866, 875, 887, 900, 909, 921, 931, 940, 952, 965, 974, 983, 990, 993)
    Dim dataZ()
    dataZ = Array(83, 87, 86, 85, 84, 83, 83, 82, 81, 81, 81, 80, 79, 78, 78, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 67, 76, 81, 81, 78, 76, 74, 89, 89, 83, 78, 75, 75, 74, 73, 73, 74, 75, 74, 73, 73, 73, 73, 73, 73, 74, 75, 75, 75, 74, 74, 75, 75, 75, 76, 75, 76, 77, 78, 79, 81, 82, 82, 82, 82, 82, 83, 83, 83, 83, 83, 83, 83, 82, 81, 81, 81, 81, 81, 81, 81, 81, 81, 81, 81, 81, 82, 81, 81, 81, 81, 81, 80, 79, 80, 80, 80, 79, 79, 79, 80, 80, 80, 81, 83, 84)

et mon premier form me renvoi les données a l'aide de =

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Rcp_ifo_Bob(No_Msg As Integer)
Dim I As Integer
 
 
 
    Dim M102 As M102
     Status = VBSATMSG_GETMSG(Frm_Principale.LIA_RVT_3D.hRPCNoyau, _
    Frm_Principale.LIA_RVT_3D.NumLink, M102, Len(M102))
 
 
    For I = 1 To M102.Nb_trav
            Sav_datas(I + nb_trav_recu) = M102.datas(I)
    Next I
    nb_trav_recu = nb_trav_recu + M102.Nb_trav
 
    If (No_Msg = 103) Then
 
        MsgBox ("reception du message 103")
    End If
 
 
 
End Sub

Merci d'avance et bon début de journée a vous

[Delbeke]

Si l'on definit une varaible en mode Public dans la section General/Declartation d'une feuille, il devient possible d'accéder à cette variable depuis n'importe qu'elle autre feuille

MaValeur = NomFeuille.NomVariable

[sef313]

Pour commencer merci de porter interet a mon post si rapidement.
Donc le premier pas serait de declarer la reception des données en public?
Pour tout avouer mon projet est vachement complex je passe par plusieurs programme et langage tel que le fortran .Pour rendre mopn projet plus "facile" a comprendre voila :

Pour clarifier : je traite des bobines d'acier (variable = longeur , largeur, épaisseur), je recupere la liste des bobines sur un calculateur (vax) à l'aide du langage fortran, mon premier programme se connecte au calculateur converti les données etc. Ensuite j'ai créer une programme vb me renvoyant la liste de ses bobines et en cliquant sur une bobine, il me renvoit des messages contenant toutes les données a utiliser ( pour l'instant mon programme recupere les données et les sauvegarde en mémoire tampon je ne peux pas les voir) et j'aimerai qu'en cliquant sur la bobine sa m'ouvre mon deuxieme form qui me tracerai mon graph en 3D. Il me faudrait juste trouver comment faire le lien entre les 2 form et que le deuxieme form recuper les données de la bobine automatiquement.


Désolé d'embrouiller l'esprit si tot dans la matinée. Merci

[Delbeke]

D'après ce que je comprends, ce n'est pas à la feuille secondaire d'aller chercher les données dans la feuille primaire, mais l'inverse. La feuille primaire donne ses données à la secondaire
Je te propose de creer une fonction publique dans ta form secondaire (Disons qu'elle portera le nom Form2) qui sera appelée par la feuille primaire (Disons Form1). Je pense à une fonction car elle poura renvoyer un true/false pour indiquer que tout s'est bien passé ou pas.
Donc dans Form2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Function SetData(DataX as Variant,DataY as Variant,DataZ as Variant) as Boolean
   Dim Ok as Boolean
   'ici tu as les trois tableaux te permettant de remplir le composant graph
   If Ok then
     SetData = True
   Else
    SetData = False
  End If
End Function

Dans ta feuille Form1, quand tu as besoin d'afficher ton graph

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
....
    If Form2.SetData(TableX,TableY,TableZ) then
       MsgBox "Cà a Marché"
    Else
       MsgBox "Cà n'a pas marché"
   End If
   Form2.Show vbModal   
   Unload Form2
   Set Form2 = Nothing
...

[sef313]

Merci de ton aide, pour l'instant sa m'affiche la msg bos = sa n'as pas marché
DOnc je fait ma pause midi et je re pour etudier ta proposition en détail encore merci a toute et bonne ap au passage

[sef313]

ta fonction appelle mon frame n°2 alors que mon frame n°2 appelle lui un cls ( celui qui genere le graphique et dans lequel il y a tout les parametres des variable x,y,z) doit etre pour sa que cela ne marche pas.
Il faudrait pour faire bien que je te montre mon programme en entier mais cela est impossible via le forum je pense