3D
3D Photo Gallery (Part 1)
3D Photo Gallery (Part 2)

Audio
Poor Man's MIDI
Make A Metronome
iPod Tricks (Part 1)
iPod Tricks (Part 2)
iPod Tricks (Part 3)
Laugh Track Machine
Audio Player with Reverb
Shepard Melody
RB Phone Home
Build a Drum Machine

Custom Controls and Windows
Double Click Listbox
Draggable Metal Window
Double Click Canvas
Custom Buttons
Custom Buttons Part II
iTunes-style Listboxes
Custom Controls


General RB
Scrolling Windows
Using Mesage Dialogs
Case-Sensitive Word Finder
Introduction to Stacks
Wiggle Window
JPEG in PDF
Listbox Checkboxes
Background Applications
Listbox Auto-Find
Virtual Volumes
Time Tracker
Software Distribution (Part 1)
Software Distribution (Part 2)
Software Distribution (Part 3)
Software Distribution (Part 4)
Exceptions
Tips and Tricks
Text Clippings Made Easy

Graphics
Drawing a Simple Gradient
The SpriteSurface: Space Game
Image Spinner
Cropping Graphics (Part 1)
Cropping Graphics (Part 2)
Cropping Graphics (Part 3)
Cropping Graphics (Part 4)
Shimmer Graphics
Lissajous Figures
Simple Screen Capture
Vector Graphics
Kaleidoscope Images
Stegonography
Spirals!
Image Table
RB Magnifying Lens
Screen Capture
Color Picker Tutorial

Hacks
Ghost Grab
Speedy Mouse Extension
iTunes Plugins
iTunes Skinner

Mac OS X
Global Hot Key Event (Carbon Events)
Login Welcomer (Carbon Events)
Add/Remove Buttons
Resizable Sheets
Mac OS X Preferences Window
Using Sheets in REALbasic
Build a Bundle (Part 1)
Build a Bundle (Part 2)
Dock Your Passwords
Mac OS X Debugging
REALbasic Mac OS X Icon Tutorial
Animate Your Dock
RB and the Command Line

Menus
Window Menu
Templates Menu
Listbox Menu

Novelty
Guessing Game
Calendar Trivia
Tile Mixer
Zip Code Finder
Happy Valentine's Day
Merlin Simulator (Part 1)
Merlin Simulator (Part 2)
Merlin Simulator (Part 3)
Buzzword Machine
AppleSoft BASIC

Printing
Print to PDF

Registration
Registration Code Validation
Network Registration Codes

Resources
Picture Extractor (Part 1)
Picture Extractor (Part 2)

Serial
Caller ID (Part 1)
Caller ID (Part 2)
Caller ID (Part 3)

Speech
Speech Recognition

Socket Communication
Easy Peer-to-Peer File Sharing
MacPAD Version Checking
Display Web Image In Canvas
HTML IMG Tags
Version Tracking
Even Smarter Instant Messaging
Web Tiler
JavaScript and REALbasic
Stock Ticker (Part I)
Stock Ticker (Part 2)
AIM Mate

XML Manipulation
Simple XML Introduction

Video
Big Brother Video Capture

Note: All articles without a byline were written by Erick Tejkowski. When cleaning the site I removed them because the code differed from page to page, and I have yet to put them back in.

REALbasic for Dummies
by Erick Tejkowski

$19.99 @ Amazon

Files are in Stuffit 6.5 or earlier, or ZIP format.
Download Stuffit Expander

Tell us about a bad link.

Audio Player with Reverb 05-09-02

The REALbasic 4.5 development cycle is really starting to heat up! Among various improvements, REALbasic 4.5a9 adds significant new QuickTime functionality to the mix. This week we'll take a look at some of these new REALbasic 4.5 QuickTime features, focusing primarily on sound. We'll build a simple audio player, add real time reverb effects, and give users the option of saving the result. Try to do that with iTunes!

Introduction

Before you get started, you will need to download a copy of REALbasic 4.5a9 or higher. Keep in mind that REALbasic alpha releases are works in progress. You shouldn't rely on them for professional development. The features and appearance of pre release versions can change at any time. Always back up your projects when using REALbasic alpha releases. Since we will be working with existing media files this time (e.g. mp3, aif, wav, mov, etc...), it would be a good idea to make back up copies of these files as well. You don't want an errant REALbasic to wreak havoc on your only copy of that Kajagoogoo tune you snagged from LimeWire. In other words, take the usual ResEdit precautions: always keep a back up!

Build the Interface

Launch REALbasic and open Window1. To this window, add the following controls:

Control Type	Control Name	Control Properties
PushButton	OpenButton	Caption="Open"
PushButton	SaveButton	Caption="Save as Movie"
PopupMenu	RoomSizePopup	ListIndex=4; InitialValue=1,2,3,4,5,10,20,30,50,etc...
PopupMenu	VolumePopup	ListIndex=3; 0,64,128,255,512
MoviePlayer	MoviePlayer1

Arrange the interface however you wish. It might look something like this:

Source Code

Before we get started with the code, we need to do a few preliminary tasks. First, select the Edit-File Types menu. In the File Types dialog, add these two file types:

Name	Mac Creator	Mac Type
any	????	????
video/quicktime	TVOD	MooV

Next, double click Window1 to open the Code Editor. Select the Edit-New Property menu to create the following 3 properties:

1. e as editableMovie
2. reverb as QT3DAudio
3. sndTrack as QTSoundTrack

Okay, now we're ready for some code. Add the following code to the Action event of OpenButton:

  dim i as integer
  dim f as folderItem 
  dim trackCount,sndTrackIndex as integer
  dim foundOne as boolean 
  
  
  f=GetOpenFolderItem("any")
  if f<>nil then
    e = f.openEditableMovie
    e.SaveOnClose=FALSE 
    
    //load the player
    //with this movie
    MoviePlayer1.movie = e
    
    //find a soundtrack
    //trackCount = e.TrackCount
    trackCount = e.TrackCount
    foundOne = FALSE
    
    if trackCount>0 then
      for i=1 to trackCount
        if e.track(i).MediaType="soun" then
          foundOne=TRUE
          sndTrackIndex=i 
          //force ourselves out of the loop next time
          i=trackCount
        end if
      next
    end if
    
    if foundOne then
      sndTrack=e.SoundTrack(sndTrackIndex)
      reverb = nil
      reverb = sndTrack.Get3D
      if reverb=nil then
        //no 3D settings in this track
        //so we'll add them
        reverb = new QT3DAudio
      end if
      reverb.SourceMode=1
      reverb.RoomSize = val(RoomSizePopup.text)
      
      //attach the 3D info to the soundTrack
      sndTrack.set3D reverb
      //set the sndTrack's volume
      sndTrack.volume = val(VolumePopup.text)
      
    else
      MsgBox "No SoundTrack in this file"
      return
    end if
    
  end if
  

Next, navigate to the Action event of the SaveButton and add this code:

  
  dim exportMovie as editableMovie
  dim destTrack as QTSoundTrack
  dim f as folderItem 
  
  f=GetSaveFolderItem("video/quicktime","WithReverb.mov")
  if f<>nil then
    //create a new movie to hold the reverb track
    exportMovie=f.CreateMovie
    
    //add a new soundtrack to the movie
    destTrack = exportMovie.NewSoundTrack
    
    //copy the soundtrack from the source soundTrack
    //to the new soundTrack
    destTrack.InsertSoundTrackSegment sndTrack,0,sndTrack.duration,0,TRUE,TRUE
    
    //add a QT3DAudio object to the SoundTrack
    destTrack.set3D reverb 
    
  end if
  

The final step is to add some functionality to the two PopupMenu controls. To the Change event of RoomSizePopup, add the following code snippet:

  reverb.roomsize=val(me.text)
  sndTrack.set3D reverb

Then, add this snippet to the Change event of VolumePopup:

  if sndTrack<>nil then
    sndTrack.volume = val(me.text)
  end

Conclusion

That's it! To test, select Debug-Run. Press "Open" to load your favorite audio file. Since we left it open-ended (i.e. file type="any"), you can load many common audio formats (mp3, aif, wav, mov). Once the audio is loaded, adjust the room size (in meters) to your liking and press "Save" to save the result as a movie. You can download the finished project here. Have fun and see you next week!

---

Please support ResExcellence by Visiting our Sponsors. One click makes a difference.

Download REALbasic and create your own software!