Source language: Translate to:

Subrutinas por un orden específico

Discusión sobre NeoBook en español

Moderators: Neosoft Support, beno

Subrutinas por un orden específico

Postby djmarkes » Sun Oct 02, 2016 12:18 pm

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
User avatar
djmarkes
 
Posts: 187
Joined: Thu May 26, 2011 5:08 pm

Re: Subrutinas por un orden específico

Postby Neosoft Support » Sun Oct 02, 2016 2:10 pm

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
Neosoft Support
NeoSoft Team
 
Posts: 5593
Joined: Thu Mar 31, 2005 10:48 pm
Location: Oregon, USA

Re: Subrutinas por un orden específico

Postby virger » Mon Oct 03, 2016 5:42 pm

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
User avatar
virger
 
Posts: 510
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Re: Subrutinas por un orden específico

Postby djmarkes » Tue Oct 04, 2016 11:44 am

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
User avatar
djmarkes
 
Posts: 187
Joined: Thu May 26, 2011 5:08 pm

Re: Subrutinas por un orden específico

Postby virger » Wed Oct 05, 2016 7:45 am

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
User avatar
virger
 
Posts: 510
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Re: Subrutinas por un orden específico

Postby djmarkes » Wed Oct 12, 2016 5:49 am

Virger.

Conseguido.

Muchas muchas gracias amigo.

Un saludo!
Diseño gráfico y Web profesional
http://www.jm-style.net
User avatar
djmarkes
 
Posts: 187
Joined: Thu May 26, 2011 5:08 pm


Return to NeoBook en Español

Who is online

Users browsing this forum: No registered users and 2 guests

cron