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 pascal10000 Aujourd'hui à 16:47

» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 16:47

» track_bar circulaire
par Klaus Aujourd'hui à 13:54

» API Windows
par Klaus Aujourd'hui à 3:21

» Cartes de voeux, menus, etc.
par JL35 Hier à 17:48

» Mah-Jong européen new-look
par jjn4 Hier à 15:48

» a l'aide klaus
par Minibug Hier à 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Hier à 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 | 
 

 silence,on tourne

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

avatar

Nombre de messages : 391
Age : 65
Localisation : Hautes Alpes France
Date d'inscription : 09/01/2010

MessageSujet: silence,on tourne   Ven 2 Mar 2012 - 20:42

Salut
completement obnibule par le RECTANGLE,je me suis dit :
Je vais le faire tourner non par un coin, mais par son centre !
Je me suis inspire de ce qui s'est fait sur le forum
Code:
dim beta,gama,f,fx,fy ,R,dx,dy
dim a,ax,ay,b,bx,by
dim c,cx,cy,e,ex,ey
dim x0,y0 ,x
height 0,1000
width  0,1000
R=300
x0=500
y0=500
 ' Angle de depart
beta=0/57.29 :gama=40/57.29
 2d_circle x0,y0,r
  2d_circle x0,y0,5
'  demi petit cote gama ne depass pas  90
'  gama= 0/57
            for x=1 to 500
                beta=beta+1/57.29
  if key_down_code =27 then end
 

 
 ax=x0+sin(180/57.29+beta)*r
 ay=y0+cos(180/57.29+beta)*r
        2d_circle ax,ay,10
 
 bx=x0+(sin(beta+gama)*r )
 by=y0+(cos(beta+gama)*r)
        2d_circle bx,by,10
 
 cx=x0+sin(beta)*r
 cy=y0+cos(beta)*r

'
        2d_circle cx,cy,10
 
 ex= x0+sin(180/57.29+beta+gama)*r
 ey= y0+cos(180/57.29+beta+gama)*r
        2d_circle ex,ey,10
        2d_circle x0,y0,100
  2d_line  bx,by,ax,ay
  2d_line  ax,ay,ex,ey
  2d_line  ex,ey ,cx,cy
  2d_line  cx,cy,bx,by

 wait 100
 cls

            next x
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sergeauze.blog-video.tv/
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: silence,on tourne   Ven 2 Mar 2012 - 23:02

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

avatar

Nombre de messages : 391
Age : 65
Localisation : Hautes Alpes France
Date d'inscription : 09/01/2010

MessageSujet: resilence,on tourne    Lun 5 Mar 2012 - 19:32

J'ai retrouvé comment on passe de la ligne au cercle :
on rajoute des cotes!

Code:
rem escape pour sortir
dim x0,y0,r,Px,Py,Px2,Py2,j%,n%,Pi,a,v,w,z,k
width 0,1600
height 0,1000
2d_pen_width 2
2d_pen_color 116,11,240
 color 0,135,168,56
rem coordonnées du centre
x0=150
Y0=150
k=300
rem rayon
r=150


rem nombre de côtés
n%=2
for z=1 to 3

for w=1 to 5
for v=1 to 40

r=r-0.5
rem angle de début
a=90/57.29
Pi = 4* atn(1):' print pi

Px = r * Cos(a) + x0
Py = r * Sin(a) + y0

2D_poly_from Px,Py

For j% = 1 To n%
if key_down_code = 27 then terminate
display

Px2 = r*Cos(a + 2*Pi*j%/n%) + x0
Py2 = r*Sin(a + 2*Pi*j%/n%) + y0
2D_poly_to Px2, Py2
Px = Px2
Py = Py2
Next j%

next v
x0=x0+300
n%= n%+1
r=150
next w
y0=y0+k
x0=150
wait 1
next z
end


Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sergeauze.blog-video.tv/
exdragon

avatar

Nombre de messages : 601
Date d'inscription : 05/01/2012

MessageSujet: Re: silence,on tourne   Lun 5 Mar 2012 - 19:41

Tu t'amuse bien sergeauze, tu fais honneur à ton pseudo^^

"Serge ose"...

C'est bien ton programme là, je garde la formule pour un prochain programme !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
sergeauze

avatar

Nombre de messages : 391
Age : 65
Localisation : Hautes Alpes France
Date d'inscription : 09/01/2010

MessageSujet: re: silence,on tourne   Lun 5 Mar 2012 - 19:57

J'essaye
Je m'inspire de ce qui se fait sur le forum.
Je suis pas tres doue ,mais cà me plait et j'ose parfois donner signe
de vie.
On est toujours à l'ecoute de l'autre et pret à relever un defi,dans la mesure
de ses capacites.
j'aime bien cet etat d'esprit
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sergeauze.blog-video.tv/
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: silence,on tourne   Lun 5 Mar 2012 - 22:18

En tout cas, très joli Smile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
sergeauze

avatar

Nombre de messages : 391
Age : 65
Localisation : Hautes Alpes France
Date d'inscription : 09/01/2010

MessageSujet: Re: silence,on tourne   Mer 7 Mar 2012 - 1:51

bonsoir
Sur le meme principe mais dans le rectangle qui tourne
J'ai pas travaille la mise en forme ,ni les explications
C'est mon dernier ,je vous le promets
Code:
dim beta,gama,f,fx,fy ,R,dx,dy ,t,z
dim a,ax,ay,b,bx,by
dim c,cx,cy,e,ex,ey
dim x0,y0 ,x
height 0,1000
width  0,1000
R=450
x0=500
y0=500
2d_pen_width 11
2d_pen_color 255,0,0
 ' Angle de depart
beta=0/57 :gama=45/57
 2d_circle x0,y0,r
  2d_circle x0,y0,5
'  demi petit cote gama ne depass pas  90
'  gama= 0/57
            for x=1 to 360

           
           
                beta=beta+10/57
  if key_down_code =27 then end
 

 
 ax=x0+sin(180/57.29+beta)*r
 ay=y0+cos(180/57.29+beta)*r
      ' 2d_circle ax,ay,10
 
 bx=x0+(sin(beta+gama)*r )
 by=y0+(cos(beta+gama)*r)
      ' 2d_circle bx,by,10
 
 cx=x0+sin(beta)*r  : print fx
 cy=y0+cos(beta)*r  : print fy

'
        ' 2d_circle cx,cy,10
 
 ex= x0+sin(180/57.29+beta+gama)*r
 ey= y0+cos(180/57.29+beta+gama)*r
      ' 2d_circle ex,ey,10
      ' 2d_circle x0,y0,100


       
  2d_line  bx,by,ax,ay
  2d_line  ax,ay,ex,ey
  2d_line  ex,ey ,cx,cy
  2d_line  cx,cy,bx,by
  ' la diagonale
  2d_line ex,ey,bx,by
  2d_line ax,ay,cx,cy
 display
 
        for z=0 to r  step 9
  r=r-10
  ax=x0+sin(180/57.29+beta)*r
 ay=y0+cos(180/57.29+beta)*r


 bx=x0+(sin(beta+gama)*r )
 by=y0+(cos(beta+gama)*r)


 cx=x0+sin(beta)*r  : print fx
 cy=y0+cos(beta)*r  : print fy

'


 ex= x0+sin(180/57.29+beta+gama)*r
 ey= y0+cos(180/57.29+beta+gama)*r





  2d_line  bx,by,ax,ay
  2d_line  ax,ay,ex,ey
  2d_line  ex,ey ,cx,cy
  2d_line  cx,cy,bx,by
  ' la diagonale
  2d_line ex,ey,bx,by
  2d_line ax,ay,cx,cy
  if key_down_code =27 then end
  if key_down_code =27 then end

                next z
 r=450
 wait 600
 cls
  2d_circle x0,y0,150
  2d_fill_color 255,0,0
 color 0,134,173,190

            next x

bonne nuit a vous
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://sergeauze.blog-video.tv/
Contenu sponsorisé




MessageSujet: Re: silence,on tourne   

Revenir en haut Aller en bas
 
silence,on tourne
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Lumion afficionado ...Une page se tourne.
» test du text-rich qui tourne
» PANINI - Quand le sandwich tourne... vive la mayo !
» [Resolu] que les pages du livre tourne toutes seul ?
» Projet Calendrier qui tourne

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: