Quiero saber más sobre este sistema de relajación
Hoy en dia, no solo se ve el tema de curar la enfermedad una vez que está, sino el tema de la prevención y promoción de la salud, y en el caso de que se pierda, pues mejorar la calidad de vida de la persona.
Antes:
==>> Después relajados 
Aprovechando que aprendí a ser monitor de relajación, creé este programa. Lo uso para cuando quiero prepararme un rato de relajación para desconectar la mente, para salir de las situaciones problematicas diarias o vitales,cuando hay una situación complicada, entrevista, examen, reunión, discusión, etc....
O bien después de ella. Además de sus efectos positivos sobre el colesterol, trigliceridos, sistema autonomo, sist. simpático, y otros de sensación subjetiva de relajación y bienestar.En si, el código del programa en sí está creado rápidamente, y de "scratch", como quien dice sobre la marcha. Pero en cambio el analisis está bien trabajado con un montón de horas de pruebas y actuación para conseguir una relajación óptima en el mínimo tiempo posible.
Se podía hacer todo con un solo mp3, pero opté por hacerlo en programa, por darle mayor flexibilidad según la situación:
Opciones que podeis añadir en el menú:
Informar del tiempo a usar.
El recorrido muscular especifico se puede hacer sin repetir con $x =1, "for $x=1 to 2 ;se puede hacer solo uno 17 minutos, si son 2 veces media hora (default x2 intenso).
- El recorrido general es con $z=1, se puede repetir 2 veces.
- Se puede hacer la relajación desde 15 minutos hasta 15x2x2= una hora, para alcanzar un mayor nivel de desconexión.
- Se pueden cambiar las voces para una voz femenina o masculina, según sea más relajante para la persona que lo oiga (cuidado q no estimulativa o demasiado sensual) o según la región o dialecto, Argentina, Mexico, Chile, Colombia, España.., hasta el lugar o el momento :) .
Puede cambiarse el mensaje de bienvenida o hacer varios.Etc... - Cambios con los mensajes introduciendo un primer paso qu es una entrada de visualización de un lugar que le haga sentir bien a esa persona, explicando ese lugar concreto, o incluso varios lugares a elegir, playa, monte, en un lugar etc..
- Alerta de cuando se va a hacer el próximo día, o listado de histórico como van las últimos semanas en cumplimiento de tareas
.Esta relajación es recomendable hacerla a diario para de resultados sanitarios eficaces a largo plazo.
Si se hace aleatoriamente va bien para el momento.
Nada mas, sea dicho a apagar la luz, en un ambiente tranquilo y a relajarse todos, YA!!
Código: Seleccionar todo
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=relax1.ico
#AutoIt3Wrapper_Res_Fileversion=0.0.0.4
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_Language=1034
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Sound.au3>
#Include <Misc.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\relax\Form1.kxf
$Form1 = GUICreate("Relax Basicos", 617, 444, 193, 125)
$Label1 = GUICtrlCreateLabel("Uso bajo su responsabilidad o con terapeuta -Licencia GPL- Autor Basicos en Autoit.es", 2, 392, 610, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("PULSE EL BOTON para empezar en unos minutos", 62, 88, 489, 268, $BS_ICON)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x008080)
$Label2 = GUICtrlCreateLabel("Pongase comodo, en semioscuridad y en total silencio para empezar", 8, 16, 599, 30)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Instruccion("Bienvenida.mp3")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
Relajacion()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func Relajacion()
sleep(30000)
For $z=1 to 2 ;; 2 veces x30 minutos una hora aprox (default x2. ES todo el recorrido, más un repaso)
For $i = 1 To 17 ;;; total casi 1 minuto por grupo 50,55 sgs
for $x=1 to 2 ;se puede hacer solo uno 17 minutos, si son 2 veces media hora (default x2 intenso)
TrayTip("Paso " & $i, $i & ".mp3", 5, 1)
Instruccion($i & ".mp3") ;media 8 sg
Instruccion("contraeya.mp3") ; tensiona ya 4
TrayTip("Tension " & $i , $i & ".mp3", 5, 1)
Instruccion("pongasumente.mp3") ;3,5 sgs
Instruccion("tensiona.mp3") ;3 sgs
sleep(2000)
Instruccion("sueltaya.mp3") ; suelta ya 4
sleep(7000)
Instruccion("pongasumente.mp3") ;3,5sgs
Instruccion("relaja.mp3") ; 3sgs
sleep(10000)
TrayTip("Relajacion " & $i , $i & ".mp3", 5, 1)
Next
Next
if msgbox(1,"Repetir sesion"," Cancelar para no repetir la sesion. 30 segundos",30)=2 then Exitloop
Next
EndFunc ;==>Relajacion
Func Instruccion($instruc)
$sound = _SoundOpen($instruc, "Startup")
If @error = 2 Then
MsgBox(0, "Error", "No existe el fichero")
Exit
ElseIf @error = 3 Then
MsgBox(0, "Error", "alias invalido")
Exit
ElseIf @extended <> 0 Then
$extended = @extended ;assign because @extended will be set after DllCall
$stText = DllStructCreate("char[128]")
$errorstring = DllCall("winmm.dll", "short", "mciGetErrorStringA", "str", $extended, "ptr", DllStructGetPtr($stText), "int", 128)
MsgBox(0, "Error", "The open failed." & @CRLF & "Error Number: " & $extended & @CRLF & "Error Description: " & DllStructGetData($stText, 1) & @CRLF & "Please Note: The sound may still play correctly.")
Else
; exito, el fichero se abrio bien
EndIf
_SoundPlay($sound, 1)
_SoundClose($sound)
EndFunc ;==>Instruccionhttp://www.emesn.com/mas/minddefrag.zip Versión inicial.
Solo comentar que el programa está creado. Usese bajo su propio "riesgo". Recomiendo que lo usen con un profesional o terapeuta autorizado para evitar problemas. Recomiendo dejar pasar al menos 2 horas después de una comida para mejor efecto. En caso, de dudas pueden preguntar en este foro.
¿Que os parecen tocarlo y hacer unos cambios?
.
Jajaja.... Realmente hacen falta un par de semanas de práctica mínimo, para hacerlo en esa situación. 
