Fonctionnement de input_source _is...

Bonjour,

Dans le code suivant l’input ne récupère pas la saisie de la zone edit, quelqu'un peut-t-il m'en expliquer la raison ?

Code:

Dim a
edit 5
top 5,30
left 5,0
set_focus 5
input_source_is 5
input a

Merci.

Salut mimic,

Regarde ce code et tu comprendras.

Code:

label saisie,valide,attend

Dim a$,a

edit 5:top 5,30:left 5,0
on_change 5,saisie


button 1:top 1,30:left 1,140:caption 1,"Valider"
on_click 1,valide

set_focus 5
input_source_is 5

end
rem -----------------
saisie:
a$=text$(5)
return

valide:
if numeric(a$)=0 then message "Vous devez saisir une valeur numérique":set_focus 5:text 5,"":return
a=val(a$)
print_locate 150,150:print a
return

attend:
a$=inkey$:if a$="" then goto attend
terminate

Un EDIT sert a saisir, il faut utiliser ON_CHANGE pour controler la saisie et un boutton a coté pour la valider. Remarque l'utilité de NUMERIC.

Je te propose de regarder dans ce forum à cette rubrique, le sujet comment terminer une saisie dans un édit , tu vas y apprendre beaucoup sur ton problème.

Bon courage et a+

J'oubliai dans mon code INPUT_SOURCE_IS 5 ne sert à rien.

Mimic, en effet, tu ne récupères pas la saisie dans l'EDIT car tu n'as pas le temps de saisir quelque chose, que ton programme est déjà terminé depuis longtemps!

J'ai repris ton code et j'ai ajouté un bouton.
Ainsi tu as tout ton temps pour taper quelque chose dans l'EDIT puis pour cliquer sur le bouton. Ce que tu as tapé dans l'EDIT s'affiche alors (print) sur le FORM numéro 0:

Code:

label imprime

Dim a$
edit 5
top 5,30
left 5,0
set_focus 5
input_source_is 5

button 1:top 1,100
on_click 1, imprime

end

imprime:
input a$
print a$
return

Le principe, c'est que le programme principal s'exéctute à toute vitesse jusqu'au end. Et ensuite, seuls les événements sur les objets fonctionnent. Donc tu peux cliquer sur le bouton quand tu veux...

Merci à tous les deux, je pensais que le programme attendais la frappe de la touche enter dans l’édit avant de poursuive. Je pense avoir maintenant compris le principe de fonctionnement.

Pour finir, une petite remarque, à l'origine je voulais utiliser un mémo (multi-lignes, et récupérer ainsi la ligne active) mais input_source_is ne semble pas fonctionner avec, je pense que ce serait une bonne chose, quand pensez-vous ?
A+

Si tu utilises LIST à la place de MEMO, tu peus récuperer ta ligne avec la commande ITEM_INDEX(n) ou le texte avec ITEM_INDEX$(n). n est le numéro de l'objet systeme, en l'occurence l'EDIT.
A+

Utiliser LIST, oui mais l'on ne peut pas s'en servir comme éditeur de texte minimaliste contrairement à MEMO , non ?

EXACT