Commenet on fait une boucle

Résolu/Fermé
samdd2005 Messages postés 9 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 26 mai 2009 - 12 mai 2009 à 20:21
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 - 12 mai 2009 à 23:53
sil vous plait comment une fait une boucle pour une programme

6 réponses

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
12 mai 2009 à 20:31
Salut
Commence par taper "boucle" dans l'aide de VB6 et il t'expliquera comment faire
La recherche de "boucle" dans la recherche du site parmi les codes en excluant .Net donne aussi des tas d'exemples

Exemple de base :
   For r = 1 To 10
      MsgBox r
   Next r

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
3
Mayzz Messages postés 2813 Date d'inscription mardi 15 avril 2003 Statut Membre Dernière intervention 2 juin 2020 28
12 mai 2009 à 20:38
Bonjour,

Il existe plusieurs type de boucles en voici quelque une :

For/Next, Syntaxe:

Dim i As Interger
For i = 1 To 10
    [instructions...]
Next i

While/Wend, Syntaxe:

While [Expression] = [Valeur]
   [instructions...]
Wend

For/Each, sytaxe:

Dim Coll As Collection
Dim Item As String

For Each Item In Coll
   [Instruction...]
Next

Voila @+
0
samdd2005 Messages postés 9 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 26 mai 2009
12 mai 2009 à 21:01
voila le problemme:
provate sub command_click
dim i as interger
for i =1 to 100
dim EBII as double
EBII =text1.text
dim i as double
i=texte2.text
dim n
n =text3.text
dim segma as interger
segma=text10.text
²resultat EBI
²Dim EBI
EBI=(i*EBII)/n
0
samdd2005 Messages postés 9 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 26 mai 2009
12 mai 2009 à 21:02
sa ne marche pas
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mayzz Messages postés 2813 Date d'inscription mardi 15 avril 2003 Statut Membre Dernière intervention 2 juin 2020 28
12 mai 2009 à 21:11
provate sub command_click <<= ne rique pas de finctionner (Private)

dim i as interger
for i =1 to 100  <=== une boucle for doit se terminer par Next (Ou Next i dans le cas présent)
dim  EBII as double
EBII =text1.text
dim i as double <== Tu fais une double déclaration ta variable i est déja déclaré plus haut et te sert pour la boucle, change de nom de variable (y, x, ou ce que tu veux...)
i=texte2.text
dim n
n =text3.text
dim segma as interger
segma=text10.text
²resultat EBI <== Visaul basic n'est pas word, en programmation si tu te trompe d'un caractère le programme ne reconnait pas ce que tu as écrit !
²Dim EBI  <== IDEM
EBI=(i*EBII)/n

Je te conseil vivement d'aller dans la partie Tutoriels du site et de rechercher des tutoriaux pour débutant.

@+
0
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 37
12 mai 2009 à 23:53
0
Rejoignez-nous