Ma formule est elle louche ?

Code:

  x%=1
  While x%=NJ%+1
      y%=0
      repeat
        x%=x%+1
        y%=y%+1
        Grid_write 12,1,x%,J$(y%)
        If x% =Nj%+1 then exit_repeat
      until y%=7
      if x% = NJ%+1 Then Exit_While
  End_While

ton if x% = NJ%+1 Then Exit_While ne sert à rien puisque tu as la condition de sortie dans ton While
sauf que ta condition de sortie n'est pas bonne si j'ai bien compris ton code. Tu devrais avoir While x% < NJ%+1

Ou alors tu remplaces ta boucle while par une repeat-until...


EDIT :si je comprend bien ce que tu veux faire, c'est pas plus simple d'écrire ceci ?

Code:

FOR joueur%=0 TO NbJoueurs%
  GRID_WRITE 12,1,joueur%+1,J$(joueur%)
NEXT joueur%

Je me disais zaussi...

Merci les gars ! je commençais à tourner en rond avec mes boucles...

@ Nardo26,

J'en profite tant que tu es en ligne

Il me semble que tu avais une formule pour centrer un texte dans une cellule de Grid ...?


Je te mets le dossier sur mon webdav "PlaningEcurie" il faut lancer à partir de "main"

la formule plein de boucles c'est pour inscrire les noms des jours en entête des colonnes..

ygeronimi a écrit:

@ Nardo26,

J'en profite tant que tu es en ligne

Il me semble que tu avais une formule pour centrer un texte dans une cellule de Grid ...?

Non c'est pas de moi...
mais si tu connais la longueur maxi de J$() tu dois pouvoir rajouter les espaces qui manquent...

Code:

IF LEN(J$(x%)) < LongMax%
  GRID_WRITE 12,1,x%,  STRING$(INT((LongMax%-LEN(J$(x%))/2)," ")+J$(x%)
ELSE
  GRID_WRITE 12,1,x%, J$(x%)
END_IF

sinon, regarde au-dessus (j'ai édité...)

Merci pour le rafraichissement de mémoire

J'ai édité aussi

en fait j'ai une boucle de 7 items différents qui revient toute les 7 colonnes, le mieux c'est que tu prennes sur le webdav et que tu visualises
c'est pour avoir les noms des jours LMMJVSD en entête de colonne sur une periode de un an en commençant par le 01/01/xxxx

Il m'a déjà fallu calculer si l'année est bissextile ou pas, le nom du jours pour le 01/01 puis partir de la case (1:2) bref ...je ne suis pas au bout
et çà s'est juste pour l'initialisation du Grid, après c'est plus simple avec les dernières commandes de Jack ( Grid_Save & Grid_Load )

Pour le nom du jour, tu as cette formule:

Code:

' Mike Keith in Journal of Recreational Mathematics (vol.22, n°4, 1990 p.80)
dim month,day,year, i,day$(7)
data "Dimanche","Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi"
 
' German :
' data "Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samsag"
' English:
' data "Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"
 
for i = 0 to 6 : read day$(i) : next i
day = 1 : month = 3 : year = 2000
 
i = year
if month < 3 then i = i - 1
i = int((23*month)/9)+day+4+year+int(i/4)-int(i/100)+int(i/400)
if month >= 3 then i = i - 2
i = i - (int(i/7)*7)
 
print day$(i)

Pour trouver le nom du jour du 01/01 j'ai repris un module que Klaus avait mis en ligne et qui fonctionne très bien et
pour l'année bissextile j'ai repris une formule sur la base de calcul excel qui comporte des erreur mais la prochaine se produira d'ici
2 ou 3 siècles...

...je pense que je n'en aurai plus besoin