Message

Sujet: Message Jeu 10 Sep 2009 - 0:16

La fonction MESSAGE Texte$ permet l'affichage d'un texte et attend l'acquittement (clic du bouton OK)

Ce qui serait bien, ce serait comme pour le message de Windows d'avoir plusieurs réponses possibles: OK, Annuler, Ignorer, etc, définies à l'appel de la fonction, genre
cr = Message Texte$, Options
qui rendrait le bouton cliqué...

Sujet: Re: Message Jeu 10 Sep 2009 - 7:51

Salut JL35,
J'espère que tu as passé de bonnes vacances.
Je suis d'accord avec toi pour la fenêtre message et tant qu'a faire de réclamer, il faudrait que les commandes HIDE et INACTIVE fonctionnent.
A+

Sujet: Re: Message Jeu 10 Sep 2009 - 11:07

Oui merci Jean Claude, avec un temps superbe, comme vous avez tous pu le constater ! Et je vois que toi tu n'es pas resté inactif !

Pour Hide et Inactive, tu parles d'une manière générale ou pour Message ? Sinon pour moi ça marche, sur List notamment (je suis en train d'écrire un petit traitement de textes minimaliste perso, c'est vrai ça manquait !), et je me sers beaucoup de Hide et Show sans problème. Jusqu'ici.

Pour MESSAGE, sous Windows (en VB) on peut demander l'affichage de quelques boutons standards (Ok, Abort, Annuler etc.) et savoir quel bouton a été cliqué, mais de plus on peut faire une mise en forme minimale du texte par l'insertion de CrLf (retours chariot/interlignes: &hODOA) aux endroits désirés, on peut ainsi afficher un texte assez long et lisible.

Dans mon programme, par exemple, si l'utilisateur veut quitter sans avoir enregistré le texte s'il a été modifié, demander confirmation du quit ou son annulation, donc deux réponses possibles.

Sujet: Re: Message Jeu 10 Sep 2009 - 15:48

Les commandes HIDE et INACTIVE fonctionnent très bien, ce que je voulais dire c'est que si PANORAMIC accède à ta demande, alors ce serait bien de pouvoir gérer les bouttons de la fenêtre message avec ces commandes.
A+

Sujet: Re: Message Jeu 10 Sep 2009 - 16:40

Je ne comprends pas très bien ce que tu veux dire, Message étant une action ponctuelle, qui gèle tout le reste en attendant un clic sur un bouton, qui n'est pas un bouton déclaré dans Panoramic mais un bouton Windows, donc indépendant de la structure Panoramic.
Et une fois le clic sur ce bouton effectué la fenêtre message disparait définitivement, elle n'existe plus.
Si j'ai bien compris.
Et dans ce cas je ne vois pas l'utilité de la cacher ou de l'inactiver... ?

Sujet: Re: Message Jeu 10 Sep 2009 - 18:17

J'ignorait que cette fenêtre n'appartenait pas à PANORAMIC.Donc ma demande est caduque.
A+

Sujet: Re: Message Jeu 10 Sep 2009 - 18:54

Enfin, elle appartient à Panoramic, mais elle a probablement été codée en utilisant une dll de Windows, enfin je n'y connais pas grand'chose, seul le grand maître pourrrait répondre avec compétence.

Invité

Je voulais au début faire la même demande, lorsque les objets étaient limités en nombre. Mais sachant que cette limitation était temporaire, avec la facilité de programmation des objets, je pensé que cela pouvait être mis de côté. En effet dans les année 90, j'ai fait un programme de plus de 22000 lignes, et la boite d'alerte avec 3 boutons d'alors était insuffisant, et j'avais donc refait une boite (et là c'était plus compliqué, vu que les fenêtres sur Atari n'existe pas), dont tout était paramétrable (jusqu'à 20 boutons etc... ce n'est pas le problème). Aussi je refais une boite d'alerte pour mon propre programme. Je vous donne le listing, à vous de voir:

Code:: dim titr$,ok$,non$,quit$,ga1%,ga2%,ga3% ,cl%
label alarm,clic

ga1%=10:ga2%=70:ga3%=130
ok$="oui":non$="non":quit$="annuler"
titr$="Faites votre choix" :rem titre à définir pour chacun

rem ---------------FORME POUR ALERTE-------------------------------------------
form 1:left 1,500:top 1,200:width 1,210:height 1,100:border_hide 1:color 1,244,235,192
hide 1
rem picture 6:parent 6,1:left 6,0:top 6,0:width 6,210:height 6,100:stretch_on 6:file_load 6,"alerte.bmp"
alpha 2:parent 2,1:top 2,10:left 2,10:caption 2,titr$
button 3:parent 3,1:top 3,40:left 3,ga1%:width 3,50:height 3,25:caption 3,ok$
on_click 3,clic
button 4:parent 4,1:top 4,40:left 4,ga2%:width 4,50:height 4,25:caption 4,non$
on_click 4,clic
button 5:parent 5,1:top 5,40:left 5,ga3%:width 5,50:height 5,25:caption 5,quit$
on_click 5,clic
rem ------------fin de la forme------------------------------------------------

rem programme PRINCIPAL: forme avec un simple bouton ici pour faire l'essai

rem à part le titre, on peut avant d'appeler la boite, cacher un bouton,
rem modifier les textes des boutons, etc... selon les nécessités du programme

button 10:top 10,100:left 10,100:caption 10,"alarm"
rem l'appel se fait ici par "clic d'un bouton" ou "gosub alarm"
on_click 10,alarm

end

rem -------------sous programme alerte-----------------------------------------
alarm:
show 1:set_focus 3
return
clic:
cl%=0
repeat
if clicked(3)=1 then cl%=1
if clicked(4)=1 then cl%=2
if clicked(5)=1 then cl%=3
until cl%>0
print "bouton cliquer:"+str$(cl%)
hide 1
rem *** évidement cl% est le numéro à se servir pour les événements ***
return
rem ------------------fin d'alerte---------------------------------------------

Pour ma part, j'ai remplacé la couleur de la forme, obligatoire ici parce que j'ai supprimé la bordure, et la-dit forme n'est pas visible, par une image qui est une couleur avec une bordure et une ombre, qui fait une meilleure présentation. Mais ça c'est à vous de voir.
A+

Invité

si toutefois cela intéresse quelqu'un sur la boite d'alerte, en relisant le listing, j'ai vu que je pouvais remplacer l'image par une autre couleur, en réduisant la taille de l'objet picture. Je reprends les lignes 8 à 11:

Code:: form 1:left 1,500:top 1,200:width 1,210:height 1,80:border_hide 1:color 1,177,202,142
hide 1
picture 6:parent 6,1:left 6,5:top 6,5:width 6,200:height 6,70:color 6,244,235,192

(Si vous pensez que j'interviends de trop, dites le, je m'abtiendrais)
Bonne chance !

Sujet: re Ven 11 Sep 2009 - 15:13

salut

Non, tu n'interviens pas trop, surtout que c'est une remarque judicieuse

georges
@+

Sujet: Re: Message Ven 11 Sep 2009 - 16:32

Et voila une bonne solution.
Bravo pour les explications dans ton code, c'est pratique.
A+

Sujet: Re: Message Ven 11 Sep 2009 - 18:02

@cosmos
Effectivement, c'est pas bête du tout, ça fait au moins une solution de remplacement et je vais m'en inspirer lâchement.

Et surtout ne te prive pas de nous faire partager tes bonnes idées, eh !

Invité

Merci les gars, cela fait beaucoup. Je n'ai plus votre age, et j'ai parfois l'impression d'être un donneur de leçon, alors que je n'ai juste qu'un CAP de couvreur zingueur que j'ai passer pendant mon service militaire en 69.
A+

Sujet: Re: Message Ven 11 Sep 2009 - 23:31

Cela dit, j'ai fait mon service militaire bien avant toi !! alors, pas de complexes !

Invité

J'ai regardé mon listing cette après-midi rapidement, il fonctionne parfaitement, mais inconsiemment quelque chose me gênait. En dépit j'ai regardé de nouveau, et effectivement, la boucle REPEAT UNTIL, elle sert à quoi?, vu que le branchement se fait sur le clic d'un bouton. J'ai donc revu le listing, au moins si vous le copiez, il soit logique. J'en ai profité pour remplacer l'objet ALPHA par EDIT, cela permet de changer de titre (c'est d'ailleur la raison de la variable titr$, au lieu de mettre le texte directement dans le caption.) Au moment de la programmation, je pensais que si l'utilisateur ne pouvais modifier le titre, dans le programme, cela était encore possible. Mais ce n'est pas le cas. Je redonne le listing au complet avec modifs

Code:: dim titr$,ok$,non$,quit$,ga1%,ga2%,ga3%,cl%,alarm%
label alarm,clic

ga1%=10:ga2%=70:ga3%=130
ok$="oui":non$="non":quit$="annuler"
titr$="Faites votre choix" :rem titre à définir pour chacun

rem ---------------FORME POUR ALERTE-------------------------------------------
form 1:left 1,500:top 1,200:width 1,210:height 1,80:border_hide 1:color 1,177,202,142
hide 1
picture 6:parent 6,1:left 6,5:top 6,5:width 6,200:height 6,70:color 6,244,235,192
edit 2:parent 2,1:top 2,10:left 2,10:width 2,180:text 2,titr$:color 2,244,235,192

button 3:parent 3,1:top 3,40:left 3,ga1%:width 3,50:height 3,25:caption 3,ok$
on_click 3,clic
button 4:parent 4,1:top 4,40:left 4,ga2%:width 4,50:height 4,25:caption 4,non$
on_click 4,clic
button 5:parent 5,1:top 5,40:left 5,ga3%:width 5,50:height 5,25:caption 5,quit$
on_click 5,clic
rem ------------fin de la forme------------------------------------------------

rem OBJET pour la forme PRINCIPAL: avec un simple bouton ici pour faire l'essai

rem à part le titre, on peut avant d'appeler la boite, cacher un bouton,
rem modifier les textes des boutons, etc... selon les nécessités du programme

button 10:top 10,100:left 10,100:caption 10,"alarm"
rem l'appel se fait ici par "clic d'un bouton" ou "gosub alarm"
on_click 10,alarm

end

rem -------------sous programme alerte-----------------------------------------
alarm:
text 2,titr$
show 1:set_focus 3
return
clic:
for alarm%=3 to 5:if clicked(alarm%)=1 then cl%=alarm%-2:rem décalage n° d'objet et n°bouton
next alarm%
print "bouton cliquer:"+str$(cl%)
hide 1
rem *** évidement cl% est le numéro à se servir pour les événements ***

rem je change de titre pour le 2ème appel et les suivants
titr$="le titre est changé pour vérifier"

return
rem ------------------fin d'alerte---------------------------------------------

Bonsoir à+

Sujet: Re: Message Sam 12 Sep 2009 - 8:53

Hé bie moi, c'était en 73.

Ton code revu est bien plus court et l'edit c'est une bonne idée.

Au passage, puisqu'on parle entre "vieux", ou sont passés nos petits jeunes, comme Lutcho et d'autres encore.

A+

Sujet: Re: Message Sam 12 Sep 2009 - 9:59

L'impatience de la jeunesse...
moi c'était en 58/60, sous le beau ciel d'outre-Méditerrannée. Alors hein, vous les gamins...
Et merci à cosmos pour son nouveau code.

Sujet: re Sam 12 Sep 2009 - 18:58

salut les gars!

moi je me sens toujours aussi jeune qu'à mes 20 batons.
on est vieux que dans la tête

georges
@+

Sujet: Re: Message Mar 15 Sep 2009 - 13:24

Tant que le hardware ne donne pas d'usure...

Tu sais ce qu'on dit:
Quand, après 60 ans, tu te réveilles le matin et que tu n'as mal nulle part, c'est que tu es mort.

» Message
» Zéro message
» Message 'passant'
» message d' erreur
» Message de debug sur fct MESSAGE_WARNING_OK