Panoramic Android : jeu de Taquin

Bonjour à tous !

Je suis heureux de vous présenter mon premier jeu adapté pour Androïd.

C’est un jeu de Taquin. Il consiste à remettre les pièces du jeu dans le bon ordre croissant.

Afin de contourner les petits bugs de Panoramic_Android, j’ai supprimé toute la décoration et coloration du jeu. C’est un peu fade mais parfaitement fonctionnel !

La particularité de cette version est qu’il fonctionne sous Androïd dans n’importe quel sens d’orientation de l’écran : aussi bien en mode paysage que portrait.

Même en cours de jeu, vous pouvez changer l’orientation de votre téléphone ou tablette, le jeu s’adaptera !

Je l’ai testé sous Androïd 5.1 et 8.1

Dans le code-source, vous pourrez voir l’existence d’un TIMER qui va, toutes les secondes, lancer une procédure pour vérifier l’orientation de l’écran.
Si l’écran a été tourné, toutes les positions d’objets sont recalculées pour s’afficher dans le bon sens et à la bonne place.

Bonne journée à tous !

Code:: DIM L%, x%, y%, os%, m%
DIM A%(25)
DIM Case_Vide%, X_casevide%, y_casevide%
LABEL melanger, jeu, quitter, verifRotation
declarationObjets()
miseEnPlaceObjets()
tirageAleatoire()

TIMER 29
ON_TIMER 29,verifRotation

END
' ------------------------------------------------------------------------------
verifRotation:
   IF m% = SCREEN_X
   RETURN
   END_IF
   INACTIVE 0
   TIMER_OFF 29
   miseEnPlaceObjets()
   TIMER_ON 29
   ACTIVE 0
RETURN
' ------------------------------------------------------------------------------
Jeu:
   l% = NUMBER_CLICK
   x%=INT((l%-1)/5)
   y%=(l%-1)-(x%*5)
   X_casevide% = INT((Case_Vide% -1)/5)
   y_casevide%=(Case_Vide%-1)-(x_casevide%*5)
   IF y% = y_casevide% OR x%=x_casevide%
   IF ABS(Y%-y_casevide%) = 1 OR ABS(x%-x_casevide%)=1
   a%(Case_Vide%)=a%(l%)
   CAPTION Case_Vide%, a%(Case_Vide%)
   IF os% = 1
   COLOR Case_Vide%,230,230,230
   END_IF
   A%(l%)=25
   Case_Vide%=l%
   CAPTION l%, " "
   IF os% = 1
   COLOR l%,127,127,127
   END_IF
   END_IF
   END_IF
   verif_gagne()
RETURN
' ------------------------------------------------------------------------------
SUB tirageAleatoire()
   DIM_LOCAL i%, j%, k%, Tirage%, Swap%, Soluble%
   FOR i% = 1 to 25
   A%(i%)=0
   NEXT i%
   FOR i% = 1 TO 24
   Tirage% = INT(1+RND(24))
   FOR j%=1 TO 24
   IF Tirage% = a%(j%)
   EXIT_FOR
   END_IF
   NEXT j%
   IF j% = 25
   a%(i%)=Tirage%
   CAPTION i%, a%(i%)
   ELSE
   I% = I% - 1
   END_IF
   NEXT i%
   A%(25)=25
   Case_vide% = A%(25)
   CAPTION 25,""
   IF os% = 1
   COLOR 25,127,127,127
   END_IF
   Swap%=0
   FOR i%=1 TO 23
   FOR j%=i%+1 TO 24
   IF a%(i%)>a%(j%)
   Swap% = Swap% + 1
   END_IF
   NEXT j%
   NEXT i%
   Soluble% = 1 - bin_and(Swap%,1)
   IF Soluble% = 0
   k%=a%(1) : a%(1)=a%(2) : a%(2)=k%
   CAPTION 1, a%(1)
   CAPTION 2, a%(2)
   END_IF
   HIDE 26
END_SUB
' ------------------------------------------------------------------------------
SUB verif_gagne()
   DIM_LOCAL i%,j%
   FOR i% = 1 to 25
   IF a%(i%) <> i%
   EXIT_FOR
   END_IF
   NEXT i%
   IF i% = 26
   FOR j% = 1 to 3
   SHOW 26
   PAUSE 330
   HIDE 26
   PAUSE 330
   NEXT j%
   SHOW 26
   END_IF
END_SUB
' ------------------------------------------------------------------------------
Melanger:
   tirageAleatoire()
RETURN
' ------------------------------------------------------------------------------
SUB declarationObjets()
   DIM i%

   FONT_NAME 0, "arial"
   FONT_SIZE 0, 20

   FOR i% = 1 TO 25
   BUTTON i%
   IF os% = 1
   COLOR i%,230,230,230
   END_IF
   ON_CLICK i%,jeu
   NEXT i%

   BUTTON 26
   WIDTH 26,170
   HEIGHT 26,45
   IF os% = 1
   COLOR 26,230,230,230
   END_IF
   FONT_SIZE 26, 24
   FONT_BOLD 26
   CAPTION 26,"Gagné !"
   HIDE 26

   BUTTON 27
   WIDTH 27, 170
   HEIGHT 27, 45
   IF os% = 1
   COLOR 27,230,230,230
   END_IF
   FONT_SIZE 27, 18
   CAPTION 27, "Mélanger"
   ON_CLICK 27,melanger

   BUTTON 28
   WIDTH 28, 170
   HEIGHT 28, 45
   IF os% = 1
   COLOR 28,230,230,230
   END_IF
   FONT_SIZE 28, 18
   CAPTION 28, "Quitter"
   ON_CLICK 28,quitter
END_SUB
' ------------------------------------------------------------------------------
SUB miseEnPlaceObjets()
   DIM_LOCAL i%, j%, k%
   DIM_LOCAL os%, xEcran%, yEcran%, paysage%, p%, xDecalage%, yDecalage%

   ' flag OS ANDROID ou WINDOWS
   IF SYSTEM$ = "ANDROID"
   os% = 1
   END_IF

   ' lecture dimensions ecran
   IF os% = 1
   xEcran% = SCREEN_X
   yEcran% = SCREEN_Y
   ELSE
   xEcran% = 1380
   yEcran% = 900
   END_IF

   m% = SCREEN_X

   ' determination de l'orientation de l'ecran
   IF xEcran% > yEcran%
   paysage% = 1
   END_IF

   IF os% <> 1
   BORDER_HIDE 0
   END_IF

   WIDTH 0,xEcran%
   HEIGHT 0,yEcran%

   ' calcul de la taille des pieces du Taquin et centrage du jeu en fonction des dimensions de l'ecran
   IF paysage% = 1
   IF xEcran%/2 < yEcran%
   p% = INT(xEcran% / 14)
   xDecalage% = 0
   yDecalage% = (yEcran%-(p%*7))/2
   ELSE
   p% = INT(yEcran% / 7)
   xDecalage% = ((xEcran%/2)-(p%*7))/2
   yDecalage% = 0
   END_IF
   ELSE
   IF xEcran% < yEcran%/2
   p% = INT(xEcran% / 7)
   xDecalage% = 0
   yDecalage% = ((yEcran%/2)-(p%*7))/2
   ELSE
   p% = INT(yEcran% / 14)
   xDecalage% = ((xEcran%)-(p%*7))/2
   yDecalage% = 0
   END_IF
   END_IF

   ' repartition des pieces du jeu
   FOR k% = 1 TO 5
   FOR j% = 1 TO 5
   i% = i% + 1
   WIDTH i%, p%-2
   HEIGHT i%, p%-2
   LEFT i%, (p% * j%) + xDecalage%
   TOP i%, (p% * k%) + yDecalage%
   NEXT j%
   NEXT k%

   ' positionnement du bouton "gagné !", "Mélange" et "Quitter"
   IF paysage% = 1
   xDecalage% = INT((((xecran%/2)-170)/2)+(xecran%/2))
   yDecalage% = INT(yecran%/4)
   y% = yDecalage%
   TOP 26, y%
   LEFT 26, xDecalage%
   yDecalage% = yDecalage% * 2
   TOP 27, yDecalage%
   LEFT 27, xDecalage%
   yDecalage% = yDecalage% + y%
   TOP 28, yDecalage%
   LEFT 28, xDecalage%
   ELSE
   xDecalage% = INT(((xecran%-170)/2))
   LEFT 26, xDecalage%
   LEFT 27, xDecalage%
   LEFT 28, xDecalage%
   y% = INT(yecran%/8)
   yDecalage% = y% * 5
   TOP 26, yDecalage%
   yDecalage% = y% * 6
   TOP 27, yDecalage%
   yDecalage% = y% * 7
   TOP 28, yDecalage%
   END_IF

END_SUB
' ------------------------------------------------------------------------------
Quitter:
   TERMINATE
RETURN

Admin Nombre de messages : 2386 Date d'inscription : 28/05/2007

Eh bien, c'est quelque chose qui me fait plaisir, que de voir quelqu'un réaliser une application sous Android.
Je n'ai pas encore testé, mais cela me donne déjà envie de reprendre le développement de Panoramic pour Android.

_________________

Panoramic Android : jeu de Taquin Webdav

username : panoramic@jack-panoramic password : panoramic123

Nombre de messages : 2693 Date d'inscription : 13/09/2009

Superbe, bravo Marc !
Je l'ai essayé sur mon smartphone.
Ca marche super bien !
(bon effectivement, ça manque un peu d'esthétique)
Mais ça permettra d'occuper les moments d'attente.
Encore bravo !
cheers

bonjour à tous
merci Marc pour ton aide
malheureusement je n'ai pas la possibilité de mettre à jour en 5.1
la dernière mise à jour m'a juste mis à 5.0.1. Je suis allé faire un tour sur le site de Lenovo qui n'offre pas de mise à jour supplémentaire.
par ailleurs j'ai essayé ton jeu de taquin (très sympa !) qui fonctionne très bien sur mon téléphone qui lui est en androïde
bonne soirée
Philippe

Citation :: par ailleurs j'ai essayé ton jeu de taquin (très sympa !) qui fonctionne très bien sur mon téléphone qui lui est "en androïde"

erreur de frappe je voulais écrire "en Androïd 9" sorry

Bonsoir Marc.
Je viens de tester ton jeu, sur une tablette Android 4.4.2
et il fonctionne correctement.
Il fonctionne correctement lorsque je le teste directement avec le source.
Par contre si je le compile sur mon PC en créant un.apk,
j'ai une erreur d'exécution lorsque je le teste avec cet Apk
(47) objet number out if range Line 120.
J'ai été aussi obligé de supprimer la 1ere ligne qui était blanche, car j'avais une erreur sur Android.
Les erreurs c'est pour Jack, car je pense qu'il va se remettre à cogiter, maintenant que le confinement continue, et qu'il a peut être du temps.
Je te signale Jack que comme beaucoup, je suis en attente, des modifs pour Android, car j'ai fait des programmes que je voudrais tester sur tablette Android.
Ce ne sont que des programmes simples de compta qui n'auront de la valeur que pour moi..
Merci à tous et bonne continuation de confinement.
Bonne soirée

Bonjour à tous !

Merci de vos retours, c’est sympa !

Merci Jack , Jjn4, Philippe et Lepetitmarocain pour vos tests.

C’est vrai que ce jeu fait pâle figure à côté des jeux flamboyants de Jjn4… mais ce n’est que provisoire en attendant une prochaine version de P4A.
Quant au FORM 0, blanc actuellement, il faut éviter d’y poser le doigt sous peine d’avoir un message demandant si vous souhaitez quitter le jeu. J’avais protégé ce FORM 0 avec un PICTURE que j’ai dû supprimer pour cause de bug.

A bientôt !

Bonjour à tous.

Une demande à JJn4 concernant ce jeu.

Pour le tester sur smartphone, l'as tu testé avec le source ou as tu créé un APK sur Windows,

pour le transférer ensuite sur smartphone?

Merci

Bonne journée à tous

Nombre de messages : 2693 Date d'inscription : 13/09/2009

@lepetitmarocain
C'est le source « .bas » que j'ai essayé
avec l'éditeur spécial androïd en APK.
en faisant LOAD puis RUN.
(c'est l'éditeur panoramic.apk trouvé sur le site,
et il marche très bien)
scratch

Je ne l'ai pas transféré sous forme de fichier APK
puisqu'on ne peut en mettre qu'un seul, je crois.
Tandis qu'avec l'éditeur, on peut ajouter autant
de fichiers « .bas » qu'on veut.
sunny

@Marc
« Pas flamboyant », c'est vrai, mais il marche
cependant très bien, ce qui est l'essentiel !
En fait, il est exactement comme les jeux que je
faisais avant de m'occuper du côté esthétique,
c'est-à-dire fonctionnel et couleur gris souris.
Encore bravo !
Laughing

Bonjour JJN4.
As tu la possibilité de tester ton programme en créant un APK?.
Je voudrais passer le jeu à mon petit fils et c'est plus facile en lui passant un APK.
C'est vrai qu'on ne peut créer pour le moment d'un seul APK mais il ne remplace pas celui qui permet de compiler les.Bas.
Cela pourrait permettre de savoir si c'est la version Android qui est obsolète.
Merci par avance
Bonne continuation à tous et faites gaffe au COVID

Nombre de messages : 2693 Date d'inscription : 13/09/2009

Désolé du retard, je n'avais pas lu.
Oui, je peux créer un fichier APK avec APK_maker.exe sur l'ordinateur
et passer ce programme ensuite sur le smartphone.
Je ne le fais pas car ça supprimerait le panoramic.apk qui sert d'éditeur.
Mais ça marchait avant, il n'y a aucune raison pour que ça ne marche plus.
sunny

» Panoramic et Android
» PANORAMIC_ANDROID est né
» PANORAMIC SOUS ANDROID
» Panoramic pour Android : instantané du développement
» Taquin III