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 Jicehel Hier à 23:19

» Ras la casquette...
par Yannick Hier à 18:48

» Problème avec 'instr_last'.
par Yannick Hier à 18:42

» Jeu de l'oie stratégique
par jjn4 Jeu 23 Mar 2017 - 20:46

» Suite aux dernières commandes
par Yannick Jeu 23 Mar 2017 - 16:00

» Aide (imprimable) sur PANORAMIC avec exemples
par papydall Jeu 23 Mar 2017 - 14:28

» Jeu de l'OIE électronique
par jjn4 Mer 22 Mar 2017 - 18:26

» Jeu de l'oie interplanétaire
par jean_debord Mar 21 Mar 2017 - 11:11

» Problème de création d'exécutable.
par Yannick Mar 21 Mar 2017 - 5:21

» Un bug avec USER_EVENT ?
par Klaus Lun 20 Mar 2017 - 17:41

» Bienvenue Cherrie merrie !
par Yannick Lun 20 Mar 2017 - 3:55

» Bienvenue à v.rousseau
par Yannick Dim 19 Mar 2017 - 16:26

» Panoramicien, es-tu là ?
par papydall Dim 19 Mar 2017 - 3:48

» Charger des icones sans fichiers...
par Laurent (Minibug) Sam 18 Mar 2017 - 21:52

» Compilateur FBPano
par papydall Jeu 16 Mar 2017 - 14:50

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mars 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728293031  
CalendrierCalendrier

Partagez | 
 

 Hé ! Y- a-t-il quelqu’un ?

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

avatar

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

MessageSujet: Hé ! Y- a-t-il quelqu’un ?   Ven 23 Oct 2015 - 4:54

Hé ! Y- a-t-il  quelqu’un  Question  
On boude le forum ou quoi  Question

Bon, alors voici ce code qui ne sert à rien, sauf peut-être à faire réagir quelqu'un  Exclamation


Code:

rem ============================================================================
dim n
full_space 0 : color 0,0,0,0
for n = 0 to 14 : spirale(100*n,height(0)*.8) : next n
end
rem ============================================================================
SUB Spirale(x0,y0)
    dim_local pi,twopi,p,a,i,x,y
    pi = acos(-1) : twopi = 2*pi : p = pi/180
    2d_pen_width 5 : 2d_pen_color 150+5*n,15*n,255-15*n
    for i = 1 to 6
        2d_line x0 + 15*twopi+i*2, y0 + 100 ,x0+15*twopi+i*2,y0-i*100
        2d_pen_width 2
        for a = twopi to 0 step 0-p
            x = 15*a * cos(a)+i*2 : y =  10*a * sin(a)
            2d_poly_to x0+x,y+y0-i*100
        next a
    next i

    2d_pen_width 5 : 2d_pen_color 255-15*n,150+5*n,15*n
    for i = 6 to 1 step -1
        2d_line x0 + 15*twopi +2*(10-i), y0 + 100 ,x0+15*twopi+2*(10-i),y0-i*100
        2d_poly_from x0+200,y0-i*100
        2d_pen_width 2
        for a = 0 to twopi  step p
            x = 200-15*a * cos(a) : y =  10*a * sin(a)
            2d_poly_to x0+x,y+y0-i*100
        next a
    next i

END_SUB
rem ============================================================================



Après une absence d'une année et quelques poussières Martiennes, JJN4 s’est connecté hier à 15 : 09  peut-être de sa planète Mars.
Donc il est en vie et ça c’est une bonne nouvelle.
JJN4, tu parleras (plutôt tu posteras) quand tu te sens prêt car c’est toujours un plaisir de te lire.  Laughing

Mais ne tarde pas trop!      
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 7304
Age : 45
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Ven 23 Oct 2015 - 10:36

Joli !...

Pour le forum, ne t' en fais pas, c' est juste le calme avant la tempête... Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Laurent (Minibug)

avatar

Nombre de messages : 2059
Localisation : Vienne (86) - FRANCE
Date d'inscription : 10/02/2012

MessageSujet: Re: Hé ! Y- a-t-il quelqu’un ?   Ven 23 Oct 2015 - 11:23

Bonjour les gars !

Effectivement c'est très calme.
Etant en arrêt pour la semaine, je pensais avancer sur GPP, et au bout du compte... rien.
Je suis trop fatigué pour quoi que ce soit ! J'attends des résultats, on verra après.

En attendant, c'est la fin de semaine et je vous souhaite un très bon weekend a tous ! cheers cheers

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

avatar

Nombre de messages : 5793
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Hé ! Y- a-t-il quelqu’un ?   Ven 23 Oct 2015 - 11:27

Oui bon week end à tous pour ce soir. Comme pour le moment je n'ai pas trop d'idée ni d'envie de programmer, je ferais un nouveau chapitre de cours dimanche (ou deux si j'ai le temps, on verra bien, mais je me mets un chapitre au moins à faire Wink )
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jpcr

avatar

Nombre de messages : 276
Age : 50
Localisation : Val de Marne (94)
Date d'inscription : 06/05/2011

MessageSujet: Re: Hé ! Y- a-t-il quelqu’un ?   Ven 23 Oct 2015 - 18:04

oui bon week end , moi aussi je suis lessivé par le boulot et les transports parisiens....

jp
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jeanpierre.creis.free.fr/Panoramic/Panoramic.html
Marc37



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

MessageSujet: Re: Hé ! Y- a-t-il quelqu’un ?   Ven 23 Oct 2015 - 23:01

Bonjour à tous !

Papydall : Très joli ! Je vais t'embaucher pour faire mes grilles en fer forgé !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Hé ! Y- a-t-il quelqu’un ?   Ven 23 Oct 2015 - 23:55

Marc37 a écrit:
Papydall : Très joli ! Je vais t'embaucher pour faire mes grilles en fer forgé !

Oh ! Je suis trop vieux pour faire ça manuellement, mais  à coups de sin / cos peut-être.
En tout cas, merci pour la proposition.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5793
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Hé ! Y- a-t-il quelqu’un ?   Sam 24 Oct 2015 - 0:17

Je viens de tester. C'est réussi Papydall. La colorisation était très bien alors je mets juste une variation par principe ici, mais le programme n'en avait pas particulièrement besoin.

Code:
rem ============================================================================
dim n
full_space 0 : color 0,0,0,0
for n = 0 to 14 : spirale(100*n,height(0)*.8) : next n
end
rem ============================================================================
SUB Spirale(x0,y0)
    dim_local pi,twopi,p,a,i,x,y
    pi = acos(-1) : twopi = 2*pi : p = pi/180
    2d_pen_width 5 : 2d_pen_color 150+5*n,15*abs(n - 8),255-16*n
    for i = 1 to 6
        2d_line x0 + 15*twopi+i*2, y0 + 100 ,x0+15*twopi+i*2,y0-i*100
        2d_pen_width 2
        for a = twopi to 0 step 0-p
            x = 15*a * cos(a)+i*2 : y =  10*a * sin(a)
            2d_poly_to x0+x,y+y0-i*100
        next a
    next i

    2d_pen_width 5 : 2d_pen_color 255-15*n,15*abs(n - 8),255-16*n
    for i = 6 to 1 step -1
        2d_line x0 + 15*twopi +2*(10-i), y0 + 100 ,x0+15*twopi+2*(10-i),y0-i*100
        2d_poly_from x0+200,y0-i*100
        2d_pen_width 2
        for a = 0 to twopi  step p
            x = 200-15*a * cos(a) : y =  10*a * sin(a)
            2d_poly_to x0+x,y+y0-i*100
        next a
    next i

END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Hé ! Y- a-t-il quelqu’un ?   Sam 24 Oct 2015 - 1:42

Merci Jicehel.

Mais pourquoi le martien ne réagit-il point ?
Si ta longue absence t’ a fait oublier notre langage,  parle ‘ Martien’.  alien
Il y aura toujours quelqu’un qui saura traduire du Martien vers Panoramic.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5793
Age : 44
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Hé ! Y- a-t-il quelqu’un ?   Sam 24 Oct 2015 - 10:58

Le clavier martien a peut être du mal à se reconnecter à notre système terrestre ? Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Hé ! Y- a-t-il quelqu’un ?   Sam 24 Oct 2015 - 11:56

Ouah ! Ouah !
oh pardon, je me suis trompé, ça c'est du marchien (ou martien auvergnat)...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Marc37



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

MessageSujet: Re: Hé ! Y- a-t-il quelqu’un ?   Sam 24 Oct 2015 - 14:13

Je ne sais pas comment ça se passe sur Mars, mais pour nous, nous avons 1 heure de plus cette nuit pour programmer... sauf Papydall qui, je crois, est puni, et n'aura pas son heure supplémentaire.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Hé ! Y- a-t-il quelqu’un ?   Sam 24 Oct 2015 - 14:14

M'énerve pas Terrechtre !    Je ne peux pas devenir méchant (non plus messant ! Ha! ha! ha!) !


Edit:
Bonjour Marc37
Mon message est destiné à un Terrechre au doux nom de Chi L Trente Chinq.

Marc37 a écrit:
Je ne sais pas comment ça se passe sur Mars, mais pour nous, nous avons 1 heure de plus cette nuit pour programmer... sauf Papydall qui, je crois, est puni, et n'aura pas son heure supplémentaire.

Ben oui, vous êtes revenus terre à terre (teras tos teras)
Nous, nous y étions toujours. Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

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

MessageSujet: Re: Hé ! Y- a-t-il quelqu’un ?   Sam 24 Oct 2015 - 15:04

Voici comment les Martiens calculent PI

Code:

rem ============================================================================
rem       Calcul de PI
rem ============================================================================
dim pi,n
pi = 0
print "... Veuillez patienter .... Je calcule PI ..."
for n = 0 to 100000 : pi = pi + power(-1,n)*4/(2*n+1) : next n
print " pi = " + str$(pi)
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Hé ! Y- a-t-il quelqu’un ?   

Revenir en haut Aller en bas
 
Hé ! Y- a-t-il quelqu’un ?
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Hé ! Y- a-t-il quelqu’un ?

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 :: Présentation et bavardage-
Sauter vers: