Foro de elhacker.net

[@echo off
title Text to morse converter
:start
set /p var=
if %var%==* (
cls
goto start
)
if %var%==a (
echo .- 
goto start
)
if %var%==b (
echo -... 
goto start
)
if %var%==c (
echo -.-. 
goto start
)
if %var%==ch (
echo ---- 
goto start
)
if %var%==d (
echo -.. 
goto start
)
if %var%==e (
echo . 
goto start
)
if %var%==f (
echo ..-. 
goto start
)
if %var%==g (
echo --. 
goto start
)
if %var%==h (
echo .... 
goto start
)
if %var%==i (
echo .. 
goto start
)
if %var%==j (
echo .--- 
goto start
)
if %var%==k (
echo -.- 
goto start
)
if %var%==l (
echo .-.. 
goto start
)
if %var%==m (
echo -- 
goto start
)
if %var%==n (
echo -. 
goto start
)
if %var%==o (
echo --- 
goto start
)
if %var%==p (
echo .--. 
goto start
)
if %var%==q (
echo --.- 
goto start
)
if %var%==r (
echo .-. 
goto start
)
if %var%==s (
echo ... 
goto start
)
if %var%==t (
echo - 
goto start
)
if %var%==u (
echo ..- 
goto start
)
if %var%==v (
echo ...- 
goto start
)
if %var%==w (
echo .-- 
goto start
)
if %var%==x (
echo -..- 
goto start
)
if %var%==y (
echo -.-- 
goto start
)
if %var%==z (
echo --.. 
goto start
)
if %var%==1 (
echo .---- 
goto start
)
if %var%==2 (
echo ..--- 
goto start
)
if %var%==3 (
echo ...-- 
goto start
)
if %var%==4 (
echo ....- 
goto start
)
if %var%==5 (
echo ..... 
goto start
)
if %var%==6 (
echo -.... 
goto start
)
if %var%==7 (
echo --... 
goto start
)
if %var%==8 (
echo ---.. 
goto start
)
if %var%==9 (
echo ----. 
goto start
)
if %var%==0 (
echo ----- 
goto start
)
if %var%==. (
echo .-.-.- 
goto start
)
if %var%==? (
echo ..--.. 
goto start
)/code]

por ejemplo... cuando pones una letra sale traducido debajo... pero quiero que la letra que has puesto se borre y que salga todo el codigo en una linea si es posible. gracias

y si no he puesto algo bien en el mensaje o algo es porque soy totalmente nuevo aqui en foro el hacker

@echo off
title convertidor morse
color f0
:menu
cls
echo.
echo.
echo.
echo.
echo.
echo Hola este es un diccionario 
echo de codigo morse...
echo.
echo           1.Convertir palabra al morse
echo.
echo           2.Salir
echo.
set/p opc=Que deseas hacer 1 o 2? :
if %opc%==1 goto submen
if %opc%==2 (goto salir) else goto menu

:submen
cls
echo.
echo.
echo.
echo.
echo.
echo Escribe la palabra!!! que quieras convertir a codigo morse
echo y presiona enter...
set/p pal=PALABRA:
if [%pal%]==[] echo Basio&pause > nul&goto menu
set pal=%pal:a=.- %
set pal=%pal:b=-... %
set pal=%pal:c=-.-. %
set pal=%pal:d=-.. %
set pal=%pal:e=. %
set pal=%pal:f=..-.*%
set pal=%pal:g=--. %
set pal=%pal:h=.... %
set pal=%pal:i=.. %
set pal=%pal:j=.--- %
set pal=%pal:k=-.- %
set pal=%pal:l=.-.. %
set pal=%pal:m=-- %
set pal=%pal:n=-. %
set pal=%pal:o=---. %
set pal=%pal:p=.-- %
set pal=%pal:q=--.- %
set pal=%pal:r=.-. %
set pal=%pal:s=... %
set pal=%pal:t=- %
set pal=%pal:u=..- %
set pal=%pal:v=...- %
set pal=%pal:w=.-- %
set pal=%pal:x=-..- %
set pal=%pal:y=-.-- %
set pal=%pal:z=--.. % 
echo.
echo.
echo.
echo.
echo.
echo Cargando...
ping -n 3 localhost >nul
cls
echo.
echo.
echo.
echo.
echo.
echo Esta es su codificacion en morse %pal%
pause > nul
goto menu

:salir
exit