Normas del foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Noviembre 18, 2008, 11:37:38
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Batch (Moderadores: Espectro Infernal, |Shadow|)  |  Tema: El Abecedario 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: El Abecedario  (Leído 70 veces)
:: SmartGenius™ ::
[Splendit Smart]
Moderación
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 2427


Campusero... :P

smartgenius@el-hacker.org
Ver Perfil WWW
« en: Octubre 11, 2008, 07:32:54 »

Bueno pues...un par de codes que habia hecho por ahi pero no habi publicado, dos funciones relacionadas con el abecedario...

1. Saber que Numero de letra es la introducida

Código:
@echo off
mode con cols=28 lines=12
title Abecedario
REM Coded by ::SmartGenius::
color 0a
cls

:ini
REM Inicializamos Variables
set /a num=0

:main
REM Pedimos un Dato al Usuario
echo.
echo Introduzca una Letra
set /p let=">> "
for %%a in (A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z) do (call :comp %%a)
echo.
echo  No ha introducido
echo  una letra del
echo  Abecedario
echo.
pause
exit

:comp
REM Comparamos los Datos
set /a num=%num%+1
if /i not %1==%let% (goto :eof)
echo.
echo  La Letra %let% es
echo  la numero %num%
echo.
echo  Continuar...
pause >nul
exit

Y esta seria la funcion inversa... :xD

2. Saber que letra es la correpondiente al numero...

Código:
@echo off
mode con cols=28 lines=12
title Abecedario
color 0a
cls

:ini
REM Definimos una Variable Global
set dic=_ABCDEFGHIJKLMNOPQRSTUVWXYZ

:main
REM Pedimos un Dato al Usuario
echo.
echo Introduzca un Numero
set /p num=">> "
REM Usamos Call para usar la Polimetrica
call set let=%%dic:~%num%,1%%
REM Mostramos el Resultado
echo.
echo  La %num% letra del Abecedario
echo  corresponde a la letra %let%
echo.
echo  Continuar
pause >nul
exit

Ambos codes estan comentados, como para entender un poco como funcionan... =D

Saludos.

En línea



kj
Colaborador
*****
Desconectado Desconectado

Mensajes: 918


el que madruga dios lo arruga

jjk_192@hotmail.com
Ver Perfil Email
« Respuesta #1 en: Octubre 20, 2008, 05:47:11 »


lindo, me gusta bastante el primero.

deberíamos hacer una pequeña colección de programas como estos, porque son útiles para aquellos que están aprendiendo.

salu2

kj
En línea

*si la vida te da la espalda agarrale el culo.
*la cerveza mata lentamente, pero no tengo apuro  alguno.
*daria todo lo que se por la mitad de lo que ignoro.

Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
acabemos con rapidshare y megaupload      :: clic aqui ::


Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
no mas lista negra para kaspersky - recupera y utiliza keys en lista negra   :: clic aqui ::
Espectro Infernal
T0 d0: -> Mejorar 3 en raya
Moderadores
Gran Colaborador
*****
Desconectado Desconectado

Mensajes: 1024


ESPECTRO INFERNAL


Ver Perfil Email
« Respuesta #2 en: Octubre 21, 2008, 02:28:59 »

Originales. Si, pronto crearé un postit de colección de programas y funciones. No se preocupen.

Bytes, Espectro Infernal.
En línea





Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Batch (Moderadores: Espectro Infernal, |Shadow|)  |  Tema: El Abecedario « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.7 | SMF © 2006-2007, Simple Machines LLC