Discussion :

[didpoy]

Bonjour,

J'ai consulté plusieurs tuto pour remplacer les Goto et cela semble devenir complexe à la relecture du code et peu clair pour s'y retrouver.

Comment vous articuleriez votre Code pour éviter les goto, par exemple dans le cas suivant où il y aurait un tas de test de saisies:

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
 
Private button1_click ........................
If NOM.Text = "" Then
	MsgBox("ERREUR sur le NOM")
	goto fin
End If
If PRENOM.Text = "" Then
	MsgBox("ERREUR sur le PRENOM")
	goto fin
End If
If ADRESSE.Text = "" Then
	Msgbox("ERREUR sur l'ADRESSE")
	goto fin
End If
'--------------------------- Sauvegarde -------------------------------------------
.........
.........
.........
'----------------------- Fin de Sauvegarde ---------------------------------------
fin:
end sub

Le but est d'obtenir un Code sans goto; bien sûr; mais aussi qu'il soit facilement consultable pour modifs.

Merci de vos aides à tous.

Cordialement.

[r.morel]

Salut,
Dans ton cas il suffit juste de :

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
Private button1_click 
If NOM.Text = "" Then
    MsgBox("ERREUR sur le NOM")
    Exit Sub
End If
If PRENOM.Text = "" Then
    MsgBox("ERREUR sur le PRENOM")
    Exit Sub
End If
If ADRESSE.Text = "" Then
    Msgbox("ERREUR sur l'ADRESSE")
    Exit sub
End If
'--------------------------- Sauvegarde -------------------------------------------
'...
'----------------------- Fin de Sauvegarde ---------------------------------------
End sub

[didpoy]

ok, je me compliquais l'existance avec des case, loop, etc !!

merci

[MABROUKI]

bonjour

Quand un goto passe dans les parages c'est extrêmement dangereux,il faut prononcer un Vade Retro Satanas ,se signer et avoir toujours sa cotte de maille bardée de return (semblable à exit sub) et ses variantes exit for, exit while...

[Invité]

bonjour,

désolé je pensai que nous étions en Vb.Net!

Code :

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

1
2
3
4
5
6
7
  Private Sub button1_click()
        Dim msg As String = ""
        If NOM.Text = "" Then msg = msg + "ERREUR sur le NOM" +  Environment.NewLine
        If PRENOM.Text = "" Then msg = msg + "ERREUR sur le PRENOM" +  Environment.NewLine
        If ADRESSE.Text = "" Then msg = msg = msg + "ERREUR sur l'ADRESSE" +  Environment.NewLine
        If msg <> "" Then MessageBox.Show(msg, "Erreur de saisie", MessageBoxButtons.OK, MessageBoxIcon.Error) : Return
    End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub button1_click()
       Try
            If NOM.Text = "" Then Throw New NotImplementedException("ERREUR sur le NOM")
            If PRENOM.Text = "" Then Throw New NotImplementedException("ERREUR sur le PRENOM")
            If ADRESSE.Text = "" Then Throw New NotImplementedException("ERREUR sur l'ADRESSE")
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Erreur de saisie", MessageBoxButtons.OK, MessageBoxIcon.Error) : Return
        End Try
 
 
    End Sub

[didpoy]

Ok Merci pour les Infos

[StringBuilder]

Plutôt que des Exit Sub et autres Return placés n'importe où (super simple la gestion des objets disposables dans ce cas) je préfère ici utiliser ElseIf à la place des Else suivi de If

=> Ainsi dès que le programme entre dans une condition, il n'entre pas dans les suivantes.

Ensuite, la sauvegarde doit être conditionnée par un booléen qui aura été mis par défaut à "true" et passe à "false" si on entre dans un des cas d'erreur.

[Invité]

Bonjour,

personnellement je préfère ma première proposition qui informe l'utilisateur sur tous le manques et pas m’arrêter au premier manque!

de toutes les façon ta proposition passera dans tous les ElseIf si tous les textbox sont renseigné!

[didpoy]

le problème est différent si l'on veut un message différent selon les manques !!!

[Invité]

le problème est différent si l'on veut un message différent selon les manques !!!

ce que je voulais dire c'est que de toutes les façon on parcourra tous les ElseIf si tous les textBox sons renseignés, ce qui revient à une cascade de if! si nous voulons optimiser le code c'est pas ici ou on gagnera du temps!

de plus ma première proposition donne un message différent selon les manquants mais l'utilisateur est informé de tout ce qui ne vas pas!

la deuxième génère une exception si manquant Catch ex As Exception informe l’utilisateur! les if successifs ou ElseIf dans ce cas là c'est la même chose!

Édité: Je rappel que l'idée ici est que tous les texbox soient renseignés, donc statistique nous n'avons à faire qu'a une succession de if!
Indépendamment que les.elsif complique la maintenance curative et évolutive!