Важная информация
Страница 2 из 2 ПерваяПервая 12
Показано с 11 по 15 из 15

Тема: Проигрование Wav-файлов на QBASIC'e

  1. #11  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Уже хорошо сделал качество воспроизведения через спикер. вот код
    Код qbasic:
    DIM file            AS STRING
    DIM voff            AS LONG
    DIM temp            AS INTEGER
    DIM SPEED           AS INTEGER
    DIM por AS INTEGER
    CLS
     
    INPUT "Введите имя файла ", file
    INPUT "Введите задержку  ", SPEED
    INPUT "Введите порог громкости  ", por
    PRINT "Играем..."
     
     
    OPEN file FOR BINARY AS #1
    WHILE INKEY$ = ""
    voff = voff + 1
     
    temp = 0
    GET #1, voff, temp
     
    temp = temp / 256
    temp = temp + 128
     
     
     SELECT CASE temp
     CASE 1 TO por
     OUT &H61, 2
     CASE por + 1 TO 256
     OUT &H61, 0
     END SELECT
     
     
     
    FOR I = 1 TO SPEED
    NEXT I
     
     
    WEND
    CLOSE #1


    порог громкости тоже эксперементально подбирается. У меня, например, хорошо играет на 30.
    Для хорошего качества надо вместо маленькой пиликалки припаять большой динамик.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  2. #12  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    >Ещё одна деталь: из под венды не работает. Нужен чистый дос или загрузочная дискета
    C этого начинать надо
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

  3. #13  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Для улучшения качества воспроизведения через Ковокс, нужно

    temp = temp / 700

    заменить на

    temp = temp / 256
    temp = temp + 128

    Хорошо работает так:
    звук 8-бит 44кгц.
    задержка 4

    В досбоксе не работает. Не хватает мощьности.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  4. #14  
    Профи
    Регистрация
    31.10.2011
    Адрес
    Планета Земля
    Сообщений
    117
    Сказал(а) спасибо
    7
    Поблагодарили 9 раз(а) в 8 сообщениях
    Проверял в DOSBox (там есть эмуляция Covox) - в самом деле работает.
    Ответить с цитированием  
     

  5. #15  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    У меня почему-то в DosBox'e не работало, наверное, мощности компа не хватало.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

Страница 2 из 2 ПерваяПервая 12
Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 11
    Последнее сообщение: 17.11.2011, 12:14
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •