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
» PanExpress : l'éditeur Panoramic avec création d'objet
par Jean Claude Aujourd'hui à 20:06

» Projet de planétarium virtuel.
par Pedro Alvarez Aujourd'hui à 16:46

» Quantité de mémoire utilisée par un exe
par Jack Aujourd'hui à 16:39

» Problème avec 'file_load'.
par Pedro Alvarez Hier à 8:12

» Version instantanée V 0.9.28i20 du 13/06/2018
par jjn4 Sam 16 Juin 2018 - 14:25

» string$(0,chr$(32)) sans erreur
par silverman Ven 15 Juin 2018 - 19:56

» Version instantanée V 0.9.28i19 du 13/06/2018
par Minibug Ven 15 Juin 2018 - 19:14

» Mes souhaits d'amélioration de Panoramic.
par Pedro Alvarez Jeu 14 Juin 2018 - 20:17

» [RÉSOLU] Message d'erreur impossible à indentifier
par Minibug Mer 13 Juin 2018 - 20:52

» Cadre pour image
par Jean Claude Mar 12 Juin 2018 - 16:31

» Créateur d'objets Panoramic
par Minibug Mar 12 Juin 2018 - 14:02

» Planétarium gratuit.
par Jean Claude Sam 9 Juin 2018 - 18:50

» Comment afficher une image sans fond.
par JL35 Sam 9 Juin 2018 - 14:16

» image_width(n) et image_height(n)
par silverman Sam 9 Juin 2018 - 11:22

» Site sur la programmation sympa
par Jean Claude Jeu 7 Juin 2018 - 11:20

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2018
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 Taquin II Le Retour

Aller en bas 
AuteurMessage
Marc

avatar

Nombre de messages : 793
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.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 - 14:06, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2963
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 : 8077
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: