Tout fonctionne bien sur le navigateur ou ici : https://lesfloralies.info/spiderbasic/
C'est la galère totale pour trouver comment réaliser une apk. (sans envoyer sur un smartphone). Spiderbasic 2.50 avec licence (C:\Program Files (x86)\Java\jdk-1.8\ c'est le version java d'après le tuto de falsam)
Et voici mon code au cas ou :
Code : Tout sélectionner
Enumeration
#Window
#ImageGadget
#PlayButton
#PauseButton
#WebGadget
#QuitButton
EndEnumeration
Procedure ImageGadgetEvent()
SetGadgetState(#ImageGadget, 0)
! const audio = $('#monAudio')[0];
! if (audio.paused) {
! audio.play();
SetGadgetState(#ImageGadget, ImageID(#PauseButton))
! } else {
! audio.pause();
SetGadgetState(#ImageGadget, ImageID(#PlayButton))
! }
EndProcedure
Procedure MenuEvents()
Select EventMenu() ; To see which menu has been selected
Case 1 ; About
MessageRequester("Bonjour à vous et bienvenue dans la première version de l'application Android de la webradio !", #PB_MessageRequester_Ok)
Case 2:
End
Default
Debug "MenuItem: "+EventMenu()
EndSelect
EndProcedure
Procedure ButtonGadgetEvent()
End
EndProcedure
Procedure Main()
Protected x,y
OpenWindow(#Window, 0, 0, 520, 300, "Player", #PB_Window_Background|#PB_Window_ScreenCentered)
;OpenWindow(#Window, 0, 0, 520, 300, "Player", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
! $('body').append(v_html);
WebGadget(#WebGadget, 0, 200, DesktopWidth(0), DesktopHeight(0) -300, "https://lesfloralies.info/")
ButtonGadget(#QuitButton, 10, DesktopHeight(0) - 110, DesktopWidth(0)-10, 100, "Quitter")
BindGadgetEvent(#QuitButton, @ButtonGadgetEvent())
x = (DesktopWidth(0) - 500) / 2
y = 0
Protected HTML.s = "<audio controls='' autoplay='' id='monAudio' hidden='true'>" +
"<source src='https://www.lesfloralies.ovh/floralies.ogg' type='application/ogg'>" +
"<source src='https://www.lesfloralies.ovh/floralies.mp3' type='audio/mpeg'>" +
"</audio>"
ImageGadget(#ImageGadget, x, y, 500, 171, ImageID(#PlayButton))
BindGadgetEvent(#ImageGadget, @ImageGadgetEvent())
If CreateMenu(0, WindowID(0))
MenuTitle("Menu")
MenuItem( 1, "Infos")
MenuItem( 2, "Quitter")
EndIf
BindEvent(#PB_Event_Menu, @MenuEvents())
EndProcedure
Procedure Loaded(Type, Filename$, ObjectId)
Static NbLoadedElements
NbLoadedElements + 1
If NbLoadedElements = 2 ; Finished the loading of all images, we can start the applications
Main()
EndIf
EndProcedure
Procedure LoadingError(Type, Filename$, ObjectId)
Debug Filename$ + ": loading error"
EndProcedure
; Register the loading event before calling any resource load command
BindEvent(#PB_Event_Loading, @Loaded())
BindEvent(#PB_Event_LoadingError, @LoadingError())
LoadImage(#PlayButton, "https://www.lesfloralies.info/programme/bouton_play.png")
LoadImage(#PauseButton, "https://www.lesfloralies.info/programme/bouton_pause.png")