Discussion :

[mikel57]

J'ai créé un logiciel capable de résoudre les équations différentielles et de calculer les intégrales définies en VB6
J'en ai fait une copie sur CD pour le transmettre à un ami
Celui-ci ne posséde que VisualBasic5 et il n'arrive pas à ouvrir mon programme source et je souhaiterais son avis sur ce programme.

Pouvez-vous me dire s'il existe une solution pour qu'il puisse accéder à mon programme source en VB6. Sous quelle forme lui transmettre ?

merci par avance de vos réponses (si elles existent)

[l_autodidacte]

Salut;

Ton ami doit ouvrir le fichier projet (.vbp) avec un éditeur de texte, rechercher la ligne Retained=0 et la supprimer puis enregistrer les modifications et lancer le projet dans VB5

[mikel57]

Merci 'l'autodidacte', cela fonctionne parfaitement

[mikel57]

j'ai bien réussi grâce à ' l'autodidacte ' à lire une source VB6 sur VB5
mais VB5 n'arrive pas à lire ce sous-programme :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Function Y(ByVal equation As String, x) As Single
'Y permet d'évaluer l'expression littérale d'une fonction
Dim r As Object
    Set r = CreateObject("MSScriptControl.ScriptControl")
    If TypeName(r) <> "Nothing" Then
        r.Language = "VBscript"
        Y = r.Eval(Replace(equation, "X", x))
    End If
End Function

Connaissez-vous un moyen de lui apprendre à lire ?

merci par avance

[l_autodidacte]

Bonjour

VB5 ne reconnait pas la fonction Replace, du coup il y a un message d'erreur.
Pour palier à ce problème place le code suivant dans un module (.bas) :

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
Public Function Replace(sIn As String, sFind As String, _
            sReplace As Variant, Optional nStart As Long = 1, _
            Optional nCount As Long = -1, Optional bCompare As _
            VbCompareMethod = vbBinaryCompare) As String
 
          Dim nC As Long, nPos As Integer, sOut As String
          sOut = sIn
          nPos = InStr(nStart, sOut, sFind, bCompare)
          If nPos = 0 Then GoTo EndFn:
          Do
              nC = nC + 1
              sOut = Left(sOut, nPos - 1) & sReplace & _
                 Mid(sOut, nPos + Len(sFind))
              If nCount <> -1 And nC >= nCount Then Exit Do
              nPos = InStr(nStart, sOut, sFind, bCompare)
          Loop While nPos > 0
EndFn:
          Replace = sOut
End Function

[mikel57]

merci encore une fois à l'autodidacte
une fois de plus cela fonctionne correctement