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 | 
 

 Préparez l'aspirine !!!

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

avatar

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

MessageSujet: Préparez l'aspirine !!!   Sam 29 Nov 2014 - 17:52

j'ai remis a jour la nouvelle version avec seulement les additions et les soustractions et 2 ou 3 petites choses...

A vous de voir...

Code:
' **************************************************************************************************
' *******************************  C A L C O R A M I C - Vers 1.0  *******************************
' **************************************************************************************************

DIM c% , n% , x% , y% , t$ , cot% , tot% , sel1% , sel2% , case$(100) , color$(4) , ope$(4) , ok% , system$ , score%
LABEL choix , debut , quitte

n%=1 : sel1%=-10 : system$=DIR_CURRENT$+"\" : ope$(1)="+" : ope$(2)="-" : ope$(3)="+-" : ope$(4)="<>"
color$(1)="255100000" : color$(2)="000255000" : color$(3)="000100255" : color$(4)="255255000"

HIDE 0 : WIDTH 0,750 : HEIGHT 0,465 : CAPTION 0,"CALCORAMIC - Vers. 1.0 - 28.11.2014"
CONTAINER 110 : PARENT 110,0 : LEFT 110,408 : TOP 110,320 : WIDTH 110,320 : HEIGHT 110,83 : CAPTION 110," Choix des opérations "
FOR n%=1 to 4
  PICTURE 110+n% : PARENT 110+n%,110 :LEFT 110+n%,n%*80-60 : TOP 110+n%,20 : WIDTH 110+n%,38 : HEIGHT 110+n%,38
  COLOR 110+n%,VAL(LEFT$(color$(n%),3)),VAL(MID$(color$(n%),4,3)),VAL(RIGHT$(color$(n%),3))
NEXT n%
ALPHA 115 : PARENT 115,110 : LEFT 115,5 : TOP 115,65 : CAPTION 115,"    Addition          Soustraction        Inverse -/+        Inverse opé"

MEMO 120 : PARENT 120,0 : LEFT 120,408 : TOP 120,5 : WIDTH 120,320 : HEIGHT 120,310 : BAR_VERTICAL 120
DATA "LE BUT DU JEU :" , "Il faut effectuer des calculs (savants...) pour supprimer au fur et a mesure les cases du plateau."
DATA "Jusque là tout va bien ! Sauf que malheureusement, tout n'est pas possible !"
DATA "Tout d'abord les opérations ne se font qu'avec les cases juste a cotés, au dessus ou en dessous."
DATA "Pour gagner il faut faire le minimum de points. Le TOP étant d'arriver a zéro !"
DATA "Rentrons dans le vive du sujet..." , "" , "LA COULEUR DES CASES : "
DATA "Cela va vous permettre de savoir quel type d'opération vous allez effectuer."
DATA " - Case ROUGE : l'addition" , " - Case VERTE : la soustraction" , " - Case BLEU  : lnverse la valeur ( 4 -> -4 )"
DATA " - Case JAUNE : lnverse l'opération ( addition -> soustraction )" , "" , "LA SELECTION DES CASES : "
DATA "La première case est sélectionnée par un clic gauche et la seconde par un clic droit."
DATA "Le calcul s'opére sur la seconde case."
DATA "Explication : Vous avez cliqué sur une case ROUGE en premier puis une case VERTE en second."
DATA "L'opération sera donc une SOUSTRACTION (Puisque c'est la seconde case qui prend l'opération)."
DATA "Si vous faites l'inverse, d'abord la VERTE, puis la ROUGE vous ferez une ADDITION, c'est compris ?"
DATA "Parfait, je continue..." , "" , "LE CALCUL : "
DATA "Maintenant que vous avez compris le principe, je vais vous expliquer la suite..."
DATA "Le calcul sera effectué a partir des nombres indiqué dans les cases correspondantes."
DATA "Sauf que bien entendu tout n'est pas aussi simple !"
DATA "Tout d'abors les cases n'acceptent pas de nombre au delà de 100."
DATA "Une fois la case bloquée a 100, les additions sont bloquées"
DATA "Une fois la case bloquée a -100, les soustractions sont bloquées"
DATA "L'usage des cases bleu et jaune ne peut ce faire qu'après avoir"
DATA "sélectionné un nombre dans la premièer case."
DATA "C'est clair pour vous ?" , "" , "Bon jeu a tous..."
FOR n%=1 TO 34 : READ t$ : ITEM_ADD 120, t$ : NEXT n%

MAIN_MENU 200
SUB_MENU 201 : PARENT 201,200 : CAPTION 201,"Niveau"
SUB_MENU 202 : PARENT 202,200 : CAPTION 202,"Score : 0"
SUB_MENU 204 : PARENT 204,200 : CAPTION 204,"Quitter" : ON_CLICK 204,quitte
FOR n%=205 TO 210
  SUB_MENU n% : PARENT n%,201 : CAPTION n%,RIGHT$("  "+STR$(n%-200),2)+" x "+RIGHT$("  "+STR$(n%-200),2) : ON_CLICK n%,choix
NEXT n%
SHOW 0
END

debut:
  WHILE n%<>205
    FOR n%=1 to tot%
        IF MOUSE_LEFT_DOWN(n%)=1 AND CAPTION$(n%)<>"+-" AND CAPTION$(n%)<>"<>" AND CAPTION$(n%)<>""
            IF sel1%=-10
              sel1%=n% : FONT_COLOR sel1%,255,255,255
            ELSE
              FONT_COLOR sel1%,0,0,0 : sel1%=-10
            END_IF
        END_IF
        IF MOUSE_RIGHT_DOWN(n%)=1 AND CAPTION$(n%)<>"" AND (sel1%=(n%+1) OR sel1%=(n%-1) OR sel1%=(n%+cot%) OR sel1%=(n%-cot%))
            sel2%=n% : ok%=0
            IF case$(sel2%)="+"
              IF VAL(CAPTION$(sel1%))+VAL(CAPTION$(sel2%))<100
                  c%=VAL(CAPTION$(sel1%))+VAL(CAPTION$(sel2%))
                  ok%=1
              END_IF
            END_IF
            IF case$(sel2%)="-"
              x%=VAL(CAPTION$(sel1%))-VAL(CAPTION$(sel2%))
              IF x%>-100 AND x%<100
                  c%=VAL(CAPTION$(sel1%))-VAL(CAPTION$(sel2%))
                  ok%=1 : score%=score%-ABS(VAL(CAPTION$(sel1%))-VAL(CAPTION$(sel2%)))
              END_IF
            END_IF
            IF case$(sel2%)="+-"
              IF SGN(VAL(CAPTION$(sel1%)))=-1 : c%=ABS(VAL(CAPTION$(sel1%))) : ELSE : c%="-"+STR$(VAL(CAPTION$(sel1%))) : END_IF
              IF case$(sel1%)="+"
                  case$(sel2%)="+" : COLOR sel2%,VAL(LEFT$(color$(1),3)),VAL(MID$(color$(1),4,3)),VAL(RIGHT$(color$(1),3)) : ok%=1
              ELSE
                  case$(sel2%)="-" : COLOR sel2%,VAL(LEFT$(color$(2),3)),VAL(MID$(color$(2),4,3)),VAL(RIGHT$(color$(2),3)) : ok%=1
              END_IF
            END_IF
            IF case$(sel2%)="<>"
              c%=VAL(CAPTION$(sel1%))
              IF case$(sel1%)="-"
                  case$(sel2%)="+" : COLOR sel2%,VAL(LEFT$(color$(1),3)),VAL(MID$(color$(1),4,3)),VAL(RIGHT$(color$(1),3)) : ok%=1
              ELSE
                  case$(sel2%)="-" : COLOR sel2%,VAL(LEFT$(color$(2),3)),VAL(MID$(color$(2),4,3)),VAL(RIGHT$(color$(2),3)) : ok%=1
              END_IF
            END_IF
            IF ok%=1
              CAPTION sel2%,STR$(c%) : CAPTION sel1%,"" : COLOR sel1%,230,230,230    : ' la case 2 affiche le resultat et la case 1 est effacée
              IF CAPTION$(sel2%)="0" THEN CAPTION sel2%,"" : COLOR sel2%,230,230,230 : ' si la case2 est a 0 elle est effacée aussi
              sel1%=-10 : CAPTION 202,"Score : 0/"+STR$(score%)
            END_IF
        END_IF
    NEXT n%
  END_WHILE
RETURN

choix:
  FOR n%=1 TO 100 : IF OBJECT_EXISTS(n%)=1 THEN DELETE n% : NEXT n%
  cot%=VAL(RIGHT$(CAPTION$(NUMBER_CLICK),2))
  tot%=cot%*cot% : n%=1  : score%=0
  FOR y%=1 to cot% : FOR x%=1 to cot%
      PANEL n% : HIDE n% : PARENT n%,0 : LEFT n%,x%*40-36 : TOP n%,y%*40-36 : WIDTH n%,38 : HEIGHT n%,38 : FONT_SIZE n%,12 : FONT_BOLD n% : n%=n%+1
  NEXT x% : NEXT y%
      FOR n%=1 TO tot%
      SHOW n%
      c%=INT(RND(4))+1 : FONT_COLOR n%,0,0,0
      COLOR n%,VAL(LEFT$(color$(c%),3)),VAL(MID$(color$(c%),4,3)),VAL(RIGHT$(color$(c%),3))
      CAPTION n%,STR$(INT(RND(9))+1) : case$(n%)=ope$(c%) : IF c%=3 : CAPTION n%,"+-" : END_IF : IF c%=4 : CAPTION n%,"<>" : END_IF
      IF c%=1 OR c%=2 THEN score%=score%+VAL(CAPTION$(n%))
  NEXT n%
  sel1%=-10 : CAPTION 202,"Score : 0/"+STR$(score%)
  GOSUB debut
RETURN

quitte:
  TERMINATE


Dernière édition par Minibug le Dim 30 Nov 2014 - 19:49, édité 4 fois
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   Sam 29 Nov 2014 - 20:24

Bon, ca y est, j' ai entamé mon stock de doliprane... Laughing

Une petite remarque, on se retrouve vite avec des trous sur le plateau de jeu et plus d' opération possible.
Il aurait été bien que si une case devienne vierge, elle soit remplacé par une pleine qui lui soit voisine.
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: Préparez l'aspirine !!!   Sam 29 Nov 2014 - 20:59

Non ygeronimi ! , C'est justement le but...

Devoir enlever toutes les cases et qu'il reste le moins de points possible sur le plateau.

j'attends de voir vos réactions pour vous préparer la suite... Schuuuut c'est un secret !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Jean Claude

avatar

Nombre de messages : 5130
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Préparez l'aspirine !!!   Sam 29 Nov 2014 - 22:53

J'ai été obligé de me mettre la tête dans le congélateur, à cause d'une surchauffe de mon cerveau-processeur. What a Face drunken Very Happy

Intéressant, mais compliqué. Si l'idée est de toi, alors tu es à la tête d'un buzz.

Remarque: il faudrait un affichage du nombre de cases supprimées (pour suivre son score personnel)
                et éclaircir le fond des cases bleues car elles sont difficiles à lire (noir/bleu foncé).

Un casse-tête de plus. Very Happy

Bravo cheers
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: Préparez l'aspirine !!!   Sam 29 Nov 2014 - 23:00

Bonsoir Jean Claude,

Oui oui je te confirme l'idée a germée hier soir avec mon fils de 15 ans plutôt matheux comme moi.
en refléchissant a un tableau, des chiffres, etc... c'est venu comme ca !

J'ai quelques idées en tête pour l'améliorer mais j'attends de voir les réactions et les avis.
Alors n'hésitez pas a poster vos impressions ! Very Happy Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Jean Claude

avatar

Nombre de messages : 5130
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Préparez l'aspirine !!!   Dim 30 Nov 2014 - 10:58

Je vois que vous avez des activités saines avec ton fils, qui pourrait bien un jour devenir un membre du forum.

Tu devrais faire une versions avec simplement l'addition et la soustraction. Je pense que l'attrait serait plus grand.
Ce qui serait top, serait de pouvoir vider toutes les cases, mais là çà doit pas être facile à coder.

Votre idée est intéressante, continuez, vous allez faire le BUZZ.

cheers
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: Préparez l'aspirine !!!   Dim 30 Nov 2014 - 12:14

C'est une bonne idée , je vais y penser...
Merci
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Minibug

avatar

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

MessageSujet: Re: Préparez l'aspirine !!!   Dim 30 Nov 2014 - 14:02

Désolé pour le premier message...

J'ai fais une fausse manipulation et j'ai tout supprimer !!

confused confused confused
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   Dim 30 Nov 2014 - 15:54

Je crois que ca y est ! ton fils est mûr pour être un panoramicien... Laughing


Jeu très interessant, continues, même si mon stock de doliprane en souffre...
lol!
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: Préparez l'aspirine !!!   Dim 30 Nov 2014 - 16:12

Passes a l'Efferalgan ! LOL Laughing Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Minibug

avatar

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

MessageSujet: Re: Préparez l'aspirine !!!   Dim 30 Nov 2014 - 19:51

Je viens de corriger quelques bug sur les clics et aussi l'ajout du score.
pour l'instant le fonctionnement du score est un peu aléatoire mais je vais creuser...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Jicehel

avatar

Nombre de messages : 5876
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Préparez l'aspirine !!!   Lun 1 Déc 2014 - 12:23

Je n'ai pas encore essayé, mais le jeu a l'air interessant. Je te fais un retour dès que j'ai essayé.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mindstorm

avatar

Nombre de messages : 545
Age : 48
Localisation : charente
Date d'inscription : 13/02/2013

MessageSujet: Re: Préparez l'aspirine !!!   Mar 2 Déc 2014 - 23:13

bravo Minibug
j'avoue j'ai réussi le premier niveau par hasard
il n’empêche le jeu est reussi
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: Préparez l'aspirine !!!   Mer 3 Déc 2014 - 0:45

Je suis content de voir que cela vous plait...

Je vais tenter au fur et a mesure d'apporter quelques améliorations :

- le score, les options, l'historique, peut être un CTRL-Z, etc...
- La possibilité de jouer sur différentes versions, addition, soustraction, multiplication, division...

Il y a de quoi faire...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Jean Claude

avatar

Nombre de messages : 5130
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Préparez l'aspirine !!!   Mer 3 Déc 2014 - 15:36

Cette nouvelle version permet d’effacer pratiquement toutes les cases.

Cela devient plus intéressant.
Pour clarifier il faudrait que les cases bleues et jaunes soient grises comme les cases vides.
Le but du jeu devient "effacer toutes les cases de couleur"

ligne 52 ajoutes SHOW 0 : on_close 0,quitte çà permet de sortir par la croix rouge.

A+
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: Préparez l'aspirine !!!   Jeu 4 Déc 2014 - 0:56

Merci pour tes appréciations Jean Claude !

J'en prends note.
Je suis actuellement sur un autre projet mais je reviens dès que possible...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Contenu sponsorisé




MessageSujet: Re: Préparez l'aspirine !!!   

Revenir en haut Aller en bas
 
Préparez l'aspirine !!!
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Présentation d'aspirine
» Cachet d'aspirine x3

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: