сигнал WindowsBeep

[ben95]

Прива всем есть прога написанная мною для изучениея азбуки морже как сделать так чтоб при нажатии на кнопку на клавиатуре и держа её получался сигнал такой длины скока нажата кнопка ато получается пулеметная очередь

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if  key=VK_UP then Windows.Beep(900,100);
end;

[delphin100]

Предлагаю так второе значение увеличивать из процедуры если кнопка нажата beep (Частота,продолжительность) или поставить его 1 тогда может будет более непрерывно.

[Dj_smart]

Делается всё проще:
заводишь какую-нить переменную boolean например stop.

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;

ассемблерная вставка работает быстрее

по нажатии на клавишу:

stop:=false;
repeat
  beep(900,100);
  appilcation.progressMegagress;  // не помню точно
until stop;

а по отпусканию (KeyUp):

stop:=true;

И должно быть норм)))

[ben95]

Сообщение от Dj_smart

Делается всё проще:
заводишь какую-нить переменную boolean например stop.

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;

ассемблерная вставка работает быстрее

по нажатии на клавишу:

stop:=false;
repeat
  beep(900,100);
  appilcation.progressMegagress;  // не помню точно
until stop;

а по отпусканию (KeyUp):

stop:=true;

И должно быть норм)))

сенкс тока вопрос про встаку асем в дельфий она попрёт? сори за тупой вопрос
ДА и ещё я имел виду длину сигнала а не пулемет)

[Dj_smart]

Сенкс

Незачто)))

Тока вопрос про встаку асем в дельфий она попрёт?

Попрёт, как танк на помидоры))))

ДА и ещё я имел виду длину сигнала а не пулемет

Если выставить время, можно и от паузы избавится.

[mutabor]

Кажется в винде после 2000 функция бипа должна получать заранее Duration, т.е длину. Так что ниче не выйдет. В асмовской той что дали тоже параметр Duration есть, то же самое.

[JTG]

Можно заюзать GetAsyncKeyState и по таймеру проверять не нажата ли какая-то клавиша, если нажата - бипать дальше с duration скажем 10мс, но это какое-то корявое решение

Винда в любом случае будет посылать код нажатой клавиши постоянно прерывая его с определённым интервалом.
DirectInput вам в руки =)

[mutabor]

DirectInput вам в руки =)

Не ругайся =)

[JTG]

_________