Saludos,

Este script lo hice hoy, como en 15 o 20 minutos más o menos. Lo hice, con el fin de enseñarle a mi hermanito a sumar y restar . El resultado salió mejor de lo que esperaba de hecho.

Lo posteo para que los que se inician en Batch, puedan estudiar el código y entender más de esto.

Modificado:


1. Contador de intentos.
2. Registra los puntos e intentos en un .txt.
3. Pide nombre para guardarlo.


Learning.bat
Learning v1.5.bat

@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

Edito: Mejor? ><

Pasa, que yo ejecuto el comando debug y me muestra...


Porque ocurre?

Gracias !

Saludos,

Quisiera pedirles (humildemente) que compartieran sus scripts, pero... Usando el comando COLOUS, no se si habrán hecho alguno... Es para ver creatividad. Yo no encuentro que hacer ...

Gracias !

PD: Captures ! ><

Saludos,

Tenía entendido que con el comando Choice NO se pueden usar las flechas de dirección (arrow keys). Pero por ahí leí que SÍ se puede. Lo cual me dejo en un total confundimiento xD y me hizo dudar...

Esto no se puede hacer...

:: Resto del código...
...
Choice /C:{UP}{DOWN}{RIGHT}{LEFT} /N >NUL
...
:: Resto del código...
 

¿Se puede (de alguna forma) o no?

Iluminenme!!!

PD: ya sé que las teclas WASD son una alternativa

Saludos,

¿Se podría "crear" el debug.exe mediante un Batch?

Como he visto que hacen el keyboard.com, me atreví a publicar esto, ya que no me corre el debug original. * Me da un error.

Muchas Gracias.

Saludos,

Bueno, lo dicho, como se puede obtener una URL propia de una imagen que tenga guardada en mi galería. Alguna página web? No me gustaría descargar nada, y, tampoco subirla a internet y de ahi sacar la url...

Saludos,

- El problema que tengo ya tiene alrededor de 2 o 3 años. Lo que ocurre, es que al iniciarse la laptop (tengo una canaima), da un rápido pantalla o azul, tan rápido que no da chance de leer el motivo. Intenté Restaurar Sistema, Reparación de Inicio y demás cosas. Antes de todo esto, mi canaima tardaba más de lo normal en iniciar sesión (en serio, demasiado), pero nunca me dio por buscarle solución, así que no le dí importancia (al menos no tanta).

  Un día decidí encender la canaima para jugar, y entonces paso lo del pantallazo. Quedé perplejo, y me asusté. Bueno, hasta hace como un año y un poco más, descubrí una forma de "navegar" en el sistema. Osea, explico: Le dí a la opción de Reparación de Inicio, luego de que hiciera el proceso de reparación (el cual no sirvió), le dí a la opción Ver opciones avanzadas de recuperación y soporte técnico del sistema (o algo así, no recuerdo), la cual me ponía una ventana con varias opciones, una de ellas era entrar al Simbolo del sistema. Entré, y abrí el notepad.exe, presioné Ctrl + A (la opción Abrir), para "abrir" un archivo de texto, no, no abrí ningún archivo de texto en vez de eso, noté que podía "navegar" en las carpetas de alguna u otra forma. Me alegré, y después pensé: "Oye, y si puedo ejecutar mis juegos?". Lo cual me alegró aún más... Y, efectivamente, podía abrir algunos juegos (la minoría, eso es lo triste) al cabo de un año más o menos fui descubriendo más juegos y programas que sí podía ejecutar "correctamente", descubrí también, los archivos por lotes (el cual ni siquiera sabía que existía). Y me si cuenta de que podía ejecutarlo normalmente. En fin, me salí del tema. Volviendo a lo de los juegos, casi ninguno se ejecutaba, y algunos de los que se ejecutaban o me daban algún error a mitad de juego, o al ejecutarlo o incluso ya casi acabándolas. Lo cual me desalegró.

  Y, llegué a la conclusión de tener que volver a instalar Windows 7 (lo cual no he hecho aún, porque... Bueno no puedo todavía). Ah si, me olvidaba, el audio y el video se esfumaron, junto con el D3D. Busqué acerca del D3D, y ví que tenía que ver con el dxdiag.exe. Sólo activarlo y ya, pero a mi no me aparece esa casilla, así que... No puedo ejecutar el emulador de N64, ni el de PlayStation, y, creo que es obvio que el acceso a internet se fue, obviamente no me abre el navegador ni nada (aunque no tengo Wifi ;P)...

¿Cuál podría haber sido la causa?

¿Se puede solucionar sin tener que instalar de nuevo el Windows 7?

Muchísimas gracias por leer!!

Cualquier ayuda se agradece...

.:Xx4NG3LxX:.

---

EDICION RÁPIDA:

Tampoco me deja entrar al Panel de Control

... Otra vez ni 30 minutos, pero que más...

Los que están en Negrita son mis favoritos

---

Batch:

---

Colous V4[comando para mejorar el diseño del bat]

[comando]Cmouse | Usar mouse en batch

compilador de bat a exe en BATCH

[Juego]GilgamesH Puzzle

BatchPaint V1.3 - La última versión

Antivirus en batch

---

Visual Basic:

---

Counter Strike en VB6 by alexmanycool

Cambiar de color un TextBox al recibir o perder el enfoque - Api GetFocus

Captcha - Usando un PictureBox y un CommandButton

Gira un control PictureBox en círculo por el form

---

C++:

---

[GameBase] - Una base para crear juegos en consola

---

---

* Este post se irá actualizando poco a poco.
*•.,,.•*•.,,.•*•.,,.•*•.,,.•*•.,,.•*•.,,.•*•.,,.•*•.,,.•*•.,,.•*•.,,.•*•.,,.•*•.,,.•*

Hola gente, el día de hoy quisiera compartirles un script que encontré en designal. Un foro no muy habitado últimamente, pero bueno...

Cabe decir, que el código no lo hice yo, no es mío. Lo digo para evitar malos entendidos. Lo posteo porque me parece... Interesante, y, además el código es "estudiable".

Dim Obj, Tabla(78,23)
Const PI = 3.141592654
 
Set Obj=CreateObject("WSCript.Shell")
Obj.Exec("Cmd /c Mode con cols=0 lines=0").StdOut.ReadAll
 
For Angle = 0 to 360 Step 2
   Call Limpiar
   For Tm = 1 to 10
      X = 39 + Clng(Tm * Cos(Angle * PI / 180))
      Y = 12 + Clng(Tm * Sin(Angle * PI / 180))
      Tabla(X,Y) = "*"
   Next
 
   Call Graficar
   Obj.Exec("Cmd /c Mode con cols=0 lines=0").StdOut.ReadAll
Next
 
WSCript.Sleep 3000
WSCript.Quit
 
Sub Graficar()
   For Y = 0 to 23
      For X = 0 To 78
         WSCript.StdOut.Write Tabla(X,Y)
      Next
      WSCript.Echo ""
   Next
End Sub
 
Sub Limpiar()
   For Y = 0 to 23
      For X = 0 To 78
         Tabla(X,Y) = " "
      Next
   Next
End Sub
 

* Nota: ejecutar el script mediante CScript, ya que los gráficos son en la consola.
Código creado por EddyW

Hola de nuevo, vengo con otro tema de Happy Wheels. Últimamente, al entrar al modo editor y empezar a hacer un nivel cualquiera, cuando presiono "T" para probarlo, va bien, uno de los problemas radica en que cuando vuelvo a presionar "T" para volver a editarlo, el juego se paraliza y debo cerrarlo y volverlo a abrir, lo cual es frustrante, porque no "guarda" el nivel creado.

---

Yo ejecuto el juego con el Adobe Flash Player 11 y no me muestra nada de error... Lo ejecuto con el Adobe Flash Player 10 y me aparece un Error de ActionScript cuando presiono el botón de PLAY para jugar los niveles que ya tiene el juego...

Error de ActionScript:


Muchas gracias y disculpen las molestias....