Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

Видеокурс программиста и крэкера 5D 2O17
(актуальность: август 2O17)
Свежие инструменты, новые видеоуроки!

  • 400+ видеоуроков
  • 800 инструментов
  • 100+ свежих книг и статей

УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Генерация звукого сигнала на встроенном динамике


 procedure Sound(Frequency, Duration: Integer);
 asm
    push edx
    push eax
    mov eax, Win32Platform
    cmp eax, VER_PLATFORM_WIN32_NT
    jne @@9X
    call Windows.Beep
    ret
 @@9X:
    pop eax
    pop edx
    push ebx
    push edx
    mov bx, ax
    mov ax, 34DDh
    mov dx, 0012h
    cmp dx, bx
    jnc @@2
    div bx
    mov bx, ax
    in al, 61h
    test al, 3
    jnz @@1
    or al, 3
    out 61h, al
    mov al, 0B6h
    out 43h, al
 @@1:
    mov al, bl
    out 42h, al
    mov al, bh
    out 42h, al
    call Windows.Sleep
    in al, 61h
    and al, 0FCh
    out 61h, al
    jmp @@3
 @@2:
    pop edx
 @@3:
    pop ebx
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS