[Outils] Comment transformer du vieux code VB en .Net ?

**linux** · 16/02/2006, 12h06

Bonjour, on me transmet des sources vb
des commes on en fait plus.....
mais ces sources sont ne sont pas dans un projet visual basic 6 ou autres
on me demande de les utiliser mais je ne sais pas par ou commencer
j'ai cherché des 'transformateur' de code mais sans succès

J'ai essayé d'inclure ces sources dans une classe vb .net directement
mais ne connaissant pas vb je comprend rien aux fonctions...
help!!!!

ca ressemble à ca:

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
Dim chd$, sStop$, sStart$, outString$, altString$
Dim mCheck As Boolean
Dim mChaineIn As String
 
Private Sub do11() ' CODE 11
  sStart$ = "("  ' this is the start character
  sStop$ = ")"  ' this is the stop character
 
  chd$ = ""
  chn1 = 0
  chn2 = 0
  If mCheck Then  ' calculate check digit
  xx$ = x$
  n = Len(xx$)
  j = 1
  For i = n To 1 Step -1
      Y$ = Mid$(xx$, i, 1)
      If Y$ <> "-" And (Y$ < "0" Or Y$ > "9") Then
          outString$ = "Error in code"
          Exit Sub
          End If
      If Y$ = "-" Then z = 10 Else z = Asc(Y$) - 48 '  value of character
      chn1 = chn1 + j * z
      j = j + 1
      If j > 10 Then j = 1
      Next i
  t = chn1 Mod 11
  If t < 10 Then
      chd$ = chd$ + Chr$(t + 48) ' convert to ASCII character 0-9
      Else
      chd$ = chd$ + "-"
      End If
  If (n > 10) Then
      xx$ = xx$ + chd$ ' the first check digit is included in the calculation of the second
      j = 1
      For i = n + 1 To 1 Step -1
          Y$ = Mid$(xx$, i, 1)
          If Y$ = "-" Then z = 10 Else z = Asc(Y$) - 48 '  value of character
          chn2 = chn2 + j * z
          j = j + 1
          If j > 9 Then j = 1
          Next i
      t = chn2 Mod 11
      If t < 10 Then
          chd$ = chd$ + Chr$(t + 48) ' convert to ASCII character 0-9
          Else
          chd$ = chd$ + "-"
          End If
      End If
  End If
 
  outString$ = sStart$ + x$ + chd$ + sStop$   ' this is the string to output
 
End Sub

**neguib** · 16/02/2006, 16h00

Effectivement çà pue

typage à la bonne franquette, commentaires ridicules, optimisation bancale. En dehors d'un contexte d'application, je ne vois aucun intérêt de cette procedure en elle même pour manipulation de chaines de caractère.
Il faudrait que tu precises ton besoin réel. A ma connaissance il n'y a pas de migration 'naturelle' du VB vers VB.Net (ou pourquoi pas en C#). Bien souvent tu ne peux echapper (et c'est tant mieux) à une reimplementation complète. Mais pour celà il faudrait que tu connaisses au moins le cahier des charges initial afin de concevoir la nouvelles librairie de classes.

**jab** · 16/02/2006, 16h26

Il me sembl qu Microsoft avait créé un utilitaire d'assistance pour le portage mais je n'en suis pas sur. D'autre part, je pense qu'il est franchement préférable de repartir sur des bases saines.

Passer de procédural à orienté objet en conservant le programme au plus prêt me semble très moyen comme idée.

**linux** · 16/02/2006, 16h36

Yep c'est du code bien dobé
mais ce code je dois l'utiliser tel quel...
ce code ne mérite pas de creation de class ou autre fantaisie Objet...
il ne sera appelé qu'une suele fois pour générer un code barre...

Mais tel quel je n'y comprend pas grand chose....

**neguib** · 16/02/2006, 19h13

Envoyé par linux

...
ce code ne mérite pas de creation de class ou autre fantaisie Objet....

euh là tu pousses un peu linux
Personne ne t'as dit que le programme VB dont tu disposes, c'est de la daube. Par contre ton portage le seras necessairement. Si tu ne veux pas de 'fantaisie objet' pourquoi faire ton portage

qui est fantaisiste sur le coup

Donc comprend bien le raisonnement de jab, si tu veux que ton application garde ses qualités de fonctionnalités, ne modifie pas les dlls VB6 en reference dans l'appli, mais bien le code du soft qui manage l'ensemble.

**linux** · 17/02/2006, 09h35

Si j'avais ces dll cela serait merveilleux mais
n'aillant que les sources non compilées et visual studio 2003 sous la main je ne vois pas comment
a partir de ces sources crée une dll autrement qu'en l'incluant les sources dans un projet .net
D'ou ma recherche de parseur vb vers du .net....

**del-dongo** · 17/02/2006, 09h43

heu je ne comprends pas tout, tu n'as que le code de cette foction vb6? pourquoi essayer de la réécrire...? Pourquoi ne crées tu pas une dll vb6 à partir de ce code, et tu l'utilises dans ton assemblie .Net...? non?

**abelman** · 17/02/2006, 09h56

Déjà tu t'appelles linux et tu fais du vb ... :p
Bon sans rire. Si tu mets ta fonction tel quel dans un module VB.NET ça devrait marcher.

**linux** · 17/02/2006, 09h58

En fait c'est que ce code fait à peu près 1000 lignes
avec des vieilles fonctions VB que je ne connais pas...
de plus pour faire une dll dites moi si je me trompe... mais
avec ce type de code il me faudrait le visual studio pour visual basic N°5
car dans le V.S. 2003 j'ai pas trouvé comment compilé ce code
sans le refaire en entier....