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
» I Love You
par JL35 Jeu 19 Oct 2017 - 16:25

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Mer 18 Oct 2017 - 18:08

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 FEUILLE - PIERRE - CISEAUX

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

avatar

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

MessageSujet: FEUILLE - PIERRE - CISEAUX   Sam 22 Mar 2014 - 22:56

Et bien voila tout est dit dans le titre !

A vous de juger...

Code:

DIM joueur$ , score1% , score2% , choix$(4) , h% , t$
LABEL traitement

choix$(1)="FEUILLE" : choix$(2)="PIERRE" : choix$(3)="CISEAUX" : choix$(4)="PUITS"

WIDTH 0,550 : HEIGHT 0,350 : LEFT 0,200 : TOP 0,200

joueur$=message_input$("Inscription" , "Votre Prénom" , "Toto")

t$="Bonjour "+joueur$+" !"+chr$(13)+chr$(13)
t$=t$+"Je vous invite à vous confronter à votre ordinateur !!!"+chr$(13)+chr$(13)
t$=t$+"Essayez de battre votre PC au classic jeu de FEUILLE-PAPIER-CISEAUX."+chr$(13)
t$=t$+"Il vous suffit de faire votre choix en bas de l'écran et le résultat est immédiat !"+chr$(13)+chr$(13)
t$=t$+"A tout moment, vous pouvez consulter les scores en haut de la fenetre."+chr$(13)
t$=t$+"Vous gagnez 1 point pour chaque tour gagnant."+chr$(13)+chr$(13)
t$=t$+"Utilisez le bouton QUITTER pour sortir de la partie."+chr$(13)+chr$(13)
t$=t$+"Bon amusement..."
MESSAGE t$

ALPHA 1 : PARENT 1,0 : LEFT 1,40 : TOP 1,25 : WIDTH 1,20 : CAPTION 1,"SCORE "+joueur$+" : "+str$(score1%)
ALPHA 2 : PARENT 2,0 : LEFT 2,290 : TOP 2,25 : WIDTH 2,20 : CAPTION 2,"SCORE Ordinateur : "+str$(score2%)
CONTAINER 10 : PARENT 10,0 : LEFT 10,40 : TOP 10,50 : WIDTH 10,200 : HEIGHT 10,100 : CAPTION 10,joueur$
ALPHA 11 : PARENT 11,10 : LEFT 11,10 : TOP 11,25 : WIDTH 11,20 : FONT_SIZE 11,30
CONTAINER 20 : PARENT 20,0 : LEFT 20,290 : TOP 20,50 : WIDTH 20,200 : HEIGHT 20,100 : CAPTION 20,"Ordinateur"
ALPHA 22 : PARENT 22,20 : LEFT 22,10 : TOP 22,25 : WIDTH 22,20 : FONT_SIZE 22,30
CONTAINER 30 : PARENT 30,0 : LEFT 30,40 : TOP 30,170 : WIDTH 30,450 : HEIGHT 30,75 : CAPTION 30,"Votre choix"
BUTTON 31 : PARENT 31,30 : LEFT 31,10 : TOP 31,15 : WIDTH 31,100 : HEIGHT 31,50 : CAPTION 31,"FEUILLE" : ON_CLICK 31,traitement
BUTTON 32 : PARENT 32,30 : LEFT 32,120 : TOP 32,15 : WIDTH 32,100 : HEIGHT 32,50 : CAPTION 32,"PIERRE" : ON_CLICK 32,traitement
BUTTON 33 : PARENT 33,30 : LEFT 33,230 : TOP 33,15 : WIDTH 33,100 : HEIGHT 33,50 : CAPTION 33,"CISEAUX" : ON_CLICK 33,traitement
BUTTON 34 : PARENT 34,30 : LEFT 34,340 : TOP 34,15 : WIDTH 34,100 : HEIGHT 34,50 : CAPTION 34,"PUITS" : ON_CLICK 34,traitement
BUTTON 35 : PARENT 35,0 : LEFT 35,40 : TOP 35,270 : WIDTH 35,450 : HEIGHT 35,30 : CAPTION 35,"QUITTER LE JEU" : ON_CLICK 35,traitement

END

traitement:
   h%=INT(RND(4))+1 : CAPTION 22,choix$(h%)
   SELECT NUMBER_CLICK
      CASE 31
         CAPTION 11,choix$(1)
         IF h%=1 THEN MESSAGE "MATCH NUL !"
         IF h%=2 THEN score1%=score1%+1 : MESSAGE "GAGNE !"
         IF h%=3 THEN score2%=score2%+1 : MESSAGE "PERDU !"
         IF h%=4 THEN score2%=score2%+1 : MESSAGE "GAGNE !"
      CASE 32
         CAPTION 11,choix$(2)
         IF h%=1 THEN score2%=score2%+1 : MESSAGE "PERDU !"
         IF h%=2 THEN MESSAGE "MATCH NUL !"
         IF h%=3 THEN score1%=score1%+1 : MESSAGE "GAGNE !"
         IF h%=4 THEN score2%=score2%+1 : MESSAGE "PERDU !"
      CASE 33
         CAPTION 11,choix$(3)
         IF h%=1 THEN score1%=score1%+1 : MESSAGE "GAGNE !"
         IF h%=2 THEN score2%=score2%+1 : MESSAGE "PERDU !"
         IF h%=3 THEN MESSAGE "MATCH NUL !"
         IF h%=4 THEN score2%=score2%+1 : MESSAGE "PERDU !"
      CASE 34
         CAPTION 11,choix$(4)
         IF h%=1 THEN score2%=score2%+1 : MESSAGE "PERDU !"
         IF h%=2 THEN score1%=score1%+1 : MESSAGE "GAGNE !"
         IF h%=3 THEN score1%=score1%+1 : MESSAGE "GAGNE !"
         IF h%=4 THEN MESSAGE "MATCH NUL !"
      CASE 35
         IF score1%>score2%
            t$="BRAVO "+joueur$+","+chr$(13)+"Vous avez gagnez avec un score de "+str$(score1%)+" !"+chr$(13)+chr$(13)
         ELSE
            t$="Dommage "+joueur$+","+chr$(13)+"Vous avez perdu malgrès un score de "+str$(score1%)+" !"+chr$(13)+chr$(13)
         END_IF
         IF score1%=score2% THEN t$=joueur$+","+chr$(13)+"Vous avez fait match nul !"+chr$(13)+chr$(13)
         t$=t$+"A bientot..."
         MESSAGE t$
         TERMINATE
   END_SELECT
   CAPTION 11,"" : CAPTION 22,""
   CAPTION 1,"SCORE "+joueur$+" : "+str$(score1%) : CAPTION 2,"SCORE Ordinateur : "+str$(score2%)
RETURN

Amusez vous bien...


MISE A JOUR DU PUITS...


Dernière édition par Minibug le Dim 23 Mar 2014 - 14:04, édité 4 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Sam 22 Mar 2014 - 23:05

Bien moins passionnant que 2048.

Je ne connaissait pas ce jeu.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Dim 23 Mar 2014 - 0:12

Jean-Claude à tout dit.
Le jeu est bien fait, mais c'est sûr que le principe du jeu est moins intéressant, moins profond.
En tout cas ça fait une adaptation de plus en Panoramic, même si ce ne se sera pas le jeu auquel nous jouerons le plus souvent.
Dans le même genre, il y a le générateur de réponse pour quand on ne sait pas quoi choisir.
C'est un programme qui fait un tirage aléatoire et nous donne une réponse: oui ou non.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

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

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Dim 23 Mar 2014 - 0:17

Bon ok Jicehel j'avoue ...

J'avais 1h a perdre et donc voila tout....

Ca permet aussi aux débutants de décortiquer un petit code simple et sans prétention Laughing 

Bonne nuit a tous.... et demain sera un autre jour avec peut être plus d'inspiration...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Dim 23 Mar 2014 - 1:37

Tout à fait Minibug, tu as bien fait de le faire ce jeu.
Pleins de choses à voir pour quelqu'un qui débute et des tas de gens ont joué à ce jeu.
En plus il vient s'ajouter aux grands classiques des jeux écrits en Panoramic.
Tu as bien investi ton heure. Smile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

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

MessageSujet: re   Dim 23 Mar 2014 - 1:40

Tu peux même perdre une heure de plus à l' améliorer... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

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

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Dim 23 Mar 2014 - 11:07

Merci pour vos encouragements !!

 cheers cheers cheers cheers cheers cheers cheers 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
bignono

avatar

Nombre de messages : 1086
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Dim 23 Mar 2014 - 12:11

Bonjour à tous  Smile 
Il y a une autre version avec le puits en plus! La pierre et le ciseau tombent dans le puits mais la feuille bouche le dessus du puits et gagne...
A+  Wink Wink Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

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

MessageSujet: +++   Dim 23 Mar 2014 - 12:58

Ouaah !
J'essaie de m'initier
à ce jeu de réflexion terrien inconnu...
Mais pourquoi aucune stratégie ne marche ?
Ah là là, la logique des terriens
est vraiment incompréhensible !
 Mad alien Evil or Very Mad 
Bravo, Minibug !
 Wink alien Laughing 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
papydall

avatar

Nombre de messages : 5546
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Dim 23 Mar 2014 - 13:33

Salut Minibug, salut tout le monde.

Voila, avec une pincée de volonté, un chouia de temps de détente et une dose d’imagination, on peut se divertir avec Panoramic.
Merci pour ce code (abstraction faite de son utilité) : c’est toujours instructif pour les débutants (comme moi) et même les moins débutants (comme ceux qui se reconnaîssent).

Ligne 14 :
Code:
 t$=t$+"A tous moments, vous pouvez consulter les scores en haut de la fenetre."+chr$(13)

Je préfère (vieille habitude de ma part)
Code:
 t$=t$+"A tout moment, vous pouvez consulter les scores en haut de la fenêtre."+chr$(13)

Je trouve aussi que l’idée du puits de Bignono est digne d’intérêt.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
jjn4

avatar

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

MessageSujet: +++   Dim 23 Mar 2014 - 13:46

Sur Mars, on a un jeu dans ce genre-là.
C'est le jeu de la boîte aux lettres :
Vous avez plusieurs candidats.
L'un dit :
- Moi, je décrocherai la lune.
(applaudissements)
Le suivant dit :
- Moi, j'irai dans les étoiles.
(super-applaudissements)
Et le dernier dit :
- Moi, je ne ferai rien du tout.
(applaudissements nourris)
Ensuite, tout le monde glisse son choix
dans l'espèce de boîte aux lettres.
Et à la fin, celui qui est élu
fait exactement l'inverse de ce qu'il a dit.
Vous avez un jeu comme ça, sur Terre ?
 king  alien  queen
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jicehel

avatar

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

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Dim 23 Mar 2014 - 13:52

oui, je viens d'y jouer. Par contre contrairement au minibug's game, on ne sait pas si on a gagné tout de suite et encore moins ce que l'on va perdre avec le temps....
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

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

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Dim 23 Mar 2014 - 13:58

Suite a vos demandes je viens de rajouter le puits...

Le post initial est mis a jour. Amusez vous bien !!!

@ papydall : C'est corrigé CHEF ! Laughing 

@ Jicehel et jjn4 : Et surtout le temps que l'on va perdre ! Razz 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Dim 23 Mar 2014 - 14:37

Merci Minibug
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   

Revenir en haut Aller en bas
 
FEUILLE - PIERRE - CISEAUX
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» FEUILLE - PIERRE - CISEAUX
» [1,2,3] Pierre, Feuille, Ciseaux
» Pierre de jade
» Paper Case : protéger vos CD avec une feuille de papier
» Présentation de Feuille de Tilleul

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: