Autor
Este script requiere Nircmd.exe
http://nirsoft.net/utils/nircmd.zip
Esta es la ayuda del programa :
Tambien permite notas sostenidas #, es decir :
C# Do sostenido.
D# Re sostenido.
Algunos ejemplos de uso son :
Código:
Music C# 3
Music G 1
Music F 2
Music E 3
El numero despues de la letra es el grado de la escala.
Use el cifrado americano para las notas musicales.
Codigo :
Código:
@ECHO OFF
::MUSIC.BAT
::LEO GUTIERREZ .. ROCKOX
;IF /I ["%1"]==[""] (;GOTO:SYNTAX)
;IF /I ["%1"]==["-H"] (;GOTO:SYNTAX)
;IF /I ["%1"]==["/?"] (;GOTO:SYNTAX)
:NOTAS
;IF /I ["%2"]==[""] (;GOTO:SYNTAX)
;IF %2 GTR 3 (
;ECHO.NUMERO DE ESCALA DEMASIADO ALTO!. & ECHO:
;GOTO:SYNTAX
)
;IF %2 LSS 1 (
;ECHO.NUMERO DE ESCALA DEMASIADO BAJO!. & ECHO:
;GOTO:SYNTAX
)
;IF %2 EQU 1 (
;IF /I ["%1"]==["C"] (NIRCMD BEEP 262 600 & GOTO:EOF)
;IF /I ["%1"]==["C#"] (NIRCMD BEEP 277 600 & GOTO:EOF)
;IF /I ["%1"]==["D"] (NIRCMD BEEP 294 600 & GOTO:EOF)
;IF /I ["%1"]==["D#"] (NIRCMD BEEP 311 600 & GOTO:EOF)
;IF /I ["%1"]==["E"] (NIRCMD BEEP 330 600 & GOTO:EOF)
;IF /I ["%1"]==["F"] (NIRCMD BEEP 350 600 & GOTO:EOF)
;IF /I ["%1"]==["F#"] (NIRCMD BEEP 370 600 & GOTO:EOF)
;IF /I ["%1"]==["G"] (NIRCMD BEEP 393 600 & GOTO:EOF)
;IF /I ["%1"]==["G#"] (NIRCMD BEEP 416 600 & GOTO:EOF)
;IF /I ["%1"]==["A"] (NIRCMD BEEP 440 600 & GOTO:EOF)
;IF /I ["%1"]==["A#"] (NIRCMD BEEP 466 600 & GOTO:EOF)
;IF /I ["%1"]==["B"] (NIRCMD BEEP 494 600 & GOTO:EOF)
)
;IF %2 EQU 2 (
;IF /I ["%1"]==["C"] (NIRCMD BEEP 525 600 & GOTO:EOF)
;IF /I ["%1"]==["C#"] (NIRCMD BEEP 555 600 & GOTO:EOF)
;IF /I ["%1"]==["D"] (NIRCMD BEEP 590 600 & GOTO:EOF)
;IF /I ["%1"]==["D#"] (NIRCMD BEEP 623 600 & GOTO:EOF)
;IF /I ["%1"]==["E"] (NIRCMD BEEP 660 600 & GOTO:EOF)
;IF /I ["%1"]==["F"] (NIRCMD BEEP 699 600 & GOTO:EOF)
;IF /I ["%1"]==["F#"] (NIRCMD BEEP 740 600 & GOTO:EOF)
;IF /I ["%1"]==["G"] (NIRCMD BEEP 784 600 & GOTO:EOF)
;IF /I ["%1"]==["G#"] (NIRCMD BEEP 830 600 & GOTO:EOF)
;IF /I ["%1"]==["A"] (NIRCMD BEEP 880 600 & GOTO:EOF)
;IF /I ["%1"]==["A#"] (NIRCMD BEEP 930 600 & GOTO:EOF)
;IF /I ["%1"]==["B"] (NIRCMD BEEP 990 600 & GOTO:EOF)
)
;IF %2 EQU 3 (
;IF /I ["%1"]==["C"] (NIRCMD BEEP 1048 600 & GOTO:EOF)
;IF /I ["%1"]==["C#"] (NIRCMD BEEP 1110 600 & GOTO:EOF)
;IF /I ["%1"]==["D"] (NIRCMD BEEP 1176 600 & GOTO:EOF)
;IF /I ["%1"]==["D#"] (NIRCMD BEEP 1246 600 & GOTO:EOF)
;IF /I ["%1"]==["E"] (NIRCMD BEEP 1320 600 & GOTO:EOF)
;IF /I ["%1"]==["F"] (NIRCMD BEEP 1395 600 & GOTO:EOF)
;IF /I ["%1"]==["F#"] (NIRCMD BEEP 1480 600 & GOTO:EOF)
;IF /I ["%1"]==["G"] (NIRCMD BEEP 1569 600 & GOTO:EOF)
;IF /I ["%1"]==["G#"] (NIRCMD BEEP 1660 600 & GOTO:EOF)
;IF /I ["%1"]==["A"] (NIRCMD BEEP 1764 600 & GOTO:EOF)
;IF /I ["%1"]==["A#"] (NIRCMD BEEP 1880 600 & GOTO:EOF)
;IF /I ["%1"]==["B"] (NIRCMD BEEP 1980 600 & GOTO:EOF)
)
:SYNTAX
;ECHO:%~NX0
;ECHO:
;ECHO:MODO DE USO :
;ECHO:
;ECHO:%~NX0 [-NOTA] [#] [1-3]
;ECHO:
;ECHO:LAS SIGUIENTES NOTAS ESTAN DISPONIBLES:
;ECHO:C : DO
;ECHO:D : RE
;ECHO:E : MI
;ECHO:F : FA
;ECHO:G : SOL
;ECHO:A : LA
;ECHO:B : SI
;ECHO:
;ECHO:# : ALTERACION SOSTENIDO.
;ECHO:[1-3] : Numero de escala.
;ECHO:
;ECHO:EJEMPLOS:
;ECHO:%~NX0 C 2
;ECHO:%~NX0 G# 3
GOTO:EOF
En línea
