Compréhension de code

Question

Bonjour &#224; tous,

je travaille actuellement sur un projet et je dois retravailler un morceau de code.seulement ya une ligne que je narrive pas a comprendre (je d&#233;bute en VB) 

Voici la ligne qui me pose pb :

eda_err = eda_get_one_float(Node, Tagname, Field, FValue)

Si quelqu'un sait &#224; quoi sert cette ligne........

Merci d'avance.++

Gobillot · Answer

c'est l'appel d'une fonction qui concerne un Treeview apparemment,
mais faudrait mettre le code de la fonction.

Daniel

damiendu56 · Answer

ok . voila l'ensemble du code (g mis les lignes que je ne comprends pas en rouge)  :

    Node =  "FIX"
    Field = "F"
    Tagname = "INDICATEUR"
    eda_err = eda_get_one_float(Node, Tagname, Field, FValue)
    IndicateurHC.Text = FiltrageChaine(Str$(FValue))
    DoEvents

 La fonction : 

Function FiltrageChaine(ChaineDepart As String) As String


    Dim tmp As String
    Dim i As Integer
    
    On Error GoTo Erreur
    
    tmp  = ""
    For i = 1 To Len(ChaineDepart)
        If Mid$(ChaineDepart, i, 1) <> " " Then tmp = tmp & Mid$(ChaineDepart, i, 1)
    Next i


    FiltrageChaine = tmp
    
    Exit Function
    
Erreur:
    FiltrageChaine = ChaineDepart
    
End Function

damiendu56 · Answer

et concernant la declaration de la fonction il y a juste ca :

Declare Function eda_get_one_float% Lib "vdba.dll" (ByVal n$, ByVal t$, ByVal f$, V!)

Je sui pom&#233; l&#224;, SOS

Gobillot · Answer

c'est une fonction externe "vdba.dll"
&#233;tant donn&#233; que j'ai pas vba, je connais pas.
tout ce que je peux dire c'est que c'est fait pour aller une valeur r&#233;elle "V!", en fonction de trois param&#232;tres Node, Field et Tagname
cette fonction doit renvoyer un Integer comme le laisse sugg&#233;rer le % qui doit surement &#234;tre un code d'erreur:

&#231;a devrait &#234;tre &#233;quivalent &#224; &#231;a:

Declare Function eda_get_one_float Lib "vdba.dll" (ByVal n$, ByVal t$, ByVal f$, V!) As Integer

donc la valeur re&#231;ue (si pas d'erreur) qui est ici FValue doit &#234;tre d&#233;finie en r&#233;elle (Sigle ou double).
ensuite elle est convertie en cha&#238;ne avec Str$() ce qui a pour d&#233;savantage de mettre un espace devant, d'o&#249; l'utilit&#233; de FiltrageChaine.
mais est-ce vraiment utile puisqu'il existe CStr() qui ne met pas d'espace devant, &#224; moins qu'il y ait des espaces &#224; l'int&#233;rieur du r&#233;el, non impossible il y aurait plantage &#224; la conversion !
donc si tu peux remplace Str$() par CStr() et supprime FiltrageChaine()

tout ce que je peux te dire.

Daniel

damiendu56 · Answer

ok. je comprends d&#233;j&#224; mieu tout ca. j'ai regard&#233; pour Str$() et 
CStr() . jvai d&#233;j&#224; commenc&#233; par supprimer FiltrageChaine() comme tu l'as sugg&#233;r&#233;, ca va simplifier les choses ...

Merci pour ton aide Daniel. bonne journ&#233;e . ++

damiendu56 · Answer

FValue est bien d&#233;finie en r&#233;elle :
Global FValue As Single

Donc si g bien compris je remplace :
                  IndicateurHC.Text = FiltrageChaine(Str$(FValue))
par :
                  IndicateurHC.Text = CStr$(FValue)

et jobtiens la meme chose et ca permet de virer le FiltrageChaine

Gobillot · Answer

voila c'est &#231;a, &#231;a devrait marcher.
maintenant &#224; toi de savoir d'o&#249; provient cette donn&#233;e en Single et &#224; quoi correspondent ces crit&#232;res Node, Field et Tagname. 

Daniel

pastis51forever · Answer

doevents sert &#224; laisser la main au syst&#232;me pour executer une action ou une t&#226;che en cours en parall&#232;le de ton application.
ex: si tu mets une boucle dans ton prog qui permet d'attendre qu'une valeur passe &#224; true, utilise doevents pour permettre au syt&#232;me de continuer ses taches de fond.

do
doevents
loop until La_Valeur = true

Sans ca, aucune autre op&#233;ration parall&#232;le ne s'effectue.

Compréhension de code

8 réponses

Discussions similaires