Sound Blaster Sound 
Author Message
 Sound Blaster Sound

Hi all,
    I have been trying to figure out how to get sound out of my sound
blaster card and have been unable to do so.  I hope that someone will
be able to explaine how to do this.
   Thanks in advance
-Neal

FATAL KEYBOARD ERROR PRESS RETURN TO CONTINUE!



Thu, 26 Feb 1998 03:00:00 GMT  
 Sound Blaster Sound

Quote:
) writes:

>Hi all,
>    I have been trying to figure out how to get sound out of my sound
>blaster card and have been unable to do so.  I hope that someone will
>be able to explaine how to do this.
>   Thanks in advance
>-Neal

Well, I'm also trying to figure out how to directly use Sound Blaster
from QB45, but I haven't found a way yet (although I have seen one that
send static to the speakers).  The way I am doing it right now is using
an EXE that is run from the command prompt and doesn't show up and
print messages.  PLAY.EXE, which was posted here a few messages back,
is an example.  PLAY can do most formats including Audio CDs, so it
should fit most people's needs.  


Thu, 26 Feb 1998 03:00:00 GMT  
 Sound Blaster Sound
On Sep 10, 1995 16:16:53 in article <Sound Blaster Sound>,

Quote:
>Hi all,  
>I have been trying to figure out how to get sound out of my sound
>blaster card and have been unable to do so.  I hope that someone will
>be able to explaine how to do this.
>Thanks in advance

i don't know about that, but....

Quote:
>FATAL KEYBOARD ERROR PRESS RETURN TO CONTINUE!

I had "Keyboard Error! Press F1 to continue" one time.
Tell me, anyone, how can the people be STUPID ENOUGH to make you press a
key on the keyboard if the keyboard has an error? They're smart enough to
make the computer run, by WHY THAT!!!!

Bye!



Thu, 26 Feb 1998 03:00:00 GMT  
 Sound Blaster Sound

Quote:
>    I have been trying to figure out how to get sound out of my sound
>blaster card and have been unable to do so.  I hope that someone will
>be able to explaine how to do this.

Here is some code I found on the internet: (QBasic - and it works!)

DECLARE SUB TickPause (Ticks%)
OPTION BASE 1
DEFINT A-Z
DIM A0$(6)
AddressPort = &H388
DataPort = &H389
FOR clport = 0 TO 244:
OUT AddressPort, clport: OUT DataPort, 0
NEXT
OUT AddressPort, &H20: OUT DataPort, &HF1
OUT AddressPort, &HDB: OUT DataPort, &HFF
OUT AddressPort, &H40: OUT DataPort, &H90
OUT AddressPort, &H60: OUT DataPort, &HF0
OUT AddressPort, &H80: OUT DataPort, &HFF
OUT AddressPort, &H23: OUT DataPort, &H1
OUT AddressPort, &H43: OUT DataPort, &H0
OUT AddressPort, &H63: OUT DataPort, &HF0
OUT AddressPort, &H83: OUT DataPort, &H77

littleJAZZditty:

FOR xx = 1 TO 2
FOR x = 1 TO 6
GOSUB BinDelta
OUT AddressPort, &HA0: OUT DataPort, A0
OUT AddressPort, &HB0: OUT DataPort, &H30
TickPause 2.5
OUT AddressPort, &HB0: OUT DataPort, &H0
TickPause .3
NEXT x
FOR a = 1 TO 3
x = 5
GOSUB BinDelta
OUT AddressPort, &HA0: OUT DataPort, A0
OUT AddressPort, &HB0: OUT DataPort, &H30
TickPause 4
x = 2 + a
GOSUB BinDelta
OUT AddressPort, &HA0: OUT DataPort, A0
OUT AddressPort, &HB0: OUT DataPort, &H30
TickPause 6
NEXT
OUT AddressPort, &HB0: OUT DataPort, 0
NEXT
FOR x = 6 TO 2 STEP -1
GOSUB BinDelta
OUT AddressPort, &HA0: OUT DataPort, A0
OUT AddressPort, &HB0: OUT DataPort, &H30
TickPause 4
OUT AddressPort, &HB0: OUT DataPort, &H0
TickPause .3
NEXT x
x = 5
GOSUB BinDelta
OUT AddressPort, &HA0: OUT DataPort, A0
OUT AddressPort, &HB0: OUT DataPort, &H30
TickPause 16
OUT AddressPort, &HB0: OUT DataPort, &H0
END

BinDelta:

    A0$(1) = "01101011"   ' 1
    A0$(2) = "10000001"   ' 2
    A0$(3) = "10011000"   ' 3
    A0$(4) = "10110000"   ' 4
    A0$(5) = "11001010"   ' 5
    A0$(6) = "11100101"   ' 6
'      b0$ = "00110000"
           '  xx^   ^      /2 unused/1 on-off/3 octave/2 fnum-hi
           '  xxOoctFmbit

    bn$ = A0$(x): rBn$ = "": GOSUB BtD: A0 = Dec
RETURN

BtD:

Dec = 0!
IF LEN(bn$) <> 8 THEN RETURN
    FOR xT = 8 TO 1 STEP -1
        rBn$ = rBn$ + MID$(bn$, xT, 1)
    NEXT

    FOR xT = 0 TO 7
        BD = VAL(MID$(rBn$, xT + 1, 1))
        IF BD THEN Dec = Dec + 2 ^ xT
    NEXT
RETURN

'
'  ZDDDDDDBDDDDDDDDDDDBDDDDDDDDDDBDDDDDBDDDDDDDDDDD?
'  3      3           3          3F-H  3 F-NUMBER L3
'  3 NOTE 3 FREQUENCY 3 F-NUMBER CDDDDDEDDDDDDDDDDD4
'  3      3           3          3  10 3 76543210  3
'  CDDDDDDEDDDDDDDDDDDEDDDDDDDDDDEDDDDDEDDDDDDDDDDD4
'  3  C#  3   277.2   3    363   3  01 3 01101011  3
'  3  D   3   293.7   3    385   3  01 3 10000001  3
'  3  D#  3   311.1   3    408   3  01 3 10011000  3
'  3  E   3   329.6   3    432   3  01 3 10110000  3
'  3  F   3   349.2   3    458   3  01 3 11001010  3
'  3  F#  3   370.0   3    485   3  01 3 11100101  3

'

DEFSNG A-Z
SUB TickPause (Ticks%) STATIC
DEFINT A-Z

    ' Ticks%        The number of ticks to delay.  There are 18.2 ticks
    '               per second.  This routine returns the ticks as an
    '               integer - it does not use QB's floating point
routine.

    TestTick = 0

    DEF SEG = zero
    WHILE TestTick < Ticks

        lastTick = Tick
        Tick = PEEK(&H46C)     'Get a tick from the clock.

        '   ---- Prevents endless loop when rolling past midnight.
        IF lastTick <> Tick THEN TestTick = TestTick + 1

    WEND
    DEF SEG

END SUB

(Courtesy of http://www.fys.ruu.nl/~bergmann/basic.html)
Also available is code for playing WAV's.  Mail me if you want it.

Quote:
>FATAL KEYBOARD ERROR PRESS RETURN TO CONTINUE!

Or how about:  KEYBOARD ERROR OR NOT PRESENT - PRESS F1 TO CONTINUE


 ----------------------------------------------------------------
   ...Any thing expressed here is independant of my employer...
!    ...I not available on e-mail after the 22nd September...    !



Mon, 02 Mar 1998 03:00:00 GMT  
 
 [ 4 post ] 

 Relevant Pages 

1. A: Sound Blaster Sound

2. QBasic Sound Programs using Sound Blaster and Adlib Cards Here

3. Help with Sound Blaster programming

4. Sound blaster programming

5. Sound Blaster

6. Sound Blaster support in QBasic 4.0 - 7.1

7. Need help accessing A Sound Blaster compatible from Qbasic

8. Sound Blaster support in QBasic 4.0 - 7.1

9. Question on TSRs and Sound Blaster in QuickBasic

10. Sound Blaster Music and Instruments

11. Zoyak 1.4 <---- Now with Sound Blaster Support!!!

12. Sound Blaster in Qbasic or in Quick Basic 4.00

 

 
Powered by phpBB® Forum Software