Tracer des cercles des arcles de cercles, des cordes sur des cercles ou des ovales

Soyez le premier à donner votre avis sur cette source.

Vue 7 940 fois - Téléchargée 880 fois

Description

Avec ce prog vous pouvez tracer des cercles, des arc de cercles ou des ovales et relier les 2 extrémités d'un arc de cercle grace a 2 API. Pour cela vous definissez les coordonnées du coin "haut gauche" et du coin "Bas droit" du rectangle contenant la figure et le point de depart et d'arrivéé de la droite qui coupe le cercle pour faire un arc de cercle. J'ai mis quelques fonctions pour afficher ce rectangle, ses diagonales, et relier les extrémités de l'arcle de cercle.
J'espère que aucun code n'est similaire a celui ci et qu'il aidera pas mal de personnes qui avait des difficultée a faire des cercle ect que j'ai vu sur le forum.

Conclusion :


Bon maintenant ont peut enregistrer les dessins que l'on fait. C'est connu de tout le monde mais c'est pas grave.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
2
Date d'inscription
jeudi 3 avril 2003
Statut
Membre
Dernière intervention
19 mai 2014

essai: picture1.circle(300,300),300,vbgreen,,,2
Messages postés
480
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
3 septembre 2007
1
Ok ne t'inquietes pas les critiques sont toujours bien venues.
Il est vrai que la fonction existe deja en Vb sauf que là ; je sais pas si ca sert mais tu définis pas les meme points pour créer ton cercle ou ton elipse que dans la fonction VB. C'est tout. Et d'ailleurs je sais pas si tu peux faire les meme elipses avec cette fonction avec le rapport V/H. Enfin je vais voir. Merci pour la critique.

JRB
Messages postés
262
Date d'inscription
lundi 26 août 2002
Statut
Membre
Dernière intervention
24 août 2005

Ben alors chez moi ta source ne marche pas génial (ou alors g pas compris) et en plus je ne vois pas le 'truc' en fait. Ya une fonction VB qui fait ca bien alors bon... Enfin je ne sais pas mais tracer un cercle, une ellipse etc... On peut laisser VB faire franchement une api et tout le tralala pour ca.
Enfin ca se défend surement je ne conteste pas, disons que je voulais juste ajouter la fonction VB pour montrer qu'on peut aussi faire simple, cela dit sans critiquer. Voili voila

Pingouin
Messages postés
480
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
3 septembre 2007
1
Et alors ?????
Messages postés
262
Date d'inscription
lundi 26 août 2002
Statut
Membre
Dernière intervention
24 août 2005

Circle(Step As Integer, X As Single, Y As Single, Radius As Single, Color As Long, Start As Single, End As Single, Aspect As Single)

(X,Y) --> centre
Radius --> rayon
Color --> couleur (quelle surprise !!)
Start --> angle de début de l'arc de cercle (sur le cercle trigo)
End --> angle de fin de l'arc de cercle
Aspect --> raport V/h d'une ellipse

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.