Programas idroid

PROGRAMAS VISUAL C-LIKE PARA EL ROBOT

Bueno, como algunos del foro: "http://robot-foro.havetnet.com/" me han pedido que ponga algunos programas en la web, y a mí me parecía una muy buena idea, voy ha dejar aquí todos los programas que me parezcan interesante que vaya encontrando por todo el foro.

(Por ahora no tengo nada más, pero seguro que seguiré añadiendo). Para ayudarme enviadme los programas que hagais o encontreis a travaés de mi e-mail: [email protected]

PRUEBAMICROFONOS: Das palmadas a su derecha o izquierda y el te dice "izquierda" o "derecha" según donde las des. (Este es uno de los dos ejemplos que incluye el CD-2 de la colección). <?xml version="1.0" encoding="UTF-8"?> <?xml-stylesheet type="text/xsl" href="VisualClike.html"?> <!DOCTYPE Program PUBLIC "VisualClike" "VisualClike.dtd"> <Program Version="1.0" Author="Mene@" Description="Dice izq o der cuando detecta sonido x ese lado"> <Variable Type="Counter" Name="Counter1" /> <Main> <Call Target="Init" /> <Start Target="Sonido1" /> <Start Target="Basta" /> </Main> <Behavior Name="Sonido1"> <WaitFor Source="sound_dir" Event="update" /> <Switch> <SoundDir /> <Case Value="SOUND_DIR_BACK" /> <Case Value="SOUND_DIR_LEFT"> <SayPhrase Index="24" /> </Case> <Case Value="SOUND_DIR_CLEFT" /> <Case Value="SOUND_DIR_CENTER" /> <Case Value="SOUND_DIR_CRIGHT" /> <Case Value="SOUND_DIR_RIGHT"> <SayPhrase Index="24" /> </Case> <Default /> </Switch> <If> <EqualTo> <Counter Name="Counter1" /> <Number Value="1" /> </EqualTo> <Then> <Call Target="Exit" /> <End /> </Then> <Else /> </If> </Behavior> <Behavior Name="Basta"> <WaitFor Source="key" Event="update" /> <SetCounter Name="Counter1" Value="1" /> <End /> </Behavior> <Procedure Name="Init"> <SoundFollower Mode="On" /> <SetCounter Name="Counter1" Value="0" /> </Procedure> <Procedure Name="Exit"> <SoundFollower Mode="Off" /> </Procedure> </Program>	BATERIAS: Indica el nivel de la bateria en la pantalla display. Muy útil. <?xml version="1.0" encoding="UTF-8"?> <?xml-stylesheet type="text/xsl" href="VisualClike.html"?> <!DOCTYPE Program PUBLIC "VisualClike" "VisualClike.dtd"> <Program Version="1.0" Author="Antonio Vizuete" Description="Bateria en pantalla"> <Variable Type="Counter" Name="BLP_c" /> <Main> <Start Target="Activar" /> </Main> <Behavior Name="Activar"> <TouchBehavior Mode="Off" /> <WaitFor Source="touch" Event="update" /> <Pause Value="500" /> <Call Target="BateriaLPantalla" /> <Pause Value="2000" /> <Call Target="BateriaMPantalla" /> <Pause Value="2000" /> <LcdClear /> <TouchBehavior Mode="On" /> <End /> </Behavior> <Procedure Name="BateriaLPantalla"> <HeadTilt Type="Absolute" Pos="4" /> <SetCounter Name="BLP_c" Value="100" /> <LcdClear /> <LcdWriteText Row="1" Col="2" Value="Bateria Logica" /> <Read Source="battery" /> <While> <LessThanOrEqual> <Battery Source="Logic" /> <Counter Name="BLP_c" /> </LessThanOrEqual> <Loop> <IncCounter Name="BLP_c" Value="-1" /> </Loop> </While> <If> <NotEqual> <Counter Name="BLP_c" /> <Number Value="100" /> </NotEqual> <Then> <If> <InRange> <Counter Name="BLP_c" /> <Number Value="10" /> <Number Value="99" /> </InRange> <Then> <LcdWriteCounter Row="2" Col="7" Name="BLP_c" /> <LcdWriteText Row="2" Col="9" Value="%" /> </Then> <Else> <If> <InRange> <Counter Name="BLP_c" /> <Number Value="0" /> <Number Value="9" /> </InRange> <Then> <LcdWriteCounter Row="2" Col="8" Name="BLP_c" /> <LcdWriteText Row="2" Col="9" Value="%" /> </Then> <Else /> </If> </If> </Then> <Else> <LcdWriteCounter Row="2" Col="6" Name="BLP_c" /> <LcdWriteText Row="2" Col="9" Value="%" /> </Else> </If> <HeadTilt Type="Absolute" Pos="2" /> </Procedure> <Procedure Name="BateriaMPantalla"> <HeadTilt Type="Absolute" Pos="4" /> <SetCounter Name="BLP_c" Value="100" /> <Read Source="battery" /> <While> <LessThanOrEqual> <Battery Source="Motors" /> <Counter Name="BLP_c" /> </LessThanOrEqual> <Loop> <IncCounter Name="BLP_c" Value="-1" /> </Loop> </While> <LcdClear /> <If> <NotEqual> <Counter Name="BLP_c" /> <Number Value="100" /> </NotEqual> <Then> <If> <InRange> <Counter Name="BLP_c" /> <Number Value="10" /> <Number Value="99" /> </InRange> <Then> <LcdWriteText Row="1" Col="2" Value="Bateria Motor" /> <LcdWriteCounter Row="2" Col="7" Name="BLP_c" /> <LcdWriteText Row="2" Col="9" Value="%" /> </Then> <Else> <If> <InRange> <Counter Name="BLP_c" /> <Number Value="0" /> <Number Value="9" /> </InRange> <Then> <LcdWriteText Row="1" Col="2" Value="Bateria Motor" /> <LcdWriteCounter Row="2" Col="8" Name="BLP_c" /> <LcdWriteText Row="2" Col="9" Value="%" /> </Then> <Else /> </If> </If> </Then> <Else> <LcdWriteText Row="1" Col="2" Value="Bateria Motor" /> <LcdWriteCounter Row="2" Col="6" Name="BLP_c" /> <LcdWriteText Row="2" Col="9" Value="%" /> </Else> </If> <HeadTilt Type="Absolute" Pos="2" /> </Procedure> </Program>
RELOJ DESPERTADOR: Versión 2.0 del reloj, que dispone de alarma. Para poner la alarma hay que decirle la orden "7" y para desactivarla basta con acariciarlo. <?xml version="1.0" encoding="UTF-8"?> <?xml-stylesheet type="text/xsl" href="VisualClike.html"?> <!DOCTYPE Program PUBLIC "VisualClike" "VisualClike.dtd"> <Program Version="1.0" Author="F. Ramos" Description="Reloj para IDroid con alarma v2.0"> <Variable Type="Counter" Name="MinBateria" /> <Variable Type="Counter" Name="Hora" /> <Variable Type="Counter" Name="Minuto" /> <Variable Type="Counter" Name="Valor_1" /> <Variable Type="Counter" Name="Confirmacion" /> <Variable Type="Counter" Name="TiempoActivo" /> <Variable Type="Counter" Name="AlarmaActiva" /> <Variable Type="Counter" Name="HoraAlarma" /> <Variable Type="Counter" Name="MinutoAlarma" /> <Variable Type="Counter" Name="HoraTemp" /> <Variable Type="Counter" Name="MinutoTemp" /> <Main> <Call Target="IniciaValores" /> <Start Target="BateriaM" /> <Start Target="BateriaE" /> <Start Target="Reloj" /> </Main> <Behavior Name="Reloj"> <SetBlockingFlag Mode="On" /> <If> <EqualTo> <Counter Name="TiempoActivo" /> <Number Value="0" /> </EqualTo> <Then> <Call Target="PonerHoras" /> <LcdClear /> <Call Target="PonerMinutos" /> <LcdWriteText Row="1" Col="1" Value="Hora: :" /> <LcdWriteCounter Row="1" Col="7" Name="HoraTemp" /> <If> <LessThan> <Counter Name="MinutoTemp" /> <Number Value="10" /> </LessThan> <Then> <LcdWriteText Row="1" Col="10" Value="0" /> <LcdWriteCounter Row="1" Col="11" Name="MinutoTemp" /> </Then> <Else> <LcdWriteCounter Row="1" Col="10" Name="MinutoTemp" /> </Else> </If> <Call Target="Confirmar" /> <If> <EqualTo> <Counter Name="Confirmacion" /> <Number Value="1" /> </EqualTo> <Then> <CopyCounter Target="Hora" Source="HoraTemp" /> <CopyCounter Target="Minuto" Source="MinutoTemp" /> <SetCounter Name="TiempoActivo" Value="1" /> <SayPhrase Index="21" /> <Start Target="ProgramarAlarma" /> <Call Target="PintaHora" /> </Then> <Else> <SetCounter Name="TiempoActivo" Value="0" /> </Else> </If> </Then> <Else> <If> <GreaterThan> <Counter Name="Hora" /> <Number Value="-1" /> </GreaterThan> <Then> <Pause Value="60000" /> <Call Target="CambioHora" /> </Then> </If> </Else> </If> </Behavior> <Behavior Name="BateriaM"> <SetBlockingFlag Mode="On" /> <WaitFor Source="battery" Event="motors_change" /> <If> <LessThan> <Battery Source="Motors" /> <Counter Name="MinBateria" /> </LessThan> <Then> <SayPhrase Index="43" /> <SayPhrase Index="118" /> <Stop Target="BateriaM" /> </Then> <Else> <If> <GreaterThanOrEqual> <Battery Source="Motors" /> <Number Value="85" /> </GreaterThanOrEqual> <Then> <SayPhrase Index="43" /> <SayPhrase Index="45" /> </Then> <Else /> </If> </If> </Behavior> <Behavior Name="BateriaE"> <SetBlockingFlag Mode="On" /> <WaitFor Source="battery" Event="logic_change" /> <If> <LessThan> <Battery Source="Logic" /> <Counter Name="MinBateria" /> </LessThan> <Then> <SayPhrase Index="42" /> <SayPhrase Index="118" /> <Stop Target="BateriaE" /> </Then> <Else> <If> <GreaterThanOrEqual> <Battery Source="Logic" /> <Number Value="85" /> </GreaterThanOrEqual> <Then> <SayPhrase Index="42" /> <SayPhrase Index="45" /> </Then> <Else /> </If> </If> </Behavior> <Behavior Name="ProgramarAlarma"> <SetBlockingFlag Mode="On" /> <WaitFor Source="voice_cmd" Event="seven" /> <If> <EqualTo> <Counter Name="AlarmaActiva" /> <Number Value="0" /> </EqualTo> <Then> <SetCounter Name="MinutoAlarma" Value="-1" /> <SetCounter Name="HoraAlarma" Value="-1" /> <LcdClear /> <SayPhrase Index="86" /> <Call Target="PonerHoras" /> <LcdClear /> <Call Target="PonerMinutos" /> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="Alarma: :" /> <LcdWriteCounter Row="1" Col="9" Name="HoraTemp" /> <If> <LessThanOrEqual> <Counter Name="MinutoTemp" /> <Number Value="10" /> </LessThanOrEqual> <Then> <LcdWriteText Row="1" Col="12" Value="0" /> <LcdWriteCounter Row="1" Col="13" Name="MinutoTemp" /> </Then> <Else> <LcdWriteCounter Row="1" Col="12" Name="MinutoTemp" /> </Else> </If> <Call Target="Confirmar" /> <If> <EqualTo> <Counter Name="Confirmacion" /> <Number Value="1" /> </EqualTo> <Then> <CopyCounter Target="HoraAlarma" Source="HoraTemp" /> <CopyCounter Target="MinutoAlarma" Source="MinutoTemp" /> <Pause Value="400" /> <SayPhrase Index="88" /> <Pause Value="400" /> <SayPhrase Index="21" /> <SetCounter Name="AlarmaActiva" Value="1" /> </Then> <Else> <SetCounter Name="AlarmaActiva" Value="0" /> </Else> </If> <LcdClear /> <Call Target="PintaHora" /> </Then> <Else /> </If> </Behavior> <Behavior Name="PararAlarma"> <SetBlockingFlag Mode="On" /> <WaitFor Source="touch" Event="update" /> <LcdClear /> <LedOff Mask="LED_ALL" /> <SetCounter Name="AlarmaActiva" Value="0" /> <SetCounter Name="HoraAlarma" Value="-1" /> <Start Target="ProgramarAlarma" /> <Call Target="PintaHora" /> <Stop Target="PararAlarma" /> </Behavior> <Procedure Name="PonerHoras"> <SetBlockingFlag Mode="On" /> <SetCounter Name="HoraTemp" Value="-1" /> <SetCounter Name="MinutoTemp" Value="0" /> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="Dime la hora:" /> <PlaySound Index="16" /> <LedBlink Mask="LED_YELLOW" /> <Pause Value="100" /> <LedOff Mask="LED_YELLOW" /> <LcdWriteText Row="2" Col="1" Value="Decenas 0 a 2" /> <SoundFollower Mode="Off" /> <WaitFor Source="voice_cmd" Event="update" /> <Pause Value="500" /> <Switch> <VoiceCmd /> <Case Value="CMD_ZERO"> <SetCounter Name="HoraTemp" Value="0" /> <SayNumber Value="0" /> </Case> <Case Value="CMD_ONE"> <SetCounter Name="HoraTemp" Value="10" /> <SayNumber Value="1" /> </Case> <Case Value="CMD_TWO"> <SetCounter Name="HoraTemp" Value="20" /> <SayNumber Value="2" /> </Case> <Case Value="CMD_THREE" /> <Case Value="CMD_FOUR" /> <Case Value="CMD_FIVE" /> <Case Value="CMD_SIX" /> <Case Value="CMD_SEVEN" /> <Case Value="CMD_EIGHT" /> <Case Value="CMD_NINE" /> <Case Value="CMD_TEN"> <Stop Target="Reloj" /> <End /> </Case> <Default /> </Switch> <LcdClear /> <LcdWriteText Row="2" Col="1" Value="Unidades 0 a 9" /> <WaitFor Source="voice_cmd" Event="update" /> <Pause Value="500" /> <Switch> <VoiceCmd /> <Case Value="CMD_ZERO"> <SetCounter Name="Valor_1" Value="0" /> <SayNumber Value="0" /> </Case> <Case Value="CMD_ONE"> <SetCounter Name="Valor_1" Value="1" /> <SayNumber Value="1" /> </Case> <Case Value="CMD_TWO"> <SetCounter Name="Valor_1" Value="2" /> <SayNumber Value="2" /> </Case> <Case Value="CMD_THREE"> <SetCounter Name="Valor_1" Value="3" /> <SayNumber Value="3" /> </Case> <Case Value="CMD_FOUR"> <SetCounter Name="Valor_1" Value="4" /> <SayNumber Value="4" /> </Case> <Case Value="CMD_FIVE"> <SetCounter Name="Valor_1" Value="5" /> <SayNumber Value="5" /> </Case> <Case Value="CMD_SIX"> <SetCounter Name="Valor_1" Value="6" /> <SayNumber Value="6" /> </Case> <Case Value="CMD_SEVEN"> <SetCounter Name="Valor_1" Value="7" /> <SayNumber Value="7" /> </Case> <Case Value="CMD_EIGHT"> <SetCounter Name="Valor_1" Value="8" /> <SayNumber Value="8" /> </Case> <Case Value="CMD_NINE"> <SetCounter Name="Valor_1" Value="9" /> <SayNumber Value="9" /> </Case> </Switch> <AddCounter Target="HoraTemp" Source="Valor_1" /> <PlaySound Index="16" /> </Procedure> <Procedure Name="PonerMinutos"> <SetBlockingFlag Mode="On" /> <LcdClear /> <SetCounter Name="MinutoTemp" Value="-1" /> <LcdWriteText Row="1" Col="1" Value="Dime los minutos" /> <PlaySound Index="16" /> <LcdWriteText Row="2" Col="1" Value="Decenas 0 a 5" /> <SoundFollower Mode="Off" /> <WaitFor Source="voice_cmd" Event="update" /> <Pause Value="500" /> <Switch> <VoiceCmd /> <Case Value="CMD_ZERO"> <SetCounter Name="MinutoTemp" Value="0" /> <SayNumber Value="0" /> </Case> <Case Value="CMD_ONE"> <SetCounter Name="MinutoTemp" Value="10" /> <SayNumber Value="1" /> </Case> <Case Value="CMD_TWO"> <SetCounter Name="MinutoTemp" Value="20" /> <SayNumber Value="2" /> </Case> <Case Value="CMD_THREE"> <SetCounter Name="MinutoTemp" Value="30" /> <SayNumber Value="3" /> </Case> <Case Value="CMD_FOUR"> <SetCounter Name="MinutoTemp" Value="40" /> <SayNumber Value="4" /> </Case> <Case Value="CMD_FIVE"> <SetCounter Name="MinutoTemp" Value="50" /> <SayNumber Value="5" /> </Case> </Switch> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="Unidades 0 - 9" /> <WaitFor Source="voice_cmd" Event="update" /> <Pause Value="500" /> <Switch> <VoiceCmd /> <Case Value="CMD_ZERO"> <SetCounter Name="Valor_1" Value="0" /> <SayNumber Value="0" /> </Case> <Case Value="CMD_ONE"> <SetCounter Name="Valor_1" Value="1" /> <SayNumber Value="1" /> </Case> <Case Value="CMD_TWO"> <SetCounter Name="Valor_1" Value="2" /> <SayNumber Value="2" /> </Case> <Case Value="CMD_THREE"> <SetCounter Name="Valor_1" Value="3" /> <SayNumber Value="3" /> </Case> <Case Value="CMD_FOUR"> <SetCounter Name="Valor_1" Value="4" /> <SayNumber Value="4" /> </Case> <Case Value="CMD_FIVE"> <SetCounter Name="Valor_1" Value="5" /> <SayNumber Value="5" /> </Case> <Case Value="CMD_SIX"> <SetCounter Name="Valor_1" Value="6" /> <SayNumber Value="6" /> </Case> <Case Value="CMD_SEVEN"> <SetCounter Name="Valor_1" Value="7" /> <SayNumber Value="7" /> </Case> <Case Value="CMD_EIGHT"> <SetCounter Name="Valor_1" Value="8" /> <SayNumber Value="8" /> </Case> <Case Value="CMD_NINE"> <SetCounter Name="Valor_1" Value="9" /> <SayNumber Value="9" /> </Case> </Switch> <AddCounter Target="MinutoTemp" Source="Valor_1" /> <LcdClear /> <PlaySound Index="16" /> </Procedure> <Procedure Name="CambioHora"> <SetBlockingFlag Mode="On" /> <IncCounter Name="Minuto" Value="1" /> <If> <GreaterThan> <Counter Name="Minuto" /> <Number Value="59" /> </GreaterThan> <Then> <SetCounter Name="Minuto" Value="0" /> <IncCounter Name="Hora" Value="1" /> <PlaySound Index="6" /> </Then> <Else /> </If> <If> <GreaterThan> <Counter Name="Hora" /> <Number Value="23" /> </GreaterThan> <Then> <SetCounter Name="Hora" Value="0" /> </Then> <Else /> </If> <Call Target="PintaHora" /> <If> <EqualTo> <Counter Name="AlarmaActiva" /> <Number Value="1" /> </EqualTo> <Then> <If> <EqualTo> <Counter Name="Hora" /> <Counter Name="HoraAlarma" /> </EqualTo> <Then> <If> <EqualTo> <Counter Name="Minuto" /> <Counter Name="MinutoAlarma" /> </EqualTo> <Then> <Call Target="A_sonar" /> </Then> <Else /> </If> </Then> <Else /> </If> </Then> <Else /> </If> </Procedure> <Procedure Name="Confirmar"> <SetBlockingFlag Mode="On" /> <SetCounter Name="Confirmacion" Value="-1" /> <SayPhrase Index="11" /> <SayPhrase Index="59" /> <Pause Value="800" /> <SayNumber Value="1" /> <Pause Value="800" /> <SayPhrase Index="122" /> <SayNumber Value="2" /> <Pause Value="800" /> <SayPhrase Index="94" /> <Pause Value="800" /> <LcdWriteText Row="2" Col="1" Value="1->SI, 2->NO" /> <LedOn Mask="LED_RED_LEFT" /> <LedOn Mask="LED_GREEN_RIGHT" /> <While> <OutOfRange> <Counter Name="Confirmacion" /> <Number Value="0" /> <Number Value="1" /> </OutOfRange> <Loop> <WaitFor Source="voice_cmd" Event="update" /> <Switch> <VoiceCmd /> <Case Value="CMD_ZERO" /> <Case Value="CMD_ONE"> <SetCounter Name="Confirmacion" Value="1" /> </Case> <Case Value="CMD_TWO"> <SetCounter Name="Confirmacion" Value="0" /> </Case> <Case Value="CMD_THREE" /> <Case Value="CMD_FOUR" /> <Case Value="CMD_FIVE" /> <Case Value="CMD_SIX" /> <Case Value="CMD_SEVEN" /> <Case Value="CMD_EIGHT" /> <Case Value="CMD_NINE" /> <Case Value="CMD_TEN" /> <Default /> </Switch> <If> <OutOfRange> <Counter Name="Confirmacion" /> <Number Value="0" /> <Number Value="1" /> </OutOfRange> <Then> <SayPhrase Index="8" /> <SayPhrase Index="3" /> </Then> <Else> <SayPhrase Index="4" /> </Else> </If> </Loop> </While> <LedOff Mask="LED_RED_LEFT" /> <LedOff Mask="LED_GREEN_RIGHT" /> <LcdClear /> </Procedure> <Procedure Name="IniciaValores"> <SetCounter Name="MinBateria" Value="30" /> <SetCounter Name="Hora" Value="-1" /> <SetCounter Name="TiempoActivo" Value="0" /> <SetCounter Name="AlarmaActiva" Value="0" /> </Procedure> <Procedure Name="PintaHora"> <LcdClear /> <If> <LessThan> <Counter Name="Hora" /> <Number Value="10" /> </LessThan> <Then> <LcdWriteText Row="2" Col="12" Value="0" /> <LcdWriteCounter Row="2" Col="13" Name="Hora" /> </Then> <Else> <LcdWriteCounter Row="2" Col="12" Name="Hora" /> </Else> </If> <LcdWriteText Row="2" Col="14" Value=":" /> <If> <LessThan> <Counter Name="Minuto" /> <Number Value="10" /> </LessThan> <Then> <LcdWriteText Row="2" Col="15" Value="0" /> <LcdWriteCounter Row="2" Col="16" Name="Minuto" /> </Then> <Else> <LcdWriteCounter Row="2" Col="15" Name="Minuto" /> </Else> </If> </Procedure> <Procedure Name="PararloTodo"> <SayPhrase Index="22" /> <LcdClear /> <Stop Target="Reloj" /> </Procedure> <Procedure Name="A_sonar"> <Start Target="PararAlarma" /> <LedBlink Mask="LED_GREEN" /> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="Es la hora !!!" /> <While> <EqualTo> <Counter Name="AlarmaActiva" /> <Number Value="1" /> </EqualTo> <Loop> <PlaySound Index="6" /> <Pause Value="500" /> <If> <EqualTo> <Counter Name="AlarmaActiva" /> <Number Value="1" /> </EqualTo> <Then> <PlaySound Index="5" /> <Pause Value="500" /> </Then> <Else /> </If> <If> <EqualTo> <Counter Name="AlarmaActiva" /> <Number Value="1" /> </EqualTo> <Then> <SayPhrase Index="19" /> <Pause Value="500" /> </Then> <Else /> </If> <If> <EqualTo> <Counter Name="AlarmaActiva" /> <Number Value="1" /> </EqualTo> <Then> <SayPhrase Index="81" /> <Pause Value="2000" /> </Then> <Else /> </If> <If> <EqualTo> <Counter Name="AlarmaActiva" /> <Number Value="1" /> </EqualTo> <Then> <SayPhrase Index="140" /> <Pause Value="500" /> </Then> <Else /> </If> <If> <EqualTo> <Counter Name="AlarmaActiva" /> <Number Value="1" /> </EqualTo> <Then> <PlaySound Index="10" /> <Pause Value="600" /> </Then> <Else /> </If> <If> <EqualTo> <Counter Name="AlarmaActiva" /> <Number Value="1" /> </EqualTo> <Then> <PlaySound Index="10" /> </Then> <Else /> </If> <If> <EqualTo> <Counter Name="AlarmaActiva" /> <Number Value="1" /> </EqualTo> <Then> <PlaySound Index="10" /> </Then> <Else /> </If> <If> <EqualTo> <Counter Name="AlarmaActiva" /> <Number Value="1" /> </EqualTo> <Then> <PlaySound Index="10" /> <Pause Value="600" /> </Then> <Else /> </If> <If> <EqualTo> <Counter Name="AlarmaActiva" /> <Number Value="1" /> </EqualTo> <Then> <SayPhrase Index="19" /> <Pause Value="5000" /> </Then> <Else /> </If> <If> <EqualTo> <Counter Name="AlarmaActiva" /> <Number Value="0" /> </EqualTo> <Then> <SayPhrase Index="22" /> <LcdClear /> <Pause Value="5000" /> <LedOff Mask="LED_ALL" /> <Call Target="PintaHora" /> </Then> <Else /> </If> </Loop> </While> </Procedure> </Program>	GUARDIÁN: Programa para que nuestro robot vigile a través de su cámara. Cuando detesta un movimiento da la alarma. <?xml version="1.0" encoding="UTF-8"?> <?xml-stylesheet type="text/xsl" href="VisualClike.html"?> <!DOCTYPE Program PUBLIC "VisualClike" "VisualClike.dtd"> <Program Version="1.0" Author="Dragon azul" Description="videovigilancia"> <Main> <Call Target="Inizializzazione" /> <LcdWriteText Row="1" Col="1" Value="PULSA EL BOTON" /> <LcdWriteText Row="2" Col="2" Value="PARA ACTIVAR" /> <SayPhrase Index="57" /> <WaitFor Source="key" Event="update" /> <SayPhrase Index="4" /> <Pause Value="250" /> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="Attivazione:10" /> <SayNumber Value="10" /> <Pause Value="500" /> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="Attivazione: 9" /> <SayNumber Value="9" /> <Pause Value="500" /> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="Attivazione: 8" /> <SayNumber Value="8" /> <Pause Value="500" /> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="Attivazione: 7" /> <SayNumber Value="7" /> <Pause Value="500" /> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="Attivazione: 6" /> <SayNumber Value="6" /> <Pause Value="500" /> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="Attivazione: 5" /> <SayNumber Value="5" /> <Pause Value="500" /> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="Attivazione: 4" /> <SayNumber Value="4" /> <Pause Value="500" /> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="Attivazione: 3" /> <SayNumber Value="3" /> <Pause Value="500" /> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="Attivazione: 2" /> <SayNumber Value="2" /> <Pause Value="500" /> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="Attivazione: 1" /> <SayNumber Value="1" /> <Pause Value="500" /> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="Attivazione: 0" /> <SayNumber Value="0" /> <SayPhrase Index="21" /> <LcdClear /> <LcdWriteText Row="1" Col="2" Value="VIDEO VIGILANCIA" /> <LcdWriteText Row="2" Col="3" Value="ACTIVADA!!!" /> <LedOff Mask="LED_ALL" /> <Start Target="Allarme" /> </Main> <Behavior Name="Allarme"> <WaitFor Source="vision" Event="area_change" /> <LedBlink Mask="LED_GREEN" /> <SayPhrase Index="138" /> <PlaySound Index="2" /> <LcdClear /> <LcdWriteText Row="1" Col="4" Value="INTRUSO" /> <LcdWriteText Row="2" Col="3" Value="DETECTADO!" /> <LedOff Mask="LED_GREEN" /> <MessageRecord Index="10" /> <SayPhrase Index="106" /> <MessageRecord Index="9" /> <LedOn Mask="LED_RED" /> <WaitFor Source="touch" Event="update" /> <HeadTilt Type="Absolute" Pos="2" /> <HeadPan Type="Absolute" Pos="6" /> <LedOn Mask="LED_RED" /> <LcdClear /> <LcdWriteText Row="1" Col="3" Value="HE DETECTADO" /> <LcdWriteText Row="2" Col="3" Value="UN INTRUSO" /> <SayPhrase Index="66" /> <SayPhrase Index="71" /> <SayPhrase Index="84" /> <HeadTilt Type="Absolute" Pos="4" /> <LcdClear /> <LcdWriteText Row="1" Col="3" Value="ESCUCHA LA" /> <LcdWriteText Row="2" Col="1" Value="PRIMERA GRABACION" /> <MessagePlay Index="10" /> <LcdWriteText Row="2" Col="1" Value="SEGUNDA GRABACION" /> <MessagePlay Index="9" /> <SayPhrase Index="127" /> <Pause Value="1000" /> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="BUENAS NOCHES :-)" /> <SayPhrase Index="20" /> <Start Target="Spegnimento" /> </Behavior> <Behavior Name="Spegnimento"> <Stop Target="Allarme" /> <VisionFollower Mode="Off" /> <HeadTilt Type="Absolute" Pos="2" /> <HeadPan Type="Absolute" Pos="6" /> <LcdClear /> <LedOff Mask="LED_ALL" /> <End /> </Behavior> <Procedure Name="Inizializzazione"> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="ACTIVACION" /> <LcdWriteText Row="2" Col="1" Value="EN CURSO 0%" /> <Pause Value="500" /> <HeadTilt Type="Absolute" Pos="2" /> <Pause Value="500" /> <LcdWriteText Row="2" Col="11" Value="10%" /> <Pause Value="500" /> <HeadPan Type="Absolute" Pos="6" /> <Pause Value="500" /> <LcdWriteText Row="2" Col="11" Value="20%" /> <Pause Value="500" /> <LedOff Mask="LED_ALL" /> <Pause Value="500" /> <LcdWriteText Row="2" Col="11" Value="40%" /> <Pause Value="500" /> <VisionFollower Mode="On" /> <Pause Value="500" /> <LcdWriteText Row="2" Col="11" Value="60%" /> <Pause Value="500" /> <MessageDelete Index="10" /> <Pause Value="500" /> <LcdWriteText Row="2" Col="11" Value="80%" /> <Pause Value="500" /> <MessageDelete Index="9" /> <Pause Value="500" /> <LcdWriteText Row="2" Col="10" Value="100%" /> <LcdClear /> </Procedure> </Program>
TANIM: Texto animado en pantalla. Como funciona: Copia todo el código a vuestro programa, para que escriba en pantalla un texto (de no mas de 250 caracteres) escribes Texto("Hola soy tu robot", 1); EN la primera linea escribe Hola soy tu robot y el segundo parámetro (1 o 0) es si quieres que el texto se repita continuamente o termine. /** * Description Texto animado * @author Francisco Ramos * @version 1.0 / #include "c-like.h" #include "robot.h" #include <string.h> declare( behavior(PintaTexto) ); int nPosicion = 0; // Posicion en la que está el texto (no tocar) int nRepeticion; // Repeticion 0, 1 (no tocar) char TextoPantalla; // Almacena el texto a mostrar (no tocar) void Texto(char miTexto, int repite); // Muestra miTexto en pantalla y si repite=1 lo repite. define( behavior(Main)) { Texto("Hola Soy tu pedazo de robot",0); } void Texto(char miTexto, int repite) { TextoPantalla = miTexto; nRepeticion = repite; start(PintaTexto); } define( behavior(PintaTexto) ) { if (strcmp(TextoPantalla,"") == 0) // esto pararia el comportamiento return; msleep(200); char TextoMostrado[254] = " * "; strcat(TextoMostrado, TextoPantalla); strcat(TextoMostrado, " * "); int i, nBlancos; int z = nPosicion; char nuevoTexto[16]; for (i = 0; i< 15;i++) { nuevoTexto[i] = TextoMostrado[z]; z++; } lcd_write_string(1,1, nuevoTexto); nPosicion++; if (strcmp(nuevoTexto," ") == 0) { nPosicion = 0; if (nRepeticion == 0) stop(PintaTexto); } }	ULISES 1.1: Todo en uno. Entre otras cosas se puede: - Poner el nombre del robot - Cambiar la hora, alarma, etc. - Ver estado de baterias. /** * ULISES * @author F. Ramos * @version 1.1 * Programa sucesor de "Horario" * En esta versión se incluye: * 1 Control de Reloj * 2 Modificacion de horas, minutos en cualquier momento * 3 Control de alarma * 4 Modificiacion horas y minutos de alarma. * 5 Activacion / Desactivacion de la alarma * 6 Narracion de las horas * 7 Visualización del estado de las baterias * 8 Activacion / Desactivacion Mensajes baterias * Para que el robot muestre su nombre, escribir este en el procedimiento NOMBRE_ROBOT / #include "c-like.h" #include "robot.h" #include <string.h> #include <time.h> #include <stdio.h> char NOMBRE_ROBOT[16] = "IGOR"; // ESCRIBE AQUI EL NOMBRE DE TU ROBOT, NO MAS DE 16C. int MinBateria = 30; // Se usa para definir valor minimo de la bateria antes de avisar int Hora = -1; // guarda la hora actual int Minuto = 0; // Guarda Minuto actual int TiempoActivo = 0; // Indica si el contador de hora está puesto en marcha int AlarmaActiva = 0; // Indica si la alarma está activa int Valor_1 = 0; // Variable de uso temporal int HoraAlarma = -1; // Hora de la alarma int MinutoAlarma; // Minutos de la alarma. int HoraTemp; // Hora (temporal) int MinutoTemp; // Minutos (temporal) int menu_ON = 0; // indica si esta dentro del menu int MuestraReloj = 1; // Indica si se muestra o no el reloj int ReactivaAlarma = 0; // Controla si se activara la alarma al salir del menu int NarraReloj = 0; // Controla si la hora se narra o no int NarraAvisoPilas = 1; // Controla si se narra el estado de las baterias. int EsperaUnidades(); // Espera a orden de 0 a 9. int Confirmar(); // Pregunta 1->si, 2->no declare( behavior(Reloj) ); // Comportamiento del reloj declare( behavior(BateriaM) ); // Comportamiento Bateria motores declare( behavior(BateriaE) ); // Comportamiento Baterias Electrica declare( behavior(PararAlarma) ); // Comportamiento Parada de la alarma declare( behavior(AccesoDirecto) ); // Comportamiento para activar acceso al menu y accesos directos void PonerHoras(); // Procedimiento para programar las horas void PonerMinutos(); // Procedimiento para programar los minutos void CambioHora(); // Procedimiento para incrementar los minutos... void PintaHora(); // Pinta la hora en el display void PararloTodo(); // Detiene todo void A_sonar(); // Accion de aviso, textos, sonidos, etc void AjustarHorario(); // Ajusta horas y minutos (inicio) void ProgramarAlarma(); // Programacion de la alarma void SalirMenu(); // Sale del menu y restablece valores void CantaNivelBateria(int nivelb); // dice el nivel de la bateria void EstadoPilas(); // Muestra y narra el estado de las pilas void TenemosHora(); // Averigua si la bios tiene la hora actualizada void GuardarHorario(); // Guarda hora en la bios void HoraEnPantalla(int posy, int posx, int hor, int min); // Visualiza Horasy minutos /************** DENTRO DEL MENU *****************/ void EnMenu0(); // Menu principal, 1.reloj, 2.alarma 3.Pilas 4.Mas void EnMenu1(); // menu 1.Ajust 2.Oculto 3.Narrar void EnMenu1_1(); // Menu 1.Hora 2. Min. 3. Todo void EnMenu1_2(); // Muestra/Oculta (accion) void EnMenu1_3(); // Activar/desactiva accion 5 (acceso directo para decir la hora. void EnMenu2(); // Menu principal, 1.Ajus 2.Act/Des 3.Mostrar void EnMenu2_1(); // 1.Hora 2.Minuto 3.Todo void EnMenu2_2(); // Activar / Desactivar alarma void EnMenu2_3(); // Visualiza alarma void EnMenu3(); // 1.Estado 2.Avisos void EnMenu3_2(); // Activa o desactiva el control de estado de las pilas void NarrarHora(); // Dice la hora y los minutos. /*******************************************/ define( behavior(Main)) { start(BateriaM); start(BateriaE); TenemosHora(); if (TiempoActivo == 1) { start(AccesoDirecto); PintaHora(); } start(Reloj); } /*********************************************** Comportamiento del ciclo del reloj ************************************************/ define( behavior(Reloj) ) { set_blocking(true); if (TiempoActivo == 0) { AjustarHorario(); if (TiempoActivo == 1) { start(AccesoDirecto); } } else { if (Hora > -1) { msleep(60000); CambioHora(); } } // fin if (get(TiempoActivo) == 0) } /*********************************************** Habilita Menu10 para acceder al menu ************************************************/ define( behavior(AccesoDirecto) ) { set_blocking(true); local(voice_cmd) = wait_for (voice_cmd, update); switch (local(voice_cmd)) { case CMD_FIVE: if (NarraReloj == 1) NarrarHora(); break; case CMD_TEN: EnMenu0(); break; } } /*********************************************** Controla el estado de la bateria de motores ************************************************/ define( behavior(BateriaM) ) { set_blocking(true); local(battery) = wait_for (battery, motors_change); if (local(battery).motors < MinBateria) { say_phrase(43); say_phrase(118); } else { if (local(battery).motors >= 80) { say_phrase(43); say_phrase(45); } } } /*********************************************** Controla el estado de la bateria de la electronica ************************************************/ define( behavior(BateriaE) ) { set_blocking(true); local(battery) = wait_for (battery, logic_change); if (local(battery).logic < MinBateria) { say_phrase(42); say_phrase(118); } else { if (local(battery).logic >= 80) { say_phrase(42); say_phrase(45); } } } /*********************************************** activa la alarma preguntando a que hora sonara. 1º Solicita horas 2º Solicita minutos 3º Confirma lo reconocido ************************************************/ void ProgramarAlarma() { set_blocking(true); if (AlarmaActiva == 0) { MinutoAlarma =-1; HoraAlarma = -1; lcd_clear(); say_phrase(86); PonerHoras(); lcd_clear(); PonerMinutos(); lcd_clear(); lcd_write_string(1,1,"Alarma:"); HoraEnPantalla(1, 9, HoraTemp, MinutoTemp); if (Confirmar() == 1) { HoraAlarma = HoraTemp; MinutoAlarma = MinutoTemp; msleep(400); say_phrase(88); msleep(400); say_phrase(21); AlarmaActiva = 1; } else { AlarmaActiva = 0; } lcd_clear(); PintaHora(); } } /*********************************************** Detiene la alarma. Este comportamiento se pone en marcha cuando se activa la alarma ************************************************/ define( behavior(PararAlarma) ) { set_blocking(true); local(touch) = wait_for (touch, update); lcd_clear(); led_off(LED_ALL); AlarmaActiva = 0; PintaHora(); stop(PararAlarma); } /*********************************** * pone en hora el rejoj del robot *********************************/ void AjustarHorario() { PonerHoras(); lcd_clear(); PonerMinutos(); lcd_write_string(1,1,"Hora:"); HoraEnPantalla(1, 7, HoraTemp, MinutoTemp); if (Confirmar() == 1) { TiempoActivo =1; Hora = HoraTemp; Minuto = MinutoTemp; GuardarHorario(); PintaHora(); } else { TiempoActivo = 0; } } /*********************************************** Solicita al usuario las horas ************************************************/ void PonerHoras() { set_blocking(true); HoraTemp = -1; MinutoTemp = 0; lcd_clear(); lcd_write_string(1,1,"Dime la hora:"); play_sound(16); led_blink(LED_YELLOW); msleep(100); led_off(LED_YELLOW); lcd_write_string(2,1,"Decenas 0 a 2"); sound_follower(false); while (HoraTemp == -1) { local(voice_cmd) = wait_for (voice_cmd, update); msleep(500); switch (local(voice_cmd)) { case CMD_ZERO: HoraTemp = 0; break; case CMD_ONE: HoraTemp = 10; break; case CMD_TWO: HoraTemp = 20; break; default: break; } // Fin switch if (HoraTemp > -1) { say_number(HoraTemp); } else { say_phrase(9); say_phrase(11); } } // Fin while lcd_clear(); lcd_write_string(2,1,"Unidades 0 a 9"); Valor_1 = EsperaUnidades(); msleep(500); say_number(Valor_1); HoraTemp = HoraTemp + Valor_1; play_sound(16); } /*********************************************** Solicita al usuario los minutos ************************************************/ void PonerMinutos() { set_blocking(true); lcd_clear(); MinutoTemp = -1; lcd_write_string(1,1,"Dime los minutos"); play_sound(16); lcd_write_string(2,1,"Decenas 0 a 5"); sound_follower(false); while (MinutoTemp == -1) { local(voice_cmd) = wait_for (voice_cmd, update); msleep(500); switch (local(voice_cmd)) { case CMD_ZERO: MinutoTemp = 0; break; case CMD_ONE: MinutoTemp = 10; break; case CMD_TWO: MinutoTemp = 20; break; case CMD_THREE: MinutoTemp = 30; break; case CMD_FOUR: MinutoTemp = 40; break; case CMD_FIVE: MinutoTemp = 50; break; } // FIN SWITCH if (MinutoTemp > -1) { say_number(MinutoTemp); } else { say_phrase(9); say_phrase(11); } } //FIN WHILE lcd_clear(); lcd_write_string(1,1,"Unidades 0 - 9"); Valor_1 = EsperaUnidades(); msleep(500); say_number(Valor_1); MinutoTemp = MinutoTemp + Valor_1; lcd_clear(); play_sound(16); } /*********************************************** incrementa los contadores de horas y minutos ************************************************/ void CambioHora() { set_blocking(true); Minuto++; if (Minuto > 59) { Minuto = 0; Hora++; play_sound(6); } if (Hora > 23) { Hora = 0; } PintaHora(); /*********** Comprueba si la alarma está activa para validar la hora con la de la alarma ***********/ if (AlarmaActiva == 1) { if ( (Hora == HoraAlarma) && (Minuto == MinutoAlarma) ) A_sonar(); } } /******************************************* Confirma cualquier pregunta al usuario Admite solo los valores 1 o 2. El resultado lo almacena en la variable Confirmacion ********************************************/ int Confirmar() { int Respuesta; set_blocking(true); say_phrase(11); say_phrase(59); set_blocking(false); lcd_write_string(2,1,"1->SI, 2->NO"); led_on(LED_RED_LEFT); led_on(LED_GREEN_RIGHT); set_blocking(false); while (1) { local(voice_cmd) = wait_for (voice_cmd, update); if (local(voice_cmd) == CMD_ONE) { Respuesta = 1; break; } else if (local(voice_cmd) == CMD_TWO) { Respuesta = 0; break; } else { say_phrase(8); say_phrase(3); } } led_off(LED_ALL); lcd_clear(); return Respuesta; } /*************************************** Muestra la hora en pantalla ***************************************/ void PintaHora() { set_blocking(false); if (menu_ON == 0) { // Solo pintamos la hora si no estamos ne el menu if (MuestraReloj == 1) { lcd_clear(); HoraEnPantalla(2, 12, Hora, Minuto); } lcd_write_string(1,1," "); lcd_write_string(1,1,NOMBRE_ROBOT); lcd_write_string(2,1,"Ulises 1.1"); } } /******************************** detiene el reloj *********************************/ void PararloTodo() { say_phrase(22); lcd_clear(); stop(Reloj); } /*************************************** SUENA LA ALARMA Aqui se incluye todo lo que queremos que haga el robot con la alarma activa. Es un bucle del que se sale cuando se toca la cabeza, para ello se activa el comportamiento PararAlarma. ***************************************/ void A_sonar() { start(PararAlarma); led_blink(LED_GREEN); lcd_clear(); lcd_write_string(1,1,"Es la hora !!!"); set_blocking(true); while (AlarmaActiva == 1) { play_sound(6); msleep(500); if (AlarmaActiva == 1) { play_sound(5); msleep(500); } if (AlarmaActiva == 1) { say_phrase(19); msleep(500); } if (AlarmaActiva == 1) { say_phrase(81); msleep(2000); } if (AlarmaActiva == 1) { say_phrase(140); msleep(500); } if (AlarmaActiva == 1) { play_sound(10); msleep(600); } if (AlarmaActiva == 1) { play_sound(10); } if (AlarmaActiva == 1) { play_sound(10); } if (AlarmaActiva == 1) { play_sound(10); msleep(600); } if (AlarmaActiva == 1) { say_phrase(19); msleep(5000); } if (AlarmaActiva == 0) { say_phrase(22); lcd_clear(); msleep(5000); led_off(LED_ALL); PintaHora(); } } } /****************************** * SALE DEL MENU Y REESTABECE VALORES *******************************/ void SalirMenu(){ if (ReactivaAlarma == 1) AlarmaActiva = 1; ReactivaAlarma = 0; menu_ON = 0; led_off(LED_GREEN_LEFT); led_off(LED_GREEN_RIGHT); lcd_clear(); play_sound(16); PintaHora(); } /****************************** * NARRA LA HORA QUE ES *******************************/ void NarrarHora() { msleep(1000); set_blocking(true); say_number(Hora); msleep(1000); say_number(Minuto); } /************************** ESTAMOS DENTRO DEL MENU 0 ***************************/ void EnMenu0() { play_sound(16); menu_ON = 1; if (AlarmaActiva == 0) ReactivaAlarma = 1; lcd_clear(); led_on(LED_GREEN_LEFT); led_on(LED_GREEN_RIGHT); while (menu_ON == 1) { lcd_clear(); lcd_write_string(1,1,"1.Reloj 2.Alarma"); lcd_write_string(2,1,"3.Pilas 4.Mas"); set_blocking(true); local(voice_cmd) = wait_for (voice_cmd, update); switch (local(voice_cmd)) { case CMD_ZERO: SalirMenu(); break; case CMD_ONE: EnMenu1(); break; case CMD_TWO: EnMenu2(); break; case CMD_THREE: EnMenu3(); break; case CMD_TEN: SalirMenu(); break; } // switch (local(voice_cmd)) { } // while } /************************** ESTAMOS DENTRO DEL MENU 1 (acceso desde reloj ***************************/ void EnMenu1() { play_sound(16); lcd_clear(); led_on(LED_GREEN_LEFT); led_on(LED_GREEN_RIGHT); while (menu_ON == 1) { set_blocking(true); lcd_clear(); if (MuestraReloj == 1) { lcd_write_string(1,1,"1.Ajus 2.Oculto"); } else { lcd_write_string(1,1,"1.Ajus 2.Mostrar"); } lcd_write_string(2,1,"3.Narrar"); local(voice_cmd) = wait_for (voice_cmd, update); switch (local(voice_cmd)) { case CMD_ZERO: return; break; case CMD_ONE: EnMenu1_1(); break; case CMD_TWO: EnMenu1_2(); return; case CMD_THREE: EnMenu1_3(); return; case CMD_TEN: SalirMenu(); break; } // switch (local(voice_cmd)) { } // while (get(menu_ON) == 1) { } /************************** ESTAMOS DENTRO DEL MENU 2 (ALARMA) ***************************/ void EnMenu2() { play_sound(16); lcd_clear(); led_on(LED_GREEN_LEFT); led_on(LED_GREEN_RIGHT); while (menu_ON == 1) { set_blocking(true); lcd_clear(); lcd_write_string(1,1,"1.Ajus 2.On/off"); lcd_write_string(2,1,"3.Ver"); local(voice_cmd) = wait_for (voice_cmd, update); switch (local(voice_cmd)) { case CMD_ZERO: return; break; case CMD_ONE: EnMenu2_1(); break; case CMD_TWO: EnMenu2_2(); return; case CMD_THREE: EnMenu2_3(); return; case CMD_TEN: SalirMenu(); break; } // switch (local(voice_cmd)) { } // while (get(menu_ON) == 1) { } /************************** ESTAMOS DENTRO DEL MENU 2.1 (ALARMA/AJUSTAR) ***************************/ void EnMenu2_1() { play_sound(16); lcd_clear(); led_on(LED_GREEN); while (menu_ON == 1) { set_blocking(true); lcd_clear(); lcd_write_string(1,1,"1.Hora 2.Minutos"); lcd_write_string(2,1,"3.Todo"); local(voice_cmd) = wait_for (voice_cmd, update); switch (local(voice_cmd)) { case CMD_ZERO: return; break; case CMD_ONE: // cambiar la hora if (HoraAlarma == -1) { say_phrase(17); break; } PonerHoras(); lcd_clear(); lcd_write_string(1,1,"Hora:"); HoraEnPantalla(1, 7, HoraTemp, MinutoAlarma); if (Confirmar() == 1) { HoraAlarma = HoraTemp; return; } led_off(LED_ALL); led_on(LED_GREEN); break; case CMD_TWO: // Cambiar minutos if (HoraAlarma == -1) { say_phrase(17); break; } PonerMinutos(); lcd_clear(); lcd_write_string(1,1,"Hora:"); HoraEnPantalla(1, 7, HoraAlarma, MinutoTemp); if (Confirmar() == 1) { MinutoAlarma = MinutoTemp; return; } led_off(LED_ALL); led_on(LED_GREEN); break; case CMD_THREE: AlarmaActiva = 0; ProgramarAlarma(); led_off(LED_ALL); led_on(LED_GREEN); break; case CMD_TEN: SalirMenu(); break; } // switch (local(voice_cmd)) { } // while (get(menu_ON) == 1) { } /************************** ESTAMOS DENTRO DEL MENU 2.2 (ALARMA ACTIVAR/DESACTIVAR) ***************************/ void EnMenu2_2() { play_sound(16); lcd_clear(); led_on(LED_GREEN_LEFT); led_on(LED_GREEN_RIGHT); if (HoraAlarma == -1) { say_phrase(17); return; } if (AlarmaActiva == 1) { AlarmaActiva =0; say_phrase(22); lcd_write_string(1,1,"Alarma Desactivada"); msleep(2000); lcd_clear(); } else { AlarmaActiva = 1; say_phrase(21); lcd_write_string(1,1,"Alarma Activada"); msleep(2000); lcd_clear(); } } /************************** ESTAMOS DENTRO DEL MENU 2.1 (ALARMA/VER) ***************************/ void EnMenu2_3() { if (HoraAlarma == -1) { say_phrase(17); return; } lcd_clear(); lcd_write_string(1,1, "Hora de Alarma"); HoraEnPantalla(2, 12, HoraAlarma, MinutoAlarma); msleep(2000); lcd_clear(); } /************************** ESTAMOS DENTRO DEL MENU 3 (PILAS) ***************************/ void EnMenu3() { play_sound(16); lcd_clear(); led_on(LED_GREEN); while (menu_ON == 1) { set_blocking(true); lcd_clear(); lcd_write_string(1,1,"1.Estado 2.Avisos."); lcd_write_string(2,1,""); local(voice_cmd) = wait_for (voice_cmd, update); switch (local(voice_cmd)) { case CMD_ZERO: return; break; case CMD_ONE: // Estado Pilas EstadoPilas(); break; case CMD_TWO: // ACTIVACION DE AVISOS DE LAS PILAS EnMenu3_2(); break; case CMD_TEN: SalirMenu(); break; } // switch (local(voice_cmd)) { } // while (get(menu_ON) == 1) { } /**************************************** * activa o desactiva el control de estado de las pilas * ES EL MENU 3.2 * ****************************************/ void EnMenu3_2() { set_blocking(false); play_sound(16); lcd_clear(); led_on(LED_GREEN_LEFT); led_on(LED_GREEN_RIGHT); lcd_write_string(1,1,"Aviso Baterias"); if (NarraAvisoPilas == 1) { NarraAvisoPilas = 0; say_phrase(22); lcd_write_string(2,1,"Desactivado"); msleep(2000); lcd_clear(); stop(BateriaM); stop(BateriaE); } else { NarraAvisoPilas = 1; say_phrase(21); lcd_write_string(2,1,"Activado"); msleep(2000); lcd_clear(); start(BateriaM); start(BateriaE); } } /******************************** * muestra el estado de las pilas y narra como están * ******************************/ void EstadoPilas(){ int logica; int motor; char nivel1[10]; char nivel2[10]; local(battery) = get(battery); logica = (int) ((local(battery).logic) / 10); motor = (int) ((local(battery).motors) / 10); lcd_clear(); msleep(1000); lcd_write_string(1, 1, "Log [ ]"); lcd_write_string(2, 1, "Mot [ ]"); strcpy(nivel1, ""); strcpy(nivel2, ""); strncat(nivel1, ">>>>>>>>>>", logica); strncat(nivel2, ">>>>>>>>>>", motor); lcd_write_string(1,6, nivel1); lcd_write_string(2,6, nivel2); say_phrase(42); CantaNivelBateria(logica); msleep(1000); say_phrase(43); CantaNivelBateria(motor); msleep(4000); } /************************** ESTAMOS DENTRO DEL MENU 3 (MAS) ***************************/ void EnMenu4() { } /************************** ESTAMOS DENTRO DEL MENU 1.1 (acceso desde reloj, ajustar RELOJ/AJUSTAR ***************************/ void EnMenu1_1() { play_sound(16); lcd_clear(); led_on(LED_GREEN); while (menu_ON == 1) { set_blocking(true); lcd_clear(); lcd_write_string(1,1,"1.Hora 2.Minutos"); lcd_write_string(2,1,"3.Todo"); local(voice_cmd) = wait_for (voice_cmd, update); switch (local(voice_cmd)) { case CMD_ZERO: return; break; case CMD_ONE: // cambiar la hora PonerHoras(); lcd_clear(); lcd_write_string(1,1,"Hora:"); HoraEnPantalla(1, 7, HoraTemp, Minuto); if (Confirmar() == 1) { Hora = HoraTemp; GuardarHorario(); return; } set_blocking(true); led_off(LED_ALL); led_on(LED_GREEN); break; case CMD_TWO: // Cambiar minutos PonerMinutos(); lcd_clear(); lcd_write_string(1,1,"Hora:"); HoraEnPantalla(1, 7, Hora, MinutoTemp); if (Confirmar() == 1) { Minuto = MinutoTemp; GuardarHorario(); return; } set_blocking(true); led_off(LED_ALL); led_on(LED_GREEN); break; case CMD_THREE: AjustarHorario(); GuardarHorario(); set_blocking(true); led_off(LED_ALL); led_on(LED_GREEN); break; case CMD_TEN: SalirMenu(); break; } // switch (local(voice_cmd)) { } // while (get(menu_ON) == 1) { } /************************** ESTAMOS DENTRO DEL MENU 1.2 (acceso desde reloj. (RELOJ/MOSTRAR-OCULTAR) ***************************/ void EnMenu1_2() { play_sound(16); lcd_clear(); led_on(LED_GREEN_LEFT); led_on(LED_GREEN_RIGHT); if (MuestraReloj == 1) { MuestraReloj = 0; say_phrase(22); lcd_write_string(1,1,"Reloj Oculto"); msleep(2000); lcd_clear(); } else { MuestraReloj = 1; say_phrase(21); lcd_write_string(1,1,"Reloj Visible"); msleep(2000); lcd_clear(); } } /************************** ESTAMOS DENTRO DEL MENU 1.3 (acceso desde reloj. (RELOJ/NARRAR) ***************************/ void EnMenu1_3() { play_sound(16); lcd_clear(); led_on(LED_GREEN_LEFT); led_on(LED_GREEN_RIGHT); if (NarraReloj == 1) { NarraReloj = 0; say_phrase(22); lcd_write_string(1,1,"Silencio"); msleep(2000); lcd_clear(); } else { NarraReloj = 1; say_phrase(21); lcd_write_string(1,1,"Reloj Narrado"); msleep(2000); lcd_clear(); } } /*************************** indica en que nivel está el valore recibido *****************************/ void CantaNivelBateria(int nivelb) { if (nivelb <= 2) { say_phrase(118); } else { if ( (nivelb > 2) && (nivelb <= 7) ) { say_phrase(45); } else { say_phrase(112); } } } /*************************** averigua si se puso en hora en otro momento si es asi, toma la hora del sistema y no pregunta al usuario ******************************/ void TenemosHora() { time_t tSac = time(NULL); struct tm tiempo; tiempo = localtime(&tSac); char sanno[6]; char shora[4]; char smin[4]; strftime(sanno, 5, "%Y", tiempo); strftime(shora, 3, "%H", tiempo); strftime(smin, 3, "%M", tiempo); int n; n = strcmp( sanno, "1970" ); if (n > 0) { lcd_write_string(1,1,"Hora existente"); Hora = atoi(shora); Minuto = atoi(smin); TiempoActivo = 1; } else { lcd_write_string(1,1,"Sin hora"); lcd_write_string(2, 1, sanno); } } /********************************************** modifica la hora del sistema con la del reloj del robot **********************************************/ void GuardarHorario() { char sentencia[50]=""; char shora[3]= ""; char sMin[3]=""; int nHor; int nMin; strcpy(sentencia, "date -s 2007.01.01-"); sprintf(shora, "%2d", Hora); sprintf(sMin, "%2d", Minuto); strcat(sentencia, shora); strcat(sentencia, ":"); strcat(sentencia, sMin); system(sentencia); lcd_clear(); lcd_write_string(1,1,"Guardando..."); msleep(2000); } /******************************************** Muestra en las coordenadas posx, y posy la hora de hor:min **********************************************/ void HoraEnPantalla(int posy, int posx, int hor, int min) { int px= posx; if (hor < 10) { lcd_write_string(posy,px,"0"); px++; lcd_write_int(posy,px,hor); px++; } else { lcd_write_int(posy,px,hor); px = px + 2; } lcd_write_string(posy,px,":"); px++; if (min < 10) { lcd_write_string(posy,px,"0"); px++; lcd_write_int(posy,px,min); px++; } else { lcd_write_int(posy,px,min); px = px + 2; } } /******************************************** queda en espera hasta que se pronuncian uno de los numeros del 0 - 9 ************************************************/ int EsperaUnidades() { int respuesta; local(voice_cmd) = wait_for (voice_cmd, update); switch (local(voice_cmd)) { case CMD_ZERO: respuesta = 0; break; case CMD_ONE: respuesta = 1; break; case CMD_TWO: respuesta = 2; break; case CMD_THREE: respuesta = 3; break; case CMD_FOUR: respuesta = 4; break; case CMD_FIVE: respuesta = 5; break; case CMD_SIX: respuesta = 6; break; case CMD_SEVEN: respuesta = 7; break; case CMD_EIGHT: respuesta = 8; break; case CMD_NINE: respuesta = 9; break; } return respuesta; } Manual Ulises
MASTERMIND_1.0: El Master Mind es el clásico juego de acertar combinaciones de colores ocultas del que, desde siempre, se han desarrollado versiones numéricas. En el caso que nos ocupa, se trata de acertar la combinación de números ocultos en cuatro dígitos. El robot calcula, de forma aleatoria, un número de cuatro cifras, que mantiene oculto. El jugador debe acertar el número, es decir, las cuatro cifras, una a una y en su orden exacto. Para ello dispone de un número ilimitado de intentos en los que, cuando falle, el robot le proporcionará las siguientes pistas: por cada número acertado en su posición exacta le mostrará una X; por cada número acertado en posición errónea le mostrará una O; por cada número errado, por no hallarse en la combinación, le mostrará un *. Para más información, leer las instrucciones. ¡A divertirse!	<?xml version="1.0" encoding="UTF-8"?> <?xml-stylesheet type="text/xsl" href="VisualClike.html"?> <!DOCTYPE Program PUBLIC "VisualClike" "VisualClike.dtd"> <Program Version="1.0" Author="Tolo Matas" Description="Master mind numérico versión 1.0"> <Variable Type="Counter" Name="Digito1" /> <Variable Type="Counter" Name="Digito2" /> <Variable Type="Counter" Name="Digito3" /> <Variable Type="Counter" Name="Digito4" /> <Variable Type="Counter" Name="DigitoA" /> <Variable Type="Counter" Name="DigitoB" /> <Variable Type="Counter" Name="DigitoC" /> <Variable Type="Counter" Name="DigitoD" /> <Variable Type="Counter" Name="Tomador" /> <Variable Type="Counter" Name="Di" /> <Variable Type="Counter" Name="Intento" /> <Variable Type="Counter" Name="Colocados" /> <Variable Type="Counter" Name="Descolocados" /> <Variable Type="Counter" Name="Ndificultad" /> <Main> <SoundFollower Mode="Off" /> <TouchBehavior Mode="Off" /> <ObstacleAvoidance Mode="Off" /> <VisionFollower Mode="Off" /> <SetCounter Name="Ndificultad" Value="1" /> <SetCounter Name="Intento" Value="1" /> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="Nivel dificultad" /> <LcdWriteText Row="2" Col="1" Value="Dime del 2 al 9" /> <SayPhrase Index="59" /> <Start Target="Dificultad" /> </Main> <Behavior Name="Empezar"> <WaitFor Source="key" Event="update" /> <CopyCounter Target="Digito3" Source="Digito1" /> <CopyCounter Target="Digito4" Source="Digito2" /> <SayPhrase Index="73" /> <LcdClear /> <Call Target="MensajePrimera" /> <Start Target="Primera" /> <Stop Target="Empezar" /> </Behavior> <Behavior Name="Aleatorio"> <IncCounter Name="Digito1" Value="1" /> <If> <GreaterThan> <Counter Name="Digito1" /> <Counter Name="Ndificultad" /> </GreaterThan> <Then> <SetCounter Name="Digito1" Value="0" /> <IncCounter Name="Digito2" Value="1" /> <If> <GreaterThan> <Counter Name="Digito2" /> <Counter Name="Ndificultad" /> </GreaterThan> <Then> <SetCounter Name="Digito2" Value="0" /> </Then> <Else /> </If> </Then> <Else /> </If> </Behavior> <Behavior Name="Primera"> <WaitFor Source="voice_cmd" Event="update" /> <Stop Target="Aleatorio" /> <Switch> <VoiceCmd /> <Case Value="CMD_ZERO"> <SetCounter Name="Tomador" Value="0" /> </Case> <Case Value="CMD_ONE"> <SetCounter Name="Tomador" Value="1" /> </Case> <Case Value="CMD_TWO"> <SetCounter Name="Tomador" Value="2" /> </Case> <Case Value="CMD_THREE"> <SetCounter Name="Tomador" Value="3" /> </Case> <Case Value="CMD_FOUR"> <SetCounter Name="Tomador" Value="4" /> </Case> <Case Value="CMD_FIVE"> <SetCounter Name="Tomador" Value="5" /> </Case> <Case Value="CMD_SIX"> <SetCounter Name="Tomador" Value="6" /> </Case> <Case Value="CMD_SEVEN"> <SetCounter Name="Tomador" Value="7" /> </Case> <Case Value="CMD_EIGHT"> <SetCounter Name="Tomador" Value="8" /> </Case> <Case Value="CMD_NINE"> <SetCounter Name="Tomador" Value="9" /> </Case> <Case Value="CMD_TEN"> <SetCounter Name="Tomador" Value="-1" /> </Case> <Default> <SetCounter Name="Tomador" Value="-1" /> </Default> </Switch> <If> <NotEqual> <Counter Name="Tomador" /> <Number Value="-1" /> </NotEqual> <Then> <CopyCounter Target="DigitoA" Source="Tomador" /> <LcdWriteText Row="2" Col="1" Value="Segunda cifra" /> <LedOff Mask="LED_ALL" /> <LedOn Mask="LED_RED" /> <Start Target="Segunda" /> <SayPhrase Index="59" /> <Stop Target="Primera" /> </Then> <Else> <SayPhrase Index="8" /> <SayPhrase Index="3" /> </Else> </If> </Behavior> <Behavior Name="Segunda"> <WaitFor Source="voice_cmd" Event="update" /> <Switch> <VoiceCmd /> <Case Value="CMD_ZERO"> <SetCounter Name="Tomador" Value="0" /> </Case> <Case Value="CMD_ONE"> <SetCounter Name="Tomador" Value="1" /> </Case> <Case Value="CMD_TWO"> <SetCounter Name="Tomador" Value="2" /> </Case> <Case Value="CMD_THREE"> <SetCounter Name="Tomador" Value="3" /> </Case> <Case Value="CMD_FOUR"> <SetCounter Name="Tomador" Value="4" /> </Case> <Case Value="CMD_FIVE"> <SetCounter Name="Tomador" Value="5" /> </Case> <Case Value="CMD_SIX"> <SetCounter Name="Tomador" Value="6" /> </Case> <Case Value="CMD_SEVEN"> <SetCounter Name="Tomador" Value="7" /> </Case> <Case Value="CMD_EIGHT"> <SetCounter Name="Tomador" Value="8" /> </Case> <Case Value="CMD_NINE"> <SetCounter Name="Tomador" Value="9" /> </Case> <Case Value="CMD_TEN"> <SetCounter Name="Tomador" Value="-1" /> </Case> <Default> <SetCounter Name="Tomador" Value="-1" /> </Default> </Switch> <If> <NotEqual> <Counter Name="Tomador" /> <Number Value="-1" /> </NotEqual> <Then> <CopyCounter Target="DigitoB" Source="Tomador" /> <LcdWriteText Row="2" Col="1" Value="Tercera cifra " /> <LedOff Mask="LED_ALL" /> <LedOn Mask="LED_GREEN" /> <Start Target="Tercera" /> <SayPhrase Index="59" /> <Stop Target="Segunda" /> </Then> <Else> <SayPhrase Index="8" /> <SayPhrase Index="3" /> </Else> </If> </Behavior> <Behavior Name="Tercera"> <WaitFor Source="voice_cmd" Event="update" /> <Switch> <VoiceCmd /> <Case Value="CMD_ZERO"> <SetCounter Name="Tomador" Value="0" /> </Case> <Case Value="CMD_ONE"> <SetCounter Name="Tomador" Value="1" /> </Case> <Case Value="CMD_TWO"> <SetCounter Name="Tomador" Value="2" /> </Case> <Case Value="CMD_THREE"> <SetCounter Name="Tomador" Value="3" /> </Case> <Case Value="CMD_FOUR"> <SetCounter Name="Tomador" Value="4" /> </Case> <Case Value="CMD_FIVE"> <SetCounter Name="Tomador" Value="5" /> </Case> <Case Value="CMD_SIX"> <SetCounter Name="Tomador" Value="6" /> </Case> <Case Value="CMD_SEVEN"> <SetCounter Name="Tomador" Value="7" /> </Case> <Case Value="CMD_EIGHT"> <SetCounter Name="Tomador" Value="8" /> </Case> <Case Value="CMD_NINE"> <SetCounter Name="Tomador" Value="9" /> </Case> <Case Value="CMD_TEN"> <SetCounter Name="Tomador" Value="-1" /> </Case> <Default> <SetCounter Name="Tomador" Value="-1" /> </Default> </Switch> <If> <NotEqual> <Counter Name="Tomador" /> <Number Value="-1" /> </NotEqual> <Then> <CopyCounter Target="DigitoC" Source="Tomador" /> <LcdWriteText Row="2" Col="1" Value="Cuarta cifra " /> <LedOn Mask="LED_YELLOW" /> <Start Target="Cuarta" /> <SayPhrase Index="59" /> <Stop Target="Tercera" /> </Then> <Else> <SayPhrase Index="8" /> <SayPhrase Index="3" /> </Else> </If> </Behavior> <Behavior Name="Cuarta"> <WaitFor Source="voice_cmd" Event="update" /> <Switch> <VoiceCmd /> <Case Value="CMD_ZERO"> <SetCounter Name="Tomador" Value="0" /> </Case> <Case Value="CMD_ONE"> <SetCounter Name="Tomador" Value="1" /> </Case> <Case Value="CMD_TWO"> <SetCounter Name="Tomador" Value="2" /> </Case> <Case Value="CMD_THREE"> <SetCounter Name="Tomador" Value="3" /> </Case> <Case Value="CMD_FOUR"> <SetCounter Name="Tomador" Value="4" /> </Case> <Case Value="CMD_FIVE"> <SetCounter Name="Tomador" Value="5" /> </Case> <Case Value="CMD_SIX"> <SetCounter Name="Tomador" Value="6" /> </Case> <Case Value="CMD_SEVEN"> <SetCounter Name="Tomador" Value="7" /> </Case> <Case Value="CMD_EIGHT"> <SetCounter Name="Tomador" Value="8" /> </Case> <Case Value="CMD_NINE"> <SetCounter Name="Tomador" Value="9" /> </Case> <Case Value="CMD_TEN"> <SetCounter Name="Tomador" Value="-1" /> </Case> <Default> <SetCounter Name="Tomador" Value="-1" /> </Default> </Switch> <If> <NotEqual> <Counter Name="Tomador" /> <Number Value="-1" /> </NotEqual> <Then> <CopyCounter Target="DigitoD" Source="Tomador" /> <Call Target="Mostrar" /> <Start Target="Verificar" /> <Stop Target="Cuarta" /> </Then> <Else> <SayPhrase Index="8" /> <SayPhrase Index="3" /> </Else> </If> </Behavior> <Behavior Name="Verificar"> <WaitFor Source="voice_cmd" Event="update" /> <Switch> <VoiceCmd /> <Case Value="CMD_ZERO"> <SayPhrase Index="45" /> <SayPhrase Index="9" /> <Start Target="Primera" /> <Call Target="MensajePrimera" /> <Stop Target="Verificar" /> </Case> <Case Value="CMD_ONE"> <SayPhrase Index="45" /> <SayPhrase Index="9" /> <Start Target="Primera" /> <Call Target="MensajePrimera" /> <Stop Target="Verificar" /> </Case> <Case Value="CMD_TWO"> <SayPhrase Index="45" /> <SayPhrase Index="9" /> <Start Target="Primera" /> <Call Target="MensajePrimera" /> <Stop Target="Verificar" /> </Case> <Case Value="CMD_THREE" /> <Case Value="CMD_FOUR" /> <Case Value="CMD_FIVE"> <Call Target="Evaluar" /> <Stop Target="Verificar" /> </Case> <Case Value="CMD_SIX"> <Call Target="Evaluar" /> <Stop Target="Verificar" /> </Case> <Case Value="CMD_SEVEN" /> <Case Value="CMD_EIGHT" /> <Case Value="CMD_NINE" /> <Case Value="CMD_TEN" /> <Default /> </Switch> </Behavior> <Behavior Name="Dificultad"> <WaitFor Source="voice_cmd" Event="update" /> <Switch> <VoiceCmd /> <Case Value="CMD_ZERO"> <SayPhrase Index="8" /> <SayPhrase Index="3" /> </Case> <Case Value="CMD_ONE"> <SayPhrase Index="8" /> <SayPhrase Index="3" /> </Case> <Case Value="CMD_TWO"> <SayPhrase Index="21" /> <Pause Value="200" /> <SayNumber Value="2" /> <SetCounter Name="Ndificultad" Value="2" /> </Case> <Case Value="CMD_THREE"> <SayPhrase Index="21" /> <Pause Value="200" /> <SayNumber Value="3" /> <SetCounter Name="Ndificultad" Value="3" /> </Case> <Case Value="CMD_FOUR"> <SayPhrase Index="21" /> <Pause Value="200" /> <SayNumber Value="4" /> <SetCounter Name="Ndificultad" Value="4" /> </Case> <Case Value="CMD_FIVE"> <SayPhrase Index="21" /> <Pause Value="200" /> <SayNumber Value="5" /> <SetCounter Name="Ndificultad" Value="5" /> </Case> <Case Value="CMD_SIX"> <SayPhrase Index="21" /> <Pause Value="200" /> <SayNumber Value="6" /> <SetCounter Name="Ndificultad" Value="6" /> </Case> <Case Value="CMD_SEVEN"> <SayPhrase Index="21" /> <Pause Value="200" /> <SayNumber Value="7" /> <SetCounter Name="Ndificultad" Value="7" /> </Case> <Case Value="CMD_EIGHT"> <SayPhrase Index="21" /> <Pause Value="200" /> <SayNumber Value="8" /> <SetCounter Name="Ndificultad" Value="8" /> </Case> <Case Value="CMD_NINE"> <SayPhrase Index="21" /> <Pause Value="200" /> <SayNumber Value="9" /> <SetCounter Name="Ndificultad" Value="9" /> </Case> <Case Value="CMD_TEN"> <SayPhrase Index="8" /> <SayPhrase Index="3" /> </Case> <Default> <SayPhrase Index="8" /> <SayPhrase Index="3" /> </Default> </Switch> <If> <GreaterThan> <Counter Name="Ndificultad" /> <Number Value="1" /> </GreaterThan> <Then> <Start Target="Aleatorio" /> <Start Target="Empezar" /> <Call Target="MensajeInicial" /> <Stop Target="Dificultad" /> </Then> <Else /> </If> </Behavior> <Procedure Name="Mostrar"> <SayPhrase Index="4" /> <LcdClear /> <LcdWriteText Row="1" Col="1" Value="Dices" /> <LcdWriteCounter Row="1" Col="7" Name="DigitoA" /> <LcdWriteCounter Row="1" Col="8" Name="DigitoB" /> <LcdWriteCounter Row="1" Col="9" Name="DigitoC" /> <LcdWriteCounter Row="1" Col="10" Name="DigitoD" /> <LcdWriteText Row="1" Col="11" Value="?" /> <LcdWriteText Row="2" Col="1" Value="Di SI(5) o NO(2)" /> <CopyCounter Target="Di" Source="DigitoA" /> <Call Target="Dinumero" /> <CopyCounter Target="Di" Source="DigitoB" /> <Call Target="Dinumero" /> <CopyCounter Target="Di" Source="DigitoC" /> <Call Target="Dinumero" /> <CopyCounter Target="Di" Source="DigitoD" /> <Call Target="Dinumero" /> <LedOn Mask="LED_ALL" /> <SayPhrase Index="59" /> <Return /> </Procedure> <Procedure Name="Dinumero"> <Pause Value="130" /> <If> <EqualTo> <Counter Name="Di" /> <Number Value="0" /> </EqualTo> <Then> <SayNumber Value="0" /> </Then> <Else> <If> <EqualTo> <Counter Name="Di" /> <Number Value="1" /> </EqualTo> <Then> <SayNumber Value="1" /> </Then> <Else> <If> <EqualTo> <Counter Name="Di" /> <Number Value="2" /> </EqualTo> <Then> <SayNumber Value="2" /> </Then> <Else> <If> <EqualTo> <Counter Name="Di" /> <Number Value="3" /> </EqualTo> <Then> <SayNumber Value="3" /> </Then> <Else> <If> <EqualTo> <Counter Name="Di" /> <Number Value="4" /> </EqualTo> <Then> <SayNumber Value="4" /> </Then> <Else> <If> <EqualTo> <Counter Name="Di" /> <Number Value="5" /> </EqualTo> <Then> <SayNumber Value="5" /> </Then> <Else> <If> <EqualTo> <Counter Name="Di" /> <Number Value="6" /> </EqualTo> <Then> <SayNumber Value="6" /> </Then> <Else> <If> <EqualTo> <Counter Name="Di" /> <Number Value="7" /> </EqualTo> <Then> <SayNumber Value="7" /> </Then> <Else> <If> <EqualTo> <Counter Name="Di" /> <Number Value="8" /> </EqualTo> <Then> <SayNumber Value="8" /> </Then> <Else> <SayNumber Value="9" /> </Else> </If> </Else> </If> </Else> </If> </Else> </If> </Else> </If> </Else> </If> </Else> </If> </Else> </If> </Else> </If> <Return /> </Procedure> <Procedure Name="Evaluar"> <IncCounter Name="Intento" Value="1" /> <SetCounter Name="Colocados" Value="0" /> <SetCounter Name="Descolocados" Value="0" /> <If> <EqualTo> <Counter Name="DigitoA" /> <Counter Name="Digito4" /> </EqualTo> <Then> <IncCounter Name="Colocados" Value="1" /> </Then> <Else> <If> <EqualTo> <Counter Name="DigitoA" /> <Counter Name="Digito3" /> </EqualTo> <Then> <IncCounter Name="Descolocados" Value="1" /> </Then> <Else> <If> <EqualTo> <Counter Name="DigitoA" /> <Counter Name="Digito2" /> </EqualTo> <Then> <IncCounter Name="Descolocados" Value="1" /> </Then> <Else> <If> <EqualTo> <Counter Name="DigitoA" /> <Counter Name="Digito1" /> </EqualTo> <Then> <IncCounter Name="Descolocados" Value="1" /> </Then> <Else /> </If> </If> </If> </If> <If> <EqualTo> <Counter Name="DigitoB" /> <Counter Name="Digito3" /> </EqualTo> <Then> <IncCounter Name="Colocados" Value="1" /> </Then> <Else> <If> <EqualTo> <Counter Name="DigitoB" /> <Counter Name="Digito4" /> </EqualTo> <Then> <IncCounter Name="Descolocados" Value="1" /> </Then> <Else> <If> <EqualTo> <Counter Name="DigitoB" /> <Counter Name="Digito2" /> </EqualTo> <Then> <IncCounter Name="Descolocados" Value="1" /> </Then> <Else> <If> <EqualTo> <Counter Name="DigitoB" /> <Counter Name="Digito1" /> </EqualTo> <Then> <IncCounter Name="Descolocados" Value="1" /> </Then> <Else /> </If> </If> </If> </If> <If> <EqualTo> <Counter Name="DigitoC" /> <Counter Name="Digito2" /> </EqualTo> <Then> <IncCounter Name="Colocados" Value="1" /> </Then> <Else> <If> <EqualTo> <Counter Name="DigitoC" /> <Counter Name="Digito4" /> </EqualTo> <Then> <IncCounter Name="Descolocados" Value="1" /> </Then> <Else> <If> <EqualTo> <Counter Name="DigitoC" /> <Counter Name="Digito3" /> </EqualTo> <Then> <IncCounter Name="Descolocados" Value="1" /> </Then> <Else> <If> <EqualTo> <Counter Name="DigitoC" /> <Counter Name="Digito1" /> </EqualTo> <Then> <IncCounter Name="Descolocados" Value="1" /> </Then> <Else /> </If> </If> </If> </If> <If> <EqualTo> <Counter Name="DigitoD" /> <Counter Name="Digito1" /> </EqualTo> <Then> <IncCounter Name="Colocados" Value="1" /> </Then> <Else> <If> <EqualTo> <Counter Name="DigitoD" /> <Counter Name="Digito4" /> </EqualTo> <Then> <IncCounter Name="Descolocados" Value="1" /> </Then> <Else> <If> <EqualTo> <Counter Name="DigitoD" /> <Counter Name="Digito3" /> </EqualTo> <Then> <IncCounter Name="Descolocados" Value="1" /> </Then> <Else> <If> <EqualTo> <Counter Name="DigitoD" /> <Counter Name="Digito2" /> </EqualTo> <Then> <IncCounter Name="Descolocados" Value="1" /> </Then> <Else /> </If> </If> </If> </If> <If> <EqualTo> <Counter Name="Colocados" /> <Number Value="0" /> </EqualTo> <Then> <LcdWriteText Row="1" Col="13" Value="**" /> </Then> <Else /> </If> <If> <EqualTo> <Counter Name="Colocados" /> <Number Value="1" /> </EqualTo> <Then> <LcdWriteText Row="1" Col="13" Value="X" /> </Then> <Else /> </If> <If> <EqualTo> <Counter Name="Colocados" /> <Number Value="2" /> </EqualTo> <Then> <LcdWriteText Row="1" Col="13" Value="XX" /> </Then> <Else /> </If> <If> <EqualTo> <Counter Name="Colocados" /> <Number Value="3" /> </EqualTo> <Then> <LcdWriteText Row="1" Col="13" Value="XXX" /> </Then> <Else /> </If> <If> <EqualTo> <Counter Name="Descolocados" /> <Number Value="4" /> </EqualTo> <Then> <LcdWriteText Row="1" Col="13" Value="OOOO" /> </Then> <Else /> </If> <If> <EqualTo> <Counter Name="Descolocados" /> <Number Value="3" /> </EqualTo> <Then> <LcdWriteText Row="1" Col="14" Value="OOO" /> </Then> <Else /> </If> <If> <EqualTo> <Counter Name="Descolocados" /> <Number Value="2" /> </EqualTo> <Then> <LcdWriteText Row="1" Col="15" Value="OO" /> </Then> <Else /> </If> <If> <EqualTo> <Counter Name="Descolocados" /> <Number Value="1" /> </EqualTo> <Then> <LcdWriteText Row="1" Col="16" Value="O" /> </Then> <Else /> </If> <If> <EqualTo> <Counter Name="Colocados" /> <Number Value="4" /> </EqualTo> <Then> <LcdWriteText Row="1" Col="13" Value="XXXX" /> <LedBlink Mask="LED_ALL" /> <LcdWriteText Row="2" Col="1" Value="Acertaste!!! " /> <PlaySound Index="2" /> <SayPhrase Index="112" /> <SayPhrase Index="69" /> <SetCounter Name="Intento" Value="1" /> <Start Target="Aleatorio" /> <Call Target="MensajeInicial" /> <Start Target="Empezar" /> </Then> <Else> <LedOn Mask="LED_YELLOW_LEFT" /> <PlaySound Index="13" /> <SayPhrase Index="94" /> <SayPhrase Index="87" /> <SayPhrase Index="75" /> <Call Target="MensajePrimera" /> <Start Target="Primera" /> </Else> </If> <Return /> </Procedure> <Procedure Name="MensajeInicial"> <LcdClear /> <PlaySound Index="9" /> <LcdWriteText Row="1" Col="1" Value=" Para jugar" /> <LcdWriteText Row="2" Col="1" Value="Pulsa -------V" /> <LedOff Mask="LED_ALL" /> <LedOn Mask="LED_ALL" /> <Return /> </Procedure> <Procedure Name="MensajePrimera"> <LcdWriteText Row="1" Col="1" Value="Intento: " /> <LcdWriteCounter Row="1" Col="10" Name="Intento" /> <LcdWriteText Row="2" Col="1" Value="Primera cifra " /> <SayPhrase Index="59" /> <LedOff Mask="LED_ALL" /> <LedOn Mask="LED_YELLOW" /> <Return /> </Procedure> </Program>

Hosted by www.Geocities.ws