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
» quel est ce comportement de Panoramic_editor
par JL35 Aujourd'hui à 16:38

» bug BORDER_HIDE : bloque la commande full_space
par silverman Aujourd'hui à 1:19

» Découpe dans une image
par JL35 Hier à 22:00

» FNC IsDateValide(d$) pour vérifier la validité d'une date
par papydall Hier à 18:57

» Pour faire plaisir à jjn4.
par Pedro Alvarez Hier à 8:13

» Pour faire plaisir à Marc37.
par Marc Jeu 22 Fév 2018 - 21:46

» Couleur d'une variable qui n'est pas un mot-clé
par bignono Jeu 22 Fév 2018 - 14:03

» Un catalogue de photos de fleurs, avec KBDD, affichage HTML
par Klaus Mer 21 Fév 2018 - 22:44

» KGF_dll - nouvelles versions
par Klaus Mer 21 Fév 2018 - 22:30

» Mah-Jong anglais
par jjn4 Mer 21 Fév 2018 - 14:22

» Partie fractionnaire d'un flottant
par silverman Mer 21 Fév 2018 - 14:19

» bug CREATE_HIDE : corruption de form
par silverman Mer 21 Fév 2018 - 13:32

» Racine carrée d’un nombre par l’algorithme de Héron
par Ouf_ca_passe Mer 21 Fév 2018 - 9:52

» Méthode manuelle d'extraction de la racine carrée
par pascal10000 Mer 21 Fév 2018 - 7:47

» [annulé]ON_MOVE n,l ne fonctionne que sur le form 0
par silverman Mar 20 Fév 2018 - 16:52

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Février 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
262728    
CalendrierCalendrier

Partagez | 
 

 Saint Valentin

Aller en bas 
AuteurMessage
jjn4

avatar

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

MessageSujet: Saint Valentin   Sam 13 Fév 2016 - 17:16

Pour encourager tous les amoureux de la Saint Valentin
(dont papydall, qui maintenant doit être parti avec sa femme pour la planète Mars)
je publie un petit programme (rigoureusement inutile, mais) poétiquement stimulant.
Code:
rem ' Valentinoramic - La fête de la Saint-Valentin
  dim i% , j% , x%(12) , y%(12)
 
rem initialisation
  for i%=1 to 12
      x%(i%)=int(rnd(580))-10
      y%(i%)=int(rnd(625))-100
  next i%
 
rem form0
  left 0,400
  top 0,50
  width 0,660
  height 0,685
  caption 0,"Pour arrêter, pressez la touche ENTER"
 
picture 50
  left 50,10
  top 50,10
  width 50,625
  height 50,625
  font_name 50,"Webdings"
  font_size 50,65
  print_target_is 50
  print_locate 275,226
  print chr$(90)
  2d_target_is 50
  2d_fill_color 0,0,0
  2d_pen_color 0,0,0
  2d_pen_width 20
  homme()
  femme()
  file_save 50,"St-Val.bmp"
  2d_clear
  width 50,65
  height 50,100
  2d_fill_off
  color 50,0,0,0
  font_color 50,255,0,0
  font_name 50,"Symbol"
  print_locate 0,0
  print chr$(169)
  file_save 50,"Coeur.bmp"
  hide 50

scene2d 80
  left 80,10
  top 80,10
  width 80,625
  height 80,625
  sprite_target_is 80
  file_load 80,"St-Val.bmp"

rem Définition des sprites
  for i%=1 to 12 : rem de 100 à 210 à pas de 10
      sprite i%*10+90
        sprite_file_load i%*10+90,"Coeur.bmp"
        sprite_position i%*10+90,i%*40,-100
  next i%
  chute()
  beep
  caption 0,"Bonnes fêtes de la Saint Valentin !"
  file_delete "St-Val.bmp"
  file_delete "Coeur.bmp"
 
end

sub chute()
  for i%=1 to 10000
      for j%=1 to 12
        y%(j%)=y%(j%)+1
        if y%(j%)>625
            y%(j%)=-100
            x%(j%)=int(rnd(580))-10
        end_if
        sprite_position j%*10+90,x%(j%),y%(j%)
        echap()
      next j%
  next i%
end_sub

sub echap()
  if scancode=13
      i%=10000
  end_if
end_sub

sub femme()
  2d_circle 495,89,50
  2d_circle 493,220,55
  2d_poly_from 457,197
  2d_poly_to 420,251
  2d_poly_to 385,279
  2d_poly_to 362,294
  2d_poly_from 457,177
  2d_poly_to 420,231
  2d_poly_to 385,259
  2d_poly_to 362,276
  2d_circle 362,287,9
  2d_poly_from 545,205
  2d_poly_to 584,254
  2d_poly_to 602,297
  2d_poly_from 552,230
  2d_poly_to 584,280
  2d_poly_to 602,320
  2d_circle 600,308,4
  2d_poly_from 450,325
  2d_poly_to 431,439
  2d_poly_from 538,330
  2d_poly_to 560,439
  2d_poly_from 466,400
  2d_poly_to 466,572
  2d_poly_from 484,400
  2d_poly_to 484,572
  2d_circle 475,572,9
  2d_poly_from 525,400
  2d_poly_to 525,572
  2d_poly_from 509,400
  2d_poly_to 509,572
  2d_circle 517,572,9
  2d_line 431,439,560,439
  2d_line 440,227,447,350
  2d_line 550,220,540,350
  2d_flood 490,360,0,0,0
end_sub

sub homme()
  2d_circle 203,179,45
  2d_circle 175,290,43
  2d_circle 157,397,43
  2d_line 130,290,114,397
  2d_line 216,304,200,397
  2d_poly_from 213,301
  2d_poly_to 257,314
  2d_poly_to 288,312
  2d_poly_to 310,308
  2d_poly_from 213,281
  2d_poly_to 257,294
  2d_poly_to 288,292
  2d_poly_to 310,292
  2d_circle 310,298,9
  2d_poly_from 144,427
  2d_poly_to 133,531
  2d_poly_to 78,553
  2d_poly_to 27,567
  2d_poly_from 124,427
  2d_poly_to 115,520
  2d_poly_to 78,533
  2d_poly_to 27,550
  2d_circle 27,560,8
  2d_poly_from 144,427
  2d_poly_to 242,456
  2d_poly_to 252,483
  2d_poly_to 262,565
  2d_poly_from 144,407
  2d_poly_to 257,444
  2d_poly_to 270,483
  2d_poly_to 279,565
  2d_circle 271,565,8
  2d_flood 195,355,0,0,0
end_sub
king I love you queen alien queen I love you king
Laughing Laughing Laughing Laughing Laughing Laughing Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Marc



Nombre de messages : 632
Age : 57
Localisation : TOURS
Date d'inscription : 17/03/2014

MessageSujet: Re: Saint Valentin   Sam 13 Fév 2016 - 17:23

"Amoureusement" bien réussi !
Bravo et merci pour ce partage !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Saint Valentin   Sam 13 Fév 2016 - 18:39

I love you « Valentinement » appréciable !I love you

J’ai apporté une légère modification :
Lignes 24/25
Code:

  print_target_is 50 : font_color 50,0,255,0 : ' Couleur du Martien !    
  print_locate 275+20,226-10 : ' pour mieux LOCATEr

alien
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
jjn4

avatar

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

MessageSujet: +++   Sam 13 Fév 2016 - 19:17

Mais enfin, sur Mars,
beaucoup de choses sont vertes,
mais pas les végétaux !
Laughing alien Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Yannick

avatar

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

MessageSujet: re   Sam 13 Fév 2016 - 19:58

Très joli.
I love you
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Saint Valentin   

Revenir en haut Aller en bas
 
Saint Valentin
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Theme Saint Valentin
» cachet-postal, st valentin
» Cindy
» Heart And Hooves Day! [Ouvert a tous! Rp spécial Saint Valentin]
» Saint-Valentin

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