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
» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par Pedro Alvarez Aujourd'hui à 7:10

» Pb 17 (en analyse): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» Compilateur FBPano
par Mike Jeu 17 Aoû 2017 - 13:52

» 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 (en analyse): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

» Pb 15 (en analyse): 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

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

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 | 
 

 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 : 5508
Age : 67
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 : 7968
Age : 46
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 : 2353
Age : 50
Localisation : Vienne (86)
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 : 5849
Age : 45
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 : 443
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 : 5508
Age : 67
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 : 5849
Age : 45
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 : 5508
Age : 67
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 : 5849
Age : 45
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 : 5920
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 : 443
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 : 5508
Age : 67
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 : 5508
Age : 67
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: