Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Помогите написать звонилку  (Прочитано 6962 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Nervous_from_morning
Гость
« : 10-09-2004 11:09 » 

Люди!!!! Пожалуиста помогите написать звонилку срочно надо у меня код есть но не получается напишите пож. код хоть простенькой звонилки в инет
БООООЛЬЬЬШШОЕЕЕ СПАИБО
Записан
Var-Alex
Гость
« Ответ #1 : 11-09-2004 08:16 » 

RAS API? Смотри в MSDN и портируй в дельфу функции да структуры. Там всё просто.
Записан
Anonymous
Гость
« Ответ #2 : 29-09-2004 15:22 » 

Цитата: Nervous_from_morning
Люди!!!! Пожалуиста помогите написать звонилку срочно надо у меня код есть но не получается напишите пож. код хоть простенькой звонилки в инет
БООООЛЬЬЬШШОЕЕЕ СПАИБО


У меня есть исходник звонилки, стукни мне в асю, договоримся !!
ICQ: 1720912
Записан
Судейкина Ирина
Гость
« Ответ #3 : 20-10-2004 01:39 » 

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;

Вызываешь где нужно:

Sound(StrToInt(Edit1.Text),StrToInt(Edit2.Text));

Или просто:

Sound(1500,200);
Записан
OSokin
Гость
« Ответ #4 : 09-05-2005 15:49 » new

Если юзать telnet, то это лучше на C++... Но в инет - не знаю
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines