elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [ BATCH ] Efecto visual de escribir lento?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: [ BATCH ] Efecto visual de escribir lento?  (Leído 11,761 veces)
$Edu$


Desconectado Desconectado

Mensajes: 1.842



Ver Perfil
Re: [ BATCH ] Efecto visual de escribir lento?
« Respuesta #10 en: 20 Diciembre 2011, 18:29 pm »

Aca encontre el codigo en mi pendrive, por si sirve de algo..

Código
  1.  
  2.   @echo off
  3. call:put Me canse de escribir tantas lineas ...
  4. call:put Este es el typewritter effect reloaded
  5. call:put o echo dinamico xD
  6. goto:eof
  7.  
  8. :put
  9. if,not,defined,.m_,set.m_=%*&if,not,defined,.m_,goto:eof
  10. <nul,set/p.m_=%.m_:~0,1%&>nul,ping -n 1 0&set.m_=%.m_:~1%&if,defined,.m_ (goto:put),else,(echo.)
  11. goto:eof
  12.  


En línea

Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.788



Ver Perfil
Re: [ BATCH ] Efecto visual de escribir lento?
« Respuesta #11 en: 23 Diciembre 2011, 19:04 pm »

Aca encontre el codigo en mi pendrive, por si sirve de algo..

Código
  1.  
  2.   @echo off
  3. call:put Me canse de escribir tantas lineas ...
  4. call:put Este es el typewritter effect reloaded
  5. call:put o echo dinamico xD
  6. goto:eof
  7.  
  8. :put
  9. if,not,defined,.m_,set.m_=%*&if,not,defined,.m_,goto:eof
  10. <nul,set/p.m_=%.m_:~0,1%&>nul,ping -n 1 0&set.m_=%.m_:~1%&if,defined,.m_ (goto:put),else,(echo.)
  11. goto:eof
  12.  

Gracias por el code pero no me sirve, ese code no escribe los espacios (Supongo que a ti si, en windows xp si), de todas formas ese problema ya me ayudaron a resolverlo xD ahora estoy estancado en no poder escribir más de una línea  :-[

un saludo


En línea

PedroDJavier
Visitante


Email
Re: [ BATCH ] Efecto visual de escribir lento?
« Respuesta #12 en: 20 Mayo 2014, 21:03 pm »

Buenas. Siento revivir un post tan antiguo pero como (creo) que conozco la solucion me parecio oportuno postear.

Este seria el codigo:

Código:
@echo off
echo P
timeout /t 2 >nul
cls
echo Pe
timeout /t 2 >nul
cls
echo Ped
timeout /t 2 >nul
cls
echo Pedr
timeout /t 2 >nul
cls
echo Pedro
pause >nul

Imprimiria en 10 segundos la palabra Pedro a 2 segundos por letra;
El comando timeout /t "segundos" es un comando muy preciso para esperar X tiempo, es mejor que el ping LOCALHOST /N "tiempo" que ademas es un truco muy "sucio"

Espero haber ayudado, aportando 2 cosas nuevas a la comunidad. :D
Un saludo

PedroDJavier

PD: preguntando al principio al usuario que es lo que quiere escribir y usando extraccion de caracteres podemos hacer cosas chulas xD

EDIT: Se  me olvido comentar que funciona con los espacios :D aveces la solucion esta en lo simple !
« Última modificación: 20 Mayo 2014, 21:08 pm por PedroDJavier » En línea

the-bird-of-the-hermes

Desconectado Desconectado

Mensajes: 3



Ver Perfil WWW
Re: [ BATCH ] Efecto visual de escribir lento?
« Respuesta #13 en: 21 Mayo 2014, 16:45 pm »

podrias modificar este programa en c++ las variables que se escribren por espacios en blanco supongo pero ya no seria puro batch

http://foro.elhacker.net/scripting/batch_c_programa_para_efecto_typewritter-t410038.0.html;msg1924932#msg1924932
En línea

todos somos ignorantes, pero no ignoramos las mismas cosas.
ramiro069

Desconectado Desconectado

Mensajes: 9


Ver Perfil
Re: [ BATCH ] Efecto visual de escribir lento?
« Respuesta #14 en: 24 Noviembre 2014, 00:24 am »

Citar
Buenas. Siento revivir un post tan antiguo pero como (creo) que conozco la solución me pareció oportuno postear.
Ya somos 2, he modificado el el script que no imprimía los espacios para que si lo haga:

Código
  1.  
  2. @echo off
  3. mode con cols=100
  4. mode con lines=20
  5.  
  6. call :SLOW aaa     aaaa           aaaa
  7. echo+
  8. echo+
  9. call :SLOW quiero un espacio
  10. pause>nul
  11. goto :eof
  12.  
  13.  
  14. :SLOW
  15. set palabra=%*
  16. if not defined palabra (goto :eof)
  17. set palabra=%palabra: =_%
  18. call:length %palabra%
  19. set /a contt=0
  20. set /a contt2=0
  21. set /a cantcopy=1
  22. if [%tam%] gtr [0] (set /a contt2 +=1)
  23. :loopt
  24. call :AUXILIAR %%palabra:~%contt2%,1%%
  25. if [%aux%]==["_"] (
  26. set /a contt2 +=1
  27. set /a cantcopy +=1
  28. ) else (goto :end1)
  29. if %contt2% leq %tam% (goto :loopt)
  30. :end1
  31. call :SLOW1 %%palabra:~%contt%,%cantcopy%%%
  32. set /a contt +=%cantcopy%
  33. set /a contt2 +=1
  34. set /a cantcopy=1
  35. if %contt% leq %tam% (goto :loopt)
  36. goto :eof
  37. :SLOW1
  38. set char="%1"
  39. set char=%char:_= %
  40. <nul (set /p msg=%char%)
  41. set /a aux2=%cantcopy%
  42. :loopt1
  43. ping -n 1 127.0.0.0 -w 1>nul 2>&1
  44. ping -n 1 127.0.0.0 -w 1>nul 2>&1
  45. set /a aux2 -=1
  46. if %aux2% gtr 0 (goto :loopt1)
  47. goto :eof
  48. :length
  49. set argl=%*
  50. if not defined argl (goto :eof)
  51. set wordl=%argl%
  52. set /a contl=0
  53. :loopt2
  54. if not defined wordl (goto :end2)
  55. set wordl=%wordl:~1%
  56. set /a contl +=1
  57. goto :loopt2
  58. :end2
  59. set tam=%contl%
  60. goto :eof
  61. :AUXILIAR
  62. set aux="%1"
  63. if not defined aux (goto:eof)
  64. goto :eof
  65.  
  66.  

Como veis para poder lograrlo hay que enviar los espacios a la vez que la letra anterior, por lo que si aumentamos mucho el tiempo de espera se verá que los espacios los escribes rápido y las letras despacio, pero es mejor que nada y ademas soporta las multilineas.

Un saludo, espero que a alguien le resulte útil
« Última modificación: 24 Noviembre 2014, 00:26 am por ramiro069 » En línea

Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
BATCH - Función máquina de escribir
Scripting
carlitos.dll 3 8,097 Último mensaje 3 Octubre 2008, 22:17 pm
por -/lnkx/-
Escribir por batch # o /
Scripting
clonh 8 6,525 Último mensaje 12 Octubre 2009, 22:31 pm
por morenochico
Video 3D de efecto visual :P « 1 2 »
Multimedia
engel lex 13 7,376 Último mensaje 30 Marzo 2014, 23:23 pm
por Vaagish
Efecto maquina de escribir en Vbs para Consola
Scripting
.:: KsV ::. 0 2,033 Último mensaje 24 Junio 2015, 00:45 am
por .:: KsV ::.
El Chat del Facebook me va lento al Escribir
Mensajería
El_Andaluz 6 4,810 Último mensaje 19 Septiembre 2021, 17:53 pm
por El_Andaluz
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines