Comment Eviter au mieux les GoTo ?

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:

---

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.

Salut,
Dans ton cas il suffit juste de :

Code:

---

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

---

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

merci ;)

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...

bonjour,

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

Code:

---

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:

---

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

---

Pièce jointe 315205

Ok Merci pour les Infos

:mrgreen:

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.

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é!

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

Citation:

---

Envoyé par didpoy

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!