Playing sound in FB.

[yetifoot]

i was playing around with windows beep earlier, on nt you can make it do some nice sounds. Here it is as part of a windows version finder

Code:

#include "windows.bi"

Option NoKeyWord Beep

Option Explicit

Declare Function Beep Alias "Beep" (ByVal dwFreq As DWORD, ByVal dwDuration As DWORD) As BOOL

Dim osv As OSVERSIONINFO

  osv.dwOSVersionInfoSize = sizeof(OSVERSIONINFO)
  GetVersionEx(@osv)
  
  Select Case osv.dwPlatformId
    Case VER_PLATFORM_WIN32s
      Print "Windows 3.x"
    Case VER_PLATFORM_WIN32_WINDOWS    
      Print "Windows 95"
    Case VER_PLATFORM_WIN32_NT    
      Print "Windows NT"
      Beep(440 * 1, 50)
      Beep(440 * 2, 50)
      Beep(440 * 3, 50)
      Beep(440 * 4, 50)
  End Select
  Print "Version : " & osv.dwMajorVersion & "." & osv.dwMinorVersion
  Print "Build   : " & osv.dwBuildNumber
  Print osv.szCSDVersion

  Sleep