Пример использования данной функции можно
. Пример использования данной функции можно найти в файле
Melodies.prg поставляемом в составе программных примеров CT II.
Примеры
. Воспроизведение гаммы четвертой октавы:
SOUND(262, 40)
SOUND(294, 40)
SOUND(330, 40)
SOUND(349, 40)
SOUND(392, 40)
SOUND(440, 40)
SOUND(494, 40)
SOUND(523, 40)
. Вызов с параметром в форме символьной строки:
cVar := I2BIN(262) + I2BIN(40) + I2BIN(294) + I2BIN(40)
SOUND(cVar)
. Пауза в полсекунды:
SOUND(0, 50)
See Also: MILLISEC()
SPEED()
Возвращает относительное значение скорости процессора.
------------------------------------------------------------------------------
Синтаксис
SPEED([<lMode>]) --> nCPUSpeed
Параметры
<lMode> - необязательный логический параметр, задающий при значении
.T. маскирование всех прерываний, кроме прерываний таймера, на время
измерения скорости процессора, а при значении .F. или по умолчанию
измерение без маскирования.
Возвращаемое значение
nCPUSpeed - числовое значение скорости процессора в процентах, где
100% соответствует скорости стандартного IBM PC/XT с тактовой частотой
4.77 МГц.
Описание
Функция позволяет сравнить скорость работы используемого процессора со
стандартным IBM PC/XT с тактовой частотой 4.77 МГц. Для увеличения
точности измерений можно маскировать все прерывания, кроме прерываний
таймера, без которых невозможно функционирование микросхем ОЗУ.
Примечания
. Внимание! При маскировании прерываний не могут работать
использующие их функции, например, функции последовательного
интерфейса. По окончании измерения маскирование прерываний снимается
автоматически.
Примеры
. Измерение скорости для машин класса IBM PC/AT:
? SPEED(.T.) // 470 (в 4.7 раза быстрее чем IBM PC/XT)