Impossible d'utiliser For..Next avec un step en variable

[falsam]

Je viens de découvrir qu'on ne pouvait pas faire ceci

Code : Tout sélectionner

sp = 4

For i = 1 To 40 Step sp
Next

[GallyHC]

bonjour,

Oui et cela a toujours été avec PB et je pense l'avoir signaler une fois, donc la seul façon de faire est :

Code : Tout sélectionner

sp = 4

For i = 1 To 40 Step 1
  Debug i
  i + (sp - 1)
Next

Perso, je trouvais cela pas terrible surtout qu'avec VB6 et VB.net cela ne posé aucun problème et venant de ce langage j'ai eu du mal au départ.

Cordialement,
GallyHC

[SPH]

Je viens de découvrir qu'on ne pouvait pas faire ceci

Code : Tout sélectionner

sp = 4

For i = 1 To 40 Step sp
Next

Ca fait un million d'annees qu'on ne peux pas faire ca

[nico]

Oui mais comme le montre GallyHC, ça n'as jamais constitué un problème non plus.

[falsam]

Oui mais comme le montre GallyHC, ça n'as jamais constitué un problème non plus.

Tout à fait d'accord. Ce n'est pas un obstacle.

[SPH]

Oui mais comme le montre GallyHC, ça n'as jamais constitué un problème non plus.

Tout à fait d'accord. Ce n'est pas un obstacle.

Oui, et il y a meme plusieurs facon de contourner le probleme

[falsam]

Oui, et il y a meme plusieurs facon de contourner le probleme

Au moins un code peut être ?

Petite remarque, mon souhait n'était pas de faire varier le pas durant l’exécution de la boucle mais de l'initialiser avant son exécution

[SPH]

Un code demain car la : zolpidem of love

[falsam]

zolpidem of love

Bonne nuit dans ce cas

Code : Tout sélectionner

sp = 4

For i = 1 To 40
  Debug i
  i + sp - 1
Next

[falsam]

Une autre solution avec l'option Step 0

Code : Tout sélectionner

sp = 4

For i = 1 To 40 Step 0
  Debug i
  i + sp
Next

[kernadec]

bonjour
De la même manière, j'utilise une boucle "Repeat Until" dans le code de madalas3d avec une incrémentation décimale et variable
pour pouvoir dessiner des polygones dont la corde est un nombre décimal! : exemple 360 / 7 = 51.42857143

Cordialement

[PAPIPP]

Bonjour à tous

Comme cela avec Double .d 8 octets valeur illimitée.

Code : Tout sélectionner

Procedure.d ford(debd.d,find.d,pasd.d)
  Protected Id.d=debd
  While  id <= find 
    
    ;     :Placez ici vos instructions
    
    Debug id
    id+pasd
  Wend  
EndProcedure
ford (1,40,4)
ford (#PI,30*#PI ,3.4)

A+

[Kwai chang caine]

Je viens de découvrir qu'on ne pouvait pas faire ceci

c'est vrai on en a souvent parlé.
Ca fait partie des vieilles requetes comme le gosub dans une procedure et dont certaines ont ete ajoute depuis, comme le retour a la ligne

Cool le step 0… j'y aurait pas pensé

[PAPIPP]

Suite de l"étude précédente.

avec les boucles for nous avons 4 cas à tester

For i=0 To 40 Step 2
Debug i
Next
Debug "fin For i=0 To 40 Step 2"
For i=10 To 0 Step 2
Debug i
Next
Debug "fin i=10 To 0 Step 2"

For i=0 To 40 Step -2
Debug i
Next
Debug "fin For i=0 To 40 Step -2"
For i=10 To 0 Step -2
Debug i
Next
Debug "fin i=10 To 0 Step -2"

Deux types de boucles déroulent normalement en fonction du début de la fin et du pas

on peut réaliser la meme chose avec la procédure en .d

Code : Tout sélectionner

Procedure inst_ford(id.d)
  
  ; :Placez ici vos instructions
  
  Debug id 
EndProcedure

Procedure.d ford(debd.d,find.d,pasd.d)
  Protected Id.d=debd
  If id >=find And pasd<0
    While  id >= find 
      inst_ford(id)
      id+pasd
    Wend  
    Debug "fin id >= find "
  ElseIf  id <= find  And pasd>0
    While  id <= find 
      inst_ford(id)
      id+pasd
    Wend 
    Debug "fin id <= find "
    
  EndIf
  Debug "**************"
EndProcedure
ford (1,40,4)

ford (#PI,30*#PI ,3.4)
ford (#PI,-30*#PI,-3.4)
;les instructions suivantes avec debut <= fin et pas négatif (1)  ou  debut >= fin et pas positif  ne seront pas exécutées boucle proche de l'infini
ford (#PI,-30*#PI,3.4)
ford (#PI,30*#PI,-3.4)

A+

[MLD]

Salut a tous.
Mais comme ceci, c'est OK avec une constante ?

Code : Tout sélectionner

#sp = 4

For i = 1 To 40 Step #sp
  Debug i
Next

La solution avec step 0 est super.

Ou sans step avec i + sp-1
En fait le step n'accepte que des constantes ?? Dommage!