J'écris une application de test d'accordeurs de guitare et guitare basse.
Tout fonctionne en version application Web.
Mais en version Android, l'image ,"Images/tetes.png" (test de "Images/tetes.png", mais non plus) ne s'affiche pas.
Pour les sons, je ne sais pas non plus du coup si ça fonctionne.
Voici l'archive se l'application ici : https://drop.chapril.org/download/961dc ... RnaYWo4rcg
Pouvez-vous me dire où est mon erreur s'il vous plaît ?
Merci d'avance pour vos réponses.
Code : Tout sélectionner
;App Name : Mon test
;HTML File Name : index.html
;JavaScript filename : montest.js
;SpiderBasic library path : core
;Coche la Case Copy SpiderBasic libraries
CloseDebugOutput()
Enumeration
#Fenetre_AC
#ID_Canvas
#Image_Ban
#Info_X
#Info_Y
#Font_AC
#MI_BASSE
#LA_BASSE
#RE_BASSE
#SOL_BASSE
#MI_GUITARE
#LA_GUITARE
#RE_GUITARE
#SOL_GUITARE
#SI_GUITARE
#MI_AIGU_GUITARE
#SOL_VIOLON
#RE_VIOLON
#LA_VIOLON
#MI_VIOLON
#QUITTER
EndEnumeration
;Global.i FX = (DesktopHeight(#Fenetre_AC) / 2) - 10
;Global.i FY = (DesktopWidth(#Fenetre_AC) / 2) - 54
;Global.i FX = 448
Global.i FX = 380
Global.i FY = 720
Global.i Taille_Caractere = 20
Global.i MouseX,MouseY
InitSound()
ExamineDesktops()
Procedure PosClic(MouseX.i,MouseY.i, x0.i,y0.i,x1.i,y1.i)
If MouseX >= x0 And MouseX <= x0+x1 And MouseY >= y0 And MouseY <= y0+y1
ProcedureReturn #True
Else
ProcedureReturn #False
EndIf
EndProcedure
Procedure Charges_Images()
LoadImage(#Image_Ban,"Images/tetes.png")
EndProcedure
Procedure Charges_Sons()
LoadSound(#MI_BASSE,"Notes/BASSE_4_Cordes/1-MI.wav")
LoadSound(#LA_BASSE,"Notes/BASSE_4_Cordes/2-LA.wav")
LoadSound(#RE_BASSE,"Notes/BASSE_4_Cordes/3-RE.wav")
LoadSound(#SOL_BASSE,"Notes/BASSE_4_Cordes/4-SOL.wav")
LoadSound(#MI_GUITARE,"Notes/GUITARE_6_CORDES/1-MI.wav")
LoadSound(#LA_GUITARE,"Notes/GUITARE_6_CORDES/2-LA.wav")
LoadSound(#RE_GUITARE,"Notes/GUITARE_6_CORDES/3-RE.wav")
LoadSound(#SOL_GUITARE,"Notes/GUITARE_6_CORDES/4-SOL.wav")
LoadSound(#SI_GUITARE,"Notes/GUITARE_6_CORDES/5-SI.wav")
LoadSound(#MI_AIGU_GUITARE,"Notes/GUITARE_6_CORDES/6-MI.wav")
;LoadSound(#SOL_VIOLON,"")
;LoadSound(#RE_VIOLON,"")
;LoadSound(#LA_VIOLON,"")
;LoadSound(#MI_VIOLON,"")
EndProcedure
Procedure CadreCel(X1.i,Y1.i,FacX.i,FacY.i,Color.i)
LineXY(X1,Y1,X1+FacX,Y1,Color) ;Ligne Horizontale Haut 1
LineXY(X1,Y1,X1,Y1+FacY,Color) ;Ligne Verticale Gauche 1
LineXY(X1,Y1+1,X1+FacX,Y1+1,Color) ;Ligne Horizontale Haut 2
LineXY(X1+1,Y1,X1+1,Y1+FacY,Color) ;Ligne Verticale Gauche 2
LineXY(X1+FacX-1,Y1,X1+FacX-1,Y1+FacY,Color) ;Ligne Verticale Droite 1
LineXY(X1,Y1+FacY-1,X1+FacX,Y1+FacY-1,Color) ;Ligne Horizontale Bas 1
LineXY(X1+FacX,Y1,X1+FacX,Y1+FacY,Color) ;Ligne Verticale Droite 2
LineXY(X1,Y1+FacY,X1+FacX,Y1+FacY,Color) ;Ligne Horizontale Bas 1
EndProcedure
Procedure Cadre_Basse(X1.i,Y1.i,FacX.i,FacY.i,Color.i)
LineXY(X1,Y1,X1+FacX,Y1,Color) ;Ligne Horizontale Haut 1
LineXY(X1,Y1,X1,Y1+FacY,Color) ;Ligne Verticale Gauche 1
LineXY(X1,Y1+1,X1+FacX,Y1+1,Color) ;Ligne Horizontale Haut 2
LineXY(X1+1,Y1,X1+1,Y1+FacY,Color) ;Ligne Verticale Gauche 2
LineXY(X1+FacX-1,Y1,X1+FacX-1,Y1+FacY,Color) ;Ligne Verticale Droite 1
;LineXY(X1,Y1+FacY-1,X1+FacX,Y1+FacY-1,Color) ;Ligne Horizontale Bas 1
LineXY(X1+FacX,Y1,X1+FacX,Y1+FacY,Color) ;Ligne Verticale Droite 2
;LineXY(X1,Y1+FacY,X1+FacX,Y1+FacY,Color) ;Ligne Horizontale Bas 1
EndProcedure
Procedure Cadre_Guitare_Gauche(X1.i,Y1.i,FacX.i,FacY.i,Color.i)
LineXY(X1,Y1,X1+FacX,Y1,Color) ;Ligne Horizontale Haut 1
LineXY(X1,Y1,X1,Y1+FacY,Color) ;Ligne Verticale Gauche 1
LineXY(X1,Y1+1,X1+FacX,Y1+1,Color) ;Ligne Horizontale Haut 2
LineXY(X1+1,Y1,X1+1,Y1+FacY,Color) ;Ligne Verticale Gauche 2
;LineXY(X1+FacX-1,Y1,X1+FacX-1,Y1+FacY,Color) ;Ligne Verticale Droite 1
LineXY(X1,Y1+FacY-1,X1+FacX,Y1+FacY-1,Color) ;Ligne Horizontale Bas 1
;LineXY(X1+FacX,Y1,X1+FacX,Y1+FacY,Color) ;Ligne Verticale Droite 2
LineXY(X1,Y1+FacY,X1+FacX,Y1+FacY,Color) ;Ligne Horizontale Bas 1
EndProcedure
Procedure Cadre_Guitare_Droit(X1.i,Y1.i,FacX.i,FacY.i,Color.i)
LineXY(X1,Y1,X1+FacX,Y1,Color) ;Ligne Horizontale Haut 1
;LineXY(X1,Y1,X1,Y1+FacY,Color) ;Ligne Verticale Gauche 1
LineXY(X1,Y1+1,X1+FacX,Y1+1,Color) ;Ligne Horizontale Haut 2
;LineXY(X1+1,Y1,X1+1,Y1+FacY,Color) ;Ligne Verticale Gauche 2
LineXY(X1+FacX-1,Y1,X1+FacX-1,Y1+FacY,Color) ;Ligne Verticale Droite 1
LineXY(X1,Y1+FacY-1,X1+FacX,Y1+FacY-1,Color) ;Ligne Horizontale Bas 1
LineXY(X1+FacX,Y1,X1+FacX,Y1+FacY,Color) ;Ligne Verticale Droite 2
LineXY(X1,Y1+FacY,X1+FacX,Y1+FacY,Color) ;Ligne Horizontale Bas 1
EndProcedure
Procedure BarreIcones()
Cadre_Basse(138,60,40,34,#White)
Cadre_Basse(181,60,40,34,#White)
Cadre_Basse(223,60,40,34,#White)
Cadre_Basse(265,60,40,34,#White)
Cadre_Guitare_Gauche(130,320,40,34,#White)
Cadre_Guitare_Gauche(130,370,40,34,#White)
Cadre_Guitare_Gauche(127,421,40,34,#White)
Cadre_Guitare_Droit(270,320,40,34,#White)
Cadre_Guitare_Droit(265,370,40,34,#White)
Cadre_Guitare_Droit(265,421,40,34,#White)
EndProcedure
Procedure GadgetEvent()
Select EventGadget()
Case #ID_Canvas
MouseX = GetGadgetAttribute(#ID_Canvas, #PB_Canvas_MouseX)
MouseY = GetGadgetAttribute(#ID_Canvas, #PB_Canvas_MouseY)
;TextGadget(#Info_X,20 ,700,130,40,Str(MouseX),#PB_Text_Border)
;TextGadget(#Info_Y,150,700,Largeur_String,40,Str(MouseY),#PB_Text_Border)
;Case #ID_OK : End
EndSelect
If PosClic(MouseX,MouseY,138,60,40,34) : BarreIcones() : Cadre_Basse(138,60,40,34,#Blue) : EndIf
If PosClic(MouseX,MouseY,181,60,40,34) : BarreIcones() : Cadre_Basse(181,60,40,34,#Blue) : EndIf
If PosClic(MouseX,MouseY,223,60,40,34) : BarreIcones() : Cadre_Basse(223,60,40,34,#Blue) : EndIf
If PosClic(MouseX,MouseY,265,60,40,34) : BarreIcones() : Cadre_Basse(265,60,40,34,#Blue) : EndIf
If PosClic(MouseX,MouseY,130,320,40,34) : BarreIcones() : Cadre_Guitare_Gauche(130,320,40,34,#Blue) : EndIf
If PosClic(MouseX,MouseY,130,370,40,34) : BarreIcones() : Cadre_Guitare_Gauche(130,370,40,34,#Blue) : EndIf
If PosClic(MouseX,MouseY,127,421,40,34) : BarreIcones() : Cadre_Guitare_Gauche(127,421,40,34,#Blue) : EndIf
If PosClic(MouseX,MouseY,270,320,40,34) : BarreIcones() : Cadre_Guitare_Droit(270,320,40,34,#Blue) : EndIf
If PosClic(MouseX,MouseY,265,370,40,34) : BarreIcones() : Cadre_Guitare_Droit(265,370,40,34,#Blue) : EndIf
If PosClic(MouseX,MouseY,265,421,40,34) : BarreIcones() : Cadre_Guitare_Droit(265,421,40,34,#Blue) : EndIf
Select EventType()
Case #PB_EventType_LeftButtonDown
BarreIcones()
If PosClic(MouseX,MouseY,0,0,64,64) ; Nouvelle base de données SQLite3
MessageRequester("Nouvelle base de données SQLite3")
EndIf
If PosClic(MouseX,MouseY,64,0,64,64) ; Ouvrir une base de données SQlite3
EndIf
If PosClic(MouseX,MouseY,128,0,64,64) ; Mettre à jour une base de donnée SQlite3
EndIf
If PosClic(MouseX,MouseY,192,0,64,64) ; Recherche dans la base de données SQlite 3
;MessageRequester("Nouvelle base de données SQLite3")
EndIf
If PosClic(MouseX,MouseY,256,0,64,64) ; Import Image BLOB
;MessageRequester("Nouvelle base de données SQLite3")
EndIf
If PosClic(MouseX,MouseY,320,0,64,64) ; Parametres
CadreCel(320,0,64,64,#Blue)
;MessageRequester("Nouvelle base de données SQLite3")
EndIf
If PosClic(MouseX,MouseY,384,0,64,64) ; A Propos
MessageRequester("Notysoft AC SQlite3 - v1.00")
EndIf
;====================================================
If PosClic(MouseX,MouseY,138,60,40,34) : PlaySound(#MI_BASSE) : EndIf
If PosClic(MouseX,MouseY,181,60,40,34) : PlaySound(#LA_BASSE) : EndIf
If PosClic(MouseX,MouseY,223,60,40,34) : PlaySound(#RE_BASSE) : EndIf
If PosClic(MouseX,MouseY,265,60,40,34) : PlaySound(#SOL_BASSE) : EndIf
If PosClic(MouseX,MouseY,130,320,40,34) : PlaySound(#RE_GUITARE) : EndIf
If PosClic(MouseX,MouseY,130,370,40,34) : PlaySound(#LA_GUITARE) : EndIf
If PosClic(MouseX,MouseY,127,421,40,34) : PlaySound(#MI_GUITARE) : EndIf
If PosClic(MouseX,MouseY,270,320,40,34) : PlaySound(#SOL_GUITARE) : EndIf
If PosClic(MouseX,MouseY,265,370,40,34) : PlaySound(#SI_GUITARE) : EndIf
If PosClic(MouseX,MouseY,265,421,40,34) : PlaySound(#MI_AIGU_GUITARE) : EndIf
EndSelect
Select EventGadget()
Case #QUITTER : End
EndSelect
EndProcedure
Procedure Load_AC()
If StartDrawing(CanvasOutput(#ID_Canvas))
DrawImage(ImageID(#Image_Ban),70,40,300,1000)
BarreIcones()
StopDrawing()
EndIf
EndProcedure
Procedure Fenetre_AC()
OpenWindow(#Fenetre_AC,0, 0, FX,FY, "Notysoft Accordeur - 1.00",#PB_Window_BorderLess | #PB_Window_Background)
CanvasGadget(#ID_Canvas,0,0,FX,FY)
LoadFont(#Font_AC, "Arial",Taille_Caractere)
SetGadgetFont(#PB_Default, FontID(#Font_AC))
ButtonGadget(#QUITTER ,0,FY-80,FX,40,"QUITTER")
BindEvent(#PB_Event_Gadget, @GadgetEvent())
TextGadget(#Info_X,20 ,FY-200,100,40,Str(FX),#PB_Text_Border)
TextGadget(#Info_Y,260,FY-200,100,40,Str(FY),#PB_Text_Border)
CompilerIf #PB_Compiler_OS <> #PB_OS_Web
Repeat
LoadFont(#Font_AC, "Arial",Taille_Caractere)
Event = WaitWindowEvent() Until Event = #PB_Event_CloseWindow
CompilerEndIf
EndProcedure
Charges_Sons()
Charges_Images()
Fenetre_AC()
BindEvent(#PB_Event_Loading,@Load_AC())