Source language: Translate to:

Cliks y acciones

Discusión sobre NeoBook en español

Moderators: Neosoft Support, beno

Cliks y acciones

Postby ppurbano » Thu Feb 02, 2017 6:56 am

Hola a todos

quisiera hacer que un mismo boton ejecute una accion diferente cada vez que lo pulse. Me explico, pulso una vez, me ejecuta una accion, si vuelvo a pulsarlo que me ejecute otra accion, como si fuera un encendido o apagado. Se podria hacer esto?

Gracias a todos de antemano
ppurbano
 
Posts: 13
Joined: Wed Jan 21, 2009 1:36 pm
Location: Montilla, Cordoba -España-

Re: Cliks y acciones

Postby Palamar » Fri Feb 03, 2017 3:42 am

Hola:

Primero tendrías que definir el estado del botón, por ejemplo si esta encendido o apagado (en propiedades de la página o al inicio de la app imagino).

Code: Select all
SetVar "[estado]" "Apagado"


Luego la idea es crear un If en el botón, de esta manera:

Code: Select all
If "[estado]" "=" "Apagado"
.Acá tus acciones para encender
.Podrías poner una imagen de encendido de una lampara
SetVar "[estado]" "Encendido"
else
.Acá tus acciones para apagar
.Podrías poner una imagen de apagado de una lampara
SetVar "[estado]" "Apagado"
endif


Fijate que la variable estado cambia, si esta apagado cambia a encendido, por lo que la próxima vez cuando presiones el botón la variable estará en "Encendido" entonces lo que va a realizar son las acciones de apagado.

Saludos!
Palamar
 
Posts: 157
Joined: Wed Apr 06, 2005 4:34 pm

Re: Cliks y acciones

Postby virger » Fri Feb 03, 2017 7:36 am

Si queres mas de "DOS ACCIONES" crea este boton
Code: Select all
{NeoBook 5 Objects}
NeoBookVer=5,80
ObjectType=3
Name=BtAccion
X=73
Y=22
W=101
H=32
Anchor=0
Text=[accion]
Align=2
ImageStyle=0
XPTheme=Yes
ObjAction=...Este segmento se puede poner en "accion PageEnter"¶if "[accion]" "=" ""¶    setvar "[Accion]" "Inicia"¶    gotoline "Siga"¶endif¶gotoline "[Accion]"¶¶:Inicia¶setvar "[Accion]" "Hace1"¶...codigo¶gotoline "Siga"¶¶:Hace1¶setvar "[Accion]" "Hace2"¶...codigo¶gotoline "Siga"¶¶¶:Hace2¶setvar "[Accion]" "Fin"¶...codigo¶gotoline "Siga"¶¶:Fin¶setvar "[Accion]" "Inicia"¶...codigo¶¶:Siga
LineColor=0
LineWidth=1
LineStyle=0
FillColor=12632256
FillPattern=0
Font=Arial
FontSize=10
FontStyle=0
FontCharset=1
TextColor=0
TabOrder=2
COSTA RICA
PURA VIDA
User avatar
virger
 
Posts: 509
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Re: Cliks y acciones

Postby ppurbano » Fri Feb 03, 2017 1:20 pm

Muchas gracias por vuestras respuestas. Voy a probarlo.

Un saludo

ppurbano@gmail.com
ppurbano
 
Posts: 13
Joined: Wed Jan 21, 2009 1:36 pm
Location: Montilla, Cordoba -España-

Re: Cliks y acciones

Postby ppurbano » Sun Feb 05, 2017 7:20 am

Todo perfecto, he tenido que poner un delay, ya que había momentos en que se me quedaban dos botones "enganchados" a la vez, pero vamos, todo perfecto.
Ahora lo que me gustaría saber, es como me dices antes, poner una imagen dentro del botón dependiendo si esta o no pulsado.
Otra cosa, como podría modificar el contenido de una variable.
Perdonad por mi ignorancia, pero soy completamente profano en todo esto.
Muchas gracias y un cordial saludo
ppurbano
 
Posts: 13
Joined: Wed Jan 21, 2009 1:36 pm
Location: Montilla, Cordoba -España-

Re: Cliks y acciones

Postby virger » Sun Feb 05, 2017 7:34 am

Creo que lo mejor que puedes hacer antes de pedir ayuda es LEER el HELP (Ayuda) que viene con NeoBook, ahi encontraras ejemplos de como utilizar los comandos y otros propios del lenguaje. Con gusto te ayudare en preguntas de algun grado de dificultad.
Desde Costa Rica, Virger
COSTA RICA
PURA VIDA
User avatar
virger
 
Posts: 509
Joined: Mon Sep 18, 2006 12:21 pm
Location: Costa Rica, America Central

Re: Cliks y acciones

Postby ppurbano » Sun Feb 05, 2017 12:39 pm

virger wrote:Creo que lo mejor que puedes hacer antes de pedir ayuda es LEER el HELP (Ayuda) que viene con NeoBook, ahi encontraras ejemplos de como utilizar los comandos y otros propios del lenguaje. Con gusto te ayudare en preguntas de algun grado de dificultad.
Desde Costa Rica, Virger


Gracias Virger, asi lo hare. Un cordial saludo
ppurbano
 
Posts: 13
Joined: Wed Jan 21, 2009 1:36 pm
Location: Montilla, Cordoba -España-


Return to NeoBook en Español

Who is online

Users browsing this forum: No registered users and 3 guests