FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» demande explication KGF pour imprimer en mm
Donner un nom aux objets, c'est possible ;) Emptypar lepetitmarocain Aujourd'hui à 12:55

» Petit passage furtif
Donner un nom aux objets, c'est possible ;) Emptypar Froggy One Hier à 14:26

» SPIN et aide langage (résolu)
Donner un nom aux objets, c'est possible ;) Emptypar leclode Sam 23 Mar 2024 - 15:20

» Aide-mémoire des mots-clés Panoramic
Donner un nom aux objets, c'est possible ;) Emptypar papydall Mer 20 Mar 2024 - 21:23

» Je ne comprend pas pourquoi la largeur de la scene 3d change
Donner un nom aux objets, c'est possible ;) Emptypar Marc Mar 12 Mar 2024 - 20:06

» Comment télécharger panoramic?
Donner un nom aux objets, c'est possible ;) Emptypar lepetitmarocain Sam 9 Mar 2024 - 13:31

» @lepetitmarocain <==> KGFGrid
Donner un nom aux objets, c'est possible ;) Emptypar Klaus Dim 3 Mar 2024 - 9:59

» Tangram-Toukaré
Donner un nom aux objets, c'est possible ;) Emptypar jjn4 Mer 28 Fév 2024 - 18:12

» Editeur EliP 6 : Le Tiny éditeur avec 25 onglets de travail
Donner un nom aux objets, c'est possible ;) Emptypar jjn4 Mer 28 Fév 2024 - 18:09

» KGF_dll - nouvelles versions
Donner un nom aux objets, c'est possible ;) Emptypar Klaus Mer 28 Fév 2024 - 17:01

» Mes souhaits d'amélioration de Panoramic.
Donner un nom aux objets, c'est possible ;) Emptypar Pedro Lun 26 Fév 2024 - 18:12

» Testez-votre-QI
Donner un nom aux objets, c'est possible ;) Emptypar jjn4 Dim 25 Fév 2024 - 17:12

» Utilisation d'Élip
Donner un nom aux objets, c'est possible ;) Emptypar jjn4 Sam 24 Fév 2024 - 18:33

» Récapitulatif ludothèque panoramic jjn4
Donner un nom aux objets, c'est possible ;) Emptypar jjn4 Sam 24 Fév 2024 - 18:11

» Générateur de mots de passe
Donner un nom aux objets, c'est possible ;) Emptypar mindstorm Mar 20 Fév 2024 - 20:09

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mars 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier
Le Deal du moment : -34%
-34% LG OLED55B3 – TV OLED 4K 55″ 2023 ...
Voir le deal
919 €

 

 Donner un nom aux objets, c'est possible ;)

Aller en bas 
3 participants
AuteurMessage
exdragon

exdragon


Nombre de messages : 601
Date d'inscription : 05/01/2012

Donner un nom aux objets, c'est possible ;) Empty
MessageSujet: Donner un nom aux objets, c'est possible ;)   Donner un nom aux objets, c'est possible ;) EmptyLun 6 Fév 2012 - 15:27

Salut Wink

Je viens de tester un truc qui marche on dirait^^ (oui pour changer^^)

Code:


' déclaration des routines (labels)
label fermer_panneau

' Déclaration variables

dim mafenetre
dim bouton_quitter

' initialisation variables

mafenetre=1
bouton_quitter=2

' Création des objets

form 1
button 2

' initialisation des objets

parent bouton_quitter,mafenetre
color mafenetre, 255,255,0
hide mafenetre
caption bouton_quitter,"fermer"

' evennements sur les objets

on_click bouton_quitter, fermer_panneau

' debut du programme
show mafenetre

end

' ======= routines =====

fermer_panneau:
hide mafenetre
return




Comme on le voit, mafenetre est le deuxième objet form donc il porte bien un nom désormais, qui est mafenetre et c'est plus facile à comprendre et gérer dans le programme.
Je ne sais pas si c'est faisable avec tous les objets mais pour celui-là ça marche, c'est cool.








Dernière édition par exdragon le Lun 6 Fév 2012 - 16:09, édité 5 fois
Revenir en haut Aller en bas
lodchjo

lodchjo


Nombre de messages : 162
Age : 52
Localisation : Anvers
Date d'inscription : 26/12/2011

Donner un nom aux objets, c'est possible ;) Empty
MessageSujet: Re: Donner un nom aux objets, c'est possible ;)   Donner un nom aux objets, c'est possible ;) EmptyLun 6 Fév 2012 - 15:50

Effectivement!
Je le fais pour créer un nombre d'objets qui sont pareils.
A voir p.ex. dans le poste sur le bouton qui bouge:

Les boutons +, -, x, /, ^, V¯ et les alpha's sous les boutons sont génerés avec un boucle for/next.
Je ne sais pas si j'avais déjà vu ça dans d'autres langues de programmation, mais c'est vachement pratique!

Code:

dim x, y, a$, item
label mv,clc
data "+", "-", "x", "/", "^", "V¯"
edit 1:left 1,10:top 1,10:width 1,70: height 1,25: text 1,"0"
alpha 2: left 2,10:top 2,35:width 2, 70:height 2,10:caption 2, "nombre 1":color 2, 255,255,255:on_click 2,mv
edit 3:left 3,150:top 3,10:width 3,70: height 3,25: text 3,"0"
alpha 4: left 4,150:top 4,35:width 4, 70:height 4,10:caption 4, "nombre 2:":color 4, 255,255,255: on_click 4,mv
edit 5:left 5,290:top 5,10:width 5,70: height 5,25: text 5,"0"
alpha 6: left 6,290:top 6,35:width 6, 70:height 6,10:caption 6, "résultat":color 6, 255,255,255: on_click 6,mv
for x=1 to 12 step 2
read a$
button 6+x:left 6+x, 30*x:top 6+x, 50: height 6+x,25:width 6+x, 25:caption 6+x, a$:on_click 6+x,clc
alpha 7+x: left 7+x,30*x:top 7+x,75:height 7+x,10:width 7+x, 25:color 7+x, 255,255,255: on_click 7+x,mv
next x
end
mv:
 set_focus 0
 item = number_click
 if number_change > 0 then item=number_change
 if item>0
 repeat
  caption 0, item
  left item,mouse_x_position (0)
  top item,mouse_y_position (0)
  left item-1,mouse_x_position (0)
  top item-1,mouse_y_position (0)-25
 until inkey$<>""
 end_if
return
clc:
 set_focus 0
 select number_click
 case 7
  text 5, str$(val(text$(1))+val(text$(3)))
 case 9
  text 5, str$(val(text$(1))-val(text$(3)))
 case 11
  text 5, str$(val(text$(1))*val(text$(3)))
 case 13
  if val(text$(3))<>0 then text 5, str$(val(text$(1))/val(text$(3)))
 case 15
  text 5, str$(power(val(text$(1)),val(text$(3))))
 case 17
  if val(text$(3))<>0 then text 5, str$(power(val(text$(1)),1/val(text$(3))))
 end_select
return

L.
Revenir en haut Aller en bas
http://lode.weebly.com
exdragon

exdragon


Nombre de messages : 601
Date d'inscription : 05/01/2012

Donner un nom aux objets, c'est possible ;) Empty
MessageSujet: Re: Donner un nom aux objets, c'est possible ;)   Donner un nom aux objets, c'est possible ;) EmptyLun 6 Fév 2012 - 15:54

EDIT ça marche même avec l'evennement on_click Wink
Revenir en haut Aller en bas
Nardo26

Nardo26


Nombre de messages : 2294
Age : 55
Localisation : Valence
Date d'inscription : 02/07/2010

Donner un nom aux objets, c'est possible ;) Empty
MessageSujet: Re: Donner un nom aux objets, c'est possible ;)   Donner un nom aux objets, c'est possible ;) EmptyMar 7 Fév 2012 - 0:21

Oui je fais ça dans la plupart de mes programmes : on y gagne en lisibilité...
Je répond à une question sous-jacente :
Et non.... la définition de constante n'est pas à l'ordre du jour... Wink
Revenir en haut Aller en bas
http://nardo26.lescigales.org
exdragon

exdragon


Nombre de messages : 601
Date d'inscription : 05/01/2012

Donner un nom aux objets, c'est possible ;) Empty
MessageSujet: Re: Donner un nom aux objets, c'est possible ;)   Donner un nom aux objets, c'est possible ;) EmptyMar 7 Fév 2012 - 2:43

Rhalala, toi aussi tu fais ça tous les jours et tu l'a même pas révélé, cachotier !

La constante tu peux pas t'en faire une juste avec une variable que tu touche plus ?

ça va fonctionner pareil non ?
Revenir en haut Aller en bas
Nardo26

Nardo26


Nombre de messages : 2294
Age : 55
Localisation : Valence
Date d'inscription : 02/07/2010

Donner un nom aux objets, c'est possible ;) Empty
MessageSujet: Re: Donner un nom aux objets, c'est possible ;)   Donner un nom aux objets, c'est possible ;) EmptyMar 7 Fév 2012 - 23:00

Ben je ne l'ai jamais caché : jettes un coup d'oeil à mes sources et tu verras... Wink
Quand aux constantes, contrairement aux variables, elles ne tiennent pas de place en mémoire...
Revenir en haut Aller en bas
http://nardo26.lescigales.org
exdragon

exdragon


Nombre de messages : 601
Date d'inscription : 05/01/2012

Donner un nom aux objets, c'est possible ;) Empty
MessageSujet: Re: Donner un nom aux objets, c'est possible ;)   Donner un nom aux objets, c'est possible ;) EmptyMar 7 Fév 2012 - 23:04

Ah c'est vrai tout ça Nardo Wink

!!! Very Happy
Revenir en haut Aller en bas
Contenu sponsorisé





Donner un nom aux objets, c'est possible ;) Empty
MessageSujet: Re: Donner un nom aux objets, c'est possible ;)   Donner un nom aux objets, c'est possible ;) Empty

Revenir en haut Aller en bas
 
Donner un nom aux objets, c'est possible ;)
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Donner une couleur à un objet container
» Taille des objets
» Nombre d'objets
» Re numerotation des objets
» objets barres

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: