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
» Demande pour Jack concernant PanExpress
par Jack Aujourd'hui à 7:48

» Calculatrice
par papydall Hier à 22:54

» EPP_V01 éditeur pour Panoramic
par Minibug Mer 19 Sep 2018 - 21:03

» [RESOLU] Quelle ligne est sélectionnée dans SYNEDIT ?
par Jean Claude Mer 19 Sep 2018 - 21:02

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Mer 19 Sep 2018 - 15:58

» Planétarium virtuel.
par Pedro Alvarez Mer 19 Sep 2018 - 9:28

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub : variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

» MEMO avec des possibilités de commande
par Oscaribout Mer 12 Sep 2018 - 1:06

» La théorie du chaos
par jean_debord Mar 11 Sep 2018 - 9:30

» Orbites de l’ensemble de Mandelbrot
par Jean Claude Lun 10 Sep 2018 - 21:08

» Version instantanée V 0.9.29i2 du 4/09/2018
par silverman Mer 5 Sep 2018 - 10:15

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 Taquin II Le Retour

Aller en bas 
AuteurMessage
Marc

avatar

Nombre de messages : 865
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: Taquin II Le Retour   Mar 24 Nov 2015 - 0: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.1fr1.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 - 14:06, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

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

MessageSujet: Re: Taquin II Le Retour   Mar 24 Nov 2015 - 8: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 : 8083
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mar 24 Nov 2015 - 10: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
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: