Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

9.2: Wiedergabe einer Trackermoduldatei

Uploader:Redakteurnemored
Datum/Zeit:29.10.2011 00:31:35
Hinweis: Dieser Quelltext ist Bestandteil des Projekts OpenBook: 2D-Spieleprogrammierung, zu dem es auf FreeBASIC-Portal.de eine Projektseite gibt.

' *** 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