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
» KGF_dll - nouvelles versions
par Yannick Aujourd'hui à 21:30

» Synedit Parameters
par Yannick Aujourd'hui à 21:26

» Un bug avec USER_EVENT ?
par Yannick Aujourd'hui à 21:16

» Concours de Morpions
par Froggy One Aujourd'hui à 17:30

» Bienvenue à Irikte
par papydall Aujourd'hui à 14:59

» Comment changer le graphisme d’un menu
par Yannick Aujourd'hui à 12:53

» LIBRARY COMMAND FUNCTION
par Jean Claude Aujourd'hui à 11:38

» OBJECT_PARENT NE FONCTIONNE PLUS ?! (RESOLU)
par Jack Aujourd'hui à 10:40

» Menu personalisé avec icones et menu contextuel
par Yannick Aujourd'hui à 10:10

» Doublon - Désolé !
par Laurent (Minibug) Aujourd'hui à 9:55

» Mac OS X sierra
par Irikte Aujourd'hui à 8:01

» Recherche de traductions de mots (@Klaus).
par Pedro Alvarez Hier à 18:34

» Problème avec SendStringAsText.
par Pedro Alvarez Hier à 18:32

» Version instantanée V 0.9.28i10 du 24/06/2017
par Yannick Hier à 16:19

» Mais qui a le focus ?
par Jack Hier à 14:35

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
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 : 2351
Age : 50
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: FEUILLE - PIERRE - CISEAUX   Sam 22 Mar 2014 - 20: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 - 12:04, édité 4 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Sam 22 Mar 2014 - 21: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 : 5838
Age : 44
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Sam 22 Mar 2014 - 22: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 : 2351
Age : 50
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Sam 22 Mar 2014 - 22: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 : 5838
Age : 44
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Sam 22 Mar 2014 - 23: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 : 7870
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 22 Mar 2014 - 23: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 : 2351
Age : 50
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Dim 23 Mar 2014 - 9: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 : 1079
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Dim 23 Mar 2014 - 10: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 : 1593
Date d'inscription : 13/09/2009

MessageSujet: +++   Dim 23 Mar 2014 - 10: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 : 5387
Age : 66
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Dim 23 Mar 2014 - 11: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/ En ligne
jjn4

avatar

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

MessageSujet: +++   Dim 23 Mar 2014 - 11: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 : 5838
Age : 44
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Dim 23 Mar 2014 - 11: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 : 2351
Age : 50
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Dim 23 Mar 2014 - 11: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 : 5838
Age : 44
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: FEUILLE - PIERRE - CISEAUX   Dim 23 Mar 2014 - 12: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
» Image en fond de page d'accueil ( Feuille de style CSS )

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