Fonction inkey$ inactive dans un form autre que form0

Nombre de messages : 14 Date d'inscription : 25/05/2013

Rebonjour ! Jicehel a bien compris mon problème . Scancode est simple et fonctionne . Je vais essayer d'y intercaler un timer. Un jour il me faudra peut-etre un petit entretien téléphonique pour clarifier, si cela est possible bien entendu. Cordialement D Champollion

@Champollion
J'ai regardé ton code initiale, c'est une usine à gaz comme je sais les faire Very Happy

J'ai mis un peu d'ordre dans ton code pour que tu puisses voir comment structurer tes codes.

Je n'ai pas, volontairement, corriger certaines erreurs, pour que tu le fasses toi même. Et j'ai conservé ta méthode goto/gosub pour ne pas sauter les étapes.

Un conseil: dans l'éditeur Panoramic met les commentaires en rouge pour une bonne lisibilité.

Bon courage.

Code:: ' =============================================== Les déclarations et objets
' les dim
dim a$(10):dim n:dim l:dim e$(10):dim h:dim r$
' les label
label bib: label exercices : label finir : label decouv: label appren: label eval
label choix1:label copie:label testclavier :label ecrit
' form 1
form 1:width 1, 1280:height 1, 800:color 1,64,24,128:hide 1
' form 2
form 2:width 2, 1280:height 2, 800:color 2,64,64,128
' form 3
form 3:width 3, 1280:height 3, 800:color 3,64,24,128:hide 3

' ----------------------------------------------------------------------
' Objets de form 1
command_target_is 1
' list 26
list 26:top 26,15:left 26,430:width 26,430:height 26,60:color 26,0,255,0
font_color 26,255,0,0 :font_size 26,30:font_name 26,"comic sans MS"
' list 27
list 27:top 27,160:left 27,430:width 27,430:height 27,60:color 27,0,255,0
font_color 27,128,0,0:font_size 27,40:font_name 27,"comic sans MS"
' ----------------------------------------------------------------------
' Objets de form 3
command_target_is 3
l=450 :h=120
for n = 9 to 17
button n
top n, h
left n, l: h=h+ 60
width n, 400:height n, 50
' caption n, e$(n): ' ici faut revoir la copie car e$(n) a été défini de 1 à 9 pour les boutons du form 2
font_color n, 0,255,255
font_size n, 20
font_bold n
next n
list 25:top 25,15:left 25,430:width 25,430:height 25,60:color 25,0,255,0
font_color 25,255,0,0:font_size 25,30:font_name 25,"comic sans MS"
' ----------------------------------------------------------------------
' Objets de form 2
command_target_is 2
' list 24
list 24:top 24,15:left 24,430:width 24,430:height 24,60:color 24,0,255,0
font_color 24,255,0,0:font_size 24,30:font_name 24,"comic sans MS"
' picture 4
picture 4:top 4, 300:left 4, 470:height 4, 300:width 4, 800
' button 8
gosub bib
button 8:top 8, 640:left 8, 510:font_size 8, 22:font_bold 8:width 8, 230:height 8, 50
caption 8, a$(4)
' button 5,6,7
l = 140
for n = 5 to 7
button n
top n, 140
left n, l: l=l+ 350
width n, 240:height n, 50
caption n, a$(n-4)
font_color n, 0,255,255
font_size n, 22
font_bold n
next n
' ----------------------------------------------------------------------
' on se prépare
print_target_is 24:print "Ecriture Orthographe"
rem file_load 4,"papillon.bmp"
' les click
on_click 5, decouv
on_click 6, appren
on_click 7, eval
on_click 8, finir
END
' =============================================== LES SOUS-PROGRAMMES
choix1:
' ....
' ....
return
' ----
bib:
a$(1)= "DECOUVERTE"
a$(2)= "APPRENTISSAGE"
a$(3)= "EVALUATION"
a$(4)="QUITTER"
e$(1)= "Copie à vue"
e$(2)= "Copie de mémoire"
e$(3)="Ecriture texte entendu"
e$(4)= "Ecriture sous dessin"
e$(5)="Homophones lexicaux"
e$(6)= "Homophones grammaticaux"
e$(7)= "Accords genre et nombre"
e$(8)= "Conjugaison"
e$(9)= "Dictée"
return
' ---------
exercices:
' ....
' ....
return
' ---------
decouv:
' ....
' ....
return
' ---------
appren:
show 3
print_target_is 25
print " Liste des exercices"
on_click 9, copie
return
' ---------
eval:
' ....
' ....
return
' ---------
finir:
' ....
' ....
return
' ---------
copie:
show 1
print_target_is 26
print " COPIE SIMPLE "
print_target_is 27
print " P A P I L L O N "
return
' ---------
testclavier:
r$=inkey$
n=n+1:if n = 40000 then r$="FIN"
if r$<>"" then beep:goto ecrit
goto testclavier
return
' ------------------
ecrit:
print_target_is 1
print_locate 50,600
font_color 1,128,0,0
font_size 1,40
print r$
return

A+

PS: Message perso, j'ai un fils en CE2, une fille en CP et une en maternelle (moyen) qui passent tous bien sûr dans la classe supérieurs l'année prochaine. Si tu as des tests à faire sur tes programmes par un adulte, en principe, tu trouvera sur ce forum, mais s'il doivent être fait par des enfant, demande moi en message privé ou sur le forum et je leur demanderais de tester Wink

Nombre de messages : 14 Date d'inscription : 25/05/2013

Merci encore , je vais plancher sur tes propositions. Les essais en classe, c'est l'éditeur qui s'en occupe . ANcien Directeur d'Ecole et formateur, j'ai en plus 4 petits enfants pour tester.
Autre chose: Quand je travaille dans panoramic, je teste un bout de programme, ça fonctionne ou non. S'il y a un message d'erreur, je peux revenir à ma liste mais après avoir quitté la fenêtre de travail que j'ai créée et également une autre fenêtre panoramic grise qui vient je ne sais d'où . Si je suis dans une boucle sans fin, je ne peux revenir à mon éditeur et retester, je suis obliger de recharger panoramic. Si on pouvait s'entretenir sur ces détails pratiques, ça m'aiderait beaucoup. 0610312788. Très cordialement Denis

La fenêtre qui vient d'on ne sait où, c'est vraisemblablement FORM 0 (qui est automatiquement créer par Panoramic).

Quand ton programme "plante" il y a un moyen de revenir à l'éditeur sans recharger. Je décris:
tu appuis sur ton clavier simultanément sur (CONTROL)+(SHIFT)+(ECHAP ou SUPRIME) ce qui a pour effet d'ouvrir le gestionnaire des tâches de Windows. Ensuite dans l'onglet processus tu recherches Panoramic.exe (attention: pas panoramic_editor) et tu le sélectionnes, ensuite tu cliques le bouton "fin de tâche". Tu fermes le gestionnaire des tâches. Tu peux repartir sur ton code......
Quelque-fois il est nécessaire, en plus, de cliquer sur nouveau fichier de l'éditeur Panoramic pour libérer complètement l'éditeur.

J'aimerais ta réaction sur la réorganisation que j'ai fait sur ton code.

A+

@Papydall,

Ton code est, effectivement, le meilleur mais je pense que Champollion n'en est pas à ce stade.... çà se discute.

@Champollion
J'ai une question sur ce qui t'intéresse au premier plan:
1) tu souhaites pondre ton programme rapidement sans plus et utiliser le forum pour cela.
2) tu souhaites progresser sous Panoramic et pondre toi même le programme en utilisant le forum pour progresser.

C'est important de le savoir car dans le cas N°1 on suit la voie Papydall et dans le cas N°2 ont suit la mienne.
Jicehel se trouvant entre les deux...

A+

La fameuse voie du milieu...

Bon, je laisse Champolion répondre à la question en espérant que ce soit la 2ème solution...

Nombre de messages : 14 Date d'inscription : 25/05/2013

Bonjour à vous trois qui vous intéressez à mon travail.En fait dans un premier temps je cherche à utiliser les fonctions simples du basic, que je mettais en oeuvre en turbo basic pour bâtir mon programme . parallèlement, je me perfectionnerai dans panoramic.
Merci déjà pour scancode qui fonctionne un peu comme inkey$. Avec un if x=0 et retour à x=scancode avec un timer entre les deux je peux reproduire ce que faisais avec inkey$. Je vous enverrai cela quand ce sera au point.
Je travaille pour mettre au point un logiciel d'écriture/orthographe pour cycles 2 et 3 pour faire suite aux 8 logiciels qui tournent déjà dans 10000 écoles ( pour les voir, taper JOCATOP LECTHEME CHAMPOLLION dans un moteur de recherche ) Bonne suite de journée. Denis

Excellent, je ne sais pas si mes enfants les utilisent dans leurs écoles, mais ils en sont en plein dans la cible.

Bravo pour tes créations Champollion. Comme quoi c'est possible de créer des programmes (et j'espère de gagner sa vie avec) Smile

Nombre de messages : 598 Date d'inscription : 06/01/2012

Je viens de retrouver le code de Papydall sur la première idée de Champollion; j'y ai relevé un LABEL absent (LABEL clic) et deux SUBs qui se terminent par RETURN. Broutilles, non, ce qui me chiffonne c'est qu'au delà d'une douzaine de SUBs, le PANORAMIC déclare forfait !?!

Pour info :

Code:: ******************************************************************************
' Code modifié par Papydall d'apès une idée de Champollion
' ******************************************************************************

label clic
Declaration()
GUI()
end : ' Ce end est essentiel pour que le programme aille pas exécuter la suite
' ******************************************************************************
' Ici on déclare les labels,les variables, les constantes etc..
SUB Declaration()
label clic
dim a$(4),e$(9)
a$(1)= "DECOUVERTE"
a$(2)= "APPRENTISSAGE"
a$(3)= "EVALUATION"
a$(4)= "QUITTER"
e$(1)= "Copie à vue"
e$(2)= "Copie de mémoire"
e$(3)= "Ecriture texte entendu"
e$(4)= "Ecriture sous dessin"
e$(5)= "Homophones lexicaux"
e$(6)= "Homophones grammaticaux"
e$(7)= "Accords genre et nombre"
e$(8)= "Conjugaison"
e$(9)= "Dictée"

END_SUB
' ******************************************************************************
' Ici on définit tous les objets utilisés dans le programme : FORM, BUTTON,PICTURE, etc...
SUB GUI()
dim_local n,l,h : ' variables locales
' Définition de FORM 10 et des objets qu'il contient
form 10 : width 10, 1280 : height 10, 800 : color 10,64,64,128
' On défini un ALPHA pour éviter d'utilser PRINT
alpha 11 : parent 11,10 : top 11,15 : left 11,430
font_color 11,255,0,0 : font_name 11,"comic sans MS": font_size 11,30
' On donne un texte a l'ALPHA
caption 11, "Ecriture Orthographe"
' On défini un PICTURE qui recevra l'image
picture 12 : parent 12,10 : top 12, 300 : left 12, 470 : height 12, 300 : width 12, 800
' file_load 12,"Papillion.bmp"
l =140
' Définition des boutons
for n = 13 to 15
button n : parent n,10 : top n, 140 : left n, l: l=l+ 350 : width n, 240:height n, 50
caption n, a$(n-12) : font_size n, 22 :font_bold n : on_click n,clic
next n
button 16 : parent 16,10 : top 16, 640 : left 16, 510 : font_size 16, 22 : font_bold 16
width 16, 230:height 16, 50 : caption 16, a$(4) : on_click 16,clic

' ------------------------------------------------------------------------------
' Définition du FORM 20 et de ses objets
form 20 : width 20, 1280 : height 20, 800 : color 20,64,24,128
alpha 21 : parent 21,20 : top 21,15 : left 21,430 : font_color 21,255,0,0
font_size 21,30 : font_name 21,"comic sans MS" : caption 21,"Liste des ecercices"

l=450 :h=120
for n = 22 to 30
button n : parent n, 20 : top n, h : left n, l: h=h+ 60 : width n, 400 : height n, 50
caption n, e$(n-21) : font_color n, 0,255,255 : font_size n, 20 :font_bold n
on_click n,clic
next n

button 31 : parent 31,20 : top 31,700 : left 31,600
caption 31, "Retour" : on_click 31,clic
hide 20 : ' on cache ce FORM
' ------------------------------------------------------------------------------
' Définition du FORM 40 et des ses objets
form 40 : width 40, 1280 : height 40, 800 : color 40,64,24,128
alpha 41 : parent 41,40 : top 41,15 : left 41,430 : font_color 41,255,0,0
font_size 41,40 : font_name 41,"comic sans MS" : caption 41,"COPIE SIMPLE"
alpha 42 : parent 42,40 : top 42,160 : left 42,430 : color 42,0,255,0
font_color 42,128,0,0 : font_size 42,40 : font_name 42,"comic sans MS"
caption 42," P A P I L L O N "

button 43 : parent 43,40 : top 43,700 : left 43,600
caption 43,"Retour" : on_click 43,clic
hide 40 : ' on cache ce FORM

END_SUB
' ******************************************************************************
' Ici on traite tous les clicks afin d'aiguiller le programme vers le sous-programme adéquat
clic:
if clicked(13) > 0 then Decouverte() : return
if clicked(14) > 0 then Apprentissage() : return
if clicked(15) > 0 then Evaluation() : return
if clicked(16) > 0 then Quitter()
if clicked(22) > 0 then Copie_A_Vue() : return
if clicked(23) > 0 then Copie_De_Memoire() : return
if clicked(24) > 0 then Ecriture_Texte_Entendu() : return
if clicked(25) > 0 then Ecriture_Sous_Dessin() : return
if clicked(26) > 0 then Homophones_Lexicaux() : return
if clicked(27) > 0 then Homophones_Grammaticaux() : return
if clicked(28) > 0 then Accords_Genre_Et_Nombre() : return
if clicked(29) > 0 then Conjugaison() : return
if clicked(30) > 0 then Dictee() : return
if clicked(31) > 0 then show 10 : hide 20
if clicked(43) > 0 then show 20 : hide 40

' ici on traite les éventuels clicks supplémentaires

return
' ******************************************************************************
' A compléter ...
SUB Copie_A_Vue()
show 40
message "Copie à vue en cours ..."
END_SUB
' ******************************************************************************
' A compléter ...
SUB Copie_De_Memoire()
message "Copie de mémoire en cours ..."
END_SUB
' ******************************************************************************
' A compléter ....
SUB Ecriture_Texte_Entendu()
message " Ecriture texte entendu en cours ..."
END_SUB
' ******************************************************************************
' A compléter ...
SUB Ecriture_Sous_Dessin()
message " Ecriture sous dessin en cours ..."
END_SUB
' ******************************************************************************
' A compléter ....
SUB Homophones_Lexicaux()
message "Homophones lexicaux en cours ..."
END_SUB
' ******************************************************************************
' A compléter ...
SUB Homophones_Grammaticaux()
message "Homophones grammaticaux en cours ..."
END_SUB
' ******************************************************************************
' A compléter ...
SUB Accords_Genre_Et_Nombre()
message " Accords genre et nombre en cours ..."
END_SUB
' ******************************************************************************
' A compléter ....
SUB Conjugaison()
message "Conjugaison en cours ..."
END_SUB
' ******************************************************************************
' A Compléter ....
SUB Dictee()
message "Dictée en cours ..."
END_SUB
' ******************************************************************************
' A compléter ....
SUB Decouverte()
show 20
END_SUB
' ******************************************************************************
' A compléter ....
SUB Apprentissage()
message "Apprentissage en cours ..."
END_SUB
' ******************************************************************************
' A compléter ....
SUB Evaluation()
message "Evaluation en cours ..."
END_SUB
' ******************************************************************************
SUB Quitter()
if message_confirmation_yes_no("Vous Voulez vraiment quitter") = 1 then terminate
END_SUB
'

@ Champollion,

As tu un site qui regroupe tes créations ?
J' ai fait, vite fait, une recherche mais un nombre de liens incalculables
me sont apparus... scratch

Pour ton code, je ne vois pas pourquoi tu passes par dessus le form 0
qui est automatiquement créé en Panoramic.

Pour l' apprentissage du langage, il me semble que tu veuilles aller plus vite
que la musique ( et je parle en connaissance de cause... Laughing

).
Il serait plus judicieux d' apprendre, à force d' utilisation, à maitriser les commandes
les unes après les autres avec de petit programmes,
avant d'essayer de pondre un programme très complexe.
J' en ai fait l' amère expérience

.

Comme tu as déjà des bases solides en programmation, cela devrait aller très vite... Laughing

@ Froggy one,

Réponse en plusieurs étapes :

1 /
Il n' y a pas d'oublis dans le code. Si tu regardes bien le label clic est déclaré dans la sub "declaration()"

2/
Pour m' être battu et débattu avec les procédures, en avoir plein mes programmes,
je peux te dire que tu peux en mettre plusieurs dizaines et même plus sans problème.

cf KGF_SUB.bas et autres....

Et même des centaines, voir des milliers... Je n'ai pas rencontré de limites.

Salut Froggy One

Pour le label Clic, Ygeronimi y a répondu : il n’y a pas d’omission donc.
A propos, je ne préfère pas utiliser LABEL, sauf si c’est incontournable (les ON_XXX exigent un LABEL)

Pour les 2 SUB qui se terminent par RETURN : tu as raison de relever cette étourderie de ma part.

Pour le nombre de SUB dans un programme, la réponse de Klaus est sans équivoque !

A+

Nombre de messages : 14 Date d'inscription : 25/05/2013

Bonjour Igeronimi Je n'ai pas de site pour mes programmes mais seulement pour mes photos.(denischampollion.com) Sinon, le reste dec mes activités est dans face book.J'ai un stock d'anciens programmes éducatifs faits en basic. Ils m'ont servi d'exemples pour mon éditeur qui les a reprogrammés. Depuis je ne fais plus que des ossatures de programme vu que de toute façon, ils sont refaits bien mieux ( voir mes "lecthèmes et parcours mathématiques" dans le site Jocatop
mais je progresse un peu dans la programmation structurée. Dans deux jours, je vous envoie la suite du prog d'orthographe sur lequel je travaille. Bonne fin de soirée Denis Champollion
J'ai démarré en ZX 81 puis MO5 TO8 PC WIND et Linux et LOGO bien sur

champollion a écrit:: J'ai démarré en ZX 81 puis MO5 TO8 PC WIND et Linux et LOGO bien sur

C’était le bon vieux temps : un ZX81 avec 1Ko de mémoire vive extensible à 16Ko et une fréquence de 4MHz !
Que des bons souvenirs !

Tiens, çà existe çà, des gens qui éditent les idées des autres... Laughing

( @ papydall, je ne parlais pas de ton antiquité... lol!

)

@Champollion,

Je pense qu'il est temps de te laisser souffler un peu, et tu verras, à l'utilisation, que Panoramic est un bon langage de programmation pour des habitué du basic.
Vu ce que tu as déjà fait le chemin ne devrait pas être trop long pour toi. Je te conseille fortement de lire les 4 sujets que Klaus avait fait et validés par Jack. Cà commence ici: https://panoramic.1fr1.net/t1498-structure-pour-un-programme-windows-1-4

A+

Nombre de messages : 14 Date d'inscription : 25/05/2013

et ce zx fonctionne encore !
Mes premiers logiciels repris par les pros, je les ai faits avec le TO8 D et pc 386. J'ai beaucoup été influencé par l'esprit LOGO

Tu t' es fait piquer tes idées par des pros.... bounce

Nombre de messages : 598 Date d'inscription : 06/01/2012

@ Champollion
Bravo en tous cas pour le travail effectué,
@ tous
Je persiste et signe sur l'erreur "(24) more SUBs then allowed number" qui apparaît, chez moi, au lancement.
Au fait j'aurais bien collé ici l'image mais entre les options HEBERGER et IMAGE je ne m'y retrouve pas...

sunny

Bonne journée !!!

PS : je n'ai pas trouvé d'icône avec un nuage Very Happy

Hello Froggy One.

Avec quel code tu as l’erreur (24) more SUBs then allowed number ?
Peux-tu poster le code incriminé ?
Je penche plutôt pour une erreur de logique dans le code et non que Panoramic ne digère pas des nombreuses SUBs !

Nombre de messages : 598 Date d'inscription : 06/01/2012

Voili voilà :

Code:: ******************************************************************************
' Code modifié par Papydall d'apès une idée de Champollion
' ******************************************************************************

Declaration()
GUI()
end : ' Ce end est essentiel pour que le programme aille pas exécuter la suite
' ******************************************************************************
' Ici on déclare les labels,les variables, les constantes etc..
SUB Declaration()
label clic
dim a$(4),e$(9)
a$(1)= "DECOUVERTE"
a$(2)= "APPRENTISSAGE"
a$(3)= "EVALUATION"
a$(4)= "QUITTER"
e$(1)= "Copie à vue"
e$(2)= "Copie de mémoire"
e$(3)= "Ecriture texte entendu"
e$(4)= "Ecriture sous dessin"
e$(5)= "Homophones lexicaux"
e$(6)= "Homophones grammaticaux"
e$(7)= "Accords genre et nombre"
e$(8)= "Conjugaison"
e$(9)= "Dictée"

END_SUB
' ******************************************************************************
' Ici on définit tous les objets utilisés dans le programme : FORM, BUTTON,PICTURE, etc...
SUB GUI()
dim_local n,l,h : ' variables locales
' Définition de FORM 10 et des objets qu'il contient
form 10 : width 10, 1280 : height 10, 800 : color 10,64,64,128
' On défini un ALPHA pour éviter d'utilser PRINT
alpha 11 : parent 11,10 : top 11,15 : left 11,430
font_color 11,255,0,0 : font_name 11,"comic sans MS": font_size 11,30
' On donne un texte a l'ALPHA
caption 11, "Ecriture Orthographe"
' On défini un PICTURE qui recevra l'image
picture 12 : parent 12,10 : top 12, 300 : left 12, 470 : height 12, 300 : width 12, 800
' file_load 12,"Papillion.bmp"
l =140
' Définition des boutons
for n = 13 to 15
button n : parent n,10 : top n, 140 : left n, l: l=l+ 350 : width n, 240:height n, 50
caption n, a$(n-12) : font_size n, 22 :font_bold n : on_click n,clic
next n
button 16 : parent 16,10 : top 16, 640 : left 16, 510 : font_size 16, 22 : font_bold 16
width 16, 230:height 16, 50 : caption 16, a$(4) : on_click 16,clic

' ------------------------------------------------------------------------------
' Définition du FORM 20 et de ses objets
form 20 : width 20, 1280 : height 20, 800 : color 20,64,24,128
alpha 21 : parent 21,20 : top 21,15 : left 21,430 : font_color 21,255,0,0
font_size 21,30 : font_name 21,"comic sans MS" : caption 21,"Liste des ecercices"

l=450 :h=120
for n = 22 to 30
button n : parent n, 20 : top n, h : left n, l: h=h+ 60 : width n, 400 : height n, 50
caption n, e$(n-21) : font_color n, 0,255,255 : font_size n, 20 :font_bold n
on_click n,clic
next n

button 31 : parent 31,20 : top 31,700 : left 31,600
caption 31, "Retour" : on_click 31,clic
hide 20 : ' on cache ce FORM
' ------------------------------------------------------------------------------
' Définition du FORM 40 et des ses objets
form 40 : width 40, 1280 : height 40, 800 : color 40,64,24,128
alpha 41 : parent 41,40 : top 41,15 : left 41,430 : font_color 41,255,0,0
font_size 41,40 : font_name 41,"comic sans MS" : caption 41,"COPIE SIMPLE"
alpha 42 : parent 42,40 : top 42,160 : left 42,430 : color 42,0,255,0
font_color 42,128,0,0 : font_size 42,40 : font_name 42,"comic sans MS"
caption 42," P A P I L L O N "

button 43 : parent 43,40 : top 43,700 : left 43,600
caption 43,"Retour" : on_click 43,clic
hide 40 : ' on cache ce FORM

END_SUB
' ******************************************************************************
' Ici on traite tous les clicks afin d'aiguiller le programme vers le sous-programme adéquat
clic:
if clicked(13) > 0 then Decouverte() : return
if clicked(14) > 0 then Apprentissage() : return
if clicked(15) > 0 then Evaluation() : return
if clicked(16) > 0 then Quitter()
if clicked(22) > 0 then Copie_A_Vue() : return
if clicked(23) > 0 then Copie_De_Memoire() : return
if clicked(24) > 0 then Ecriture_Texte_Entendu() : return
if clicked(25) > 0 then Ecriture_Sous_Dessin() : return
if clicked(26) > 0 then Homophones_Lexicaux() : return
if clicked(27) > 0 then Homophones_Grammaticaux() : return
if clicked(28) > 0 then Accords_Genre_Et_Nombre() : return
if clicked(29) > 0 then Conjugaison() : return
if clicked(30) > 0 then Dictee() : return
if clicked(31) > 0 then show 10 : hide 20
if clicked(43) > 0 then show 20 : hide 40

' ici on traite les éventuels clicks supplémentaires

return
' ******************************************************************************
' A compléter ...
SUB Copie_A_Vue()
show 40
message "Copie à vue en cours ..."
END_SUB
' ******************************************************************************
' A compléter ...
SUB Copie_De_Memoire()
message "Copie de mémoire en cours ..."
END_SUB
' ******************************************************************************
' A compléter ....
SUB Ecriture_Texte_Entendu()
message " Ecriture texte entendu en cours ..."
END_SUB
' ******************************************************************************
' A compléter ...
SUB Ecriture_Sous_Dessin()
message " Ecriture sous dessin en cours ..."
END_SUB
' ******************************************************************************
' A compléter ....
SUB Homophones_Lexicaux()
message "Homophones lexicaux en cours ..."
END_SUB
' ******************************************************************************
' A compléter ...
SUB Homophones_Grammaticaux()
message "Homophones grammaticaux en cours ..."
END_SUB
' ******************************************************************************
' A compléter ...
SUB Accords_Genre_Et_Nombre()
message " Accords genre et nombre en cours ..."
END_SUB
' ******************************************************************************
' A compléter ....
SUB Conjugaison()
message "Conjugaison en cours ..."
END_SUB
' ******************************************************************************
' A Compléter ....
SUB Dictee()
message "Dictée en cours ..."
END_SUB
' ******************************************************************************
' A compléter ....
SUB Decouverte()
show 20
END_SUB
' ******************************************************************************
' A compléter ....
SUB Apprentissage()
message "Apprentissage en cours ..."
END_SUB
' ******************************************************************************
' A compléter ....
SUB Evaluation()
message "Evaluation en cours ..."
END_SUB
' ******************************************************************************
SUB Quitter()
if message_confirmation_yes_no("Vous Voulez vraiment quitter") = 1 then terminate
END_SUB
'

Ce code fonctionne très bien chez moi.
( à condition de rajouter l' apostrophe qui a du échapper au copier/coller ligne 1 )

Nombre de messages : 598 Date d'inscription : 06/01/2012

OK, merci ! Apparemment j'ai un problème extérieur à ce qui se passe dans la fenêtre, j'ai aussi un GRID déclaré out of range sur un autre programme. J'attends de récupérer mon PC récent quelque part sous les plastiques entre les rouleaux de papier peint... je ressors mon guide du C et rapproche d'un bon lit douillet...

» bouton dans autre form que 0(résolu)
» FLTK: pb avec inactive form
» MAIN_MENU_POP sur FORM autre que 0
» ON_MOVE inopérant sur Form autre que 0
» Aller à la ligne dans message ou tout autre string