О чем спор, «братья по разуму»? Вот тут нашел пример, вроде на форте. На чем быстрее доехать, на том и едут. Если задача в скорости, а не в количестве багажа. Или безопасности в дороге.
Заменить… доехать едут… на программировать программируют в предыдущем абзаце.
Пример 5 выполнение музыкального нажатия клавиш.
\ начало текста
\ Выполнение музыкального нажатия клавиш
\ подключение функций системы для формирования звуковых колебаний, т.е. генерации сигналов.
Вот тоже на форте написал «Соэл» 2020г N3-c60,62 и тут вариант 90.189.213.191:4422/temp/uart_max6675_v1/test/uart_max6675_v1.zip
Время покажет возможности Форта, но этих времен мы можем не увидеть.
Заменить… доехать едут… на программировать программируют в предыдущем абзаце.
Пример 5 выполнение музыкального нажатия клавиш.
\ начало текста
\ Выполнение музыкального нажатия клавиш
\ подключение функций системы для формирования звуковых колебаний, т.е. генерации сигналов.
WINAPI: MessageBeep USER32.DLL ( пищание системного динамика )
WINAPI: Beep KERNEL32.DLL ( ФУНКЦИЯ т-МС F-ГЦ — )
: ZWUK ( Т-мс F-гц — ) Beep DROP;
DECIMAL
: MAIN ( основное слово выполняется постоянно в цикле, а для выхода останов до нажатия клавиши на клавиатуре )
CR S" Для выхода из программы нажать клавишу ПРОБЕЛЛ, для продолжения любую другую " ANSI>OEM TYPE
1 ( K — )
BEGIN
0x10 * 100 SWAP
2DUP.. ZWUK
KEY DUP 0x20 = UNTIL ( ПРОВЕРКА НАЖАТИЯ КЛАВИШИ, ЕСЛИ НАЖАЛИ 1 ТО КОД СОВПАЛ И ВЫХОДИМ )
;
\ подготавливаем переменные и текст программы записываем в исполняемый файл.
0 TO SPF-INIT? ( в переменную записываем код 0 – означает что инициализация выполняется )
' NOOP MAINX! ( в переменную записываем адрес выхода )
' MAIN TO ( в переменную записываем старт программы со слова MAIN )
S" test2.exe" SAVE ( сохраняем файл исполнения с именем test2.exe )
BYE ( выходим из режима редактирования и компиляция, т.е. все бай-бай )
\ текст программы окончен.
Пример 6 при нажатии клавиш перейти и открыть заданные web страницы.
\ начало текста
\ При нажатии клавиш перейти — открыть заданные web страницы
5 CONSTANT SW_SHOW
WINAPI: ShellExecuteA shell32.dll
: START_link_clik_V2 ( An n — PZout — выход да или нет )
\ на входе адр выполнения сайта
DROP
SW_SHOW ( =5 )
0 0 ( An K1 K2 K3 — ) 3 ROLL
( K1 K2 K3 An — )
S" open" DROP 0 ShellExecuteA ( pz- — )
;
: START_S ( An n — )
START_link_clik_V2 ( An n — PZout — выход да или нет ) DROP
;
: ST1 S" www.yandex.ru" START_S ( An n — );
: ST2 S" www.rambler.ru" START_S ( An n — );
: ST3 S" te.sibsutis.ru" START_S ( An n — );
: MAIN ( основное слово выполняется постоянно в цикле, а для выхода останов до нажатия клавиши на клавиатуре )
CR S" Для выхода из программы нажать клавишу ESC, для продолжения любую другую " ANSI>OEM TYPE
CR S" клавиша 1 — перейти на yandex " ANSI>OEM TYPE
CR S" клавиша 2 — перейти на rambler " ANSI>OEM TYPE
CR S" клавиша 3 — перейти сайт кафедры ТЭ СибГУТИ " ANSI>OEM TYPE
CR
0
BEGIN
DUP [CHAR] 1 = IF ST1 THEN
DUP [CHAR] 2 = IF ST2 THEN
DUP [CHAR] 3 = IF ST3 THEN
DROP
KEY DUP 0x1B = UNTIL ( ПРОВЕРКА НАЖАТИЯ КЛАВИШИ, ЕСЛИ НАЖАЛИ 1 ТО КОД СОВПАЛ И ВЫХОДИМ )
;
\ подготавливаем переменные и текст программы записываем в исполняемый файл.
0 TO SPF-INIT? ( в переменную записываем код 0 – означает что инициализация выполняется )
' NOOP MAINX! ( в переменную записываем адрес выхода )
' MAIN TO ( в переменную записываем старт программы со слова MAIN )
S" test2.exe" SAVE ( сохраняем файл исполнения с именем test2.exe )
BYE ( выходим из режима редактирования и компиляция, т.е. все бай-бай )
\ текст программы окончен.
Время покажет возможности Форта, но этих времен мы можем не увидеть.