Subrutinas por un orden específico

Discusión sobre NeoBook en español

Moderator: Neosoft Support

Locked
djmarkes
Posts: 193
Joined: Thu May 26, 2011 5:08 pm

Subrutinas por un orden específico

Post by djmarkes »

Hola!

Tengo 7 objetos, con la variable posición cada uno. Pero esos objetos se pueden mover uno por otro y su posición cambiará y no siempre será la misma (el de la posición 1 pasa a la 4 y vicecersa, por ejemplo)

Cada objeto tiene una subrutina diferente.

¿Cómo puedo ejecutar cada subrutina, en el mismo orden que los objetos?

Otro dato es que no puedo ejecutar una a una, primero se colocarán los objetos y después, al pulsar un botón empezaran a ejecutarse las 7 subs en el orden elegido.

Espero que como siempre, puedan ayudarme.

Gracias y un saludo!
Diseño gráfico y Web profesional
http://www.jm-style.net
Top
Neosoft Support
NeoSoft Team
Posts: 5628
Joined: Thu Mar 31, 2005 10:48 pm
Location: Oregon, USA
Contact:
Contact Neosoft Support

Re: Subrutinas por un orden específico

Post by Neosoft Support »

The only thing I can think of would be to use the GetObjectInfo action to determine the physical coordinates of each object and use that information to determine the subroutine order.
NeoSoft Support
Top
User avatar
virger
Posts: 540
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Re: Subrutinas por un orden específico

Post by virger »

Y de esta forma ?

Code: Select all

{NeoBook 5 Objects}
NeoBookVer=5,80
ObjectType=8
Name=GoSub
X=11
Y=95
W=270
H=315
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\colortbl\red0\green0\blue0;\red255\green0\blue0;\red0\green128\blue0;\red0\green0\blue255;\red255\green255\blue0;\red255\green0\blue255;\red128\green0\blue128;\red128\green0\blue0;\red0\green255\blue0;\red0\green255\blue255;\red0\green128\blue128;\red0\green0\blue128;\red255\green255\blue255;\red192\green192\blue192;\red128\green128\blue128;\red0\green0\blue0;\red0\green0\blue0;}\paperw12240\paperh15840\margl1440\margr1440\margt1440\margb1440\margh720\margf720{\*\pnseclvl1\pnucrm\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl2\pnucltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl3\pndec\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{.}}}¶{\*\pnseclvl4\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb}{\pntxta{)}}}¶{\*\pnseclvl5\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl6\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl7\pnlcrm\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl8\pnlcltr\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶{\*\pnseclvl9\pndec\pnstart1\pnhang\pnindent720{\pntxtb{(}}{\pntxta{)}}}¶\endnhere\sectdefaultcl{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0\b\ul EL GOSUB\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 \par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 :POS\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 if "[sf]" "<>" ""\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0     ListBoxFindItem "ABC" "[SF]" "[Ps]"\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0     GetObjectInfo "[Sf]" "Left" "[x]"\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0     GetObjectInfo "[Sf]" "Top"  "[y]"\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0     if "[x]" "<" "10"\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0         setvar "[x]" "0[x]"\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0     endif\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0     if "[x]" "<" "100"\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0         setvar "[x]" "0[x]"\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0     endif\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0     ListBoxChangeItem "LsXY" "[Ps]" "[x].[y].[Sf]"\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 endif\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 setvar "[sf]" ""\par¶\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 Return}}¶}
HMargin=0
VMargin=10
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14737656
FillPattern=0
TabOrder=12
ObjectType=8
Name=GGG
X=3
Y=5
W=50
H=38
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 GGG}}}
HMargin=0
VMargin=10
DragMode=5
ObjExitAction=GOSUB "POS"
DropAction=setvar "[sf]" "[self]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=7
ObjectType=8
Name=FFF
X=3
Y=5
W=50
H=38
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 FFF}}}
HMargin=0
VMargin=10
DragMode=5
ObjExitAction=GOSUB "POS"
DropAction=setvar "[sf]" "[self]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=3
ObjectType=8
Name=EEE
X=3
Y=5
W=50
H=38
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 EEE}}}
HMargin=0
VMargin=10
DragMode=5
ObjExitAction=GOSUB "POS"
DropAction=setvar "[sf]" "[self]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=5
ObjectType=8
Name=DDD
X=3
Y=5
W=50
H=38
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 DDD}}}
HMargin=0
VMargin=10
DragMode=5
ObjExitAction=GOSUB "POS"
DropAction=setvar "[sf]" "[self]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=2
ObjectType=8
Name=CCC
X=3
Y=5
W=50
H=38
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 CCC}}}
HMargin=0
VMargin=10
DragMode=5
ObjExitAction=GOSUB "POS"
DropAction=setvar "[sf]" "[self]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=8
ObjectType=8
Name=BBB
X=3
Y=5
W=50
H=38
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 BBB}}}
HMargin=0
VMargin=10
DragMode=5
ObjExitAction=GOSUB "POS"
DropAction=setvar "[sf]" "[self]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=6
ObjectType=8
Name=AAA
X=3
Y=5
W=50
H=38
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 AAA}}}
HMargin=0
VMargin=10
DragMode=5
ObjExitAction=GOSUB "POS"
DropAction=setvar "[sf]" "[self]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=4
ObjectType=10
Name=LsXY
X=534
Y=7
W=100
H=120
Anchor=0
Text=0,0¶0,0¶0,0¶0,0¶0,0¶0,0¶0,0
VarName=[XY]
VarType=0
XPTheme=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=11
ObjectType=3
Name=BtExe
X=512
Y=130
W=40
H=24
Anchor=0
Text=Exe
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=ListBoxSort "LsXY" "True"¶loop "1" "7" "[c]"¶    ListBoxGetItem "LsXY" "[c]" "[XY]"¶    strparse "[XY]" "." "[XY]" "[x]"¶    moveobject "[XY3]" "[XY1]-5" "[XY2]-5"¶    SetObjectFill "[XY3]" "Red" "Solid" "False"¶    delay "800"¶    moveobject "[XY3]" "[XY1]" "[XY2]"¶    SetObjectFill "[XY3]" "Silver" "Solid" "False"¶endloop¶ListBoxSort "LsXY" "False"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=9
ObjectType=10
Name=ABC
X=492
Y=7
W=39
H=119
Anchor=0
Text=AAA¶BBB¶CCC¶DDD¶EEE¶FFF¶GGG
VarName=[OB]
VarType=0
XPTheme=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=10
Domingo 9/Oct Contra RUSIA
(Amistoso)
PURA VIDA
COSTA RICA
PURA VIDA
Top
djmarkes
Posts: 193
Joined: Thu May 26, 2011 5:08 pm

Re: Subrutinas por un orden específico

Post by djmarkes »

Virger muchas gracias, he estado probando y creo que es lo que necesito.

Veo que haces la comparación de posición de izquierda a derecha.

¿Cómo lo edito para que lo haga por altura, siendo arriba la primera posición y abajo la última?

No entiendo muy bien como llamar a cada subrutina según el objeto.

:Sub_obj_AAA
....

Return

:Sub_obj_BBB
....

Return

...

Mil gracias de nuevo.

Saludos.
Diseño gráfico y Web profesional
http://www.jm-style.net
Top
User avatar
virger
Posts: 540
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Re: Subrutinas por un orden específico

Post by virger »

Asi de simple

Code: Select all

{NeoBook 5 Objects}
NeoBookVer=5,80
ObjectType=8
Name=GoSub
X=367
Y=155
W=270
H=315
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0\b\ul EL GOSUB\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 \par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 :POS\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 if "[sf]" "<>" ""\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0     ListBoxFindItem "ABC" "[SF]" "[Ps]"\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0     GetObjectInfo "[Sf]" "Left" "[x]"\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0     GetObjectInfo "[Sf]" "Top"  "[y]"\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0     if "[y]" "<" "10"\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0         setvar "[y]" "0[y]"\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0     endif\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0     if "[y]" "<" "100"\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0         setvar "[y]" "0[y]"\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0     endif\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0     ListBoxChangeItem "LsXY" "[Ps]" "[y].[x].[Sf]"\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 endif\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 setvar "[sf]" ""\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 Return\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 \par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 :SubAAA\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 alertbox "" "Sub 'AAA'"\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 Return\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 \par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 :SubBBB\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 alertbox "" "Sub 'BBB'"\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 Return\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 \par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 :SubCCC\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 alertbox "" "Sub 'CCC'"\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 Return\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 \par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 :SubDDD\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 alertbox "" "Sub 'DDD'"\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 Return\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 \par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 :SubEEE\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 alertbox "" "Sub 'EEE'"\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 Return\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 \par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 :SubFFF\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 alertbox "" "Sub 'FFF'"\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 Return\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 \par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 :SubGGG\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 alertbox"" "Sub 'GGG'"\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 Return}}}
HMargin=0
VMargin=10
LineColor=0
LineWidth=1
LineStyle=0
FillColor=14737656
FillPattern=0
TabOrder=1
ObjectType=8
Name=GGG
X=3
Y=5
W=50
H=38
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 GGG}}}
HMargin=0
VMargin=10
DragMode=5
ObjExitAction=GOSUB "POS"
DropAction=setvar "[sf]" "[self]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=7
ObjectType=8
Name=FFF
X=3
Y=5
W=50
H=38
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 FFF}}}
HMargin=0
VMargin=10
DragMode=5
ObjExitAction=GOSUB "POS"
DropAction=setvar "[sf]" "[self]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=3
ObjectType=8
Name=EEE
X=3
Y=5
W=50
H=38
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 EEE}}}
HMargin=0
VMargin=10
DragMode=5
ObjExitAction=GOSUB "POS"
DropAction=setvar "[sf]" "[self]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=5
ObjectType=8
Name=DDD
X=3
Y=5
W=50
H=38
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 DDD}}}
HMargin=0
VMargin=10
DragMode=5
ObjExitAction=GOSUB "POS"
DropAction=setvar "[sf]" "[self]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=2
ObjectType=8
Name=CCC
X=3
Y=5
W=50
H=38
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 CCC}}}
HMargin=0
VMargin=10
DragMode=5
ObjExitAction=GOSUB "POS"
DropAction=setvar "[sf]" "[self]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=8
ObjectType=8
Name=BBB
X=3
Y=5
W=50
H=38
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 BBB}}}
HMargin=0
VMargin=10
DragMode=5
ObjExitAction=GOSUB "POS"
DropAction=setvar "[sf]" "[self]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=6
ObjectType=8
Name=AAA
X=3
Y=5
W=50
H=38
Anchor=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0 AAA}}}
HMargin=0
VMargin=10
DragMode=5
ObjExitAction=GOSUB "POS"
DropAction=setvar "[sf]" "[self]"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
TabOrder=4
ObjectType=10
Name=LsXY
X=534
Y=7
W=100
H=120
Anchor=0
Text=0,0¶0,0¶0,0¶0,0¶0,0¶0,0¶0,0
VarName=[XY]
VarType=0
XPTheme=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=11
ObjectType=3
Name=BtExe
X=512
Y=130
W=40
H=24
Anchor=0
Text=Exe
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=ListBoxSort "LsXY" "True"¶loop "1" "7" "[c]"¶    ListBoxGetItem "LsXY" "[c]" "[XY]"¶    strparse "[XY]" "." "[XY]" "[x]"¶    moveobject "[XY3]" "[XY2]-5" "[XY1]-5"¶    SetObjectFill "[XY3]" "Red" "Solid" "False"¶    delay "100"¶    moveobject "[XY3]" "50" "[XY1]"¶    SetObjectFill "[XY3]" "Silver" "Solid" "False"¶    gosub "Sub[xy3]"¶endloop¶ListBoxSort "LsXY" "False"
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=9
ObjectType=10
Name=ABC
X=492
Y=7
W=39
H=119
Anchor=0
Text=AAA¶BBB¶CCC¶DDD¶EEE¶FFF¶GGG
VarName=[OB]
VarType=0
XPTheme=Yes
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=10
Algo mas ?
COSTA RICA
PURA VIDA
Top
djmarkes
Posts: 193
Joined: Thu May 26, 2011 5:08 pm

Re: Subrutinas por un orden específico

Post by djmarkes »

Virger.

Conseguido.

Muchas muchas gracias amigo.

Un saludo!
Diseño gráfico y Web profesional
http://www.jm-style.net
Top
Locked

Return to “NeoBook en Español”