Cherche correspondance trigo avec vb6 ?

Cherche correspondance trigo avec vb6 ?


Bonjour,

Pour dessiner sur la forme, je cherche la correspondance en vb net des
directives trigos qui suivent en vb6 (ne pas oublier les entêtes), et
aussi indiquer s'il faut activer quelque chose grenre (autoredraw), et les
procédure spécifique comme (paint)...

Voici la liste :

CERCLE
Circle(c, l), r, RGB(ro, gr, bl)
Sens : 0 = Est, 90° = Nord, 180° = Ouest, 370° = Sud..

ARC DE CERCLE
Circle(c, l), r, coul, ax, ay, RGB(ro, gr, bl)

ELLIPSE
Circle (c, l ), r , coul, ax, ay, e, RGB(ro, gr, bl)

ARC D'ELLIPSE
Circle(c, l), r, coul, ax, ay, e=<>1, RGB(ro, gr, bl)
Circle (cx, cy), 480, QBColor(14), , , 0.5
Circle(c, l), r, coul, ax, ay, e, RGB(ro, gr, bl)
c = colonne
l = ligne
r = rayon
coul = couleur (0 si RGB)
ax = début d'arc "en radian"
ay = fin d'arc "en radian"
e = ellipse si <> 1 (< 1 = c>l) (>1=l>c)
RGB = couleur

MISE EN RADIAN D'UN ANGLE
angle_en_radian = angle_en_degre * 3.14 / 180


POINT DANS UN CERCLE OU UNE ELLIPSE

SINUS
Sinus = Sin(angle_radian)

COSINUS
Cosinus = Cos(angle_radian)

POINT D'UN CERCLE
Colonne = rayon * cosinus + centre_colonne
Ligne = centre_ligne - rayon * sinus


LIGNE
Line(c1,l1) - (c2, l2), couleur

RECTANGLE
Line(c1,l1) - (c2, l2), couleur, B


REMPLISSAGE D'UN DESSIN FERME
FillStyle = x
1 defaut (transparent)
0 rempli (figure fermée) par FillColor
FillColor = couleur (si FillStyle = 0)

ECRITURE
Form1.Print "obs."; variable
Form1.Print "obs."
Form1.Print variable

POSITION COURANTE
Colonne = CurrentX
Ligne = CurrentY


Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.

Bonjour,

C'est la classe Graphics qui prend en charge les différentes primitives
graphiques cercle et autres :
http://msdn.microsoft.com/fr-fr/library/system.drawing.graphics_members.aspx
et voir notamment les méthodes DrawXXX et FillXXX

A noter que le FillColor (qui de mémoire remplissait une figure
préalablement tracée ?) n'existe pas mais peut-être implanté assez
facilement en cas de besoin
(http://fr.wikipedia.org/wiki/Algorithme_de_remplissage_par_diffusion),
l'idée étant sans doute de favoriser le remplissage de figures dont les
caractérisques sont connues (et non d'examiner une image déjà tracée pour
déterminer les contours de remplissage).

Les fonctions mathématiques dont les fonctions trigo sont dans la classe
Math :
http://msdn.microsoft.com/en-us/library/system.math_members.aspx

Pour démarrer avec le graphisme :
http://msdn.microsoft.com/fr-fr/library/5y289054.aspx

Cela devrait permettre de commencer à défricher le terrain... Je vois
qu'il est question également de tracer du texte. Il serait peut-être
possible de présenter tout cela sous forme d'un ou plusieurs contrôles
selon le but poursuivi.

--
Patrice


"LE TROLL" <le troll@enfer.fr> a écrit dans le message de groupe de
discussion : 0612BC81-6E67-4DFA-9848-FD0630CB7890@microsoft.com...

Cherche correspondance trigo avec vb6 ?


Bonjour,

Pour dessiner sur la forme, je cherche la correspondance en vb net des
directives trigos qui suivent en vb6 (ne pas oublier les entêtes), et
aussi indiquer s'il faut activer quelque chose grenre (autoredraw), et
les procédure spécifique comme (paint)...

Voici la liste :

CERCLE
Circle(c, l), r, RGB(ro, gr, bl)
Sens : 0 = Est, 90° = Nord, 180° = Ouest, 370° = Sud..

ARC DE CERCLE
Circle(c, l), r, coul, ax, ay, RGB(ro, gr, bl)

ELLIPSE
Circle (c, l ), r , coul, ax, ay, e, RGB(ro, gr, bl)

ARC D'ELLIPSE
Circle(c, l), r, coul, ax, ay, e=<>1, RGB(ro, gr, bl)
Circle (cx, cy), 480, QBColor(14), , , 0.5
Circle(c, l), r, coul, ax, ay, e, RGB(ro, gr, bl)
c = colonne
l = ligne
r = rayon
coul = couleur (0 si RGB)
ax = début d'arc "en radian"
ay = fin d'arc "en radian"
e = ellipse si <> 1 (< 1 = c>l) (>1=l>c)
RGB = couleur

MISE EN RADIAN D'UN ANGLE
angle_en_radian = angle_en_degre * 3.14 / 180


POINT DANS UN CERCLE OU UNE ELLIPSE

SINUS
Sinus = Sin(angle_radian)

COSINUS
Cosinus = Cos(angle_radian)

POINT D'UN CERCLE
Colonne = rayon * cosinus + centre_colonne
Ligne = centre_ligne - rayon * sinus


LIGNE
Line(c1,l1) - (c2, l2), couleur

RECTANGLE
Line(c1,l1) - (c2, l2), couleur, B


REMPLISSAGE D'UN DESSIN FERME
FillStyle = x
1 defaut (transparent)
0 rempli (figure fermée) par FillColor
FillColor = couleur (si FillStyle = 0)

ECRITURE
Form1.Print "obs."; variable
Form1.Print "obs."
Form1.Print variable

POSITION COURANTE
Colonne = CurrentX
Ligne = CurrentY


Cordialement ;o)
-
Logiciels, romans, contacts : http://irolog.free.fr
_______________________
.
.