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 - demandes ou suggestions de modifications ou ajouts
par Klaus Hier à 23:55

» KGF_dll - nouvelles versions
par pascal10000 Hier à 17:27

» Mah-Jong européen new-look
par Minibug Mar 12 Déc 2017 - 22:31

» track_bar circulaire
par Klaus Mar 12 Déc 2017 - 13:54

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Nos cadeaux de Noël

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : 1, 2  Suivant
AuteurMessage
jjn4

avatar

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

MessageSujet: Nos cadeaux de Noël   Jeu 10 Déc 2009 - 1:31

Je propose que pour Noël, chacun d'entre nous publie ci-dessous
un programme (en langage panoramic, bien sûr) joli ou utile ou
ludique, qu'il ait fabriqué en cadeau pour les autres participants
de ce forum (et bien sûr aussi pour tous les visiteurs qui ne le
méritent pas moins et ne manqueront pas d'adhérer d'autant
plus à un forum aussi sympa).
(si possible, évitons les programmes dont l'exécution commence par :
Erreur à la ligne xx)
Je ne vous en donne pas un, comme exemple, aujourd'hui,
parce que c'est trop tôt.
Mais je le dis maintenant pour que chacun ait le temps
de préparer la surprise qu'il va faire aux autres.
Qu'est-ce que vous pensez de cette idée... ?
santa


Dernière édition par jjn4 le Sam 12 Déc 2009 - 1:10, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
jjn4

avatar

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

MessageSujet: hhh   Sam 12 Déc 2009 - 1:09

Surtout, ne répondez pas tous à la fois !
Bon, allez, je n'ai pas dit qu'il fallait que ce soit
un super cadeau, LE cadeau du siècle...
Ni que chacun devait dévoiler ses programmes
les plus personnels (comme le petit dernier
que vous avez inventé et qui vous permet
de gagner au loto chaque semaine...)
Non, juste un petit programme sympa suffira !
rabbit


Dernière édition par jjn4 le Dim 13 Déc 2009 - 2:24, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Invité
Invité



MessageSujet: Re: Nos cadeaux de Noël   Sam 12 Déc 2009 - 1:28

Moi c'est déjà décider ça fais 3 semaines mais je nais pas encore composer mon histoire en prints.
Revenir en haut Aller en bas
Invité
Invité



MessageSujet: Re: Nos cadeaux de Noël   Lun 14 Déc 2009 - 11:25

Je suis content, je crois que j'ai un cadeaux pour Noël qui va vous plaire.
Mais chut!! c'est la surprise
Revenir en haut Aller en bas
Invité
Invité



MessageSujet: Re: Nos cadeaux de Noël   Jeu 17 Déc 2009 - 1:41

Je suis le premier à donné mon cadeau on dirait !

C'est une petite histoire comme j'avais écrit 2 ou 3 post avant.
Mais si vous voulez un utilitaire aller plus bas j'en donne un.

Mon Histoire :

Code:
' Histoire Qu'est-ce que Noël ? +
caption 0,"Histoire - Qu'est-ce que Noël ?":height 0,630

picture 1:width 1,592:height 1,594
font_bold 1:font_size 1,15
print_target_is 1:print_locate 50,30
print "Qu'est ce que Noël ?"
print_locate 30,80:font_name 1,"Times New Roman":font_size 1,10:font_bold_off 1

' Partie 1 -------------------------------------

print "Il était une fois, le 25 décembre en l'an 34 avant Jésus C. Un petit monsieur qui s'appelait Noël.":print_x_locate 30
print "Il habitait à Jérusalem. Noël avait 36 ans. C'est-à-dire qu'il est né 3 ans avant que Jésus soit né.":print_x_locate 30
print "Il vivait dans un petit village avec 360 personnes. Noël voulait inventer une fête pour célébrer la ":print_x_locate 30
print "naissace de Jésus.":print_x_locate 30

' Partie 2 -------------------------------------

print "":print_x_locate 30:' ligne de vide
print "La plupart des personnes dans le village étaient d'accord pour inventer une nouvelle fête. Trois"::print_x_locate 30
print "personnes n'étaient pas de cet avis. Dans sa maison, il chercha...":print_x_locate 30
print "Il chercha...":print_x_locate 30
print "Il regarda dans des livres. Le dernier ou le 256 ème qu'il avait regardé s'appelait « Les Fêtes ».":print_x_locate 30
print "Comme vous le savez sûrement, les livres ne resemblait pas à aujourd'hui. Il resemblait à de vieux":print_x_locate 30
print "grimoires. À la page 543 la partie « Des Nom de Fêtes à Inventer » il pensa qu'il alla trouver. Il":print_x_locate 30
print "tourna quelques page et trouva ce nom : « Détard ».":print_x_locate 30

' Partie 3 -------------------------------------

print "":print_x_locate 30:' ligne de vide
print "Mais il n'était pas sûr de lui. Alors il alla chercher les villageois. Il n'y avait pas tout le monde.":print_x_locate 30
print "Beaucoup était occupé à cuisiner, à bricoler, à construire, à prier, etc. Enfin les villageois arrivèrent.":print_x_locate 30
print "On entendit un long moment de silence. Après ça, Noël annonça la nouvelle. Il dit : « J'ai décider":print_x_locate 30
print "d'appeler la fête que je veux créer Détard ». Tout le monde réfléchit... Il n'était pas la plupart satisfait.":print_x_locate 30
print "Il dirent : « Non ! ».":print_x_locate 30
print "Lui aussi se dit que Détard ne pouvait pas être choisi pour une fête de ce genre":print_x_locate 30
print "":print_x_locate 30
print "Il comprenait...":print_x_locate 30
print "":print_x_locate 30:' ligne de vide

' Patie 4 --------------------------------------

print  "Alors, il lui vient d'autres idées. Ses idées étaient les suivantes : Joun, Pédé, Tripla, Ancou et Eweux.":print_x_locate 30
print "Mais les villageois n'aimaient pas les noms. Il chercha...":print_x_locate 30
print "Et il chercha...":print_x_locate 30
print "":print_x_locate 30
print "Et puis il trouva ! Les villageois étaient bien satisfait de ce nom : « NOËL ». Mias Noël n'avait toujours":print_x_locate 30
print "pas expliqué aux villageois ce qu'était cette fête ???":print_x_locate 30
print "Il leur expliqua...":print_x_locate 30
print "":print_x_locate 30
print "Cette fête est une occasion de célébrer la naissance de Jésus ! Et même j'ai décider de créer une fête pour":print_x_locate 30
print "célébrer la mort de Jésus. Elle s'appelera Pâques.":print_x_locate 30
print "":print_x_locate 30
print "Et ils fétèrent Noël le 25 décembre !":print_x_locate 30
print "":print_x_locate 30
print "Depuis ce jour tout le monde fête Noël le 25 décembre"

Et voici mon utilitaire :
(Vous ferai attention aux touches de raccourcis)

Code:
label quitter,menushide,about,close,newimage
label langue1,langue2,save,OK,version
label suit,plein,open,saveas,image,ok2

dim menus,is_screen,n,a$,is_image
dim NomFichier$,i,j,NomPath$,Nom$
dim is_close
menus=0
is_screen=0
n=13
is_image=0
is_close=0
a$=chr$(10)+chr$(13)

left 0,250
top 0,150
width 0,420
height 0,270
caption 0,"ImagePlayer 1.0"
on_key_up 0,suit

alpha 38:hide 38
left 38,70
top 38,30
font_size 38,30
font_name 38,"Times New Roman"
caption 38,"ImagePlayer 1.0"

picture 1
full_space 1
color 1,0,0,0
stretch_on 1
hint 1,"Il n'y a pas d'image placé"
cursor_cross 1

main_menu 2
sub_menu 3:parent 3,2:caption 3,"Fichier"
sub_menu 4:parent 4,2:caption 4,"Edition"
sub_menu 5:parent 5,2:caption 5,"Affichage"
sub_menu 6:parent 6,2:caption 6,"?"

sub_menu 7:parent 7,3:caption 7,"Nouveau                N":on_click 7,newimage
sub_menu 8:parent 8,3:caption 8,"Ouvrir...                O":on_click 8,open
sub_menu 9:parent 9,3:caption 9,"Enregistrer              S":on_click 9,saveas
sub_menu 10:parent 10,3:caption 10,"Enregistrer sous...":on_click 10,saveas
sub_menu 11:parent 11,3:caption 11,"Fermer                  F12":on_click 11,close
sub_menu 12:parent 12,3:caption 12,"Ouvert Récemment"
sub_menu 13:parent 13,12:caption 13,"(vide)":inactive 13
sub_menu 14:parent 14,12:caption 14,"(vide)":inactive 14
sub_menu 15:parent 15,12:caption 15,"(vide)":inactive 15
sub_menu 16:parent 16,12:caption 16,"(vide)":inactive 16
sub_menu 17:parent 17,3:caption 17,"Imprimer...            P"
sub_menu 18:parent 18,3:caption 18,"Quitter              Alt+F4":on_click 18,quitter

sub_menu 19:parent 19,4:caption 19,"Couper        Ctrl+X"
sub_menu 20:parent 20,4:caption 20,"Copier          Ctrl+C"
sub_menu 21:parent 21,4:caption 21,"Coller            Ctrl+V"

sub_menu 22:parent 22,5:caption 22,"Barre d'état"
sub_menu 23:parent 23,5:caption 23,"Barre de menus*            B":on_click 23,menushide
sub_menu 24:parent 24,5:caption 24,"Image*                          M":on_click 24,image
sub_menu 25:parent 25,5:caption 25,"Plein Écran                    E":on_click 25,plein
sub_menu 26:parent 26,5:caption 26,"Afficher l'image...          F"
sub_menu 32:parent 32,5:caption 32,"Langue"
sub_menu 30:parent 30,32:caption 30,"Barre de Menu en Français":on_click 30,langue2
sub_menu 31:parent 31,32:caption 31,"English Menu Bar":on_click 31,langue1

sub_menu 27:parent 27,6:caption 27,"Aide...      F1"
sub_menu 28:parent 28,6:caption 28,"A Propos...":on_click 28,about
sub_menu 39:parent 39,6:caption 39,"Version...":on_click 39,version

' invisible ------------------------------------------------------------

form 35
hide 35
left 35,300
top 35,200
height 35,150
width 35,250
caption 35,"A Propos..."
command_target_is 35

alpha 36
left 36,10
top 36,10
caption 36,"Ce logiciel ne comportent pas d'installation."+a$+"Cela veut dire qu'il est completement portable/"+a$+"et sans DLL et fichier nécessaires."+a$+a$+"Auteur : Nicolas Maltais"+a$+a$+"Copyright © décembre 2009"

button 37
left 37,150
width 37,80
top 37,60
height 37,30
caption 37,"OK"
on_click 37,OK

' ----------------------------------------------------------------------

form 40
hide 40
left 40,300
top 40,200
height 40,150
width 40,250
caption 40,"Version..."
command_target_is 40

alpha 41
left 41,10
top 41,10
caption 41,"Cette version est une version testé."+a$+"C'est à dire une version sans bugs."+a$+a$+"  Version(s) Disponible(s) :"+a$+a$+"    ImagePlayer 1.0"
font_color 41,40,0,100

button 42
left 42,150
width 42,80
top 42,60
height 42,30
caption 42,"OK"
on_click 42,ok2

end

' touches de raccourcis ------------------------------------------------

suit:
if key_up_code=66 then goto menushide
if key_up_code=69 then goto plein
if key_up_code=79 then goto open
if key_up_code=83 then goto saveas
if key_up_code=77 then goto image
if key_up_code=123 then goto close
return

' Autres ---------------------------------------------------------------

langue1:
caption 3,"File":caption 4,"Edit":caption 5,"View"
caption 27,"Help...      F1":caption 28,"About..."
caption 22,"Status Bar":caption 23,"Menu bar*                    B"
caption 25,"Full Screen                    E"
caption 26,"View image...                F":caption 32,"Language"
caption 19,"Cut                  Ctrl+X":caption 20,"Copy                Ctrl+C"
caption 21,"Paste                Ctrl+V"
caption 7,"New                      N":caption 8,"Open...                O"
caption 9,"Save                      S":caption 10,"Save as..."
caption 11,"Close                    F12":caption 12,"Recently opened"
caption 17,"Print...                  P":caption 18,"Quit            Alt+F4"
if n=13 then caption 13,"(empty)":caption 14,"(empty)":caption 15,"(empty)":caption 16,"(empty)"
if n=14 then caption 14,"(empty)":caption 15,"(empty)":caption 16,"(empty)"
if n=15 then caption 16,"(empty)"
return

langue2:
caption 3,"Fichier":caption 4,"Edition":caption 5,"Affichage"
caption 7,"Nouveau                N":caption 8,"Ouvrir...                O"
caption 9,"Enregistrer              S":caption 10,"Enregistrer sous..."
caption 11,"Fermer                  F12":caption 12,"Ouvert Récemment"
caption 17,"Imprimer...            P":caption 18,"Quitter              Alt+F4"
caption 19,"Couper        Ctrl+X":caption 20,"Copier          Ctrl+C"
caption 21,"Coller            Ctrl+V":caption 22,"Barre d'état"
caption 23,"Barre de menus*            B":caption 25,"Plein Écran                    E"
caption 26,"Afficher l'image...          F":caption 32,"Langue"
caption 27,"Aide...      F1":caption 28,"A Propos..."
if n=13 then caption 13,"(vide)":caption 14,"(vide)":caption 15,"(vide)":caption 16,"(vide)"
if n=14 then caption 14,"(vide)":caption 15,"(vide)":caption 16,"(vide)"
if n=15 then caption 16,"(vide)"
return

menushide:
if (menus=0)
  hide 3:hide 4:hide 5:hide 6
  menus=1
else
  show 3:show 4:show 5:show 6
  menus=0
end_if
return

plein:
if (is_screen=0)
  stretch_off 1
  color 0,0,0,0
  is_screen=1
else
  stretch_on 1
  is_screen=0
end_if
return

image:
if (is_image=0)
  hide 1:inactive 25:color 0,233,232,218
  is_image=1
else
  show 1:active 25
  is_image=0
end_if
return

close:
if (is_close=0)
  show 38:hide 1
  is_close=1
else
  hide 38:show 1
  is_close=0
end_if
return

newimage:
color 1,0,0,0
caption 0,"ImagePlayer 1.0"
return

' Dialogues --------------------------------------------------------------------------------------------------------------

open:
open_dialog 33
  filter 33,"BMP/BITMAP Images BMP|*.bmp|JPG/JPEG Images JPG|ICO Icones Windows"
  NomFichier$=file_name$(33)
  delete 33
  j=len(NomFichier$)
  NomPath$=""
  Nom$=""
for i=j to 1 step -1
  if (mid$(NomFichier$,i,1)="\")
    NomPath$=mid$(NomFichier$,1,i)
    if (i<j) then Nom$=mid$(NomFichier$,i+1,j-i)
    caption 0,"ImagePlayer 1.0  -  "+Nom$
    hint 1,"      ImagePlayer - Informations :"+a$+a$+"Nom de l'image : "+Nom$+a$+"Emplacement de l'image : "+NomPath$+a$+"Au complet : "+NomFichier$+a$
    exit_for
  end_if
next i
if (file_exists(NomFichier$)=1)
  file_load 1,NomFichier$
  on_click 9,save
  if key_up_code=83 then goto save
end_if
if n=16 then n=13
active n:caption n,Nomfichier$:n=n+1
return

saveas:
save_dialog 34
filter 34,"Tous les fichiers|*.*|BMP/BITMAP Images BMP|*.bmp|JPG/JPEG Images JPG|ICO Icones Windows"
NomFichier$=file_name$(34)
delete 34
file_save 1,NomFichier$
on_click 9,save
if key_up_code=83 then goto save
return

save:
file_save 1,NomFichier$
return

' Aide -------------------------------------------------------------------------------------------------------------------

about:
show 35
return

version:
show 40
return

ok2:
hide 40
return

OK:
hide 35
return

' Fin Section ------------------------------------------------------------------------------------------------------------

quitter:
terminate
Revenir en haut Aller en bas
jjn4

avatar

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

MessageSujet: Oui   Jeu 17 Déc 2009 - 1:59

C'est très joli, Nicolas, bravo ! cheers
Mais au fait, les cadeaux de Noël,
c'est pas le 24 décembre au Canada ?
Mais peu importe, après tout
comme dit le proverbe :
Vaut mieux tôt que jamais.
Laughing
PS : et puis les pères Noël sont tellement surbookés, de nos jours,
qu'ils ne peuvent plus faire tout le travail le même jour !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Invité
Invité



MessageSujet: Re: Nos cadeaux de Noël   Jeu 17 Déc 2009 - 15:36

C'est le 24 la veille de Noël et c'est le 25 Noël.
Mais les cadeaux en effet c'est le 24 au soir.
Revenir en haut Aller en bas
Invité
Invité



MessageSujet: Re: Nos cadeaux de Noël   Jeu 17 Déc 2009 - 16:12

Moi mon cadeaux est fait, mais le plus important dans Noël, c'est l'attente. Aussi il faudra bien attendre le 24 décembre pour que je dis-je au Père Noël de Passer. Avant l'heure, c'est pas l'heure, après on verra...
@+
Revenir en haut Aller en bas
Invité
Invité



MessageSujet: Re: Nos cadeaux de Noël   Ven 18 Déc 2009 - 0:41

Mais moi je suis partie le 24 ou le 25 alors je l'ai donné tout de suite.
Revenir en haut Aller en bas
jjn4

avatar

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

MessageSujet: Joyeux Noël   Jeu 24 Déc 2009 - 14:48

Je vous offre un petit cadeau de Noël tout simple,
mais que vous pourrez placer à côté du sapin
(si vous avez un portable ou une table à roulette)
pendant toute la durée du réveillon. Ouaih !
Joyeuses fêtes !!!!!!!!!!!!!!!!!!!!
Code:
rem ' Joyeux-Noël
dim a$ , i , j , k , y
a$="JE VOUS SOUHAITE A TOUS UN JOYEUX NOËL" : y=20
label quit , light , rep
caption 0,"Cliquez dans la fenêtre noire pour arrêter"
width 0,screen_x-20 : color 0,0,0,0 : on_click 0,quit
for i=1 to len(a$)
 if mid$(a$,i,1)=" "
  y=y+int(screen_x/len(a$))
 else
  j=j+1 : y=y+int((screen_x-120)/len(a$))
  alpha j : top j,80 : left j,y
  caption j,mid$(a$,i,1)
  font_bold j : font_size j,22
 end_if
next i
rep:
for k=1 to 20000
 gosub light
next k
goto rep
end
light:
for i=1 to j
 font_color i,int(rnd(150))+101,int(rnd(150))+101,int(rnd(150))+101
next i
 if k/10=int(k/10)
  alpha 80 : left 80,int(rnd(screen_x-100)) : top 80,int(rnd(380)) : height 80,60
  color 80,int(rnd(150))+101,int(rnd(150))+101,int(rnd(150))+101
  alpha 81 : left 81,int(rnd(screen_x-100)) : top 81,int(rnd(380)) : height 81,40
  color 81,int(rnd(150))+101,int(rnd(150))+101,int(rnd(150))+101 : width 81,40
  alpha 82 : left 82,int(rnd(screen_x-100)) : top 82,int(rnd(380)) : height 82,20
  color 82,int(rnd(150))+101,int(rnd(150))+101,int(rnd(150))+101 : width 82,20
  wait 1
  delete 80 : delete 81 : delete 82
 end_if
return
quit:
terminate
santa
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Invité
Invité



MessageSujet: Re: Nos cadeaux de Noël   Jeu 24 Déc 2009 - 16:13

Super JJN4
Moi aussi je souhaite un joyeux Noël !
Revenir en haut Aller en bas
JL35



Nombre de messages : 6018
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Nos cadeaux de Noël   Jeu 24 Déc 2009 - 17:30

Ouah ! merci jj, ça scintille de toutes parts !

Joyeux Noël également à toi.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

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

MessageSujet: Et un 2°   Jeu 24 Déc 2009 - 21:09

Et comme ce n'était qu'une présentation,
je vous offre un cadeau plus conséquent :
un jeu qui occupera vos longues soirées d'hiver.
Ah, je vous préviens, comme c'est un jeu d'argent,
si vous gagnez, à la fin, votre ordinateur peut vous sortir
les billets de banque que vous avez gagnés par la fente du lecteur de disquettes,
ah oui, mais pour ça, il faut d'abord trouver le mot de passe...
Bon Noël !
Code:
rem ' Poker Pyrénéen

dim a$ , b$ , c$ , y$ , z$ , c , h , i , j , k , m , p(5) , q  , t, tt, z
dim s0$, s1$ , s2$ , s3$ , s4$ , s5$ , r(10) , s(4) , u$(8)
for i=1 to 5 : p(i)=40 : next i
a$=string$(34," ")+chr$(13)
a$=a$+"  "+chr$(218)+string$(30,chr$(194))+chr$(191)+"  "+chr$(13)
for i=1 to 33
 a$=a$+"  "+chr$(195)+string$(30,chr$(197))+chr$(180)+"  "+chr$(13)
next i
a$=a$+"  "+chr$(192)+string$(30,chr$(193))+chr$(217)+"  "+chr$(13)
a$=a$+string$(34," ") : z=100000
for i=1 to 5
 c$=c$+"                    "+chr$(13)
next i
z$="Le POKER PYRÉNÉEN se joue sans figures"+chr$(13)
z$=z$+"Il se joue également en aveugle,"+chr$(13)
z$=z$+"c'est à dire qu'on ne sait pas"+chr$(13)
z$=z$+"combien on a d'adversaires"+chr$(13)
z$=z$+"ni ce qu'ils jouent"+chr$(13)
z$=z$+"BONNE CHANCE !"
y$="LES HUIT COMBINAISONS POSSIBLES PAR ORDRE CROISSANT :"+chr$(13)
y$=y$+"- UNE PAIRE : (par ex) deux 7 de couleur différente"+chr$(13)
y$=y$+"- DEUX PAIRES : (par ex) deux 4 et deux 9 quelle que soit la couleur"+chr$(13)
y$=y$+"- QUINTE : (par ex) 4, 5, 6, 7 et 8 de couleur quelconque"+chr$(13)
y$=y$+"- BRELAN : (par ex) trois As de couleur différente"+chr$(13)
y$=y$+"- FULL : Brelan + 1 Paire (par ex) 2, 2, 2, 6 et 6"+chr$(13)
y$=y$+"- COULEUR : (par ex) 5 coeurs de n'importe quelle valeur"+chr$(13)
y$=y$+"- CARRÉ : 4 cartes même hauteur (par ex) 3, 3, 3 et 3"+chr$(13)
y$=y$+"- QUINTE FLUSH : 5 cartes qui se suivent dans la même couleur"+chr$(13)
y$=y$+"L'ORDRE DE VALEUR DES CARTES EST CELUI-CI :"+chr$(13)
y$=y$+"  Le 1 (As) est la valeur la plus faible"+chr$(13)
y$=y$+"  Le 10 est la valeur la plus forte" : u$(0)=" RIEN "
u$(1)=" PAIRE " : u$(2)=" 2 PAIRES " : u$(3)=" QUINTE " : u$(4)=" BRELAN "
u$(5)=" FULL " : u$(6)=" COULEUR " : u$(7)=" CARRÉ " : u$(8)=" QUINTE FLUSH "
label calc
label face , pile , choi , voir , mise , cont , fini , joue , quit , pass , aide

width 0,1000 : height 0,700 : color 0,0,160,0 : caption 0,"Poker"

alpha 1
left 1,20 : top 1,606
font_bold 1 : font_size 1,24 : font_color 1,255,0,0 : color 1,255,255,0
caption 1," P O K E R  P Y R É N É E N "

alpha 2
left 2,270 : top 2,20 : width 2,215 : height 2,295
font_name 2,"Terminal" : font_color 2,255,0,0 : color 2,255,255,255
caption 2,a$
on_click 2,pile

alpha 3
left 3,270 : top 3,20 : width 3,215 : height 3,295
font_name 3,"Symbol" : font_size 3,30 : color 3,255,255,255
caption 3,b$
hide 3

alpha 4
left 4,510 : top 4,20 : width 4,215 : height 4,295
font_name 4,"Terminal" : font_color 4,255,0,0 : color 4,255,255,255
caption 4,a$
on_click 4,pile

alpha 5
left 5,510 : top 5,20 : width 5,215 : height 5,295
font_name 5,"Symbol" : font_size 5,30 : color 5,255,255,255
caption 5,b$
hide 5

alpha 6
left 6,750 : top 6,20 : width 6,215 : height 6,295
font_name 6,"Terminal" : font_color 6,255,0,0 : color 6,255,255,255
caption 6,a$
on_click 6,pile

alpha 7
left 7,750 : top 7,20 : width 7,215 : height 7,295
font_name 7,"Symbol" : font_size 7,30 : color 7,255,255,255
caption 7,b$
hide 7

alpha 8
left 8,510 : top 8,340 : width 8,215 : height 8,295
font_name 8,"Terminal" : font_color 8,255,0,0 : color 8,255,255,255
caption 8,a$
on_click 8,pile
hide 8

alpha 9
left 9,510 : top 9,340 : width 9,215 : height 9,295
font_name 9,"Symbol" : font_size 9,30 : color 9,255,255,255
caption 9,b$
hide 9

alpha 10
left 10,750 : top 10,340 : width 10,215 : height 10,295
font_name 10,"Terminal" : font_color 10,255,0,0 : color 10,255,255,255
caption 10,a$
on_click 10,pile
hide 10

alpha 11
left 11,750 : top 11,340 : width 11,215 : height 11,295
font_name 11,"Symbol" : font_size 11,30 : color 11,255,255,255
caption 11,b$
hide 11

alpha 12
left 12,90 : top 12,15
font_bold 12 : font_size 12,10 : font_color 12,255,255,0
caption 12,"Cliquez sur les cartes"+chr$(13)+"      pour les retourner"

button 13
left 13,55 : top 13,70 : width 13,180
caption 13,"A la fin, appuyer ici pour continuer"
on_click 13,voir
hide 13

alpha 14
left 14,20 : top 14,350 : font_color 14,255,255,0
font_bold 14 : font_size 14,20
caption 14,"Vous avez : "+str$(z)+" €"
 
alpha 15
left 15,20 : top 15,390 : font_color 15,255,255,0
font_bold 15 : font_size 15,20

list 16
left 16,330 : top 16,395 : width 16,75 : height 16,175
font_size 16,16 : item_add 16,1000 : item_add 16,2000 : item_add 16,5000
item_add 16,10000 : item_add 16,20000 : item_add 16,50000 : item_add 16,z
on_click 16,mise
hide 16

alpha 17
left 17,20 : top 17,430 : font_color 17,255,255,0
font_bold 17 : font_size 17,20

button 18
left 18,50 : top 18,480 : width 18,100
caption 18,"Continuer le jeu"
on_click 18,cont
hide 18

button 19
left 19,50 : top 19,500
caption 19,"Continuer"
on_click 19,fini
hide 19

alpha 20
left 20,80 : top 20,500
font_bold 20 : font_size 20,30 : font_color 20,255,255,0

button 21
left 21,80 : top 21,160 : width 21,100 : height 21,30
font_bold 21 : font_size 21,12
caption 21,"Rejouer"
on_click 21,joue
hide 21

button 22
left 22,80 : top 22,220 : width 22,100 : height 22,30
font_bold 22 : font_size 22,12
caption 22,"Quitter"
on_click 22,quit

button 23
left 23,150 : top 23,500 : width 23,100
caption 23,"Vous passez"
on_click 23,pass
hide 23

button 24
left 24,10 : top 24,10 : width 24,40
caption 24,"Aide"
on_click 24,aide

alpha 25
left 25,50 : top 25,290
font_bold 25 : font_size 25,14
color 25,255,255,255 : font_color 25,255,0,0
caption 25," COMBINAISONS "

end

pile:
k=0 : q=q+1
for i=2 to 10 step 2
 if clicked(i)=1 then k=i
next i
gosub choi
caption k+1,b$
hide k
show k+1
if q=3
 caption 15,"Combien misez-vous ?" : show 15 : show 16
 hide 12
end_if
if p(4)<>40 and p(5)<>40
 gosub calc
 caption 12,"Pariez à nouveau"
 show 15 : show 16 : show 23
end_if
return

face:
k=0
for i=3 to 11 step 2
 if clicked(i)=1 then k=i
next i
hide k
show k-1
return

voir:
caption 12,"Cliquez sur les cartes"+chr$(13)+"      pour les retourner"
hide 13 : show 8 : show 10
for i=2 to 6 step 2
 on_click i,pile
 off_click i+1
next i
return

mise:
if m+val(item_index$(16))<=z
 m=m+val(item_index$(16))
 show 17 : caption 17,"Votre mise : "+str$(m)+" €" : hide 23
 if p(4)=40
  show 18
 else
  show 19
 end_if
end_if
return

cont:
caption 12,"Retournez celles que"+chr$(13)+"vous voulez changer"
show 12 : show 13
for i=3 to 7 step 2
 on_click i,face
 off_click i-1
next i
hide 15 : hide 16 : hide 18
return

choi:
h=int(rnd(10)) : c=int(rnd(4)) : j=c*10+h : b$=""
if j=p(1) or j=p(2) or j=p(3) or j=p(4) or j=p(5) then goto choi
p(k/2)=j
if c=1 or c=2
 font_color k+1,255,0,0
else
 font_color k+1,0,0,0
end_if
s0$=chr$(13)
s1$="        "+chr$(167+c)+"        "+chr$(13)
s2$="    "+chr$(167+c)+"      "+chr$(167+c)+"    "+chr$(13)
s3$="    "+chr$(167+c)+"  "+chr$(167+c)+"  "+chr$(167+c)+"    "+chr$(13)
s4$="  "+str$(h+1)+"          "+str$(h+1)+"  "
s5$="  "+str$(h+1)+"      "+str$(h+1)+"  "
select h
 case 0 : b$=s4$+chr$(13)+s0$+s1$+s0$+s0$+s4$
 case 1 : b$=s4$+chr$(13)+s0$+s1$+s1$+s0$+s4$
 case 2 : b$=s4$+chr$(13)+s2$+s0$+s1$+s0$+s4$
 case 3 : b$=s4$+chr$(13)+s2$+s0$+s0$+s2$+s4$
 case 4 : b$=s4$+chr$(13)+s2$+s1$+s0$+s2$+s4$
 case 5 : b$=s4$+chr$(13)+s2$+s1$+s1$+s2$+s4$
 case 6 : b$=s4$+chr$(13)+s2$+s1$+s2$+s2$+s4$
 case 7 : b$=s4$+chr$(13)+s2$+s2$+s2$+s2$+s4$
 case 8 : b$=s4$+chr$(13)+s2$+s3$+s2$+s2$+s4$
 case 9 : b$=s5$+chr$(13)+s2$+s3$+s3$+s2$+s5$
end_select
return

fini:
hide 15 : hide 16 : hide 19 : hide 23 : show 20
k=int(rnd(10-tt)/2)
if k=0
 caption 12,"Personne n'a fait"+chr$(13)+"mieux que vous"
 caption 20,"VOUS  GAGNEZ"
 midi_on : midi_play 60,8 : midi_play 72,8 : wait 200 : midi_off
 z=z+m
else
 caption 12,"Quelqu'un a un meilleur"+chr$(13)+"jeu que le vôtre"
 caption 20,"VOUS  PERDEZ" : beep
 z=z-m
end_if
show 21
return

pass:
z=z-m

joue:
for i=2 to 6 step 2
 on_click i,pile
 hide i+1 : show i
next i
for i=8 to 11
 hide i : hide 7+i
next i
hide 19 : hide 20 : hide 21 : hide 23
caption 12,"Cliquez sur les cartes"+chr$(13)+"      pour les retourner"
q=0 : m=0 : for i=1 to 5 : p(i)=40 : next i
if z>0
 caption 14,"Vous avez : "+str$(z)+" €"
else
 caption 14,"Vous êtes ruiné"
end_if
caption 25," COMBINAISONS "
return

calc:
for j=1 to 10 : r(j)=0 : next j : tt=0
for i=1 to 5
 for j=1 to 10
  if (p(i)-int(p(i)/10)*10)=j-1 then r(j)=r(j)+1
 next j
next i : t=0
for j=1 to 10
 if (r(j)=2 and t=3) or (r(j)=3 and t=2) then t=6
 if r(j)=2 and t=2 then t=5
 if r(j)>t then t=r(j)
next j
select t
 case 1 : t=0
 case 2 : t=1
 case 4 : t=7
 case 3 : t=4
 case 5 : t=2
 case 6 : t=5
end_select
tt=t
for j=1 to 4 : s(j)=0 : next j : t=0
for i=1 to 5
 for j=1 to 4
  if int(p(i)/10)=j-1 then s(j)=s(j)+1
 next j
next i
for j=1 to 4
 if s(j)>t then t=s(j)
next j
if t=5
 t=6
else
 t=0
end_if
if t>tt then tt=t
t=0
for j=2 to 10
 if r(j)=1 and r(j-1)=1 then t=t+1
next j
if t=3 then t=2
if t=4 and tt=6 then t=8
if t=4 then t=3
if t<>3 and t<>8 then t=0
if t>tt then tt=t
caption 25,u$(tt)
return

aide:
message z$ : message y$
return

quit:
terminate
santa
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Invité
Invité



MessageSujet: Re: Nos cadeaux de Noël   Sam 26 Déc 2009 - 21:06

Super jeu !
Je le trouve drôle ce jeu !

J'ai gagné 80000 ¢ ou euros/francs
Aucune Idée
Revenir en haut Aller en bas
Invité
Invité



MessageSujet: Re: Nos cadeaux de Noël   Sam 26 Déc 2009 - 21:08

Y a pas eu beaucoup de cadeaux et ont est le 26 décembre !

santa
Revenir en haut Aller en bas
JL35



Nombre de messages : 6018
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Nos cadeaux de Noël   Dim 27 Déc 2009 - 12:55

Tout le monde (à part toi, mais moi en particulier) s'est ruiné avec le jeu à jj, alors il ne reste plus rien pour les cadeaux.
Par contre lui a dû passer un bon Noël !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

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

MessageSujet: Ah oui   Dim 27 Déc 2009 - 14:23

Ah oui, c'est vrai !
J'avais complètement oublié de vous préciser
que je touchais une forte commission
sur tout ce que vous perdez...
Ah, désolé, ce détail m'était sorti de l'esprit !
lol!
Toute plaisanterie mise à part,
le Noël a été très agréable.
J'espère qu'il en a été de même pour tous !!!
santa
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
jjn4

avatar

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

MessageSujet: Euros, c'est des Euros   Dim 27 Déc 2009 - 18:27

@ Nicolas :
Ce sont les Euros, qu'on a en France,
€ : ça veut dire Euro (Alt+E)
Les Francs ont disparus depuis une dizaine d'années.
Au fait, c'est quoi, la monnaie qu'il y a au Canada ?
Des dollars canadiens ?
rendeer
PS : il fait quel temps au Canada ?
C'est plein de neige ?
Ici, dans les pyrénées,
il fait un temps magnifique !
(Noël au balcon)
santa
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Invité
Invité



MessageSujet: Re: Nos cadeaux de Noël   Lun 28 Déc 2009 - 14:31

Merci JJN4 et aussi pour la touche de raccourci.

Ta question ben

Ici il fait -17 (soleil,nuageux)
Il y a de la neige
Un peu moins qu'un mètre

Mais j'ai hâte à l'été
Revenir en haut Aller en bas
Invité
Invité



MessageSujet: Re: Nos cadeaux de Noël   Lun 28 Déc 2009 - 17:40

c'est pas le bon sujet, je reporte.
POURQUOI, il n'est plus possible d'effacer un sujet lorsque l'on se trompe?
Revenir en haut Aller en bas
Jean Claude

avatar

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

MessageSujet: Re: Nos cadeaux de Noël   Lun 28 Déc 2009 - 19:58

COUCOU, ME REVOILOU.

Je vois que pendant que je me goinfrais de poulardes farcies et autre bonheur du même genre, le tout arrosé de petites quantités des meilleurs vins, vous n'avez pas chomés les uns et les autres (ainsi que Jack).

Entre l'horloge à un euro de OW35 et le Poker de JJ, on ne s'ennuie pas.
Une mention spéciale à Cosmos70 pour son gros travail.

Very Happy

Moi je suis honteux, je n'ai pas travailler comme vous. Embarassed
il faut que fasse un effort.

A bientôt.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Nos cadeaux de Noël   Lun 28 Déc 2009 - 23:13

Bon retour parmi nous
Tu dois certainement avoir des pantalons surdimensionnés pour les retours chez toi.
Pour les cadeaux, franchement vu le succès, qu'ils ont eus, les 2 derniers, considère que ses toi qui les offrent, cela aura un meilleur effet.
Plusieurs fois j'ai eu envie de les retirer, mais il faut savoir aussi montrer ses lacunes.
Salutation
Revenir en haut Aller en bas
JL35



Nombre de messages : 6018
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Nos cadeaux de Noël   Mar 29 Déc 2009 - 0:47

Bon retour Jean Claude, content de te retrouver, en 'pleine' forme apparemment Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

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

MessageSujet: Re: Nos cadeaux de Noël   Mar 29 Déc 2009 - 20:52

Voici mon cadeau de nouvel an,

Vous pouvez y ajouter au LABEL bonne_annee tous ce que vous souhaitez voir apparaitre sur votre PC à minuit le 21/12/2009 ou à 0:00 heure le 01/01/2010. (par exemple avec un EXECUTE)

Code:


' Bonne Année 2010

dim jour$,heure$,minute$,seconde$,a$,rs$
dim jour,heure,minute,seconde,a,y,l
dim rs,rsm,rsh,rsj,rmh,rhj,rja,r,g,b
label fin,bonne_annee

button 1:top 1,143:left 1,255:width 1,35:height 1,20:caption 1,"FIN"
top 0,10:left 0,10:width 0,300:height 0,200:color 0,255,255,0
font_color 0,0,0,255:font_name 0,"fixedsys"

jour$=mid$(date$,1,2):jour=val(jour$):heure$=mid$(time$,1,2):heure=val(heure$)
minute$=mid$(time$,4,2):minute=val(minute$):seconde$=mid$(time$,7,2)
seconde=val(seconde$):rsm=60-seconde:rmh=60-minute:rsh=(rmh*60)+rsm
if heure$="00" then rhj=23
if heure$="01" then rhj=22
if heure$="02" then rhj=21
if heure$="03" then rhj=20
if heure$="04" then rhj=19
if heure$="05" then rhj=18
if heure$="06" then rhj=17
if heure$="07" then rhj=16
if heure$="08" then rhj=15
if heure$="09" then rhj=14
if heure$="10" then rhj=13
if heure$="11" then rhj=12
if heure$="12" then rhj=11
if heure$="13" then rhj=10
if heure$="14" then rhj=9
if heure$="15" then rhj=8
if heure$="16" then rhj=7
if heure$="17" then rhj=6
if heure$="18" then rhj=5
if heure$="19" then rhj=4
if heure$="20" then rhj=3
if heure$="21" then rhj=2
if heure$="22" then rhj=1
if heure$="23" then rhj=0
rsj=(3600*rhj)+rsh:rja=31-jour:rs=((3600*24)*rja)+rsj:rs=rs-60
a$="Bientôt 2010"
while a=0
caption 0,date$+"  "+time$
if clicked(1)=1 then goto fin
rs=rs-1
rs$=str$(rs):l=len(rs$):l=l*11:y=(170+l)/2
if rs=0 then goto bonne_annee
print_locate 80,20:print a$
print_locate y,70:print rs
wait 1000
end_while

bonne_annee:
wait 1000
hide 0:show 0:hide 1
print_locate 50,50:print "BONNE ANNEE 2010 à TOUS"
wait 10000

fin:
terminate

Pourvu que je ne me sois pas planté dans les calculs. Embarassed

Pour les plus doués, vous pouvez vous en servir pour déclencher un feu d'artifice. bom . Moi, je m'en servirait pour faire péter le Champagne à la seconde S. jocolor santa king

A bientôt.

Je viens de corriger (il y avait 60 secondes d'écart)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Invité
Invité



MessageSujet: Re: Nos cadeaux de Noël   Mar 29 Déc 2009 - 23:40

À super Jean Claude !

Je crois que je vais mettre un bruit de réveil-matin et le faire sonné en 2010.
Ah ! Mais non je ne poura pas l'attendre je vais partir Mercredi après-midi.

Désolé !
Sad Sad Sad
Revenir en haut Aller en bas
Contenu sponsorisé




MessageSujet: Re: Nos cadeaux de Noël   

Revenir en haut Aller en bas
 
Nos cadeaux de Noël
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 2Aller à la page : 1, 2  Suivant
 Sujets similaires
-
» Cadeaux pour les Journalistes
» Cadeaux assortis !!
» Winners - Gagnez vos cadeaux
» Idees cadeaux...pour moi!
» Cadeaux pour les Muffins

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos projets-
Sauter vers: