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

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

Salut

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.

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.

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

EDIT ça marche même avec l'evennement on_click Wink

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

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

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 ?

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...

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

Ah c'est vrai tout ça Nardo Wink

!!!

» Donner une couleur à un objet container
» Re numerotation des objets
» Z-order des objets
» Pas plus de 35 objets système?
» Taille des objets