Discussion :

[youness78]

Bonsoir je dois réécrire une application VB6 en Java et je bloque sur ce module vb:

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
 
Sub CalculPend()
FrmConf.Hide
If bon = "OK" Then
    RFcSup = HNewRelev
    GoTo NouveauRelevement
End If
 
Passage = 0
NePlusOptimiser = False
 
Initialisation:
        {...}
 
Transfert:
        {...}
 
FlechesDuFilDeContact:
        {...}
 
        If <Condition> Then
                                toto = True: GoTo FlechesDuFilDeContact
                        Else
                                toto = False
                        End If
 
        NouveauRelevement:
        {...}
 
        If tata = 1 Then
                GoTo suite
        Else
                GoTo Initialisation
        End If
 
suite:
{...}
 
CalculReactionRA:
{...}
CalculFlechesPorteur;
 
if <condition> then
    (...)
    GoTo Transfert
End If
 
Sub CalculFlechesPorteur()
 
....

J'ai essayé de transposer les goto en Java en utilisant la structure Break/Continue sans succès :

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
 
static void CalculPend() throws Exception
  {
    ...
    if <condition>
    {
      ...
      continue NouveauRelevement;
    }
 
    Passage = 0;
    NePlusOptimiser = false;
 
    ...
 
    Initialisation:
    {...}
 
    ....
 
    FlechesDuFilDeContact:
    ...
         NouveauRelevement:
         {...} => Eclipse m'indique comme erreur : "Unreachable code"
         ....

Si quelqu'un peut me débloquer je lui en serais très redevable merci

PS : je débute en VB et pourtant c'est d'après moi le seul point bloquant de mon portage

[Delbeke]

Je pense que tu devrais commencer par revoir ton code vb6 pour éviter tout Goto. Son utilisation à outrance tend à rendre les programmes illisibles et peu portable. La ou il est quasi incontournable c'est dans le cas des traitements d'erreur.
Exemple :

Code :

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

1
2
3
4
5
6
7
8
FlechesDuFilDeContact:
        {...}
 
        If <Condition> Then
                                toto = True: GoTo FlechesDuFilDeContact
                        Else
                                toto = False
                        End If

pourrait être ré ecrit en

Code :

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

1
2
3
  Do While <Condition>
     {...}
  Loop

[youness78]

J'ai déjà tenté une solution proposée dans un autre post en utilisant le break label :

Code :

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

1
2
3
4
5
6
7
8
9
 
          if( Variable.ErreurIrrecuperable == 1 )
          {
            break suite;
          }
          else
          {
            break Initialisation;
          }

A la compilation Eclipse me dit :

The label ... is missing

Et pourtant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
suite: 
        if (condition) 
       {
            if (condition)
            {
                 ...
            } 
            else
            {
                 ...
            }
        }

[iclic]

Bonjour,
Pourtant Delbeke a été clair

Je pense que tu devrais commencer par revoir ton code vb6 pour éviter tout Goto...

Déjà ici encore un goto à éviter

Code :

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

1
2
3
4
5
6
7
8
9
 
       If tata = 1 Then
                GoTo suite
        Else
                GoTo Initialisation
        End If
 
suite:
{...}

pourrait devenir

Code :

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

1
2
3
4
5
6
7
 
       If tata<> 1 Then
                 Initialisation  'procédure
       End If
 
suite:
{...}