Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Cherche correspondance trigo avec vb6 ?

Cherche correspondance trigo avec vb6 ?

2 réponses
Avatar
LE TROLL
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
_______________________
.
.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Patrice
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 a écrit dans le message de groupe de
discussion :
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
_______________________
.
.




Avatar
LE TROLL
merci :o)

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


"Patrice" <http://scribe-fr.blogspot.com/> a écrit dans le message de
news:
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 a écrit dans le message de groupe de
discussion :
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
_______________________
.
.