Commenet on fait une boucle [Résolu/Fermé]

Signaler
Messages postés
9
Date d'inscription
mardi 12 mai 2009
Statut
Membre
Dernière intervention
26 mai 2009
-
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Modérateur
Dernière intervention
15 juillet 2011
-
sil vous plait comment une fait une boucle pour une programme

6 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
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)
Messages postés
2814
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
31
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 @+
Messages postés
9
Date d'inscription
mardi 12 mai 2009
Statut
Membre
Dernière intervention
26 mai 2009

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
Messages postés
9
Date d'inscription
mardi 12 mai 2009
Statut
Membre
Dernière intervention
26 mai 2009

sa ne marche pas
Messages postés
2814
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
31
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.

@+
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Modérateur
Dernière intervention
15 juillet 2011
28