Gracias a los grandes avances producidos en el área de la teoría de sistemas, electrónica e informática, hoy día se pueden usar complejos sistemas de control que permiten abordar el control de un sistema desde diversos ángulos (control predictivo, robusto, óptimo...)
No obstante, en cuanto al control de procesos industriales, el controlador PID sigue siendo el más utilizado (más de un 90% de los procesos en la industria son controlados por PIDs o variantes), principalmente debido a su robustez y a la clara identificación de sus parámetros (kp,ki,kd ) y su relación con la respuesta del sistema.
Aquí no os voy a explicar lo que es un PID, en el enlace anterior teneis algunas explicaciones, pero sin embargo es posible hacer que un PID se beneficie de los avances de los avances en estos campos.
En nuestro caso vamos a utilizar la teoría de conjuntos borrosos y lógica borrosa (fuzzy logic) para el autoajuste de los parámetros del PID.
Los pasos que explicaremos durante los próximos días, semanas o meses serán, grosso modo y sin que éste sea el orden en que se tratarán:
- El sistema que controlaremos.
- Como caracterizarlo para obtener unos valores de kp y kd que luego usaremos como máximos u mínimos en los ajustes (ganancia estática, identificación frecuencial...).
- Funciones de pertenencia.
- Reglas borrosas.
- Product inference engine.
- Singleton fuzzifier.
- Defuzzifier center average.
- Saturación del término integral y antiwindup.
- Límites en la señal de control.
- El código en C++ y una pequeña simulación en Matlab + Simulink.
- Resultados sobre el sistema real.
- Posibles mejoras.
A día de hoy con productos como el Arduino y otros chips similares es posible realizar un controlador PID como el que aquí se tratará para, por ejemplo, controlar la temperatura del flujo de aire de un secador o bién controlar los servos de un robot móvil.
Algún día dentro de un periodo no superior a 10 eones aparecerá el segundo capítulo con el sistema a controlar y probablemente su caracterización.
Casi se me olvida, para hacer todo esto, habremos de discretizar el sistema, naturalmente, usando la transformada Z .
PID con ajuste borroso de parámetros (Primera parte)
"Es que yo veo cosas.... y me parto la polla"
Hoy quiero rendir un homenaje a aquella genial frase de un personaje posiblemente enfermo y creo que oriundo del pueblo de Villarasa… como no podía ser de otra manera.
No vamos a contar la historia de ese hombre y su afición al consumo de ciertos estupefacientes que le hacían disfrutar de imágenes que sólo él podía ver mientras reía a carcajadas y exclamaba la famosa frase… (Aunque podríamos contarlo).
Sucede que a veces me pasa lo mismo, no exactamente por el consumo de drogas –en principio-, sino más bien por recuerdos que vienen a la mente en momentos inesperados.
En mi cabeza, la mayoría de las reposiciones son para una pequeña anécdota que revela los más tiernos sentimientos de la niñez, veréis.
Era un día cualquiera en el que nos pusimos de acuerdo para correr detrás de una pelota de fútbol sala por aquello de pegar patadas a algo y liberar tensiones.
Como era habitual, para el partido faltaba gente, por lo que tiramos de lo que encontramos, y aquí es donde entraron en acción el amigo ficticio Presa y su hermano imaginario, entonces pequeño –ahora lo ha superado-, que será el protagonista de la historia y que llamaremos ‘El presita’.
Tras el partido, acudimos a la cervecería de turno a deshidratarnos un poco más con alcohol en forma de cervezas, eso sí, bien frías, momento propicio para aquel grupo de hombres estableciera las típicas conversaciones acerca de las mujeres, ya sabéis, las típicas frases de los tíos en comandita… El maquillaje malva le sienta fenomenal a Silvia, ¿has visto que pantalón más chulo se ha comprado Juana?, No me gusta NADA NADA NADA ese peinado... etcétera… (Más o menos)
El caso, es que uno de nosotros, digamos Frodo mismamente, comenzó a alagar ostentosamente las caderas de una determinada hembra quizás asi:
Mientras hacía el gesto con ambas manos para recrear la forma de una copa, exclamaba… “¡Es que tiene UNAS CADERAAS! … buaaah…. ¡tiene UNAS CADEEERAS!”
El pequeño presita, con ambos ojillos abiertos como platos –igual que los demás, en cierto modo asombrados e intrigados por la parte del cuerpo que parecía ser el mayor estimulante sexual en una mujer para nuestro amigo-, esperó a que se produjera el silencio –buche de cerveza-, nos miró a todos tímidamente y, con calma, con una vocecilla pueril pero firme dijo: “¡SE ESTÁ PONIENDO BRUTO!”
Provocó algún que otro espurreo… Era lo que había que decir, pero no lo esperábamos de ese chaval… aún sonrío al recordarlo… con voz de niño… se está poniendo bruto… qué grande.
Time for nothing
El tiempo libre, ese preciado tesoro que en mi vida es un bien exiguo y que nadie nunca afirmará poseer por mucho que su última visita al tuenti los delate(1).
Si os dijera que os imaginarias una personificación antropomórfica del tiempo seguro que la gran mayoría coincidiría en un tipo entrado en años, probablemente calvo, con pelo blanco, una túnica blanca y una larga barba blanca y pobablemente con una media sonrisa preocupante(2), al fin y al cabo él sabe lo que ocurre a continuación(3).
En mi caso no es sólo que el tiempo libre escasee, lo realmente terrible es la cantidad de cosas que me gustaría dominar y, por desgracia, requieren mucho tiempo.
Así a bote pronto podría enumerar unas pocas sin pensar mucho:
- Escribir, aunque normalmente me cuesta encontrar un tema fijo y tengo tendencia a descarrilar el tren del pensamiento hacia otro tema con una pasmosa facilidad.
- Leer, esto no hay problema, lo hago todos los días, pero si estoy estresado solo puedo leer o ciencia ficción, fantasía o algo cómico.
- Tocar la guitarra, pero no como tu colega que sabe tocar algo de Oasis o algún lamentable grupo español(4), tocar como poco igual que Alexi Laiho, Jeff Loomis, Jani Liimatanen, Chris Broderick …
- Tocar el piano, pero no como tu colega que toca el cumpleaños feliz, tocar como poco igual que Jens Johannsson, Vitalij Krupij, Jordan Ruddess, Janne Wirman...
- Electrónica, microprocesadores y programación.
- Control y domótica.
- Robótica.
- Mitología.
- Cerveza, no solo beberla, también cómo hacerla.
- Diseño gráfico.
- Física, desde los quarks hasta la astrofísica.
- Un larguisimo etcétera...
Como Malber comentaba hace unas pocas entradas, yo soy el que acuñó la frase “Tengo tantas cosas que me gustaría hacer que me paso el día pensando que hacer y al final no hago nada”.
Llegas a casa, a tocar la guitarra una horita, hoy toca mejorar en los sweeps...
No puedes dejar el piano de lado, vamos a practicar cromáticas...
Habrá que cenar en algún momento...
El otro día dejaste la Ilíada a la mitad, vamos a leerla un poco...
El día ha sido duro, tu cabeza no da para más, que cabrón el Zeus, no dejó ni una sin darle lo suyo...
Vamos a leer algo más ameno....
Hora de dormir, normalmente son en torno a las 2, le has robado a tu vida dos horas de sueño y lo repites cada día hasta que gripas y te acuestas a las 9.
Y lo peor es que el avance en cada cosa es nimio, si para tocar la guitarra como Alexi hacen falta 10 años, yo necesitaré por lo menos 40 y es bastante probable que no disponga de tanto.
Se que nunca alcanzaré la zanahoria(5), pero en busca de ella llegaré lo mas lejos que pueda.
(1)Seguramente serán los mismos que te mandan a tu tablón/email mensajes como “Envia esto a todas las personas que prefieras que no mueran de una muerte horrible, si recibes esto de vuelta probablemente alguien sea tan estúpido como tú”(*)
(2)Al menos la gran mayoría que sea capaz de entender lo que significa personificación antropomórfica
(3)Y que sabe lo que ya ha ocurrido, es tan preocupante como jugar al poker con alguien que puede ver la mano que tienes y que sabe de ese pequeño problema de erección que sufres(**).
(4)Acéptalo, la música española es lamentable, solo servimos como referencia negativa.
(5)Algo de lo que los jamelgos no parecen ser conscientes.
(*) O quizás le des pena y te lo ha mandado por compasión(+)
(**) Esto es preocupante por sí solo
(+) Sí, yo no tendría compasión
El principio del fin.
Una de las primeras cosas más traumáticas de las que somos conscientes los humanos, incluso los candidatos a los premios Darwin(1), es que todo tiene un final.
Algo así nos parece, a priori, una amarga condena con la que vivimos, pero solo se trata de un nimio problema de enfoque.
Nos parece terrible el final por el hecho de que queremos hacer muchas cosas en nuestra vida, o bien por que nos aterra lo que viene después, nada extraño, por otra parte, los humanos siempre recelamos de lo desconocido, debe tratarse de una reminiscencia de nuestro pasado en los árboles, donde, lejos de ellos, eramos una especie de bufé libre para nuestros depredadores.
Pero realmente lo más terrorífico son las posibilidades que nos ofrece la "vida" después de la muerte.
Repasémoslas:
1 El paraíso o el infierno: Un cubo de unos 2400km de lado, en el caso del cielo(2), algo maravilloso para pasar la eternidad, parece que hay sitio para animales también reservado o quizás extraterrestres.
2 La reencarnación: Algo maravilloso, como si mi vida no fuera ya lo bastante agotadora como para querer vivir la de "otros".
3 La nada: Sumamente inquietante, al fin y al cabo somos meras interacciones entre distintas partículas más elementales, y aunque pasaras el universo por una picadora en la posición de "trocear el espacio-tiempo" mucho me temo que no encontrarías ni un atisbo de amor o justicia, por no hablar de Dios.
Realmente no estoy seguro de cual de las 3 opciones me aterra más, aunque creo que la nada puede ser lo mejor, una eternidad es algo excesivamente grande, tanto para pasarla puteado en el infierno como para pasarla rodeado de vírgenes desesperadas(3).
El caso es que todo tiene un final, aparentemente mi carrera también(4)
(1) Bueno, tampoco está muy claro.
(2) Bastante grande, o bien no nos extinguimos o tendremos compañía allá arriba. Siempre según el libro de las revelaciones.
(3) Dos atributos que perderían rápidamente.
(4) Cuentan que el primo segundo del amigo de la novia de alguien acabó una vez, pero no te vas a ir creyendo todo lo que cuentan por ahí.
Algo más que un terremoto
Se ha convertido en mi nuevo vicio:
Escuchar los podcast de todos los programas de misterio que conozco de la radio, me lleva a dormir poco cada noche… Milenio 3 (http://www.ikerjimenez.com/milenio3/index.html), La rosa de los vientos (http://www.ondacero.es/OndaCero/microsite/La-rosa-de-los-vientos/2166771/audios) , Espacio en blanco (http://www.rtve.es/podcast/radio-nacional/espacio-en-blanco/)...
Al contrario que muchos, prefiero escuchar este tipo de temas paranormales y cosas extrañas completamente a solas, en la absoluta oscuridad de la noche con las persianas bajadas y metido en cama.
En esta situación, ayer, escuchaba la repetición del programa del sábado de espacio en blanco, que se emitió en directo desde Bélmez de
Nunca me había asustado por escuchar este tipo de programas, pero anoche, justo cuando hablaban de extrañas presencias que estaban provocando que saltaran las alarmas de los sensores, sentí como mi cama se movía adelante y atrás como si alguien la empujara con fuerza… en el acto, pensé, esto tiene que ser un terremoto aunque no sea muy normal aquí, -como hoy pude saber que así fue-, pero no os puedo negar que con cierto temor, prendí la luz de la mesita de noche, asomé la cabeza por encima de la colcha y miré hacia los pies de la cama para asegurarme que no había ‘nadie’…
¡La madre que parió al terremoto y su don de la oportunidad!
Sueños incompletos...
Estás completamente inmerso en medio de una historia de la que participas, quizás de protagonista.
De pronto, algo no va bien, la imagen se desvanece. Algún ruido se ha colado en tu cabeza y sorprendido, despiertas y descubres que todo era un sueño. Algo te ha despertado, por ejemplo el despertador, pero ahora no hay tiempo de levantarse, debes acabar la historia en la que estabas metido, así que con la poca coordinación que tienes en esos momentos, aciertas a sofocar de un manotazo el maldito ruido y vuelves a dormir en cuestión de segundos para retomar tu sueño y continuar donde se quedó.
Es lo que llamaremos sueños incompletos. ¿Acaso hay algo que de más coraje que tener que levantarse en mitad de un sueño?
Para esto, para terminar una historia, estuve durmiendo unas doce horas el domingo… Mi cuerpo no podía dormir más a partir de la décima, pero mi cabeza insistía en seguir soñando…son las cosas de no tener nada constructivo que hacer un domingo por la mañana…
Quiero hacer tantas cosas en la vida...
...pero tengo tan poco tiempo, que me paso el día pensando qué hacer y acabo por no hacer nada.
Es una gran frase y una gran verdad que creo haber oído por primera vez de las ebrias palabras de nuestro amigo Frodus.
En la oscuridad de mi sesión de hoy, he pensado la ingente cantidad de cosas que quiero hacer cuando pueda volver a salir a la calle... viajar aquí o allá e ir a tantos lugares y exprimir cada segundo...
Sea por la causa que sea, cuando estamos enfermos, siempre anhelamos estar de nuevo sanos para poder hacer una gran cantidad de cosas que en ese momento no podemos hacer, pero es un autoengaño, veréis, me justifico:
Hace ahora un par de meses, cuando soportaba el mayor estrés, cuando más horas le robaba al sueño entre trabajo y ocio, en un sin parar, currando doce horas al día, haciendo pesas después durante hora y pico, jugando al fútbol día sí día no, hasta escribiendo entradas en este blog antes de dormir y mil cosas más… todo mi universo se detuvo de pronto debido a una fractura en un hueso. El estrés dio paso al periodo más largo de tranquilidad y paciencia que recuerdo desde que era niño y tenía dos meses de vacaciones en verano.
La vida tiene estas paradojas y está demostrado que cuando más cosas tienes que hacer, más cantidad de trabajo, más responsabilidades… en un suspiro, el crujido de un hueso te obliga a dejarlo todo y cambiar por completo, ante todo, la mentalidad.
Es algo muy común que estas cosas ocurran bajo estas circunstancias de presión a tenor de los testimonios que me han llegado de muchos que han pasado por esto.
En una primera fase, sólo puedes recordar las cosas que ya no puedes hacer.
Poco más tarde, aprendes a disfrutar del nuevo tiempo libre y a reflexionar sobre qué es la vida y paranoias del estilo.
Haces cosas que de otra manera, difícilmente habrías podido sin robarle más horas al sueño. Son las vacaciones que comentaba y descubres esa otra vida que tenías olvidada.
Pero pasado un tiempo, tanto rato libre empieza a agobiar. Todos los días parecen iguales y necesitas hacer más cosas porque el pequeño mundo en el que estás confinado, se te ha quedado muy pequeño. Son momentos para pensar qué grandes cosas harás cuando recuperes tu vida…
Sin embargo, también ves que se acerca el momento de volver al estrés que dejaste y que te espera con ansia. En aquellos tiempos nunca tenías tiempo para esos planes que ahora tienes.
Lo que es seguro, es que si nada cambia, va a ser difícil que tengas tiempo para hacer otra cosa que no sea lo que ya hacías, o sea, casi nada, porque estarás siempre demasiado cansado cuando tengas tiempo libre.
Es necesario tratar de evitar el agobio y el estrés que acarrea el exceso de trabajo, porque aunque parezca que a veces es inevitable y que es “lo que hay que hacer”, es mucho mejor plantarse, parar y sacar todo el tiempo que necesitas para ti por las buenas, antes que tener que aprenderlo por obligación.
Recuerda que después, tarde o temprano, acabarás echando de menos todas esas cosas que nunca pudiste hacer.
Para un minuto, cierra los ojos y piensa en qué cosas te gustaría hacer de inmediato, en menos de una semana, donde ir, quienes te gustaría que estuvieran contigo... párate, organizalo y búscale un hueco cuanto antes y ante todo, hazlo ahora, porque si lo dejas para después, puede ser tarde.
La pobreza debe existir
Dentro del programa para la recuperación de mi especie, me someto a una suerte de tortura en la que me encierran en una habitación con la única compañía de la luz del techo mientras recibo imperceptibles pero supuestas ondas sanadoras en mi maltrecho peroné a medio soldar...
Este tiempo es muy útil para pensar y lo aprovecho para obtener razonamientos como el que viene hoy.
Estamos en crisis, según dicen, pero nuestro país, debe tener un buen dinero en las arcas públicas. Todos oímos hace tiempo que el gobierno ayudaría a superar la crisis a base de prestar no se cuantos millones de euros a los bancos…
Según pudimos escuchar y como podemos comprobar con ciertas fuentes, la cifra de la ayuda rondaría los 100.000 millones de euros (http://www.cnnexpansion.com/economia/2009/07/01/banco-de-espana-crea-fondo-bancario).
Por otro lado, sabemos que en España hay una población de 50 millones de habitantes (46.157 según el INE a 1 de Enero de 2008 http://www.ine.es/ioe/ioeFicha.jsp?cod=30245).
Yo no soy matemático de momento, pero si volviera a tener 10 años, haría una cuenta muy sencilla: si en vez de ayudar a los bancos para que puedan seguir prestando dinero y endeudando a la gente, puesto que el dinero del estado es de todos… si damos 2 millones de euracos a cada habitante de España… ¿no acabamos con la crisis de toda la nación?
Justo después, como no tengo 10 años aunque a veces lo parezca, caí en la cuenta que eso no es posible, o al menos, no sin un buen plan de contingencia.
Date cuenta que moriríamos todos de hambre a corto plazo… ¿Quién iba a trabajar en España siendo rico? ¿Quién se ‘eslomaría’ trabajando el campo? ¿Quién haría de transportista de mercancías? ¿Quién haría de policía? ¿Quién estaría dispuesto a hacer algo que no fuese… pagar?
Y entonces, la única solución para seguir viviendo en el país, sería contratar extranjeros pobres desesperados por ganar dinero que hicieran todo el trabajo, no sin un buen caos de transición. Sus hijos nacidos aquí, nuevos españoles, los necesarios futuros pobres.
En definitiva, supongo que repartir dinero del estado entre los españoles, debe ser una chorrada de idea y no pasará de ser demagogia barata, pero la conclusión a la que se llega, es aterradora: Tiene que existir gente que trabaje por un mínimo para que otros puedan seguir pegándose la gran vida.
Malber - Ella tiene algo especial
Sí, es así, aunque no lo creas, aquella señorita que viste aquella vez escondía algo (no la de la foto porque no tenemos ni idea de quien es).
Hemos decidido descubrirlo a modo de canción...
Como sois más de dos los que váis preguntando cómo se hace esto, os diré que continúo con el proyecto de convertir un cuartucho en un estudio de grabación a base de buenos programitas y un par de instrumentos... Ya sabéis el lema, Basta un teclado y una guitarra, para hacer canciones guarras. Bueno sí, y algo de tiempo, pero tampoco tanto...
Respecto a las anteriores canciones, tenemos las siguientes mejoras (se supone) para paliar el problema de no tener cantante:
- VocalMagic
- Melodyne
pero nada comparado con....
- El micro acolchado con forma de rabo africano 100% casero: 
¡Grabe ahora sus maquetas en casa de Malber por menos de lo que piensa y obtenga resultados profesionales, prácticamente!
Nunca se había visto tanta profesionalidad... nunca.
Si tuviera medios... viviría de la SGAE...
Malber - Políticos
Pues nada, la campaña navideña está siendo prolífica y pronto tendremos el primer CD en las principales gasolineras.
Este tema va dedicad a tus queridos amigos los políticos. Trata de explicar por qué a veces toman decisiones tan difíciles de entender...
Malber - Recuerdos
Ya. Ya se que hemos abandonado la escritura pero tiene una justificación en parte.
Esto es como los delanteros y sus rachas de goles, lo mismo te escribimos siete artículos en cuatro días que pasa un mes en blanco.
Está claro que así nunca seremos uno de esos prestigiosos sitios que debas visitar a diario, pero te equivocas, porque a veces, un sólo artículo puede valer por treinta.
Por desgracia hoy no es el día.
He pasado las últimas horas componiendo otro tema. Antes de cerrar la ventana espera que te cuente, hombre.
He querido cambiar el registro y experimentar con una balada, como oyes, el resultado lo juzgarás tú, a la derecha de dejo una encuesta para que me humilles. Aunque bueno, tampoco vas a poder, tengo asumido que seguiré trabajando en lo que sea que hago por esos mil euros muchísimo tiempo más.
El tema en sí surgió porque todo el mundo tiene alguien a quien echar en falta. Aunque soy bastante raro, puede decirse que más o menos, comparto ese punto con vosotros. Hubo quien también marcó mi infancia de forma que todos mis recuerdos están asociados a su presencia.
Se podría decir que nunca tuvo una mala palabra, claro que, era un gato, o una gata, como queráis. Este es mi pequeño homenaje, al que quizás también podáis darle vuestra propia dedicatoria.
La OUIJA. Conjeturas racionales I.
Hace muchísimo que deseábais leer mis palabras y hoy estáis de suerte porque mira, me ha dado por ahí, pero que conste que sigo en huelga hasta que se acabe el mundo.
No os aburro. Se que sois personas ocupadas (ver porno en la red es una ocupación) y vamos a abordar varios capítulos sobre temas de misterio de los que os gustan. Hoy voy a tratar de haceros reflexionar sobre los fenómenos que acontecen al practicar la OUIJA. ¿Fantasmas o ciencia de la "no oficial"?
Yo no creo en los fantasmas, aunque he visto muchos, como puedes ser tú, con lo que te vas a quedar to pillao con la rara explicación qué, a mi entender, es tan válida como la extracorpórea, que también es rara y no puedes negarlo como que estás apestado.
Para explicar lo que ocurre, si es que ocurre algo, nos vamos a basar en tres capacidades mentales del ser humano que muchos ya conoceréis pero que son bastante polémicas en el ámbito científico como son la telequinesis, la telepatía y ciertos componentes de la incuestionable hipnosis. Las dos primeras las podéis tachar de palabrería, en ese punto, estamos empatados con los fantasmas, por eso digo que es sólo una conjetura 'racional'.
Para los que no estéis familiarizados:
Telequinesis: Es la capacidad para mover objetos con la mente. En youtube puedes encontrar miles de videos de personas que afirman pueden desplazar pequeños objetos como bolitas de papel dentro de frascos. Casi todos son falsos, quien lo duda, pero algunos te hacen pensar que igual alguien puede hacerlo. Ten en cuenta que no sabemos ni donde vivimos...
Encontrarás ejercicios prácticos para entrenar tu mente e intentar mover bolitas. Así no harás daño a nadie durante un buen rato. Personalmente lo intenté, pero no logro el nivel de concentración necesario y sigo trabajando. La barrera de la lógica evita que seas capaz de hacerlo y aún no la he podido superar.
LLámame loco y no te equivocarás, pero creo más en que alguien pueda mover algo por una habilidad desconocida en el esapcio/tiempo a que venga Hitler a moverlo. Tu mente se niega a ver que eres capaz de eso conscientemente. Tampoco sabemos si todo el mundo podrá y qué circunstancias son necesarias... quizás en inconsciencia la cosa cambia...
Telepatía: Es la capacidad para transmitir pensamientos a otra persona con el único uso de la mente. A lo largo de la historia se han dado casos que son difíciles de explicar mediante trucos. Puedes hacer tus propias búsquedas en google. También encontrarás ejercicios prácticos para preparar tu mente e intentar transmitir pensamientos. Un divertido ejercicio que puede hacer cualquiera es concentrarse en la nuca de la persona que camina delante a varios metros y 'transimitirle' el mensaje para que se de la vuelta para mirar. Sin perseguirlo ni nada raro, que os veo venir.
Os sorprenderá como llega un momento que el índice de éxito es muy elevado. Yo no he conseguido comunicarme con nadie y sigo en la fase de leer figuras... pero sí es cierto que además de llamar la atención a la gente desde lejos, puedes ser mucho más perceptivo y a veces te parecerá 'leer' fragmentos de pensamiento de una persona sin gesticular antes de hablar... que te puede dar la razón y miedo por igual en minutos... LLamo casualidad a dos, tres veces... cuando empieza a suceder de forma recurrente, igual es que hay algo más.
Hipnosis: Su existencia es incuestionable. La hipnosis se basa en sujestiones. Una persona sujestionada tomará todo lo que le indique el hipnotizador como la realidad. Es un estado mental extraño, somnoliento pero no dormido, en el parece que la mente está completamente abierta y accesible a recuerdos que despiertos no logramos evocar... quien sabe qué más cosas podremos hacer en un estado alterado de consciencia.
Con estos tres pilares, comenzamos nuestra sesión de OUIJA.
Fase hipnótica: Primero tenemos preparado todo un ambiente muy sujestionable. En sí, las personas que se ofrecen a participar, son muy conscientes que deben tomarlo muy en serio y deben estar preparadas para lo que pueda ocurrir, que no será cosa de broma y estarán preparados para fenómenos paranormales. Es una auténtica sujestión al igual que la que utilizaría un hipnotizador antes de dormirte. En este caso, puede ser autohipnótico. El participante se autoconvence que va a vivir algo que no es lógico. Antes de comenzar, la mente está abierta y preparada. Es el alumnno perfecto.
La sujestión se acenúa con cada paso. Agarrar las manos de los participantes, las palabras de la persona que guía, que consciente, o inconscientemente, hace de hipnotizador del grupo.
No nos vamos a dormir, pero nos vamos a preparar para lo desconocido y sabemos lo que debería ocurrir si todo "funciona".
Fase telepática: El miedo y la sensación de que algo empuja la mano, pueden ser la obra del pensamiento común. Sabemos lo que tiene que ocurrir y ocurrirá por obra de todos. El participante no quiere mover el vaso o el objeto, pero algo le empuja a hacerlo y a su vez, lo transmitirá a los demás. Todos se empujan a hacerlo entre sí y actuarán como uno. El más sujestionado o el líder mental debe ser quien guíe el movimiento del común aunque sea de forma inconsciente transmitiendolo a los demás. Al ver lo que sucede, la sujestión del grupo cada vez es mayor.
Fase telequinésica: Pleno apojeo de la sesión. Tenemos un vaso que nos transmite un mensaje y el guía pide una señal de presencia para descartar engaños. Los individuos plenamente sujestionados de la presencia de un fantasma que mueve el vaso, podrán ser capaces de creer que el fantasma podrá mover cualquier objeto de la sala. Puede ser el reflejo de un acto de telequinesis. Al haber saltado la barrera de la lógica y pensar que no es obra nuestra, la mente puede ser capaz de realizar sus deseos y mover objetos de una forma que no podría hacer bajo otras circunstancias.
Creíble o no, lo decides tú. Puedes comentar qué te parece, o puedes insultar incluso, pero aunque existan los fantasmas, es una teoría que podría no estar muy equivocada.
Usar Visual Basic para crear una suerte de "navegador de formularios"
Situemonos, tenemos un formulario con un menú superior siempre visible.
Dentro hay dos subformularios, uno es otro menú y el otro el que muestra los datos y permite su edición y demás.
Supongamos que el menú superior nos permite navegar por categorias, digamos "Expedientes", "Busqueda", "Actualizar".
Mientras el menu de la izquierda es más específico, así, por ejemplo, dentro de "Busquedas" habrá opciones de Busqueda por diferentes criterios y así sucesivamente.
Bien, además disponemos de un botón de Atrás y otro de Adelante para navegar como lo hacemos en nuestro querido Firefox.
Pues vamos al lio, necesitamos un módulo y en el escribimos algo parecido a esto:
Public Function FuenteSubForm(ByVal Fuente As String, ByVal Menu As String, ByVal stlinkcriteria As String, ByRef Atras As Variant, ByRef Adelante As Variant, ByRef AtrasB As Boolean)
Dim i As Integer
'Funcion para el cambio de Subformulario en el form principal
'recibe el nombre del formulario en Fuente,el nombre del menú en Menu, el filtro en stlinkcriteria, la matriz para el historial hacia atras en Atras,
'la matriz con el historial hacia adelante en Adelante y para distinguir si se llama desde atras o adelante o desde un menu se usa AtrasB
'Si es verdadero se ha llamado desde Atras o Adelante, si es falso es un boton de menu
If Forms!Principal.SubForm.SourceObject <> Fuente Or Forms!Principal.Menuej.SourceObject <> Menu Then
If Not AtrasB = True Then 'Si no ha sido llamada desde Atras o Adelante ejecuta lo siguiente
For i = 0 To 19
If Atras(i, 1) & "" = "" Then
Atras(i, 1) = Forms!Principal.SubForm.Form.Name 'Guarda el nombre del formulario actual en la matriz
If Forms!Principal.SubForm.Form.FilterOn = True Then
Atras(i, 2) = Forms!Principal.SubForm.Form.Filter 'Si hay un filtro activo lo guarda en la matriz
Else
Atras(i, 2) = ""
End If
Atras(i, 3) = Forms!Principal.Menuej.Form.Name 'Guarda el nombre del menú actual en la matriz
Exit For
End If
Next i
If i >= 19 Then 'Si la matriz está llena hace sitio desechando el primer elemento de la matriz y moviendo todos los demas
i = 0
Do While Not i > 19
Atras(i, 1) = Atras(i + 1, 1)
Atras(i, 2) = Atras(i + 1, 2)
Atras(i, 3) = Atras(i + 1, 3)
i = i + 1
Loop
i = 19
Atras(i, 1) = Forms!Principal.SubForm.Form.Name
If Forms!Principal.SubForm.Form.FilterOn = True Then
Atras(i, 2) = Forms!Principal.SubForm.Form.Filter
Else
Atras(i, 2) = ""
End If
Atras(i, 3) = Forms!Principal.Menuej.Form.Name
End If
For i = 0 To 19 'Borra la matriz Adelante al no tener ya sentido puesto que no se ha llamado desde Atras
Adelante(i, 1) = ""
Adelante(i, 2) = ""
Adelante(i, 3) = ""
Next i
End If 'Fin de las instrucciones que se ejecutan exclusivamente cuando se llama desde un boton distinto a Atras o Adelante
'A partir de aqui se ejecutan para todos los casos
AtrasB = False
Forms!Principal.SubForm.SourceObject = Fuente 'Cambia el subformulario contenido en el control SubForm del formulario Principal por el valor de Fuente
If Not stlinkcriteria & "" = "" Then
Forms!Principal.SubForm.Form.Filter = stlinkcriteria 'En el caso de que exista filtro, cambia el filtro del SubForm y lo aplica
Forms!Principal.SubForm.Form.FilterOn = True
End If
Forms!Principal.Menuej.SourceObject = Menu
End If
For i = 0 To 19
If Atras(i, 1) & "" = "" Then
Exit For
End If
Next i
If i = 0 Then
Forms!Principal.lblCab05.ForeColor = vbRed 'Las referencias a los controles han de ser completas al tratarse de un modulo que puede ser llamado desde cualquier Subform
Else
Forms!Principal.lblCab05.ForeColor = vbGreen
End If
For i = 0 To 19
If Adelante(i, 1) & "" = "" Then
Exit For
End If
Next i
If i = 0 Then
Forms!Principal.lblCab06.ForeColor = vbRed
Else
Forms!Principal.lblCab06.ForeColor = vbGreen
End If
End Function
Y os preguntareis que cojones es eso, bueno, eso se usa de la siguiente forma, en el evento on click de cualquier botón se usa FuenteSubForm "MantenimientoExp", "Menuej", "", Atras, Adelante, False.
Es decir, primero el nombre del subformulario que vamos a mostrar, luego el nombre del subformulario que contiene el menú que vamos a mostrar, luego el filtro que usamos en el formulario, la matriz Atras que contiene los valores del historial de navegación, la matriz Adelante Idem, y un False que indica que no ha sido llamada desde los botones Atras o Adelante.
Tambien necesitamos el código del botón atras y el de adelante:
Atras:
Private Sub lblCab05_Click()
'Boton Atras, vuelve al formulario anterior almacenado en Atras(i,1) con el filtro Atras(i,2)
'Pasa el formulario actual a Adelante(j,1) y el filtro a Adelante(j,2)
Dim i, j As Integer
i = 0
Do While Not Atras(i, 1) & "" = ""
i = i + 1
If i = 20 Then
i = 19
Exit Do
End If
Loop
j = 0
Do While Not Adelante(j, 1) & "" = ""
j = j + 1
Loop
If Not i = 0 Then
Adelante(j, 1) = Forms!Principal.SubForm.Form.Name
If Forms!Principal.SubForm.Form.FilterOn = True Then
Adelante(j, 2) = Forms!Principal.SubForm.Form.Filter
Else
Adelante(j, 2) = ""
End If
Adelante(j, 3) = Forms!Principal.Menuej.Form.Name
AtrasB = True
FuenteSubForm Atras(i - 1, 1), Atras(i - 1, 3), Atras(i - 1, 2), Atras, Adelante, AtrasB
Atras(i - 1, 1) = ""
Atras(i - 1, 2) = ""
Atras(i - 1, 3) = ""
For i = 0 To 19
If Atras(i, 1) & "" = "" Then
Exit For
End If
Next i
If i = 0 Then
lblCab05.ForeColor = vbRed
Else
lblCab05.ForeColor = vbGreen
End If
For i = 0 To 19
If Adelante(i, 1) & "" = "" Then
Exit For
End If
Next i
If i = 0 Then
lblCab06.ForeColor = vbRed
Else
lblCab06.ForeColor = vbGreen
End If
Else
MsgBox "No se puede acceder a ningun formulario anterior al actual", vbOKOnly, "No existen formularios anteriores"
End If
End Sub
Adelante:
Private Sub lblCab06_Click()
'Boton Adelante, vuelve al formulario anterior almacenado en Adelante(i,1) con el filtro Adelante(i,2)
'Pasa el formulario actual a Atras(j,1) y el filtro a Atras(j,2)
Dim i, j As Integer
i = 0
Do While Not Adelante(i, 1) & "" = ""
i = i + 1
Loop
j = 0
Do While Not Atras(j, 1) & "" = ""
'Debug.Print Atras(j, 1)
j = j + 1
If j = 20 Then
j = 19
Exit Do
End If
Loop
If Not i = 0 Then
Atras(j, 1) = Forms!Principal.SubForm.Form.Name
If Forms!Principal.SubForm.Form.FilterOn = True Then
Atras(j, 2) = Forms!Principal.SubForm.Form.Filter
Else
Atras(j, 2) = ""
End If
Atras(j, 3) = Forms!Principal.Menuej.Form.Name
AtrasB = True
FuenteSubForm Adelante(i - 1, 1), Adelante(i - 1, 3), Adelante(i - 1, 2), Atras, Adelante, AtrasB
'Select Case Adelante(i - 1, 1) 'elige el menu despues de saber el formulario al que se dirige
'Case "MantenimientoExp"
'FuenteMenu "Menuej"
'Case "Busquedas", "Main_consulta", "Consulta_DNI_o_Nombre", "Datos_Expedientes2", "Consulta_Zona_Territorio_Linea"
'FuenteMenu "MenuBusqueda"
'End Select
Adelante(i - 1, 1) = ""
Adelante(i - 1, 2) = ""
Adelante(i - 1, 3) = ""
For i = 0 To 19
If Atras(i, 1) & "" = "" Then
Exit For
End If
Next i
If i = 0 Then
lblCab05.ForeColor = vbRed
Else
lblCab05.ForeColor = vbGreen
End If
For i = 0 To 19
If Adelante(i, 1) & "" = "" Then
Exit For
End If
Next i
If i = 0 Then
lblCab06.ForeColor = vbRed
Else
lblCab06.ForeColor = vbGreen
End If
Else
MsgBox "No se puede acceder a ningun formulario posterior al actual", vbOKOnly, "No existen formularios posteriores"
End If
End Sub
Ea, y si lo juntais con un buen diseño y alguna mariconada más os quedará una base de datos que asombrará a quien no esté acostumbrado a estas cosas.
Entradas
