Erreur 44:Boucle FOR / NEXT

bonjour a tous.
J'ai un probleme avec l'erreur 44: boucle For /Next.
je laisse mon projet tel quel pour que quelqu'un puisse me donner une solution.
le but de ce code :
j'ai un tableau DIM(1,20)que je veux alimenter avec des n° et des points.
c'est l'objet de la boucle lignes 30 a 35.
Mais erreur 44. Pourquoi expression END incorrect ?
merci d'avance pour vos reponses
[code]
error_french
rem essai 4 sur cde edit et tableau
label traitement

dim ch ,pt ,ch$
dim conc(1,20)

' ****** Initialisation des N° de chevaux et points ********
for ch = 1 to 20
conc(0,ch)= ch
next ch
for pt= 1 to 20
conc(1,pt)=0
next pt

edit 1
left 1,250 :top 1,25:height 1,25
set_focus 1
on_key_up 1,traitement

end

traitement:

' for pt= 5 to 1 step-1
ch$=text$(1)
if numeric(ch$)=1 then ch=val(ch$)
for pt = 5 to 1 step-1
conc(ch,1)=conc(ch,1)+pt
conc(ch,0)=ch
print "Cheval "+str$(conc(0,ch))+ " "+str$(conc(1,pt)+pt) +" points" :' pour verif
clear :pour effacer la valeur precedante (ch$)apres le traitement
next pt
return

Invité

Bonjour RMont,

Le problème est très simple: chaque mot-clé, quel qu'il soit, doit-être suivi d'un espace.
Voici l'erreur:

Citation :: step-1

Il faut un espace après step.

As-tu fermer la partie code avec: "[/code]", pour afficher correctement ton programme?

A propos, si Jack lit ce mémo: Je ne sais plus où trouver la liste correspondant aux N° des erreurs. Je sais qu'elle existe, je l'ai déjà vu. Merci.

merci cosmos70 pour cette reponse aussi rapide..
j'ai donc mis un espace et je n'ai plus ce message d'erreur.
par contre j'en ai un autre avec l'instruction CLEAR erreur 32 instruction inconnue line 35.
si je mets clear 1 , cela declanche une auttre erreur n°50 commande non applicable sur ce type d'ojet.
Pourtant dans le manuel utilisateur il y a bien un clearde prevus pour une cde EDIT.
j'ai fait une erreur en ligne 35 ;j'ai oublié le rem apres les :
mais cela ne change pas le probleme du clear

j'ai la liste de tout les messages d'erreur

Code:: Num Français
001 Plus d'OBJETS 3D que le Nombre Autorisé
002 Plus de IF que le Nombre Autorisé
003 Plus de ELSE que le Nombre Autorisé
004 Plus de END_IF que le Nombre Autorisé
005 Plus de END_IF que de IF
006 Plus de IF que de END_IF
007 Plus de ELSE que de IF
008 Plus de ELSE que de END_IF
009 Plus de NEXT que de FOR
010 Plus de FOR que de NEXT
011 Plus de Boucles FOR/NEXT que le Nombre Autorisé
012 Plus de END_WHILE que de WHILE
013 Plus de WHILE que de END_WHILE
014 Plus de Boucles WHILE/END_WHILE que le Nombre Autorisé
015 Plus de Boucles REPEAT/UNTIL que le Nombre Autorisé
016 Plus de UNTIL que de REPEAT
017 Plus de REPEAT que de UNTIL
018 Plus de END_SELECT que de SELECT
019 Plus de SELECT que de END_SELECT
020 Plus de Structures SELECT/END_SELECT que le Nombre Autorisé
021 Plus de CASE que le Nombre Autorisé
022 Erreur dans la Valeur après CASE
023 Deux CASE avec la Même Valeur
024 Expression Incorrecte : Erreur dans le Nombre de Paramètres
025 Il manque "="
026 Il manque "TO"
027 Nom de Variable Incorrect
028 Variable Non Déclarée (DIM)
029 Expression Arithmétique Incorrecte : +++
030 Indice de Tableau Hors Limites
031 Expression Incorrecte dans une Variable Indexant un Tableau
032 Instruction Inconnue
033 Expression Logique Incorrecte : +++
034 END_IF Correspondant Introuvable
035 Nom Déjà Défini
036 Trop de Dimensions dans un Tableau
037 Le Nom Utilisé est Réservé pour une Fonction
038 Taille de Tableau Incorrecte
039 Dépassement de la Capacité Autorisée du Tableau
040 Plus de Variables que le Nombre Autorisé
041 Boucle FOR/NEXT : la Variable Doit Etre un Entier Simple ou Réel Simple
042 Boucle FOR/NEXT : Expression START Incorrecte : +++
043 Erreur dans la Boucle FOR/NEXT
044 Boucle FOR/NEXT : Expression END Incorrecte : +++
045 Boucle FOR/NEXT : Expression STEP Incorrecte : +++
046 Expression Incorrecte dans le Numéro d'OBJET : +++
047 Numéro d'OBJET Hors Limites
048 Expression Incorrecte
049 Le Système Ne Permet Pas de Jouer un Son
050 Commande Non Applicable Pour Ce Type d'OBJET
051 L'OBJET N'existe Pas (Pas Créé)
052 Expression STRING Incorrecte : +++
053 Expression Incorrecte dans le Numéro d'OBJET 3D : +++
054 Expression Incorrecte dans le Numéro de SPRITE : +++
055 Expression Incorrecte dans le Numéro de FICHIER : +++
056 Label Non Valide
057 WAIT Doit Etre entre 1 et 30000
058 Boucle FOR/NEXT : Erreur dans la Structure
059 Pas trouvé de DATA
060 Plus aucune Donnée
061 STOP à la Ligne
062 OBJET Déjà Défini
063 La Valeur Doit Etre Comprise entre -2000 et 2000
064 Erreur dans la Structure SELECT / END_SELECT
065 Pas trouvé de END_IF Correspondant
066 Pas trouvé de END_WHILE Correspondant
067 Pas trouvé de REPEAT Correspondant
068 Label Défini Deux Fois
069 Plus de LABELS que le Nombre Autorisé
070 Label Non Déclaré (LABEL)
071 Plus de GOSUB que le Nombre Autorisé
072 La Valeur Doit Etre Comprise entre 1 et 2000
073 La Valeur Doit Etre Comprise entre 1 et 30
074 La Valeur Doit Etre Comprise entre 1 et 20
075 La Valeur Doit Etre Comprise entre 0 et 255
076 Numéro d'OBJET 3D Hors Limites
077 Numéro de SPRITE 3D Hors Limites
078 Numéro de FICHIER Hors Limites
079 Valeur Nulle ou Négative
080 Aucun SCENE3D pour Recevoir cet OBJET 3D
081 Aucune SCENE3D est Créée
082 L'OBJET 3D Existe Déjà
083 RETURN Sans GOSUB
084 FORM0 Ne Peut Pas Etre Supprimé
085 L'OBJET est une CIBLE 2D et Ne Peut Pas Etre Supprimé
086 L'OBJET est une CIBLE des COMMANDES et Ne Peut Pas Etre Supprimé
087 L'OBJET est une CIBLE des AFFICHAGES et Ne Peut Pas Etre Supprimé
088 Un OBJET Ne Peut Etre son Père
089 Impossible à Relier
090 Aucun SCENE2D pour Recevoir ce SPRITE
091 Numéro de SPRITE Déjà Défini
092 L'OBJET 3D N'existe Pas (Pas Créé)
093 Le FICHIER N'existe Pas (Pas Créé)
094 Pas de Boucle FOR / NEXT
095 Pas de Boucle WHILE / END_WHILE
096 Pas de Boucle REPEAT / UNTIL
097 Pas de Structure SELECT / END_SELECT
098 Commande Non Applicable Pour Ce Type d'OBJET 3D
099 Impossible de Charger le FICHIER
100 Un OBJECT 3D Ne Peut Etre Chainé à Lui-Même
102 Impossible De Créer le Répertoire
103 Numéro de FICHIER Pas Utilisé Pour la Lecture
104 L'OBJET 3D Ne Peut Etre Supprimé: Il a Un ou Plusieurs Fils
105 Impossible de Sauvegarder dans le FICHIER
106 Pas trouvé de WHILE Correspondant
107 Excel Non Démarré
108 Numéro de FICHIER Non Défini
109 Numéro de FICHIER Pas Utilisé Pour l'Ecriture
110 Excel Déjà Démarré
111 Impossible De Démarrer Excel
112 Aucun FICHIER Ouvert
113 Le FICHIER Existe Déjà
114 Le SPRITE N'existe Pas (Pas Créé)
115 Le Port Parallèle est Déjà Ouvert
116 Inpout32.dll N'est Pas En Service
117 La Variable Doit Etre de Type Chain
118 Le Port Parallèle N'Est Pas Ouvert
119 Le Port Parallèle est Déjà Fermé
120 Numéro de PORT Hors Limites
121 La Valeur Doit Etre Supérieure à 0 et Inférieure à 200
122 Le FICHIER Est Déjà Utilisé
123 Un OBJECT 3D Ne Peut Se Pointer Lui-Même
124 L'OBJET 3D N'a Aucun PERE ou Pas Ce PERE
125 Valeur Négative
126 Adresse Mail Non Valide
127 Impossible d'envoyer le Mail

Détails pour les cas d'erreur:
029,033,042,044,045,046,052,053,054,055

01 Utiliser FILE_FIND_FIRST$ avant FILE_FIND_NEXT$
02 Dépassement d'Indice
03 Plus de SPRITES que le Nombre Autorisé
04 Plus d'OBJETS 3D que le Nombre Autorisé
05 Erreur dans la Sequence Error, Mauvais Caractère
06 Erreur Pendant la Division
07 Nombre Non Compris entre -1 et 1
08 Numéro d'OBJET Hors Limites
09 Numéro d'OBJET 3D Hors Limites
10 L'OBJET N'existe Pas (Pas Créé)
11 Fonction Non Applicable Pour Ce Type d'OBJET
12 Erreur dans une Fonction
13 Numéro de FICHIER Hors Limites
14 Numéro de PORT Hors Limites
15 Numéro de FICHIER Non Défini
16 Le Port Parallèle N'Est Pas Ouvert
17 Appel Interdit d'une Fonction avec Valeur Négative ou Nulle
18 Appel Interdit d'une Fonction avec Valeur Supérieure à 200
19 Appel d'une Fonction avec Caractère Invalide
20 Appel Interdit d'une Fonction avec Valeur Négative
21 Appel Interdit d'une Fonction avec Valeur Supérieure à 255
22 Excel Non Démarré
23 Aucun FICHIER Ouvert
24 Non de Variable Incorrect
25 Variable Non Déclarée (DIM)
26 Expression Incorrecte : +++
27 Indice de Tableau Hors Limites
28 Expression Incorrecte dans une Variable Indexant un Tableau

Nombre de messages : 69 Date d'inscription : 03/04/2011

Pour la commande CLEAR on peut l'utiliser avec MEMO COMBO LIST DLIST
mais pas EDIT

Fichier aide version 0.9.21

Mais effectivement dans la commande EDIT on trouve un lien vers la commande CLEAR

Code:: error_french
rem essai 4 sur cde edit et tableau
label traitement

dim ch ,pt ,ch$, cl$
dim conc(20,20)
cl$=""
' ****** Initialisation des N° de chevaux et points ********
for ch = 1 to 20
conc(0,ch)= ch
next ch
for pt= 1 to 20
conc(1,pt)=0
next pt

edit 1
left 1,250 :top 1,25:height 1,25
set_focus 1
on_key_up 1,traitement

end

traitement:

' for pt= 5 to 1 step-1
ch$=text$(1)
if numeric(ch$)=1 then ch=val(ch$)
for pt = 5 to 1 step -1
conc(ch,1)=conc(ch,1)+pt
conc(ch,0)=ch
print "Cheval "+str$(conc(0,ch))+ " "+str$(conc(1,pt)+pt) +" points" :' pour verif
text 1,"" : ch$=""
' pour effacer la valeur precedante (ch$)apres le traitement
next pt
return

donc on peut faire comme ça placer un TEXT 1,"" et un ch$=""

Est ce la le resultat voulu?

bonjour a tous.
je pense que j'ai trouvé une incoherence entre le manuel utilisateur et le manuel de reference avec la cde CLEAR.
Manuel utilisateur :Clear dans une cde EDIT.
Manuel de référence:Clear avec cdes MEMO ; COMBO ; LIST ; DLIST . et pourquoi pas avec EDIT comme prevus dans le manuel utisateur ?.

et pour finir , merci à Polaris.
la modif est bonne pour le remplacement du CLEAR ,mais il faut que je revoie cette boucle car le resultat est faux. ce n'est pas ce que je veux.
1er tour de boucle :dans edit je rentre par ex 1 et lui attribue 5 points( for pt=5 to 1 step -1).
2 eme tour . je rentre 2 et lui attribue 4 points( for pt = .....)
3 eme tour , je rentre 3 et lui attribue 3 points( for pt = .... )
4 eme tour , je rentre 4 et lui attribue 2 points ( for pt =)
5 eme tour , je rente 5 et lui attribue 1 point (for pt =)
voila ce que je veux faire .
si quelqu'un a une idée , je suis preneur.
bonne journée.

Je n'ai pas tout compris mais j'ai l'impression que tu as inversé l'ordre de ton conc(..,..) dans la 2ème boucle (mais c'est peut-être moi qui est mal compris)

Invité

Effectivement dans le manuel utilisateur, on voit ceci:
5.2.7:CLEAR N: efface le contenu de l'objet numéro N
concerne: MEMO COMBO LIST DLIST, là c'est ok. Mais si on regarde pour EDIT, on voit:

Citation :: Tout effacer: CLEAR

C'est pas bien Jack! çà mérite un gage!

Lorsque que j'avais répondu au sujet de STEP, j'ai bien vu la faute sur CLEAR (d'ailleurs cette instruction à l'origine du basic mettaient toutes les variables à zéro), mais j'ai été dérangé lors de mon intervention, et c'est passé à la trappe.
Désolé

Nombre de messages : 69 Date d'inscription : 03/04/2011

je comprend pas vraiment le but du programme.
cela dit dans ta boucle tu traite de 5 a 1, alors qu'il faudrait traiter 5 sortir de la boucle, décrémenter à 4 ensuite saisie retour dans la boucle, traitement de 4 décrémenter à 3..... ect ect...

Voila apres ne comprenant pas le but du prog je me trompe peut etre et meme surement.

@+

explication de ma demande .
ma 1er demande remonte au 5 oct 2010 avec une portion de code.
voici donc de nouveau cette portion de code qui fonctionne (avec l'instruction INPUT)
vous remarquez qu'une fois entrer le nombre de chevaux et le nombre de pronostiqueurs j'entre mes numeros de chevaux par groupe de 10 dans un ordre defini .
ce que je voudrai realiser avec EDIT est la meme chose , c'est a dire :entrer les numero a la chaine et obtenir un total de points en automatique.
je fait le tri ensuite

[/code]
' demande réactualisée le 26 aout 2011

' origine de ma 1er demande le 5 oct 2010
' bonjour a tous
' je profite du mauvais temps pour lancer une demande.
' dans le cadre que l'instruction INPUT soit caduque , je voudrai remplacer ce bout de code
' ( qui fonctionne ) par une nouvelle formulation ,mais là je sèche tres fort.

' mon problème commence a la ligne 78 "entrée des points".
' pour l'instant je garde le dim conc(1,20)
' si vous faites l'essai,entrez par exp 15 pour combien de chevaux puis 2 pour pronostiqueurs.
' puis entrée des 10 n° chevaux par exp: 12 ,7 ,1 ,5 ,8 ,4 ,14 ,10, 9 ,2
' puis 7 ,5 ,8 ,11 ,2 ,12 ,1 ,10 ,9 ,14

' puis verifiez le fichier créer. ce systeme fonctionne mais il ne faut pas que je fasse d'erreur( boucle prono 1,2,3,ou plus ).
' j'avais pensé a l'instruction EDIT mais je ne m'en sort pas.
' merci d'avance pour vos réponses

' vous constaterez que ce systeme fonctionne tres bien a la seule conditin que je ne fasse pas d'erreur
'lors de la rentrée des numeros. impossible de revenir en arriere (effacer le chiffre mauvais).
' apres l'opération de tri , voici le resultat
' n°1 = 12 points n°9 = 4 points
' n°2 = 7 points n°10 = 6 points
' n°3 = 0 point n°11 = 7 points
' n°4 = 5 points n°12 = 15 points
' n°5 = 16 points n°13 = 0 point
' n°6 = 0 point n°14 = 5 points
' n°7 = 19 points n°15 = 0 point
' n°8 = 14 points

error_french
' **********************************************
' ** éssai programme sur pronostics hippiques **
' ** par Rmont **
' **********************************************

dim i,j :' variables de boucles
dim pro ,ch :' pronostiqueur et cheval n°
dim x :' sera compris entre 13 mini et 20 maxi
dim x1 , y:' distance bord gauche de l'ecran
' dim a$ :' a$ = ","
dim n :' pour le pas d'entrée des n° dans les cases
dim x2, x3
dim y2 ,y3 ,y4,y5
label affichage

' ***************************************
' ** début du programme **
' ***************************************

dim conc(20,1):' tableau 2 dimensions
label recom

full_space 0
recom:
font_bold 0
input " Combien de chevaux dans cette course ? ";x
If x<13 Or x>20 then Goto recom
print "Il y a "+str$(x)+" chevaux" :' pour verification
input " Combien de pronostiqueurs ? ";pro
print: print
x1=100 :' distance bord gauche pour faire les rectangles
for i= 0 to 9
2d_fill_color 255,255,255
2d_rectangle x1+(n*i),200,185+(n*i),310
n=85
next i
x3=123 :y2=235 :' ligne des "pour"
x2=120 :y3=235 :y4=250 :y5=270:' ligne des "cheval" et ligne des "N° "
for i= 1 to 10
print_locate x3,y3:print "Pour"
print_locate x2,y4:print "Cheval"
print_locate x2,y5:print "N° "
x2=x2+85
x3=x3+85
next i
print_locate 120,215 : print "10 pts"
print_locate 205,215 : print "9 pts"
print_locate 290,215 : print "8 pts"
print_locate 375,215 : print "7 pts"
print_locate 460,215 : print "6 pts"
print_locate 545,215 : print "5 pts"
print_locate 630,215 : print "4 pts"
print_locate 715,215 : print "3 pts"
print_locate 800,215 : print "2 pts"
print_locate 885,215 : print "1 pt"

' ****** Initialisation des N° de chevaux ********
for i = 1 to 20
conc(i,0)= i
next i

' *************** Entrée des points ******************
' les numéros chevaux sont dans conc(ch,0)
' les points attribués sont dans conc(ch,1)
y2=350
For j = 1 To pro
y = 145 :' distance bord gauche
For i = 10 To 1 Step -1
print_locate y,270 : print " " :' sert a éffacer pour les tours suivants
print_locate y,270
input ch :' c'est le n° de cheval 1er cité puis suivant
conc(ch,1) = conc(ch,1)+i :' je donne 10 points au 1er cité et 1 point au 10 em
conc(ch,0)=ch
print:print:print :' sera enlevé par la suite
gosub affichage
y = y + 85
Next i
Next j

end

affichage:
print_locate 25,y2:print "Cheval n° "+str$(ch)+chr$(32)+chr$(32)+chr$(32)+str$(conc(ch,1))+" points":' pour vérif
y2=y2+20
return
[/code]

Argh, je ne peux pas supprimer mon commentaire, désolé

Nombre de messages : 69 Date d'inscription : 03/04/2011

Toujours sympa de te lire jicehel Very Happy

Code:: label verif_edit

dim j$

edit 1
top 1,0
left 1,200

edit 2
top 2,30
left 2,200

alpha 3
top 3,0
color 3,0,255,0
caption 3,"nbres de chevaux (13 min. 20 max.)"

alpha 4
top 4,30
color 4,0,255,0
caption 4,"nbres de pronostiqueurs"

button 5
top 5,50
caption 5,"valide"
on_click 5,verif_edit

end

verif_edit:
j$=text$(1)
if j$=""
message "saisir une valeur"
return
end_if
if val(j$)<13
text 1,""
message "le nbre de cheveau doit etre plus grand que 13"
return
end_if
if val(j$) > 20
text 1,""
message "le nbre de cheveau doit etre plus petit que 20"
end_if
return

une petite ebauche pour ton prog en utilisant des edit et un bouton
resterait a generer 10 EDIT pour la saisie des points selon le nbre de pronostiqueur.
je ne suis pas un turfiste dans l'ame mais le projet est interressant.
A les sacrés canassons!

@+

Invité

J'ai voulu tester une méthode de saisie pour nombre multiple, très rapidement, c'est hors de mon cadre actuellement.

Il s'agit d'un list et d'un memo côte à côte. Il y a un spin pour le nb de chevaux, et un timer, qui supprime tout déplacement de nb pour ne pas faire se scroll du memo.

La présentation est a améliorer et à adapter. C'est une idée comme une autre. Je n'ai pas été plus loin.

Code:: height 0,550 : font_size 0,12
dim a,a$ : label CTRL ,nb

alpha 10:top 10,5:left 10,30:caption 10,"ordre"
list 1:left 1,50:top 1,30:width 1,30:height 1,450:font_color 1,255,0,0

alpha 11:top 11,5:left 11,80:caption 11,"N° chevaux"
memo 2:left 2,85:top 2,30:width 2,35:height 2,450

alpha 13:left 13,120:top 13,80:caption 13,"NB de chevaux"
spin 3:left 3,150:top 3,110:width 3,40:height 3,25:position 3,13:max 3,20

button 4:left 4,140:top 4,180:width 4,50:caption 4,"CTRL":on_click 4,ctrl

for a=1 to 20:item_add 1,a:next a
timer 8:timer_interval 8,500:on_timer 8,nb

end

nb:
if position(3)>12
if count(2)> position(3) then item_delete 2,count(2)
if count(2)>0
a$=item_read$(2,count(2))
if numeric(a$)=1
if val( a$ ) > position(3) then item_delete 2,count(2):beep
else
item_delete 2,count(2)
end_if
end_if
end_if
return
CTRL:
message "ici controle"
return

modifié ce matin

Nombre de messages : 69 Date d'inscription : 03/04/2011

il est drolement bien ce bout de code Cosmos.

Sinon je voulais juste rappeler que tout les gains gagnés en utilisant le soft "Rmont turf+" devrais être partagé entre tout les utilisateurs panoramic Very Happy

Ok je sort Embarassed

bonjour a tous.
Merci pour vos réponses.
Mais , je suis désolé de vous dire que cela ne correspond pas du tout a ce que je veux faire.
je desire simplement remplacer toutes les instructions input( obsolettes) par un EDIT tout en gardant le meme principe d'attribution de points : 1er cité =10 points. le10 cité=1 point.
Pour bien comprendre ce que je veux faire , faite un copier/coller et lancer-le avec les données que je donne a la ligne rem 11.(voir 26 aout)
je m'occuperai plus tard de la la presentation .
je crois que c'est Polaris qui a la bonne solution quand il dit qu'il faut faire une sortie de boucle, mais je ne sais comment la faire .
j'ai fait une nouvelle ebauche avec un prg en input et un autre avec EDIT que j'ai mis tout en rem car conflit entre les 2.

Code:: error_french
rem essai 4 sur tableau a 2 dimensions

dim conc(5,1):rem limité à 5 ---> pour essai
dim ch
dim i,j

For i = 5 To 1 Step -1
input "cheval ";ch :rem de 1 a 5 dans n'importe quel ordre
conc(ch,1) = conc(ch,1)+i
conc(ch,0)=ch
print "Cheval n° " +str$(ch)+" points " +str$(conc(ch,1))
Next i

print:print:print

rem lecture
for i= 1 to 5
print "cheval n° "+ str$(conc(i,0))+" "+ str$(conc(i,1))+" points"
next i

rem j'ai fait une ebauche de remplacement de INPUT par EDIT ,mais
rem le resultat n'est pas du tout concluant
rem j'ai tout mis le 2eme prg en rem car conflit enttre les 2 prog

' error_french
rem essai 6 sur cde edit et tableau
' label traitement

' dim ch ,pt ,ch$
' dim conc(1,20)

' ****** Initialisation des N° de chevaux et points ********
' for ch = 1 to 20
' conc(0,ch)= ch
' next ch
' for pt= 1 to 20
' conc(1,pt)=0
' next pt

' alpha 1
' left 1,250 : top 1,20
' caption 1,"N° cheval "

' edit 2
' left 2,250 :top 2,35:height 2,25
' set_focus 2
' on_key_up 2,traitement :' on key_up peut-etre a remplacer

' end

' traitement:
' ch$=text$(2)
' if numeric(ch$)=1 then ch=val(ch$)
' for pt = 5 to 1 step -1 :' j'ai limité a 5 points pour l'essai
' conc(1,ch)=conc(1,ch)+pt
' conc(0,ch)=ch
' print "Cheval "+str$(conc(0,ch))+ " "+str$(conc(1,pt)+pt) +" points" :' pour verif
' text 2,"":ch$=""
' next pt
' return
rem il y a mauvais traitement car la boucle se fait seule sans repasser par l'édit

Invité

Franchement, je n'avais pas l'intention de répondre. Ton programme ne m'intéresse pas.
T'as 1ère demande date du 5 octobre 2010, et apparemment rien n'a avancé. Si tu ne revois pas tes principes, vu que tu restes bloqué sur un edit à la place d'un input, j'ai une nouvelle pour toi, et ça ne me fais pas plaisir de le dire, dans 10 ans tu programme sera fini.
On te donne des bouts de programme, celui que j'ai mis (je me suis relevé cette nuit pour le faire, vu que cela m’empêchais de dormir) peut convenir. Une fois la liste faite (je ne parle pas des pronostiqueurs, je ne sais plus), c'est pas dure de mettre les points dégressifs par rapport à la liste des chevaux (pour le cas que je présente). Il y a aussi GRID pour faire un bon affichage. Si tu veux faire ton programme, il va falloir d'adapter, et avancer, sinon laisse tombé. Constamment dans mes programmes, je suis obligé de modifier mon idée de départ, pour résoudre un problème qui ne passe pas. La programmation, c'est de dépasser les blocages, changer de méthode si nécessaire, d’envisager les choses différemment.
Si tu dois rentrer tous les jours rentrer les données pour les mettre à jour, tu as intérêt a avoir une méthode efficace, sinon ce sera vite lassant.

Je sais que cela ne semble pas sympa, mais tu dois réagir. Quant au partage entre Panoramiciens, je n'y crois pas du tout. Les gains se partage, aussi si tout le monde joue la même chose, il ne restera pas grand chose.

Moi, je me déclare maintenant incompétent.
Salutation (et c'est amicale)!

Je suis tenace et j'arriverai bien a trouver une solution.
a une prochaine

» Boucle
» souris et coordonnées
» scene2D et boucle
» Amélioration pour la boucle FOR...NEXT
» Probleme avec boucle for...