DESSINER DES ENGRENAGES
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
-
1 juin 2006 à 21:30
antoon12 Messages postés 1 Date d'inscription lundi 16 mars 2009 Statut Membre Dernière intervention 16 mars 2009 - 16 mars 2009 à 23:20
antoon12 Messages postés 1 Date d'inscription lundi 16 mars 2009 Statut Membre Dernière intervention 16 mars 2009 - 16 mars 2009 à 23:20
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/37889-dessiner-des-engrenages
https://codes-sources.commentcamarche.net/source/37889-dessiner-des-engrenages
16 mars 2009 à 23:20
Alors
Heu
Bon
Ben salut
JM
10 déc. 2008 à 12:01
Je ne savais pas que Bacterius était né avec la science infuse...
C'est tout mais l'intolérence me gonfle !
15 août 2008 à 21:59
Mais attends ! il figure aussi en haut de toutes les pages de ce site !!!
Aucun doute ! il faut les ouvrir avec Delphi ces codes !!
Désolé si je donne l'impression de me foutre de ta gueule, mais j'en ai marre de voir des gens qui viennent sur le site sans même savoir de quoi il parle, ce qu'on y fait et ce qu'il faut pour pouvoir y récupérer une certaine utilité.
Alors télécharge Delphi et compile le code.
Pronto !!
Cordialement, Bacterius !
29 mai 2008 à 10:42
Dans qu'elle logiciel il faut ouvrir les codes pour pouvoir utiliser le programme?
Cordialement
6 juin 2006 à 15:56
pourrais-tu mettre une copie d'écran ? (shotscreen)
ça pourra insiter certains au chargement du code
merci
3 juin 2006 à 14:52
3 juin 2006 à 14:51
pour dessiner le cercle au center de l'engrenage, pourquoi ne pas utiliser Ellipse ?
pour effacer le BMP pourquoi ne pas faire FillRect ?
2 juin 2006 à 13:34
je les ais pris en compte dans la mise a jours.
2 juin 2006 à 01:04
y1:=round(outer*(COS(Theta)))+299;
x2:=round(iner*(SIN(Theta)))+299;
y2:=round(iner*(COS(Theta)))+299;
x3:=round(outer*(SIN(Theta2)))+299;
y3:=round(outer*(COS(Theta2)))+299;
x4:=round(iner*(SIN(Theta2)))+299;
y4:=round(iner*(COS(Theta2)))+299;
holalala ... unité Math procedure SinCos :
var SinT, CosT : extended;
P1,P2,P3,P4: TPoint;
begin
SinCos(Theta,SinT,CosT);
P1 := point( round(outer*SinT)+299, round(outer*CosT)+299);
P2 := point( round(iner*SinT)+299, round(iner*CosT)+299);
SinCos(Theta2,SinT,CosT);
P3 := point( round(outer*SinT)+299, round(outer*CosT)+299);
P4 := point( round(iner*SinT)+299, round(iner*CosT)+299);
end;
ce qui reduit considerablement le code mais aussi accelere un chouilla les calculs.
1 juin 2006 à 21:30
Comme je suis aussi fainéant, je n'en dirai pas plus.