en cours [Résolu]VB.NET : Eviter les répétitions de 'shell' ?

[Tituc 8]

Bonjour à tous,

 

Ne sachant pas où poster ce sujet, je le poste ici dans l'espoir qu'une personne me réponde.

Tout d'abord, c'est peut-être un besoin d'aide assez 'débile' mais je suis novice en VB.net (évitez les réponses du genre "google est ton amis !" car non, google n'a pas réponse à tout)

 

Bref, il ne s'agit pas vraiment d'un problème que je pose mais plutôt d'une idée.

 

Pour commencer, il y a quelques temps, j'ai commencé à développer un lanceur, seulement, j'ai un petit embêtement pour lancer une application avec shell. Voici une partie de mon code :

 

Dim Game = "Dofus.exe"
           If PLAY_ACCOUNT = "1" Then
               Shell(Game)
           ElseIf PLAY_ACCOUNT = "2" Then
               Shell(Game)
               Shell(Game)
           ElseIf PLAY_ACCOUNT = "3" Then
               Shell(Game)
               Shell(Game)
               Shell(Game)
           ElseIf PLAY_ACCOUNT = "4" Then
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
           ElseIf PLAY_ACCOUNT = "5" Then
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
           ElseIf PLAY_ACCOUNT = "6" Then
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
           ElseIf PLAY_ACCOUNT = "7" Then
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
           ElseIf PLAY_ACCOUNT = "8" Then
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
           ElseIf PLAY_ACCOUNT = "9" Then
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
           ElseIf PLAY_ACCOUNT = "10" Then
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
           ElseIf PLAY_ACCOUNT = "11" Then
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
           ElseIf PLAY_ACCOUNT = "12" Then
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
               Shell(Game)
           End If

 

Voici ma question :

 

Sommes-nous vraiment obligés de répéter 12 fois "Shell(Game)" pour lancer 12 fois une application ?

 

Si non, comment faire pour améliorer un peu la lisibilité ?

Si oui, ce n'est pas trop grave, merci quand même.

 

En espérant qu'une personne puisse résoudre ma 'difficulté',

Tituc

[Tituc 8]

Problème résolu.

 

Voici la façon dont j'ai procédé :

 

Dim Game, PLAY_ACCOUNT
       Game = 1
       PLAY_ACCOUNT = Config.PLAY_ACCOUNT
       Do Until Game > PLAY_ACCOUNT
           Shell("Dofus.exe")
           Game = Game + 1
       Loop

Config.PLAY_ACCOUNT = Action qui se répétera x fois

 

Voilà Voilà ! Il fallait y penser, le code revient au même, mais c'est beaucoup plus lisible et léger !

Quand on y pense, ça réduit quand même de 92 lignes à 7 lignes de code.