Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

23rd
Окт

Пример проигрывания музыки по нотам на бат-файлах (через powershell)

Posted by obzor under Windows

Вот вариант более «батниковский»:

Код:

@echo off
echo Playing Чижик-пыжик...
:loop

rem Play Music
call :beep 659 300
call :beep 587 300
call :beep 523 300
call :beep 587 300
call :beep 659 300
call :beep 659 300
call :beep 659 600
call :beep 587 300
call :beep 587 300
call :beep 587 600
call :beep 659 300
call :beep 784 300
call :beep 784 600
call :beep 659 300
call :beep 587 300
call :beep 523 300
call :beep 587 300
call :beep 659 300
call :beep 659 300
call :beep 659 300
call :beep 659 300
call :beep 587 300
call :beep 587 300
call :beep 659 300
call :beep 587 600
call :beep 523 900

timeout /t 1 /nobreak >nul
goto loop

:: Бипер
:: %1 - частота в Гц (от 37 до 32767)
:: %2 - продолжительность в мс (от 1)
:beep
powershell -c "[console]::beep(%1,%2)"
exit /b

А вот более читерский, но зато играет с меньшими задержками между нотами:

Код:

@echo off
echo Playing Чижик-пыжик...
:loop

rem Play Music
powershell -c ^
"$notes = @(^
    [tuple]::Create(659,300),^
    [tuple]::Create(587,300),^
    [tuple]::Create(523,300),^
    [tuple]::Create(587,300),^
    [tuple]::Create(659,300),^
    [tuple]::Create(659,300),^
    [tuple]::Create(659,600),^
    [tuple]::Create(587,300),^
    [tuple]::Create(587,300),^
    [tuple]::Create(587,600),^
    [tuple]::Create(659,300),^
    [tuple]::Create(784,300),^
    [tuple]::Create(784,600),^
    [tuple]::Create(659,300),^
    [tuple]::Create(587,300),^
    [tuple]::Create(523,300),^
    [tuple]::Create(587,300),^
    [tuple]::Create(659,300),^
    [tuple]::Create(659,300),^
    [tuple]::Create(659,300),^
    [tuple]::Create(659,300),^
    [tuple]::Create(587,300),^
    [tuple]::Create(587,300),^
    [tuple]::Create(659,300),^
    [tuple]::Create(587,600),^
    [tuple]::Create(523,900)^
);^
foreach ($note in $notes) {[console]::beep($note.Item1, $note.Item2)}"

timeout /t 1 /nobreak >nul
goto loop