Что нового
  • Что бы вступить в ряды "Принятый кодер" Вам нужно:
    Написать 10 полезных сообщений или тем и Получить 10 симпатий.
    Для того кто не хочет терять время,может пожертвовать средства для поддержки сервеса, и вступить в ряды VIP на месяц, дополнительная информация в лс.

  • Пользаватели которые будут спамить, уходят в бан без предупреждения. Спам сообщения определяется администрацией и модератором.

  • Гость, Что бы Вы хотели увидеть на нашем Форуме? Изложить свои идеи и пожелания по улучшению форума Вы можете поделиться с нами здесь. ----> Перейдите сюда
  • Все пользователи не прошедшие проверку электронной почты будут заблокированы. Все вопросы с разблокировкой обращайтесь по адресу электронной почте : info@guardianelinks.com . Не пришло сообщение о проверке или о сбросе также сообщите нам.

Звук через PC Speaker

Lomanu4

Команда форума
Администратор
Регистрация
1 Мар 2015
Сообщения
1,184
Баллы
155
Код:
 procedure Delay(Milliseconds: DWORD);
  var
    FirstTick: DWORD;
  begin
    FirstTick := GetTickCount;
    repeat
      Application.ProcessMessages;
    until GetTickCount - FirstTick >= Milliseconds;
  end;

begin
  asm
    mov al, 0b6H
    out 43H, al
    mov ax, Tone
    out 42h, al
    ror ax, 8
    out 42h, al
    in al, 61H
    or al, 03H
    out 61H, al
  end;
  Delay(ADelay);
  asm
    in al, 61H
    and al, 0fcH
    out 61H, al
  end;
end;
 
Вверх