'Simplest code to play MP3 or OGG with SDL 'by CrisDEV ≫ Jun 11, 2016 19:38 #include "SDL2/SDL_mixer.bi" dim key as string dim MYMUSIC as Mix_Music ptr Mix_OpenAudio(44100,MIX_DEFAULT_FORMAT,2,4096) MYMUSIC = Mix_LoadMUS("music.ogg") ' 手持ちの音楽ファイル(拡張子*.mp3 か *.ogg)です。 Mix_VolumeMusic(128) ' 128 は最大音量 Mix_PlayMusic(MYMUSIC,0) ' 0 一度再生 -1 無限繰返し print "1 キー:停止" print "2 キー:再生" print "3 キー:中断" print "4 キー:再開" print "空白キー:終了" 'プログラムを繰返す 'Do ' key = InKey ' ' Select Case key ' Case "1" : Mix_HaltMusic() ' Case "2" : Mix_PlayMusic(MYMUSIC,0) ' Case "3" : Mix_PauseMusic() ' Case "4" : Mix_ResumeMusic() ' Case Else : Exit Do ' anything else, than the 4 above, quits the Loop/Program ' End Select ' ' Sleep 200 'Loop MYLOOP: key = inkey if key ="1"then Mix_HaltMusic() ElseIf key = "2" then Mix_PlayMusic(MYMUSIC,0) ElseIf key = "3" then Mix_PauseMusic() ElseIf key = "4" then Mix_ResumeMusic() ElseIf key = " " then goto FINALIZATION end if sleep 200 goto MYLOOP FINALIZATION: Mix_CloseAudio() End