sound in QB

 BBS: Inland Empire Archive
Date: 03-15-92 (12:58)             Number: 188
From: MARK BUTLER                  Refer#: NONE
  To: SCOTT JOHNSON                 Recvd: NO  
Subj: sound in QB                    Conf: (2) Quik_Bas

 On 03-14-92 SCOTT JOHNSON wrote to ALL...

 SJ> What's the easiest way to do Sound in QB?

 Use the SOUND or PLAY statements.

 Example using SOUND to make a sound like an up-sliding whistle....

    FOR x% = 1070 TO 3700 STEP 40
        SOUND x%, .2
    NEXT
    SOUND 2200, 4

 The next example uses PLAY to simulate the sound of a photon
 torpedo...

    DIM Ph$(6)
    Pl$ = "cc#dd#eff#gg#aa#b"
    FOR o% = 1 TO 6
        Ph$(o%) = "o" + STR$(o%)
    NEXT o%
    PLAY "mbl64t255"
    FOR i% = 1 TO 6
        FOR t% = 1 TO 2
            PLAY Ph$(i%)
            PLAY Pl$
        NEXT t%
    NEXT i%

 Does that help you any?

 -----> MHB :-)


... OFFLINE 1.36 * I don' gotta show you no steenking tag line!!
..................


--- WM v2.01/91-0080
 * Origin: Sea Breeze BBS Portland, OR (1:105/45)