Autoit.ES

Publicado: **04 Oct 2010, 17:30**

Hola amigos de autoit

Bueno probando el remplazo de letras se me ocurrio hacer ke el titulo
del gui cambiara y de un efecto de movimiento.

No se si es la mejor manera de hacerlo pero es lo ke se me ocurrio a mi.
le puse un bucle infinito para ke kede cambiando el texto.

les dejo el codigo

Código: Seleccionar todo

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

GUICreate("titulo con movimiento", 380, 130, 192, 124)
GUISetBkColor(0x101A26)
$la1 = GUICtrlCreateLabel("a", 100, 32, 30, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$la2 = GUICtrlCreateLabel("n", 130, 32, 30, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$la3 = GUICtrlCreateLabel("d", 160, 32, 30, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$la4 = GUICtrlCreateLabel("r", 190, 32, 30, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$la5 = GUICtrlCreateLabel("e", 220, 32, 30, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$la6 = GUICtrlCreateLabel("s", 250, 32, 30, 41)
GUICtrlSetFont(-1, 24, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$boton = GUICtrlCreateButton("start", 150, 90, 73, 25)
GUISetState(@SW_SHOW)


While 1
	$nMsg = GUIGetMsg()

Switch $nMsg
		Case $GUI_EVENT_CLOSE
        Exit
case $boton

While 1
$texto1 = GUICtrlRead($la1)
$texto1 = StringReplace($texto1,"a","n")
sleep(80)
GUICtrlSetData($la1, $texto1)

$texto2 = GUICtrlRead($la2)
$texto2 = StringReplace($texto2,"n","d")
sleep(80)
GUICtrlSetData($la2, $texto2)

$texto4 = GUICtrlRead($la3)
$texto4 = StringReplace($texto4,"d","r")
sleep(80)
GUICtrlSetData($la3, $texto4)

$texto5 = GUICtrlRead($la4)
$texto5 = StringReplace($texto5,"r","e")
sleep(80)
GUICtrlSetData($la4, $texto5)

$texto6 = GUICtrlRead($la5)
$texto6 = StringReplace($texto6,"e","s")
sleep(80)
GUICtrlSetData($la5, $texto6)

$texto7 = GUICtrlRead($la6)
$texto7 = StringReplace($texto7,"s"," ")
sleep(80)
GUICtrlSetData($la6, $texto7)
;######################################################
$texto8 = GUICtrlRead($la1)
$texto8 = StringReplace($texto8,"n","d")
sleep(80)
GUICtrlSetData($la1, $texto8)

$texto9 = GUICtrlRead($la2)
$texto9 = StringReplace($texto9,"d","r")
sleep(80)
GUICtrlSetData($la2, $texto9)

$texto10 = GUICtrlRead($la3)
$texto10 = StringReplace($texto10,"r","e")
sleep(80)
GUICtrlSetData($la3, $texto10)

$texto11 = GUICtrlRead($la4)
$texto11 = StringReplace($texto11,"e","s")
sleep(80)
GUICtrlSetData($la4, $texto11)

$texto12 = GUICtrlRead($la5)
$texto12 = StringReplace($texto12,"s"," ")
sleep(80)
GUICtrlSetData($la5, $texto12)

$texto13 = GUICtrlRead($la6)
$texto13 = StringReplace($texto13," ","a")
sleep(80)
GUICtrlSetData($la6, $texto13)
;######################################################
$texto14 = GUICtrlRead($la1)
$texto14 = StringReplace($texto14,"d","r")
sleep(80)
GUICtrlSetData($la1, $texto14)

$texto15 = GUICtrlRead($la2)
$texto15 = StringReplace($texto15,"r","e")
sleep(80)
GUICtrlSetData($la2, $texto15)

$texto15 = GUICtrlRead($la3)
$texto15 = StringReplace($texto15,"e","s")
sleep(80)
GUICtrlSetData($la3, $texto15)

$texto16 = GUICtrlRead($la4)
$texto16 = StringReplace($texto16,"s"," ")
sleep(80)
GUICtrlSetData($la4, $texto16)

$texto16 = GUICtrlRead($la5)
$texto16 = StringReplace($texto16," ","a")
sleep(80)
GUICtrlSetData($la5, $texto16)

$texto17 = GUICtrlRead($la6)
$texto17 = StringReplace($texto17,"a","n")
sleep(80)
GUICtrlSetData($la6, $texto17)
;######################################################
$texto18 = GUICtrlRead($la1)
$texto18 = StringReplace($texto18,"r","e")
sleep(100)
GUICtrlSetData($la1, $texto18)

$texto19 = GUICtrlRead($la2)
$texto19 = StringReplace($texto19,"e","s")
sleep(100)
GUICtrlSetData($la2, $texto19)

$texto20 = GUICtrlRead($la3)
$texto20 = StringReplace($texto20,"s"," ")
sleep(100)
GUICtrlSetData($la3, $texto20)

$texto21 = GUICtrlRead($la4)
$texto21 = StringReplace($texto21," ","a")
sleep(100)
GUICtrlSetData($la4, $texto21)

$texto22 = GUICtrlRead($la5)
$texto22 = StringReplace($texto22,"a","n")
sleep(100)
GUICtrlSetData($la5, $texto22)

$texto23 = GUICtrlRead($la6)
$texto23 = StringReplace($texto23,"n","d")
sleep(100)
GUICtrlSetData($la6, $texto23)
;######################################################
$texto24 = GUICtrlRead($la1)
$texto24 = StringReplace($texto24,"e","s")
sleep(100)
GUICtrlSetData($la1, $texto24)

$texto25 = GUICtrlRead($la2)
$texto25 = StringReplace($texto25,"s"," ")
sleep(100)
GUICtrlSetData($la2, $texto25)

$texto26 = GUICtrlRead($la3)
$texto26 = StringReplace($texto26," ","a")
sleep(100)
GUICtrlSetData($la3, $texto26)

$texto27 = GUICtrlRead($la4)
$texto27 = StringReplace($texto27,"a","n")
sleep(100)
GUICtrlSetData($la4, $texto27)

$texto28 = GUICtrlRead($la5)
$texto28 = StringReplace($texto28,"n","d")
sleep(100)
GUICtrlSetData($la5, $texto28)

$texto29 = GUICtrlRead($la6)
$texto29 = StringReplace($texto29,"d","r")
sleep(100)
GUICtrlSetData($la6, $texto29)
;######################################################
$texto30 = GUICtrlRead($la1)
$texto30 = StringReplace($texto30,"s"," ")
sleep(100)
GUICtrlSetData($la1, $texto30)

$texto31 = GUICtrlRead($la2)
$texto31 = StringReplace($texto31," ","a")
sleep(100)
GUICtrlSetData($la2, $texto31)

$texto32 = GUICtrlRead($la3)
$texto32 = StringReplace($texto32,"a","n")
sleep(100)
GUICtrlSetData($la3, $texto32)

$texto33 = GUICtrlRead($la4)
$texto33 = StringReplace($texto33,"n","d")
sleep(100)
GUICtrlSetData($la4, $texto33)

$texto34 = GUICtrlRead($la5)
$texto34 = StringReplace($texto34,"d","r")
sleep(100)
GUICtrlSetData($la5, $texto34)

$texto35 = GUICtrlRead($la6)
$texto35 = StringReplace($texto35,"r","e")
sleep(100)
GUICtrlSetData($la6, $texto35)
;######################################################
$texto36 = GUICtrlRead($la1)
$texto36 = StringReplace($texto36," ","A")
sleep(100)
GUICtrlSetData($la1, $texto36)

$texto37 = GUICtrlRead($la2)
$texto37 = StringReplace($texto37,"A","N")
sleep(100)
GUICtrlSetData($la2, $texto37)

$texto38 = GUICtrlRead($la3)
$texto38 = StringReplace($texto38,"N","D")
sleep(100)
GUICtrlSetData($la3, $texto38)

$texto39 = GUICtrlRead($la4)
$texto39= StringReplace($texto39,"D","R")
sleep(100)
GUICtrlSetData($la4, $texto39)

$texto40 = GUICtrlRead($la5)
$texto40 = StringReplace($texto40,"R","E")
sleep(100)
GUICtrlSetData($la5, $texto40)

$texto41 = GUICtrlRead($la6)
$texto41 = StringReplace($texto41,"E","S")
sleep(100)
GUICtrlSetData($la6, $texto41)
;######################################################
WEnd
EndSwitch
WEnd

Mi pregunta seria si es posible hacer esto y ke kede como titulo del gui y
poder agregarle por ejemplo botones o imput y dejar ke el titulo siempre
kede en movimiento ?

Publicado: **05 Oct 2010, 01:59**

Aquí tienes varios ejemplos de movimientos de textos (marquesinas):

http://www.emesn.com/autoitforum/viewto ... marquesina

http://www.emesn.com/autoitforum/viewto ... f=4&t=2139

http://www.emesn.com/autoitforum/viewto ... f=4&t=2137

No es un efecto de marquesina, pero es un buen efecto de ondas hecho por Ximorro. Merece la pena verlo

:

http://www.emesn.com/autoitforum/viewto ... ilit=ondas

Para que estos efectos no paren el script, hay varias formas de hacerlo. Una es utilizar la función AdlibRegister en vez de meterlo en un bucle. Mirala en la ayuda.

Saludos.

Autoit.ES

titulo del gui con movimiento ?

titulo del gui con movimiento ?

Re: titulo del gui con movimiento ?