remplacement de INPUT

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 64 "entrée des points".
pour l'instant je garde le din conc(20,1)
si vous faites l'essai,entrez par exp 15 pour combien de chevaux puis 1 pour pronostiqueur.
puis entrée des 10 n° chevaux par exp: 2,13,10,8,4,15,1,7,11,6.
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

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
' dim x2 ,a
' chr$(32) pour mettre un espace entre les chiffres lors d'un enregistrement supplementaire

' ***************************************
' ** 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 8em
conc(ch,0)=ch
print:print:print :' sera enlevé par la suite
gosub affichage
y = y + 85
Next i
Next j

file_open_write 1,"essai_fichier_pmu.txt"
a$=","
for i = 1 to x
file_writeln 1,conc(i,1)
' file_writeln 1,a$
next i
' file_write 1,chr$(32)
file_close 1

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

Désolé de ne pas prendre plus de temps pour regarder ton programme,
mais je dois aller travailler.

Mais c'est bien edit qui remplace input dans une programmation plus moderne
et alpha qui remplace print.

pour alpha, tu remplaces les print_locate par left, top... et print par caption
et pour les edit (que tu emplaces également où tu veux par left et top,
et auxquels tu donnes le format que tu veux par width et height,
tu récupères ensuite ce que l'utilisateur écriera dedans
par a$=text$(N) (N étant le numéro d'ordre que tu donnes à l'édit concerné)
et tu peux faire autant d'edit que tu veux.

Essaie, c'est un mode de pensée un peu différent, mais ça n'est pas dur !

Comme jjn4, j'ai pas le temps.
Il y a plein de méthode pour rentrer une question. On se sert souvent de EDIT. Mais pour valider une réponse il faut un click sur edit , ou sur un bouton avec on_click pour dire que la réponse on la valide.

Une autre façon: ( à ce propos, il y a sur les lignes pour poster une réponse, un icône qui affiche "code" et qui permet de mettre du code ici. on re-clique sur cet icône à la fin du code pour fermer. Ce sont des balises.

donc je clique sur "code"

Code:

dim nb,q$
q$=message_input$("répondre","combien de chevaux","15")
message q$
if numeric(q$)=1
  nb=val(q$)
else
  message "erreur, il faut rentrer un nombre"
end_if

Tu peux jouer avec cette boite input$.
Le mieux est de faire une série d'edit, de les remplir, et de mettre un bouton de validation pour l'ensemble.

J'ai tendance à l'oublier ce Message_Input$, c'est pourtant un moyen bien pratique et rapide à mettre en oeuvre pour saisir une valeur.
Merci cosmos de nous le rappeler.

merci pour vos reponses.
Ca y est ,j'ai trouvé la balise code.
la prochaine fois je ne manquerai pas de men servir.
serait-il possible d'avoir un petit exemple surtout a cause de la boucle "Pro "car en reponse on peu mettre de 1 ,2,3,4,5 ou plus donc a chaque fois il faut rentrer de 1a 5 fois une rafale de 10 chevaux.
je vais essayer avec les réponses.
merci

Juste pour la forme (pour information), sais-tu que tu as la possibilité d'éditer tes messages après coup (pour par exemple rajouter les balises): bouton 'éditer', à droite.
Pour les balises, tu sélectionnes tout le code, puis tu cliques sur le bouton code: ça ajoute automatiquement les balises de début et de fin.

Pour te donner une petite idée de ce que l'on peut faire avec les objets :

Code:

' au lieu d'utiliser print on déclare un objet 'alpha' qui va contenir du texte
dim TextePronostique%: TextePronostique%=number_objects+1
ALPHA TextePronostique%: caption TextePronostique%,"Pronostique:"
top TextePronostique%,10:left TextePronostique%,10 : ' on défini sa position dans la fenetre

' puis on déclare un champ de saisie au lieu de 'input' qui va se trouver à coté de notre texte 'alpha'
dim SaisiePronostique%: SaisiePronostique%=number_objects+1
EDIT SaisiePronostique%: top SaisiePronostique%,8 : left SaisiePronostique%,100

' on déclare ensuite un bouton qui va nous permettre de tester ce que l'on a saisi
dim Validation%: Validation%=number_objects+1
BUTTON Validation% : caption Validation%,"Valider"
top Validation%,5 : left Validation%,240 : ' on défini sa position
label TestSaisie : ' on défini une étiquette pour un sous-programme qui va tester la saisie
on_click Validation%,TestSaisie : ' on indique que lorsque l'on clique sur le bouton on exécute le sous programme 'TestSaisie'

dim contenuSaisie$

end

TestSaisie:
  contenuSaisie$=text$(SaisiePronostique%)
  message "texte saisi : "+contenuSaisie$
  ' a partir de là reste plus qu'à vérifier si la chaine contenuSaisie$ est correcte...
  ' puis faire le traitement approprié si ok
return

Voila, si ça peut t'aiguiller...

Je viens de faire en 5/10 mn un programme d'essai, et tu es intervenu entre temps.
Juste pour l'exemple, sans entrer dans le programme de RMont, seulement pour voir le code et l'analyser.
J'ai mon propre programme à faire.

Code:

dim nb,q$ ,a% ,haut%, point%
label quoi_chevaux , saisie
width 0,500:height 0,700
haut%=20
for a%=1 to 20
  alpha a%+30:hide a%+30:left a%+30,20:top a%+30,haut%:width a%+30,50:caption a%+30,"chevaux: "+str$(a%)
  edit a%:hide a%:left a%,90:top a%,haut%:width a%,50:font_size a%,10
  haut%=haut%+25
next a%
memo 21:left 21,250:height 21,600:font_size 21,12
button 25:hide 25:left 25,200:top 25,100:caption 25,"envoi":on_click 25, saisie
' ----
q$=message_input$("répondre","combien de chevaux","15")
gosub quoi_chevaux

end
quoi_chevaux:
for a%=1 to val(q$)
  show a%+30:show a%
next a%
show 25
return

saisie:
' juste pour montrer, j'ai pas fait de récupération vrai des données, tu sais le faire!

hide 25
for a%=1 to val(q$)
  if text$(a%)<>"" then point%=val(text$(a%)):item_add 21,"cheval:"+str$(a%)+"="+str$(point%) :' à la place de point% ici cela pourrait être text$(a%)
next a%
return

Ce qu'il faudrait ce serait peut-être pour que l'on se mette d'accord pour l'un d'entre nous réponde tel jour ou tel autre pour ne pas être à plusieurs à faire la même chose.
Faire un tour de garde?

Salut cosmos70 !

Un tour de garde ? cela risque d'être difficile...

puis chacun a une approche différente pour un problème donné.
Je trouve cela intéressant de pouvoir "piocher" dans les différentes solutions proposées...

Je n'avais pas vraiment le temps pour répondre, mais comme il n'y avait pas d'intervenant, je l'ai fait rapidement.
Dans d'autre forum, il y en a qui le font comme FBSL. Quand on ne sait pas, on laisse à celui qui est spécialisé. C'est à peu près les mêmes personnes qui interviennent ici. Il faudrait avoir une sorte de planning pour dire qu'à telle période, moment ou autre on est disponible
C'est tout pour ce soir.
Bonsoir

bonjour a tous.
merci pour les deux réponses.
je vais travailler dessus