TweetFollow Us on Twitter

Digitized Sound
Volume Number:6
Issue Number:5
Column Tag:Basic School

Related Info: Sound Manager

Playing Digitized Sound
in QuickBasic

By Robert Spencer, East Lyme, CT

Digitized Sound in QuickBasic

While Microsoft QuickBasic is my favorite language for getting things done quickly, it doesn’t have the power to produce applications as rich in Mac features as Pascal or C. Fortunately, Microsoft gives us the ability to add to the language with “pure code resources”, or MBPC’s, which can be added to QuickBasic itself and/or applications it creates. MBPC’s themselves must be written in Pascal or C, and compiled with the glue routines that QuickBasic needs. Once added to the resource fork of QuickBasic, an MBPC simply adds a new statement to the language. When this statement is encountered, control is passed to the compiled code. From my point of view this is a great way to work -- I get the quick turnaround time and comforting environment of an interpreter (it takes care of the user interface, memory management, printing, MultiFinder, DA’s, etc.), but when necessary for speed or language extension, I can write simple, short compiled routines.

In this article I use MBPC’s to demonstrate one of the things that you can’t do directly in QuickBasic: play digitized sound -- not just MacinTalk-like speech, but the high-quality music and voices that add so much pizzazz to HyperCard and games.

The QuickBasic manual and disks give examples for code resource writing with MPW Pascal, MPW C, and Lightspeed C. As Murphy’s Law would have it, my second language is THINK Pascal -- but fortunately the MPW Pascal glue routines supplied by Microsoft work without modification in THINK Pascal 2.0. The two MBPC resources shown below are SetSoundVol, which allows you to set the speaker volume from within QuickBasic, and PlaySound, which lets you play any digitized ‘snd ‘ resource (note the trailing space in ‘snd ‘). These new commands can be used in either interpreted or compiled Microsoft QuickBasic 1.0.

Changing the Speaker Volume

First is SetSoundVol, a minimal MBPC. The speaker volume could be changed without writing an MBPC, by using QuickBasic’s ToolBox command -- but it’s so simple that it’s a good starting example for MBPC programming.

The code (listing 1) is straightforward since there are only three lines that “do” anything. First, the glue routines GetNextLibArg and IntegerArg pass the desired sound volume (an integer 0,1,..,7) from QuickBasic, and then SetSoundVol(MyVolume) does the work. There is no error checking or trapping, so you should make sure the passed number is a legal value. Note also that the number can be passed by value or by name, since the routine doesn’t try to change it.

Build the project as shown in the SetVolume.Π project window. The DRVRRuntime.lib library is necessary for pure code resources; both it and Interface.lib come with THINK Pascal. BasicLib.a.o and BasicLibMPWP.p are the glue files for MPW Pascal that come with QuickBasic, and they link without modification under THINK Pascal. Finally, before compiling, fill in the Set Project Type... dialog for a Code Resource. This is shown for the PlaySound project; for SetSoundVol, just change the resource name to SetSoundVol and give it a different ID number. After compiling and linking, use ResEdit to copy SetSoundVol and then paste it into QuickBasic. If you don’t want to do this, or if you want to distribute a program to others who will use it under interpreted QuickBasic, you’ll have to include a LIBRARY statement in your Basic programs that refers to a separate file with SetSoundVol in its resource fork.

For a very simple demo of SetSoundVol, the following program is hard to beat:

'1

‘ SetSoundVol minimal demo
‘ Uncomment the LIBRARY command
‘ if you don’t insert the MBPC into QB
‘ LIBRARY MyMBPCFileName$
FOR i = 1 to 5
   SetSoundVol 1 : BEEP
   SetSoundVol 7 : BEEP
NEXT i
END

For a better demo, see listing 3, the QuickBasic program that demonstrates PlaySound, since it also uses SetSoundVol.

Playing Digitized Sounds

Playing digitized sounds isn’t difficult, but it’s significantly more complex than just changing the speaker volume, and I’m grateful for the guidance provided by MacTutor authors before me. In particular, Todd Carper’s 4th Dimension externals for playing sound (MacTutor 9, 42, and The Definitive MacTutor IV, 356-363) are in the same spirit as this QuickBasic MBPC (listing 2).

To keep things simple, let QuickBasic do as much of the work as possible. I assume that QuickBasic has opened the file(s) containing the ‘snd ‘ resources required (the System file and the current application are automatically opened), and I also let QuickBasic determine the ‘snd ‘ resource numbers. In the demo program I put all available sounds in a menu, so I use CountRes, GetIndRes, and GetResInfo. If you wanted a specific named snd, you could use GetNamedRes and GetResInfo to get the resource number. Note that these statements are part of the QuickBasic “Toolbox Library”, so be explicit in typing your integers% and longints&. The ratio% parameter should have a value of 1,2,3, or 4, depending on the sampling frequency used when the ‘snd ‘ was recorded (22, 11, 7.3, or 5.5 kHz, respectively). Essentially, ratio% just determines the playback speed ( 1 = fast, 4 = slow), and you can experiment with it to find out what speed is correct for a given snd. There’s no return parameter provided, so if there’s an error (e.g. a bogus resource number), then nothing happens -- simply no sound plays (Zen error handling?).

My favorite place to find unusual ‘snd ‘ resources is in HyperCard stacks. You can open the resource fork of a stack directly and look for snd’s there; for example, inserting

' 2

FileRef% = 0        ‘    initialize FileRef%
OpenResFile “hard disk:HyperCard folder:Sound Stack”,FileRef%

into the demo program would add the snd resources in hard disk:HyperCard folder:Sound Stack to the Sounds menu. If you have sound resources but they aren’t of type ‘snd ‘, the Boston Computer Society distributes a useful stack and associated tools to change digitized sounds from one type to another.

Have fun!

Rob Spencer is a biochemist at Pfizer Central Research, Groton, CT. He has a B.A. in physics, a Ph.D. in biochemistry, and is fortunate to be able to combine his avocation (Mac programming) with his vocation (finding and assaying new drugs to treat human disease). He can be reached at (203) 441-3946.

Figure 1. The ‘Set Project Type...’ dialog in THINK Pascal

Figure 2. SetVolume Project

listing 1 : SetVolume.p

UNIT SetVolume;
{   Called from QuickBasic as:    }
{   SetSoundVol vol%              }
{    where vol% = 0,1,...,7       }
INTERFACE
 USES
  BasicLib;
 PROCEDURE main;

IMPLEMENTATION

 PROCEDURE main;
  VAR
   tempflag, argtype, MyVolume: INT16;
   valptr: LIBARGPTR;
 BEGIN
  argtype := GetNextLibArg(valptr, tempflag);
  MyVolume := IntegerArg;
  SetSoundVol(MyVolume);
 END;
END.


Figure 3. The PlaySnd Project


listing 2: PlaySnd.p

UNIT PlaySoundUnit;
{   Called from QuickBASIC as:               }
{    CALL PlaySound (SndResNum%, ratio%)     }
{   in THINK Pascal by Rob Spencer   1/6/90  }

INTERFACE
 USES
  BasicLib;
 PROCEDURE Main;

IMPLEMENTATION

 PROCEDURE PlaySnd (SndResNum, Ratio: Integer);
{Thanks to Allan Wootton, The Complete MacTutor II, 230-235}
{and Todd Carper, The Definitive MacTutor IV, 356-363}
  TYPE
   FFSynthHandle = ^FFSynthPtr;
  VAR
   MySndHandle: FFSynthHandle;
   MyPtr: Ptr;
   MyFFPtr: FFSynthPtr;
   MyRatio: integer;

 BEGIN
  IF (Ratio > 0) AND (Ratio < 5) THEN
      { ratio must be 1..4 }
   MyRatio := Ratio
  ELSE
   MyRatio := 2;   { an arbitrary default }

  MySndHandle := FFSynthHandle(GetResource(‘snd ‘, SndResNum));
  IF MySndHandle <> NIL THEN
   BEGIN
   Hlock(Handle(MySndHandle));
   MyPtr := Ptr(MySndHandle^);
   MyFFPtr := FFSynthPtr(MyPtr);
   MyFFPtr^.mode := FFMode;
   MyFFPtr^.count := FixRatio(1, MyRatio);
   MyFFPtr^.wavebytes[0] := 0;
   StartSound(MyPtr, GetHandleSize(Handle(MySndHandle)) - 6, pointer(-1));
   StopSound;
   HUnlock(Handle(MySndHandle));
   DisposPtr(MyPtr);
   END;
 END;  { of PlaySnd }

 {------------------ main ------------------}
 PROCEDURE main;
  VAR
   tempflag, argtype: INT16;
   valptr: LIBARGPTR;
   SndResNum, ratio: integer;
 BEGIN
  argtype := GetNextLibArg(valptr, tempflag);
  SndResNum := IntegerArg;      { get argument 1 }
  argtype := GetNextLibArg(valptr, tempflag);
  ratio := IntegerArg;          { get argument 2 }
  PlaySnd(SndResNum, ratio);
 END;
END.

listing 3 : PlaySound Test Program

‘ PlaySound Test Program
‘ This QuickBASIC program will play ‘snd ‘
‘ resources from the resource fork of
‘ the application (either QB or itself if
‘ compiled) and the System file 
‘ (automatically opened).
‘ Rob Spencer      January 1990

GOSUB Initialize
WHILE NOT AllDone%      ‘   main event loop
   CheckEvent
WEND
dummy = FRE(-1)         ‘   compact the heap
END
‘_________________  subroutines ______________

Initialize:
   ‘   Uncomment the LIBRARY statement if the
   ‘   MBPCs SetSoundVol and PlaySound are in
   ‘   a separate MBPC file.
   ‘   LIBRARY MyMBPCLibName$
   DEFINT i-n
   ‘ use DIM SHARED to initialize variables
   ‘ as required by ToolBox Library statements
   DIM SHARED SndResNum%(21),handle&,NumSnds%
   DIM SHARED volume%,ratio%,dummy$,AllDone%,True%,False%
   False% = 0
   True% = NOT False%
   AllDone% = False%
   SndName$ = “”
   ‘   Uncomment the following to use a 
   ‘        separate snd file
   ‘   FileRef% = 0
   ‘   OpenResFile YourSndFileName$,FileRef%
   CountRes “snd “,NumSnds%
   ‘   limit to 20 items in a menu
   IF NumSnds%>20 THEN NumSnds% = 20

   ‘   set up menus
   
   MENU 1,0,1,”File”
   MENU 1,1,1,”Quit”
   CmdKey 1,1,”Q”
   
   MENU 3,0,1,”Sounds”
   FOR i% = 1 TO NumSnds%
      GetIndRes “snd “,i%,handle&
      GetResInfo handle&,SndResNum%(i%),dummy$,SndName$
      MENU 3,i%,1,SndName$
   NEXT i%
   
   MENU 4,0,1,”Volume”
   FOR i = 0 TO 7
      MENU 4,i+1,1,STR$(i)
   NEXT i
   
   MENU 5,0,1,”Compression”
   FOR i = 1 TO 4
      MENU 5,i,1,STR$(i)
   NEXT i
   
   MENU 6,0,1,”Combos”
   MENU 6,1,1,”random”
   
   ratio% = 2              ‘   set defaults
   MENU 5,2,2
   volume% = 5
   MENU 4,4,2
   SetSoundVol volume%

   dummy = FRE(-1)
   RETURN
   
SUB CheckEvent STATIC      ‘   only menu events
   MenuId% = MENU(0)
   ItemId% = MENU(1)
   SELECT CASE MenuId%
      CASE 1
         AllDone% = True%
      CASE 3
         PlaySound (SndResNum%(ItemId%)),(ratio%)
      CASE 4
         FOR i = 0 TO 7        ‘   uncheck all
            MENU 4,i+1,1
         NEXT i
         MENU 4,ItemId%,2      ‘   check ours
         volume% = ItemId%-1
         SetSoundVol (volume%)
      CASE 5
         ratio% = ItemId%
         FOR i = 1 TO 4        ‘   uncheck all
            MENU 5,i,1
         NEXT i
         MENU 5,ItemId%,2      ‘   check ours
      CASE 6
         FOR i% = 1 TO 10      ‘   play 10 snd ‘s  
            item% = NumSnds%*RND
            PlaySound (SndResNum%(item%)),(ratio%)
         NEXT i%
      CASE ELSE
   END SELECT
   IF MenuId%>0 THEN MENU MenuId%,0,1
   END SUB

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Evernote 6.9.1 - Create searchable notes...
Evernote allows you to easily capture information in any environment using whatever device or platform you find most convenient, and makes this information accessible and searchable at anytime, from... Read more
jAlbum Pro 13.5 - Organize your digital...
jAlbum Pro has all the features you love in jAlbum, but comes with a commercial license. You can create gorgeous custom photo galleries for the Web without writing a line of code! Beginner-friendly... Read more
jAlbum 13.5 - Create custom photo galler...
With jAlbum, you can create gorgeous custom photo galleries for the Web without writing a line of code! Beginner-friendly, with pro results - Simply drag and drop photos into groups, choose a design... Read more
Google Chrome 53.0.2785.143 - Modern and...
Google Chrome is a Web browser by Google, created to be a modern platform for Web pages and applications. It utilizes very fast loading of Web pages and has a V8 engine, which is a custom built... Read more
Chromium 53.0.2785.143 - Fast and stable...
Chromium is an open-source browser project that aims to build a safer, faster, and more stable way for all Internet users to experience the web. Version 53.0.2785.143: [Security Fix] High CVE-2016-... Read more
QuickBooks 2015 16.1.7.1524 R8 - Financi...
Save 20% on QuickBooks Pro for Mac today through this special discount link QuickBooks 2015 helps you manage your business easily and efficiently. Organize your finances all in one place, track... Read more
Sierra Cache Cleaner 11.0.1 - Clear cach...
Sierra Cache Cleaner is an award-winning general purpose tool for macOS X. SCC makes system maintenance simple with an easy point-and-click interface to many macOS X functions. Novice and expert... Read more
Default Folder X 5.0.7 - Enhances Open a...
Default Folder X attaches a toolbar to the right side of the Open and Save dialogs in any OS X-native application. The toolbar gives you fast access to various folders and commands. You just click on... Read more
Safari Technology Preview 10.1 - The new...
Safari Technology Preview contains the most recent additions and improvements to WebKit and the latest advances in Safari web technologies. And once installed, you will receive notifications of... Read more
Tweetbot 2.4.4 - Popular Twitter client.
Tweetbot is a full-featured OS X Twitter client with a lot of personality. Whether it's the meticulously-crafted interface, sounds and animation, or features like multiple timelines and column views... Read more

Pumped BMX 3: Beginner tips and tricks
There’s a whole lot more to Pumped BMX 3 than meets the eye. Your goal is to perform a wide array of sweet flips and tricks, but that’s easier said than done. It takes well practiced timing and coordination, and the game doesn’t really explain that... | Read more »
Cybird’s latest release - BFB Champions...
Launched in the UK in early September, BFB Champions’ newest update is loaded with great new features, and looks set to outshine the original version by taking it out of soft launch and giving it a new lease of life. | Read more »
3 apps to boost your focus
As someone who works from home, my workspace is a minefield of distraction. Cats, tasty snacks, the wind blowing past my window, that cleaning that I suddenly can’t put off any longer. If I let distraction takes its course, I find that soon half... | Read more »
Pumped BMX 3 (Games)
Pumped BMX 3 1.0 Device: iOS Universal Category: Games Price: $3.99, Version: 1.0 (iTunes) Description: The final instalment of the smash hit #1 rated BMX game is here! Following on from the insane success of Pumped BMX 2, Pumped 3... | Read more »
4 games like Burly Men at Sea to inspire...
Burly Men at Sea is out today and it looks a treat. It tells the tale of three Scandinavian fishermen who leave the humdrum of their daily lives to go exploring. It’s a beautiful folksy story that unfurls as you interact with the environment... | Read more »
3 reasons you need to play Kingdom: New...
Developed by a tag team of indie developers - Thomas "Noio" van den Berg and Marco "Licorice" Bancale - Kingdom is a vibrant medieval fantasy adventure that casts players as a king or queen who must expand their empire by exploring the vasts lands... | Read more »
JoyCity have launched a brand new King o...
Great news for all of you Game of Dice fans out there - JoyCity have just released a brand new limited edition pack with a really cool twist. The premise of Game of Dice is fairly straightforward, asking you to roll dice to navigate your way around... | Read more »
Burly Men at Sea (Games)
Burly Men at Sea 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Burly Men at Sea is a folktale about a trio of large, bearded fishermen who step away from the ordinary to seek adventure. | Read more »
3 tips for catching the gnarliest waves...
Like a wave breaking on the shore, Tidal Rider swept its way onto the App Store charts this week settling firmly in the top 10. It’s a one-touch high score-chaser in which you pull surfing stunts while dodging seagulls and collecting coins. The... | Read more »
The beginner's guide to destroying...
Age of Heroes: Conquest is 5th Planet Games’ all new turn-based multiplayer RPG, full of fantasy exploration, guild building, and treasure hunting. It’s pretty user-friendly as far as these games go, but when you really get down to it, you’ll find... | Read more »

Price Scanner via MacPrices.net

CAZE Annouces New Zero 5 Case for Jet Black i...
Hong Kong basd CAZE has announced Zero 5 case for iPhone 7/ 7 Plus, one of the world’s thinnest clear hard cases, measuring just 0.5 millimeters. CAZE has been producing and improving the Zero 5... Read more
Nest Egg Inventory App for iOS Offers Conven...
Campbell, California based Winprogger LLC has announced the release and immediate availability of Nest Egg – Inventory 4.1.22, an important update to their easy-to-use, yet comprehensive inventory... Read more
Factor4, LLC Launches Apple iOS and Android G...
Factor4, LLC, which offers gift and loyalty services to the SMB marketplace, has released free mobile applications that enable merchants to process via all Apple and Android devices. The Apple and... Read more
15-inch Retina MacBook Pros on sale for $200...
B&H Photo has 15″ Retina Apple MacBook Pros on sale for $200 off MSRP. Shipping is free, and B&H charges NY tax only: - 15″ 2.2GHz Retina MacBook Pro: $1799 $200 off MSRP - 15″ 2.5GHz Retina... Read more
Apple refurbished iMacs available for up to $...
Apple has Certified Refurbished 2015 21″ & 27″ iMacs available for up to $350 off MSRP. Apple’s one-year warranty is standard, and shipping is free. The following models are available: - 21″ 3.... Read more
Check Apple prices on any device with the iTr...
MacPrices is proud to offer readers a free iOS app (iPhones, iPads, & iPod touch) and Android app (Google Play and Amazon App Store) called iTracx, which allows you to glance at today’s lowest... Read more
Apple price trackers, updated continuously
Scan our Apple Price Trackers for the latest information on sales, bundles, and availability on systems from Apple’s authorized internet/catalog resellers. We update the trackers continuously: - 15″... Read more
Apple refurbished 2016 13-inch MacBook Airs a...
Apple has Certified Refurbished 2016 13″ MacBook Airs available starting at $849. An Apple one-year warranty is included with each MacBook, and shipping is free: - 2016 13″ 1.6GHz/8GB/128GB MacBook... Read more
1.4GHz Mac mini on sale for $449, save $50
Adorama has the 1.4GHz Mac mini on sale for $50 off MSRP including free shipping plus NY & NJ sales tax only: - 1.4GHz Mac mini (Apple sku# MGEM2LL/A): $449 $50 off MSRP To purchase a mini at... Read more
Apple refurbished 2015 13-inch MacBook Airs a...
Apple has Certified Refurbished 2015 13″ MacBook Airs available starting at $759. An Apple one-year warranty is included with each MacBook, and shipping is free: - 2015 13″ 1.6GHz/4GB/128GB MacBook... Read more

Jobs Board

US- *Apple* Store Leader Program - Apple (Un...
…Summary Learn and grow as you explore the art of leadership at the Apple Store. You'll master our retail business inside and out through training, hands-on Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
Restaurant Manager (Neighborhood Captain) - A...
…in every aspect of daily operation. WHY YOU'LL LIKE IT: You'll be the Big Apple . You'll solve problems. You'll get to show your ability to handle the stress and Read more
*Apple* Wireless Lead - T-ROC - The Retail O...
…wealth of knowledge in wireless sales and activations to the Beautiful and NEW APPLE Experience store within MACYS.. THIS role, APPLE Wireless Lead, isbrandnewas Read more
Lead *Apple* Advocate - T-ROC - The Retail...
…Company, is proud of its unprecedented relationship with our partner and client, APPLE ,in bringing amazing" APPLE ADVOCATES"to "non" Apple store locations. Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.