BASS
用于Windows的音频库，带有适用于Linux的测试版。
网站：http：//www.un4seen.com/bass.html
支持平台：Win32，Linux（beta）
标题包括：bass.bi
标题版本：2.4.8
示例：在examples / sound / BASS /
网站：http：//www.un4seen.com/bass.html
支持平台：Win32，Linux（beta）
标题包括：bass.bi
标题版本：2.4.8
示例：在examples / sound / BASS /
例子
#include once "bass.bi"
Const SOUND_FILE = "test.mod"
If (BASS_GetVersion() < MAKELONG(2,2)) Then
Print "BASS 2.2或以上版本需要！"
End 1
End If
If (BASS_Init(-1, 44100, 0, 0, 0) = 0) Then
Print "无法初始化BASS"
End 1
End If
Dim As HMUSIC test = BASS_MusicLoad(FALSE, @SOUND_FILE, 0, 0, BASS_MUSIC_LOOP, 0)
If (test = 0) Then
Print "BASS无法加载'" & SOUND_FILE & "'"
BASS_Free()
End 1
End If
BASS_ChannelPlay(test, FALSE)
Print "声音播放;等待按键停止并退出..."
Sleep
BASS_ChannelStop(test)
BASS_MusicFree(test)
BASS_Stop()
BASS_Free()
Const SOUND_FILE = "test.mod"
If (BASS_GetVersion() < MAKELONG(2,2)) Then
Print "BASS 2.2或以上版本需要！"
End 1
End If
If (BASS_Init(-1, 44100, 0, 0, 0) = 0) Then
Print "无法初始化BASS"
End 1
End If
Dim As HMUSIC test = BASS_MusicLoad(FALSE, @SOUND_FILE, 0, 0, BASS_MUSIC_LOOP, 0)
If (test = 0) Then
Print "BASS无法加载'" & SOUND_FILE & "'"
BASS_Free()
End 1
End If
BASS_ChannelPlay(test, FALSE)
Print "声音播放;等待按键停止并退出..."
Sleep
BASS_ChannelStop(test)
BASS_MusicFree(test)
BASS_Stop()
BASS_Free()