Последние записи
- Получение ProductKey установленной Windows
- Как парсить https сайт ?
- Смена регистра строки текста на BAT (CMD)
- Вывод разноцветного текста на BAT (CMD)
- Узнать дату окончания сертификата
- Как создать полноценный сайт на Open Server
- Получить температуру процессора на bat-файлах
- Динамические массивы в Lazarus / Delphi — индексация элементов
- Многозадачность на бат-файлах
- Дата и время изменения файла
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
10th
Сен
CMD/BAT: звуки (2 разных + бонус: сигнал SOS)
Posted by obzor under Windows
@ echo off
setlocal enabledelayedexpansion
pause
echo Звуковой сигнал №1
call :beep1
pause
echo Звуковой сигнал №2
call :beep2
exit /b
:: Звуковой сигнал через символ с кодом 7 (Alt + 07)
:beep1
setlocal
0<nul set /p =[BEL]
endlocal & exit /b
:: Звуковой сигнал через choice
:beep2
echo 0y | choice /c y /n>nul
exit /b
[BEL] — это непечатный символ с кодом 7. Здесь его вставить нельзя, так что работающий пример качайте из вложения.
Подпрограмма beep2 выводит звук через команду choice.
Не факт что везде будет работать, не проверял, но у меня оба метода работают и звуки разные.
Сигнал SOS
А вот и пример реализации сигнала SOS через звуки и мигание экраном:
@ echo off
setlocal enabledelayedexpansion
cls
title Сигнал SOS
:sos
call :M_S
call :M_O
call :M_S
call :pause 2
echo.
goto sos
exit /b
:: O: ---
:M_O
call :dash
call :dash
call :dash
exit /b
:: S: ...
:M_S
call :dot
call :dot
call :dot
exit /b
:: Точка (Морзе)
:dot
setlocal
0<nul set /p =.
color f0
call :beep2
color 07
endlocal & exit /b
:: Тире (Морзе)
:dash
setlocal
0<nul set /p =-
color f0
call :beep2
call :pause
color 07
endlocal & exit /b
:: Звуковой сигнал через choice
:beep2
echo 01 | choice /c 1 /n>nul
exit /b
:: Задержка в сек (0 - короткая задержка)
:pause
setlocal
set t=%1
if "%t%"=="" set t=0
timeout /t %t% >nul
endlocal & exit /b
Так как звук подается вызовом подпрограммы beep2, которая работает через choice, то и непечатных символов тут нет. Можно копировать код прямо с форума.
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту

пеллетные котлы

Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)


