Boucle: Répéter un certain nombre (VB)
Résolu/Fermé
A voir également:
- Vba répéter une action x fois
- Le fichier contient un programme écrit en python. le programme construit un mot secret mais il ne l'affiche pas. modifiez ce programme afin que à chaque itération de la boucle : la variable a augmente de 2 la variable b diminue de 1 ajoutez une instruction pour faire afficher le mot secret construit. quel est ce mot secret ? ✓ - Forum Python
- Mon pc s'allume et s'éteint en boucle ✓ - Forum Matériel & Système
- Samsung a51 redémarre en boucle - Forum Mobile
- Redmi note 8 s'allume et s'éteint en boucle - Forum Xiaomi
- Ipad s'allume et s'éteint en boucle - Forum iPad
11 réponses
PPBoyington
Messages postés
2007
Date d'inscription
mercredi 21 novembre 2007
Statut
Membre
Dernière intervention
22 mai 2012
402
25 déc. 2007 à 07:18
25 déc. 2007 à 07:18
je ne connais pas le VB mais String c'est chaine et pour faire des additions il vaut mieux un nombre
PPBoyington
Messages postés
2007
Date d'inscription
mercredi 21 novembre 2007
Statut
Membre
Dernière intervention
22 mai 2012
402
25 déc. 2007 à 00:12
25 déc. 2007 à 00:12
A la place de 3 tu dois mettre une opération qui va devenir fausse...comme while (X<10) et dans ta boucle tu met X=X+1 donc si X demarre a 0 au bout de 11 fois il sera superieur a 10 la condition dans le While sera fausse, la boucle sera arretée.
Utilisateur anonyme
25 déc. 2007 à 01:34
25 déc. 2007 à 01:34
Donc, j'ai fait comme ceci:
Dim x As String = 0
While(x < 3)
x = x + 1
msgbox"test", vbCritical, "Erreur"
End While
Mais ça ne marche pas... (ça devrait logiquement marcher mais non...)
En fait, c'est pas pour faire un message, mais un mailer.
Et je donne la possibilité d'envoyer plusieurs mails.
Donc, comment je m'en sors?
Dim x As String = 0
While(x < 3)
x = x + 1
msgbox"test", vbCritical, "Erreur"
End While
Mais ça ne marche pas... (ça devrait logiquement marcher mais non...)
En fait, c'est pas pour faire un message, mais un mailer.
Et je donne la possibilité d'envoyer plusieurs mails.
Donc, comment je m'en sors?
cette boucle ne veut pas tourner la valeur pourquoi ?
Do
console.WriteLine("Entrer le numero de nif")
bool=false
chef1.nifo2=console.ReadLine()
If chef1.nifo2<>chef.nifo2 Then
bool=true
Else
If chef1.nifo2=chef.nifo2 Then
console.WriteLine("nif exite deja")
bool=false
End If
End if
loop while bool=true
Do
console.WriteLine("Entrer le numero de nif")
bool=false
chef1.nifo2=console.ReadLine()
If chef1.nifo2<>chef.nifo2 Then
bool=true
Else
If chef1.nifo2=chef.nifo2 Then
console.WriteLine("nif exite deja")
bool=false
End If
End if
loop while bool=true
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
PPBoyington
Messages postés
2007
Date d'inscription
mercredi 21 novembre 2007
Statut
Membre
Dernière intervention
22 mai 2012
402
25 déc. 2007 à 07:18
25 déc. 2007 à 07:18
je ne connais pas le VB mais String c'est chaine et pour faire des additions il vaut mieux un nombre
Essayez ça :
Private Sub Form_Load()
Dim i%, NombreDefois
i% = 0: NombreDefois = 10 'par exemple
Do Until i% > NombreDefois 'utilser Do plutôt que While
MsgBox (" Ce que vous voulez")
i% = i% + 1
Loop
End 'Arrêt ou Suite de votre programme
End Sub
Private Sub Form_Load()
Dim i%, NombreDefois
i% = 0: NombreDefois = 10 'par exemple
Do Until i% > NombreDefois 'utilser Do plutôt que While
MsgBox (" Ce que vous voulez")
i% = i% + 1
Loop
End 'Arrêt ou Suite de votre programme
End Sub
Utilisateur anonyme
26 déc. 2007 à 22:09
26 déc. 2007 à 22:09
Oui, mais à part les strings, comme chaîne de nombre, y'a quoi? (Je sais que tu te connais pas en VB, mais il y a des points communs entre les langages)
PPBoyington
Messages postés
2007
Date d'inscription
mercredi 21 novembre 2007
Statut
Membre
Dernière intervention
22 mai 2012
402
26 déc. 2007 à 22:16
26 déc. 2007 à 22:16
integer,decimal...les connaisseurs de VB dites lui comment definir une variable NUMERIQUE...
et tant qu'a faire le bon vieux:
For I=1 to 10
msgbox"test", vbCritical, "Erreur"
next I
il ne marcherait pas en VB ? Parce que tu n'as pas besoin d'une condition logique si tu sais combien de fois tu veux faire tourner ta boucle dès le départ.
et tant qu'a faire le bon vieux:
For I=1 to 10
msgbox"test", vbCritical, "Erreur"
next I
il ne marcherait pas en VB ? Parce que tu n'as pas besoin d'une condition logique si tu sais combien de fois tu veux faire tourner ta boucle dès le départ.
PPBoyington
Messages postés
2007
Date d'inscription
mercredi 21 novembre 2007
Statut
Membre
Dernière intervention
22 mai 2012
402
26 déc. 2007 à 23:26
26 déc. 2007 à 23:26
https://www.commentcamarche.net/contents/1185-vbscript-les-structures-conditionnelles
Tu regarde ici, le FOR NEXT est l'instruction qu'il te faut.
Si tu tapes ca :
For I=1 to 10
msgbox"test", vbCritical, "Erreur"
next I
Tu dois avoir 10 fois ton message d'erreur.
Tu regarde ici, le FOR NEXT est l'instruction qu'il te faut.
Si tu tapes ca :
For I=1 to 10
msgbox"test", vbCritical, "Erreur"
next I
Tu dois avoir 10 fois ton message d'erreur.
Utilisateur anonyme
27 déc. 2007 à 20:35
27 déc. 2007 à 20:35
Ouais, maintenant ça marche!
Il fallait tout simplement mettre:
Mext
et non:
Next I
Maintenant, la boucle se fait le nombre de fois demandé!
Merci
Il fallait tout simplement mettre:
Mext
et non:
Next I
Maintenant, la boucle se fait le nombre de fois demandé!
Merci
Zakapuce
Messages postés
64
Date d'inscription
mercredi 2 janvier 2008
Statut
Membre
Dernière intervention
5 août 2011
7
13 févr. 2008 à 19:18
13 févr. 2008 à 19:18
whouaa c'est vrai que tu t'y connais toi en msgbox ... je suis impressionné ... respect ...
Pour info
Pour info
Mextn'est pas du VB, une boucle
Forest toujours suivi d'un
NEXTtout comme While ... Wend et Do ... Loop.