DonsoftST
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

[APORTE] Learning.bat - fomenta el aprendizaje infantil

Ir abajo

Aporte [APORTE] Learning.bat - fomenta el aprendizaje infantil

Mensaje por .:Xx4NG3LxX:. el Mar 01 Dic 2020, 3:57 pm

Hola Donsoftst-eros X'D, me gustaría compartir un pequeño script en Batch el cual es un pequeño juego que enseña a sumar y a restar a los más pequeños del hogar.

Características:
1. Registra la puntuación a partir del nombre escrito al inicio.
2. Posibilidad de superar antiguos puntajes.
3. Enseña a sumar y restar fácilmente.
4. Característica especial que no permite restas en la que el primer número sea menor que el segundo (para evitar resultados negativos).

Código:

@Echo Off
@Title -= Learning v1.5=- - .:Xx4NG3LxX:.
@Mode 31,25
@Color 1B

::::::::::::::::::::::::::::
:: Programa para fomentar ::
::     el aprendizaje     ::
::        infantil        ::
::::::::::::::::::::::::::::

Set /A "Points=0"
Set /A "Tries=0"

:Label
Cls
Echo+
Set /P "Kid=Nombre >>> "

If Not Defined Kid (Goto :Label)

:Inicio : Inicio del programa...
Cls
Echo+
Echo+ +---------------------------+
Echo+ ^|      Learning v1.5       ^|
Echo+ +---------------------------+
Echo+
Echo+         Menu Principal
Echo+
Echo+      1.    Empezar !
Echo+      2.     Salir

Choice /C:12 /N >NUL

REM IF's ErrorLevel's

If "%ErrorLevel%" Equ "2" (Goto :Eof)

:Begin : Empieza el juego...
Color 1B
If "%Points%" Equ "10" (Goto :Win)
Cls
Call :Nums
Echo+
Echo+ Puntos: %Points%
Echo+
Echo+ Intentos: %Tries%
Echo+ ----------------------
Echo+ Operacion:
Echo+
Echo+ %n1% %Signo% %n2%
Echo+
Set "Ans="
Set /P "Ans=>>> "

If Not Defined Ans (Goto :Begin)

If /I "%Ans%"=="X" (Exit)

If "%Ans%" Equ "%Ope%" (Goto :Ok) Else (Goto :No)

:Nums
Set /A "n1=(%Random% %% 11)"
Set /A "n2=(%Random% %% 11)"
Set /A "NSigno=(%Random% %% 2)"
Set "Signo=+-"

  Call Set "Signo=%%Signo:~%NSigno%,1%%"

  Set /A "Ope=%n1%%Signo%%n2%"

  If "%Ope:~0,1%"=="-" (Call :Nums)
Goto :Eof

:Ok
Color 2F
Echo+
Echo+         Excelente !
Set /A "Points+=1"
Set /A "Tries+=1"
Ping -n 2 LocalHost >Nul
Goto :Begin

:No
Color 4e
Echo+
Echo+         Lo siento
Set /A "Points-=1"
Set /A "Tries+=1"
Ping -n 2 LocalHost >Nul
Goto :Begin

:Win
Cls
Color 2F
Echo+
Echo+     Has Ganado el Juego !
Echo+         Felicidades
Pause>Nul

(
Echo %Kid%
Echo+
Echo Puntos: %Points%
Echo Intentos: %Tries%
Echo+
Echo+
)>>%Kid%_Wins.txt

Exit

No obstante, pueden estudiar el código si es que se están iniciando en esto de Batch, y si tienen alguna duda con alguna parte del código pueden preguntar por aquí mismo...

Saludos Invitado
.:Xx4NG3LxX:.
.:Xx4NG3LxX:.
Moderadores
Moderadores

Masculino
Venezuela
Mensajes Mensajes : 14
Puntos Puntos : 36
Fecha de inscripción : 07/11/2020
Localización : Detrás de tí

https://batchpower.foroactivo.com/

A Overclip le gusta esta publicaciòn

Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.