Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 21:46:50

MICROSOFT VOUS PERMET DE TESTER ECMASCRIPT 5 (ES3.1) par FREMYCOMPANY

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

RE : SAUVEGARDE DATASET IMPOSSIBLE par Alastor99

SAUVEGARDE DATASET IMPOSSIBLE par Alastor99

RE : MACRO SANS PASSER PAR LA FORMULE EXCEL par jack

RE : RECHERCHER UN MOT PUIS DONNER UNE VALEUR CORRESPONDANTE SUR LA MêME LIGNE par jack

ACTUALISATION D'UN DOSSIER par PHILOUVB

+ de logiciels à télécharger

1 465 542 membres
582 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 098 codes, 1 303 357 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

TRACÉ DE POLYGONE

Information sur la source

Catégorie :Graphique Classé sous : polygone Niveau : Initié Date de création : 13/08/2001 Vu : 3 519

Auteur : ceyquem

Site perso

Ecrire un message privé

Note :

8,00 / 10

Commentaire sur cette source (1)

Ajouter un commentaire et/ou une note

Description

Ce petit code permet très simplement de tracer un polygône à n faces, de rayon r, de centre (x0,y0) et d'angle a.

Source

Px = r * Cos(a) + x0
Py = r * Sin(a) + y0
For j = 1 To n
Px2 = Val(r) * Cos(a + 2 * Pi * j / n) + x0
Py2 = Val(r) * Sin(a + 2 * Pi * j / n) + y0
Picture1.Line (Px, Py)-(Px2, Py2)
Px = Px2
Py = Py2
Next j

Px = r * Cos(a) + x0
Py = r * Sin(a) + y0
For j = 1 To n
    Px2 = Val(r) * Cos(a + 2 * Pi * j / n) + x0
    Py2 = Val(r) * Sin(a + 2 * Pi * j / n) + y0
    Picture1.Line (Px, Py)-(Px2, Py2)
    Px = Px2
    Py = Py2
Next j

Conclusion

La sortie se fait sur un contrôle picture dont j'ai changé le système de coordonnées :

scaleleft = -20
scaletop = 20
scalewidth = 40
scaleheight = -40

Sources du même auteur

COMPTER LES MOTS ET LA DIVERSITÉ

TRACÉ D'ÉTOILES

MODULE MÉTÉO (NURMITE)

MODULE FOOD (NURMITE)

ALGÈBE LINÉAIRE

Toutes les sources de ceyquem

Sources de la même categorie

AFFICHEUR 7 SEGMENTS par elguevel

SCREENCOLORINVERTER par slayer418

CHART COURBE STATISTIQUE DAO par amita

GABSCREENSHOT : FAITES SIMPLEMENT ET RAPIDEMENT VOS CAPTURES... par GabSoftware

BITBLT ENTRE 2 PICTUREBOX EN VB NET par Galain

Toutes les sources de la catégorie Graphique

Sources en rapport avec celle ci

TRIANGULATION 2D GERE LES SURFACES LES PLUS COMPLEX par Neron2005

POLYGONE par vbkarraywalid

.: DÉGRADÉS DANS POLYGONES - TRÈS RAPIDES (INSTANTANÉS) :: G... par Alain Proviste

TRACER DES POLYGONES EN 3D par FlintHasForgetHisPass

Commentaires et avis

Commentaire de ceyquem le 06/05/2002 21:08:28

En effet, j'avais pas fait gaffe en copiant / collant...
Merci !

par contre je pense que cette approximation est meilleure :
Pi = 3.1415926535898
(voire celle-ci :
3,1415926535897932384626433832795
;-)

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Comment dessiner un polygone plein [ par >BLAFARD< ] Comment faire un algorithme du genre:Public Sub DrawPoly(nbr,x1,y1,x2,x2,...,rgb)nbr : le nombre de sommetsx1,y1,x2,y2... : les coord .: BlackWizard, Question... :: [ par Mémère ] Vla, je voulais juste savoir comment dessiner un polygone ( à 4 cotés ) en Opengl. Le truc de base quoi, pas de couleur, pas de texture rien du tout, Remplir un polygone [ par PHIL ] Je souhaiterais savoir s'il est possible de remplir une serie de lignes formant un polygone fermé comme ça l'est pour l'ellipse ou s'il existe une met Dessiner un polygone rempli [ par LUDEr ] Comment faire pour dessiner un polygone de forme quelconque et rempli d'une couleur? Dessiner un polygone rempli [ par LUDEr ] Je cherche à dessiner un polygone de forme complexe ( exemple carte de France ) et de le remplir avec une couleur.Comment faire? Polygone en DirectDraw ? [ par al iksir ] Quelle est la fonction qui permette de dessiner un polygone ?Il existe DrawBox ou DrawCircle mais pas DrawPolyMerci d'avance remplissage d'un polygone [ par filou26 ] je voudrais remplir un polygone régulier quelconque(de 3 à 10 sommets par ex)avec de la couleuravec ou sans apij'ai apris que l'api gdi32 fonction pol decomposer polygone en arc [ par GEOMATH ] Bonjour,Voila, j'ai un fichier texte qui stocke les coordonnées de mes polygones (chaque poly a un identifiant id). Les coordonnées sont stockées dans Nombre de pixels dans un polygone dans JAVA3D [ par sofien007 ] Est il possible de connaitre le nombre de pixel par polygone(unite de construction des surfaces)? Je connait qu'on peut recuperer le nombre de sommets dessiner un polygone dans un picturebox avec la fonction drawline [ par anispirine ] Bonjour je suis entrain de programmer sur VB.NET j'arrive pas à utiliser le System.Drawing.Graphics voila mon problème j'ai un tableau contenant les