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

[Kakos_nonos]

Уже хорошо сделал качество воспроизведения через спикер. вот код

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.
Для хорошего качества надо вместо маленькой пиликалки припаять большой динамик.

[Dispetcher14]

>Ещё одна деталь: из под венды не работает. Нужен чистый дос или загрузочная дискета
C этого начинать надо

[Kakos_nonos]

Для улучшения качества воспроизведения через Ковокс, нужно

temp = temp / 700

заменить на

temp = temp / 256
temp = temp + 128

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

В досбоксе не работает. Не хватает мощьности.

[Doomer_]

Проверял в DOSBox (там есть эмуляция Covox) - в самом деле работает.

[Kakos_nonos]

У меня почему-то в DosBox'e не работало, наверное, мощности компа не хватало.