Weekly Qbasic and Qb64 Lesson Topics
March 28, 2024, 04:33:19 am
Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
News: Want to see a specific Tutorial? ASK!
 
  Home Help Search Arcade Links Staff List Login Register  

My Experiment

Pages: [1]
  Print  
Author Topic: My Experiment  (Read 1489 times)
none
Guest
« on: March 06, 2011, 09:04:21 pm »


    This works but causes a windows fault near the end of the "clip".
Code:
REM
DEFLNG A-Z
'assumes the sound is in the current directory
mid1& = _SNDOPEN("pacman2.mid", "vol")
_SNDVOL mid1&, 0.7

DO
  IF NOT _SNDPLAYING(mid1&) THEN
    _SNDPLAY mid1&
  END IF
  IF _KEYDOWN(27) THEN
    EXIT DO
  END IF
LOOP
_SNDSTOP mid1&
_SNDCLOSE mid1&
SLEEP
SYSTEM
   
« Last Edit: September 07, 2011, 11:29:36 pm by GarrisonRicketson » Report Spam   Logged

Pages: [1]
  Print  
 
Jump to:  

Powered by EzPortal
Bookmark this site! | Upgrade This Forum
SMF For Free - Create your own Forum


Powered by SMF | SMF © 2016, Simple Machines
Privacy Policy