cómo hacer que una aplicación se vuelva a ejecutar?

[Néstor]

Hola amigos del Foro:
Hola a todos quienes integran esta lista:
Como les contaba no sé mucho de programación pero me apaciona mucho.
Estoy diseñando un pequeño programita para que mi niña se pueda aprender y practicar las tablas. Y creo que solo me falta algo.
Quiero decirle a autoit que cuando termine la primera pregunta se sigan repitiendo unas 20 veces para poder ensayar.
Esto quedaría mas o menos así.
; Inicio script.
; Variables

$1= Random(1, 10, 1)
; Número al azar por el que se multiplicará la tabla
$2= Random(1, 9, 1)
; Número al azar de la tabla
$3= $1 * $2
; Multiplicación de los números que se generaron al Azar.
$r=InputBox("¿Cuánto es " & $1 & "X" & $2 & "?", "Escribe el resultado")
; cuadro de entrada donde se contesta la pregunta propuesta.
If $3 == $R Then
; Si se cumple la igualdad entonces
MsgBox(0, "¡Exelente!", $1 & "Por" & $2 & "=" & $3)
; mensaje
EndIf
If $3 <> $R Then
; Mensaje si no hay igualdad
MsgBox(0, "¡Lo siento!", $1 & "Por" & $2 & "=" & $3)
EndIf
$m=Msgbox(4, “Mensaje de aplicación”, “¿Quieres continuar?”)
; mensaje de finalización.
If $m == $6 then
; Si la respuesta es si entonces.
; quiero que se repita el script.
Endif
If $m == 7 then
Msgbox(0, “mensaje de aplicación”, “Gracias por participar”)
exit
Endif
;fin del scrip

[wiloson]

seria por medio del comando for

[Dany]

Hola. Bueno te comento que podrías hacerlo mas corto y mas bonito.


Edito: ahí te dejo el código explicado.

Código: Seleccionar todo

;Declaramos Todas Nuestras Variables
Local $iNumero1, $iNumero2, $bContinuar, $iMsg, $oResultado, $iResultado

$bContinuar = True

While $bContinuar  ;Miestras $bContinuar Sea True(verdadero) Hacemos lo que esta Dentro, de lo Contrario Termina la Aplicacion ahi
	
	
	;Esto ya lo sabes :P
	$iNumero1 = Random(1, 10, 1) 
	$iNumero2 = Random(1, 9, 1)

;Aqui para hacer la Comparacion tampoco creo que tengo que explicarlo
	$iResultado = $iNumero1 * $iNumero2
	$oResultado = InputBox("¿Cuánto es " & $iNumero1 & " X " & $iNumero2 & "?", "Escribe el resultado: ")

;Comparamos el Dato Original Con el dato Incresado por el InputBox
	If $iResultado = $oResultado Then  
		MsgBox(0, "¡Excelente!", "Excelente Continua asi :)", 3)
	Else
		MsgBox(0, "¡Lo Siento!", "Sigue Praticando :(", 3)
	EndIf
	
	;Preguntamos si Quiere Continuar
	$iMsg = MsgBox(4, "Continuar", "Desea Continuar Jugando")
	If $iMsg = 7 Then $bContinuar = False ;Si coloca que no Estonces Cambiarmos nuestra Variable $bContinuar a false(falso) asi cuando estemos en el while no se cumple y termina el programa.

WEnd

También puedes hacer una Interface así a la vista de tu niña es mas agradable.

PD: usa el Tag code para que no se deforme el código.

saludos

[Néstor]

Dany Muchas gracias.
Ya aprendí para que sierve la función while.
La aplicación ya quedó.
https://dl.dropboxusercontent.com/u/149 ... Tablas.exe

[Dany]

Un gusto ayudarte.

seria mejor ver el código fuente que el compilado.


saludos y pásate seguido por el foro :)

saludos

[Néstor]

Local $nombre, $nombre1, $num1, $num2, $continua, $resu1, $resu2, $mensaje
DirCreate("sonidos")
FileInstall("cajita.mp3", "sonidos\cajita.mp3")
FileInstall("papel.mp3", "sonidos\papel.mp3")
FileInstall("timbre.mp3", "sonidos\timbre.mp3")
MsgBox(4096, "¡Bien Venido!", "Este es el juego de las Tablas de Multiplicar")
$nombre=StringUpper(InputBox("¡Hola! ¿Cómo te llamas?", "Por favor escribe tu nombre aquí"))
$nombre1=MsgBox(4096+4, "¡Hola " & $nombre & "!", "¿Jugamos?")
If $nombre1 == 7 Then
MsgBox(262144+4096, "Gracias " & $nombre, "¡Nos Vemos Pronto!")
Exit
else
$continua= True
While $continua
$num1 = Random(2, 9, 1)
$num2 = Random(1, 9, 1)
$resu1 = $num1 * $Num2
SoundSetWaveVolume(40)
SoundPlay("sonidos\timbre.mp3", 0)
$resu2 = InputBox("¿cuánto es" & $num1 & "X" & $num2 & "?", "Escribe el Resultado")
If $resu1 = $resu2 Then
soundplay("sonidos\cajita.mp3", 0)
MsgBox(262144, "¡Muy bien " & $nombre & "!", "Porque " & $num1 & "Por" & $num2 & "=" & $resu1, 4)
Else
SoundPlay("sonidos\papel.mp3", 0)
MsgBox(262144, "¡Lo siento " & $nombre & "!", "Porque " & $num1 & "Por" & $num2 & "=" & $resu1, 4)
EndIf
$mensaje=MsgBox(4096+4, "continuar", "¿Deseas continuar jugando?")
If $mensaje = 7 Then $continua = False
WEnd
MsgBox(262144, "Gracias " & $nombre, "Vuelve Pronto")
EndIf
SoundPlay("")
FileDelete("sonidos\*.mp3")
FileRecycle("sonidos")

[Néstor]

Hola:
solo para ensayar le cambié el nombre a las variables que colocó Dany.
también le puse sonidos, que el volumen de éstos no se oigan tan fuerte, y que se borraran todos los archivos generados.
cómo no se borraban la carpeta con el dirRemove tuve de darle un fileRecycler.
saludos.
Epiezo con autoit hasce comoun mes.
para darle formato a las aplicaciones colores tamaños de letras y eso todavía no se como pero investigamos.
Hago notar quetengo discapacidad visual severa (Ciego total) y uso lectores de pantalla.
saludos a todos y espero seguir aprendiendo porque como ya dije enel primer post me encanta esto de progrmar.
Néstor

[Dany]

¿de verdad eres Ciego total? tremendo eres mi ídolo :)

Lo de las variables en comodidad de cada quien. (puedes usar los nombres a gusto)

Bueno puedes contar conmigo para cualquier proyecto que estes haciendo, o si necesitas alguno que este a mi alcance de hacer con mucho gusto lo hago. Para facilitarte las cosas con la programación por ejemplo. :)

un saludo amigo un gusto leerte. saludos y cuidate

[BasicOs]

Me alegra esta historia de superación de aprender a programar y teniendo privado el sentido de la vista con esta ceguera.

Para mi es una satisfacción que aprendas de este humilde foro, siempre me ha gustado el tema de la creación de herramientas de usabilidad y accesibilidad, que a su vez está muy relacionado con la Automatización que es un punto fuerte de AUTOIT.

Es decir automatizando los procesos de la vida (también fuera del pc via robotización) podemos facilitar acciones y actividades con el ordenador, arduino, hardware, dispositivos, y en la vida propia para personas que no pueden, o bien otras que por comodidad lo desean más rápido o hacer un CLICK, sin complicarse. Aunque hacer una buena paella no se hace (todavía) con un click.
Tenemos dos foros uno de automatización hardware: http://www.emesn.com/autoitforum/viewforum.php?f=19
y otro de software o creación de inteligencia artificial, http://www.emesn.com/autoitforum/viewforum.php?f=20

espero que te sean útiles, y puedas hacer cosas que los videntes normales (que no sean ciegos) NO puedan hacerlas, y tu si que las hagas con estas herramientas que puedes crearte. jeje

Animo y felicidades por el código, y gracias por compartirlo, y que hagas muchas maravillas para que tu niña.
Salu22:)