1
GLBasic - en / What type of Projects you want to see from me...
« on: 2012-Jan-07 »
Let us have a look at my new Projects - you have the Choice
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
// --------------------------------- //
// Project: Music-Player
// Start: Thursday, November 18, 2010
// IDE Version: 8.148
// SETCURRENTDIR("Media") // seperate media and binaries?
AUTOPAUSE FALSE
SYSTEMPOINTER TRUE
GLOBAL GUI_WINDOW = 0
GLOBAL GUI_DIALOG = 1
GLOBAL GUI_BOX_VERTICAL = 1
GLOBAL GUI_BOX_HORIZONTAL = 0
GLOBAL GUI_BOX_BOXONLY = 1
HideMe()
GuiInit()
FMOD_Init()
hwndWindow = GuiCreateWindow("Music-Player",320,100,GUI_WINDOW,TRUE)
GuiSetWindowResizable(hwndWindow,FALSE)
GuiSetWindowMaximize(hwndWindow,FALSE)
GuiEventConnect(hwndWindow,"destroy")
tblLayout = GuiCreateTable(4,5,TRUE,TRUE)
GuiAddContainer(hwndWindow,tblLayout)
btnLast = GuiCreateButton("<--",TRUE)
GuiTableAttach(tblLayout,btnLast,0,1,0,1)
GuiEventConnect(btnLast,"clicked")
btnPlay = GuiCreateButton("Play",TRUE)
GuiTableAttach(tblLayout,btnPlay,1,2,0,1)
GuiEventConnect(btnPlay,"clicked")
btnOpen = GuiCreateButton("Open",TRUE)
GuiTableAttach(tblLayout,btnOpen,2,3,0,1)
GuiEventConnect(btnOpen,"clicked")
btnStop = GuiCreateButton("Stop",TRUE)
GuiTableAttach(tblLayout,btnStop,3,4,0,1)
GuiEventConnect(btnStop,"clicked")
btnNext = GuiCreateButton("-->",TRUE)
GuiTableAttach(tblLayout,btnNext,4,5,0,1)
GuiEventConnect(btnNext,"clicked")
progress = GuiCreateProgress("",TRUE)
GuiTableAttach(tblLayout,progress,0,5,1,2)
btnVolM = GuiCreateButton("Vol -",TRUE)
GuiTableAttach(tblLayout,btnVolM,0,1,2,4)
GuiEventConnect(btnVolM,"clicked")
btnVolP = GuiCreateButton("+ Vol",TRUE)
GuiTableAttach(tblLayout,btnVolP,4,5,2,4)
GuiEventConnect(btnVolP,"clicked")
slider = GuiCreateSlider(0, 0, 100, 1, TRUE)
GuiTableAttach(tblLayout,slider,1,4,2,4)
GuiEventConnect(slider,"value-changed")
GuiSetSliderValue(slider,50)
GuiSetBlocking(FALSE)
GuiShowWidgetAll(tblLayout)
GuiMain()
GuiEnd()
CALLBACK FUNCTION EVENTS: WIDGET, EVENT
DEBUG WIDGET
DEBUG EVENT
SELECT WIDGET
CASE hwndWindow
END
CASE btnOpen
file$ = FILEREQUEST$(TRUE,"All Media|*.*")
FMOD_PlayStream(file$)
IF file$ <> "NO_FILE"
//ThThreadCreate("UpdateProgress")
GuiSetIdleTimeoutFor(progress)
GuiSetProgressText(progress,FMOD_GetTag$())
ENDIF
CASE btnPlay
IF FMOD_IsPlaying() <> 0
IF file$ <> "NO_FILE"
FMOD_PlayStream(file$)
ENDIF
ELSE
FMOD_Pause()
ENDIF
CASE btnStop
IF FMOD_IsPlaying <> 0 THEN FMOD_Stop()
CASE btnVolM
GuiSetSliderValue(slider,GuiGetSliderValue(slider)-5)
CASE btnVolP
GuiSetSliderValue(slider,GuiGetSliderValue(slider)+5)
CASE aboutDialog
GuiHideWidget(aboutDialog)
CASE slider
FMOD_SetVolume(GuiGetSliderValue(slider)/100)
ENDSELECT
ENDFUNCTION
FUNCTION ShowAbout:
aboutDialog = GuiCreateAboutDialog("Music-Player","1.0.0.0","Copyright by trucidare","comment","lgpl","http://www.glbasic.de","Nils Tonagel",TRUE)
GuiEventConnect(aboutDialog,"destroy")
ENDFUNCTION
CALLBACK FUNCTION PROGRESSBARS: BARS
SELECT BARS
CASE progress
LOCAL pre%,val%
le# = FMOD_GetLength()
po# = FMOD_GetPosition()
percent# = po# / le#* 100
val% = percent#
IF val% <> pre%
pre% = val%
GuiSetProgressValue(BARS,percent#)
ENDIF
STDOUT "Bar: "+progress+": "+BARS
ENDSELECT
ENDFUNCTION
*freu*
IMPORT "C" void GLB_iBT_Init()
IMPORT "C" void GLB_iBT_Start(const char* sessID)
IMPORT "C" int GLB_iBT_Send(const char* strValue)
IMPORT "C" const char* GLB_iBT_Recv()
IMPORT "C" int GLB_iBT_Connected()

