C'est compliqué de compiler une apk !
Publié : ven. 06/oct./2023 20:24
Bonjour. Après avoir suivi tous les tutoriels pour réaliser une apk. J'en suis là. Si quelqu'un peut m'aider. Désolé mais c'est impossible de récupérer les messages d'erreurs la fenêtre est trop petite et on peut pas l'agrandir !!!
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 :
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")