FreeBasic
Главная
Вход
Регистрация
Четверг, 28.03.2024, 17:17Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Вопросы по языку FreeBasic » Пример Sound не работает
Пример Sound не работает
ПавелДата: Пятница, 12.04.2013, 10:26 | Сообщение # 1
Сержант
Группа: Пользователи
Сообщений: 21
Репутация: 0
Статус: Offline
В справке есть пример

Код
'speakersound.bas  
Sub Sound(ByVal freq As UInteger, dur As UInteger)
   Dim t As Double,f1 As Unsigned Short
     f1 = 1193181 \ freq
     Out &h61,Inp(&h61) Or 3
     Out &h43,&hb6
     Out &h42,LoByte(f1)
     Out &h42,HiByte(f1)
     t=Timer  
     While ((Timer - t) * 1000) < dur
       Sleep 0,1
     Wend
     Out &h61,Inp(&h61) And &hfc
End Sub

Sound(523, 60)  'C5
Sound(587, 60)  'D5
Sound(659, 60)  'E5
Sound(698, 60)  'F5
Sound(784, 60)  'G5
Sound(880, 60)  'A5
Sound(988, 60)  'B5
Sound(1046, 60) 'C6


Включаю, но ничего не происходит. Почему?
 
haavДата: Пятница, 12.04.2013, 18:27 | Сообщение # 2
Генералиссимус
Группа: Администраторы
Сообщений: 1361
Репутация: 49
Статус: Offline
Под win7 запускаете? В справке написано, что под win7 надо запускать под админом в первый раз. Потом можно запускать с правами простого пользователя.

P.S. Не пойму только, зачем это нужно. Пищание встроенного динамика использовалось в прошлом веке...


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
ПавелДата: Суббота, 13.04.2013, 11:23 | Сообщение # 3
Сержант
Группа: Пользователи
Сообщений: 21
Репутация: 0
Статус: Offline
Цитата (haav)
что под win7 надо запускать под админом в первый раз

Да это помогло, спасибо.

Цитата (haav)
Пищание встроенного динамика


Я думал ,что звук будет в колонках.
 
Форум » Freebasic » Вопросы по языку FreeBasic » Пример Sound не работает
  • Страница 1 из 1
  • 1
Поиск: