fb:porticula NoPaste
9.2: Wiedergabe einer Trackermoduldatei
Uploader: | nemored |
Datum/Zeit: | 29.10.2011 00:23:29 |
' *** CODE 9.2: Wiedergabe einer Trackermoduldatei
#INCLUDE "bass24.bi"
' BASS initialisieren
BASS_Init(-1, 44100, 0, 0, 0)
' Channel einrichten; die Wiedergabe startet am Ende neu (BASS_SAMPLE_LOOP)
DIM AS STRING musikname = "moduldatei.mod"
DIM AS HMUSIC musik = BASS_MusicLoad(0, STRPTR(musikname), 0, 0, _
BASS_MUSIC_POSRESET OR BASS_SAMPLE_LOOP, 0)
BASS_ChannelSetPosition musik, 0, BASS_POS_BYTE ' Startposition
BASS_ChannelSetAttribute musik, BASS_ATTRIB_VOL, 1 ' volle Lautstaerke
BASS_ChannelSetAttribute musik, BASS_ATTRIB_PAN, 0 ' Balance in der Mitte
' Musik abspielen
BASS_ChannelPlay musik, 0
GETKEY
BASS_Free ' wichtig, um den belegten Speicher wieder freizugeben