VB6 ou VB5 telle est ma question

Version imprimable

21/10/2012, 18h19
mikel57

VB6 ou VB5 telle est ma question

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)
21/10/2012, 20h30
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
24/10/2012, 05h55
mikel57

VB6 ou VB5 ...

Merci 'l'autodidacte', cela fonctionne parfaitement

VB6 et VB5

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:

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

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:

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

27/10/2012, 05h52
mikel57

VB6 ou VB5

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