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
» Une autre façon de terminer une application.
par Francis-mr Aujourd'hui à 12:07

» Compilateur FBPano
par jean_debord Aujourd'hui à 10:09

» Copier / coller du texte à partir de la fenêtre de commandes
par jean_debord Aujourd'hui à 9:46

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par papydall Aujourd'hui à 5:01

» Mettre en windows en veille
par papydall Aujourd'hui à 4:15

» Stretch_on ne stretch plus...
par papydall Hier à 15:22

» Pb 18 (en analyse): RESTORE_LABEL avec DATA à la fin
par Jack Hier à 13:21

» Problème de traitement des opérateurs avec le compilateur.
par Pedro Alvarez Sam 19 Aoû 2017 - 20:01

» Pb 17 (résolu): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

» Pb 16 (résolu): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

» Pb 15 (résolu): TIMER_ON plante à l'exécution
par Jack Mer 16 Aoû 2017 - 19:58

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Saint Valentin

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

avatar

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

MessageSujet: Saint Valentin   Sam 13 Fév 2016 - 19: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
Marc37



Nombre de messages : 443
Age : 56
Localisation : TOURS
Date d'inscription : 18/03/2014

MessageSujet: Re: Saint Valentin   Sam 13 Fév 2016 - 19: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 : 5518
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 - 20: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 : 1594
Date d'inscription : 13/09/2009

MessageSujet: +++   Sam 13 Fév 2016 - 21: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 : 7975
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 13 Fév 2016 - 21: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
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Décorations pour la saint valentin
» Décoration Saint valentin.
» Saint-Valentin : une pluie de cœurs sur vos forums.
» Theme Saint Valentin
» cachet-postal, st valentin

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 :: Les inutilitaires-
Sauter vers: