FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» StratégoV8 et V9
par Minibug Aujourd'hui à 1:10

» Rotation d'une image d'un angle quelconque
par JL35 Hier à 23:02

» GRID_LOAD
par Jean Claude Hier à 21:04

» HVIEWER
par Yannick Hier à 20:31

» KGF_dll - nouvelles versions
par Klaus Mar 16 Jan 2018 - 21:28

» Déformation d'image en trapèze
par mindstorm Mar 16 Jan 2018 - 21:06

» Mah-Jong américain
par Jean Claude Lun 15 Jan 2018 - 19:37

» Problème avec Deepl
par Klaus Lun 15 Jan 2018 - 0:34

» Quelques nouvelles ...
par Jean Claude Ven 12 Jan 2018 - 22:40

» Renommer les instructions ITEM_... ?
par Jicehel Ven 12 Jan 2018 - 18:56

» Ludothèque Panoramic
par jjn4 Ven 12 Jan 2018 - 18:11

» sous-programmes et fonctions
par Jack Ven 12 Jan 2018 - 17:51

» Mah-Jong français
par Jean Claude Jeu 11 Jan 2018 - 22:15

» panoramic 0.9.28
par gigi75 Ven 5 Jan 2018 - 14:06

» Un jeu qui va vous énerver!
par Jean Claude Jeu 4 Jan 2018 - 22:05

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Janvier 2018
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 Taquin II Le Retour

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Marc



Nombre de messages : 582
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Taquin II Le Retour   Mar 24 Nov 2015 - 2:55

Bonsoir à tous,

Voici la version 2 de mon Taquin (pousse-pousse).

Une douzaine de thèmes dont du Romain et du binaire... croissant / décroissant...

Bref, de quoi s'occuper quand on ne sait plus quoi programmer !



Code:
' ____________________________________
'
' Pousse-Pousse v2
' Marc37 24/11/2015
' http://panoramic.free-boards.net/
' ____________________________________

DIM i%, J%, K%, L%, x%, y%
DIM A%(25)
DIM B$(25), C$(25), D$(25), E$(26), F$(25), G$(25)
DIM tirage%, soluble%, swap%, Theme%
DIM Case_Vide%, X_casevide%, y_casevide%

LABEL Jeu
LABEL Melange
LABEL Choix_Theme

Datas()

Mask()

Random_Theme()

GOSUB Choix_Theme

END
' ------------------------------------------------------------------------------
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%, b$(a%(Case_Vide%))
         A%(l%)=25
         Case_Vide%=l%
         CAPTION l%, ""
      END_IF
   END_IF
   verif_gagne()
RETURN
' ------------------------------------------------------------------------------
SUB Tirage_aleatoire()
   CAPTION 104, ""
   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%) THEN EXIT_FOR
      NEXT j%
      IF j% = 25
         a%(i%)=Tirage%
         CAPTION i%, b$(a%(i%))
      ELSE
         I% = I% - 1
      END_IF
   NEXT i%
   A%(25)=25
   Case_vide% = A%(25)
   CAPTION 25,""
  Swap%=0
   FOR i%=1 TO 23
      FOR j%=i%+1 TO 24
      IF a%(i%)>a%(j%) THEN Swap% = Swap% + 1
      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, b$(a%(1))
      CAPTION 2, b$(a%(2))
   END_IF
   verif_gagne()
   FOR i% = 1 to 25 : ON_CLICK i%, Jeu : NEXT i%
END_SUB
' ------------------------------------------------------------------------------
SUB verif_gagne()
   FOR i% = 1 to 25
   IF a%(i%) <> i% THEN EXIT_FOR
   NEXT i%
   IF i% = 26 THEN BEEP : CAPTION 102, "Gagné !" : ELSE : CAPTION 102, ""
END_SUB
' ------------------------------------------------------------------------------
Melange:
   Tirage_aleatoire()
RETURN
' ------------------------------------------------------------------------------
SUB Mask()
   WIDTH 0, 680
   HEIGHT 0, 457
   COLOR 0, 0,175,40
   FONT_NAME 0, "arial"
   FONT_SIZE 0, 20
   i% = 0
   Theme% = 0
   FOR k% = 1 TO 5
      FOR j% = 1 TO 5
         i% = i% + 1
         BUTTON i%
         WIDTH i%, 60
         HEIGHT i%, 60
         LEFT i%, 60 * j%
         TOP i%, 60 * k%
         ON_CLICK i%, Jeu
      NEXT j%
   NEXT k%

   BUTTON 100
      TOP 100, 300
      LEFT 100, 430
      WIDTH 100, 170
      HEIGHT 100, 40
      FONT_SIZE 100, 18
      CAPTION 100, "Mélange"

   ALPHA 101
      TOP 101, 80
      LEFT 101, 430
      FONT_ITALIC 101
      CAPTION 101, "Jeu de Taquin"

   ALPHA 102
      TOP 102, 150
      LEFT 102, 464
      CAPTION 102, "Gagné !"

   BUTTON 103
      TOP 103, 240
      LEFT 103, 430
      WIDTH 103, 170
      HEIGHT 103, 40
      FONT_SIZE 103, 18
      CAPTION 103, "Thème"

   ALPHA 104
      TOP 104, 370
      LEFT 104, 100
      FONT_SIZE 104, 18
      FONT_ITALIC 104
      CAPTION 104, "Modèle à reproduire !"

   ON_CLICK 100, Melange
   ON_CLICK 103, Choix_theme
END_SUB
' ------------------------------------------------------------------------------
Choix_theme:
   FOR i% = 1 to 25 : OFF_CLICK i% : NEXT i%
   Theme% = theme%+1
   IF Theme% = 13 THEN Theme% = 1
   SELECT Theme%

   CASE 1
      FOR i% = 1 to 25: FONT_SIZE i%,20 : NEXT i%
      FOR i% = 1 to 25: b$(i%)= i% : NEXT i%

   CASE 2
      FOR i% = 1 to 25: FONT_SIZE i%,20 : NEXT i%
      FOR i% = 1 to 24: b$(i%)= 25-i% : NEXT i%

   CASE 3
      FOR i% = 1 to 25: FONT_SIZE i%,14 : NEXT i%
      FOR i% = 1 to 24: b$(i%)= C$(i%) : NEXT i%

   CASE 4
      FOR i% = 1 to 25: FONT_SIZE i%,14 : NEXT i%
      FOR i% = 1 to 24: b$(i%)= C$(25-i%) : NEXT i%

   CASE 5
      FOR i% = 1 to 25: FONT_SIZE i%,12 : NEXT i%
      FOR i% = 1 to 24: b$(i%)= D$(i%) : NEXT i%

   CASE 6
      FOR i% = 1 to 25: FONT_SIZE i%,12 : NEXT i%
      FOR i% = 1 to 24: b$(i%)= D$(25-i%) : NEXT i%

   CASE 7
      FOR i% = 1 to 25: FONT_SIZE i%,20 : NEXT i%
      FOR i% = 1 to 24: b$(i%)= E$(i%) : NEXT i%

   CASE 8
      FOR i% = 1 to 25: FONT_SIZE i%,20 : NEXT i%
      FOR i% = 1 to 24: b$(i%)= E$(27-i%) : NEXT i%

   CASE 9
      FOR i% = 1 to 25: FONT_SIZE i%,20 : NEXT i%
      FOR i% = 1 to 24: b$(i%)= F$(i%) : NEXT i%

   CASE 10
      FOR i% = 1 to 25: FONT_SIZE i%,20 : NEXT i%
      FOR i% = 1 to 24: b$(i%)= F$(25-i%) : NEXT i%

   CASE 11
      FOR i% = 1 to 25: FONT_SIZE i%,20 : NEXT i%
      FOR i% = 1 to 24: b$(i%)= G$(i%) : NEXT i%

   CASE 12
      FOR i% = 1 to 25: FONT_SIZE i%,20 : NEXT i%
      FOR i% = 1 to 24: b$(i%)= G$(25-i%) : NEXT i%

   END_SELECT

   FOR i% = 1 to 24
   CAPTION i%,b$(i%)
   NEXT i%

   CAPTION 25, ""

   CAPTION 102, ""

   CAPTION 104, "Modèle à reproduire !"

RETURN
' ------------------------------------------------------------------------------
SUB Random_Theme()

   Theme%=INT(RND(13))

END_SUB
' ------------------------------------------------------------------------------
SUB Datas()
   DATA I,II,III,IV,V,VI,VII,VIII,IX,X,XI,XII,XIII,XIV,XV,XVI,XVII,XVIII,IXX,XX,XXI,XXII,XXIII,XXIV,XXV
   DATA 00001,00010,00011,00100,00101,00110,00111,01000,01001,01010,01011,01100,01101,01110,01111,10000,10001,10010,10011,10100,10101,10110,10111,11000,11001
   DATA A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z
   DATA 2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97
   DATA 1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,35,37,39,41,43,45,47,49
   FOR i% = 1 to 25 : READ C$(i%) : NEXT i%
   FOR i% = 1 to 25 : READ D$(i%) : NEXT i%
   FOR i% = 1 to 26 : READ E$(i%) : NEXT i%
   FOR i% = 1 to 25 : READ F$(i%) : NEXT i%
   FOR i% = 1 to 25 : READ G$(i%) : NEXT i%
END_SUB


Dernière édition par Marc37 le Sam 28 Nov 2015 - 16:06, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2483
Age : 51
Localisation : Vienne (86)
Date d'inscription : 10/02/2012

MessageSujet: Re: Taquin II Le Retour   Mar 24 Nov 2015 - 10:15

Salut marc !

J'ai essayé avec les lettres de l'alphabet et d'un coup cela ma semblé plus difficile.
C'est bizarre non ?! drunken scratch.

PS : dommage que cette version n'embelli pas un peu l'ensemble car c'est un peu austère...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Yannick

avatar

Nombre de messages : 8011
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mar 24 Nov 2015 - 12:07

Once upon a time...

...J' en avais fait un avec une image à reconstituer avec l' aide de la dll de Klaus et de Klaus lui même.
Il faudrait que je te le retrouve, il doit être perdu dans une de mes archives.

En tout cas, Bravo !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Taquin II Le Retour   

Revenir en haut Aller en bas
 
Taquin II Le Retour
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» retour au travail....
» Le 23 mai Varadero me voilà/et c'est grâce à vous/retour à la réalité
» Est-ce que quelqu'un a vu le retour de Nounou McPhee
» Retour maison
» Retour 3D' S-Pagne...

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les jeux faits avec Panoramic-
Sauter vers: