Bon je viens de le finir!!! Mais c'est une version très moche !!! lol ! Le design est pas beau et tout et tout mais bon !
Il trace n'importe quel polygone régulier ... On peut effectuer des transformations dessus!
Il calcule les affaires de base..
- Le code est tout de moi je n'ai copier sur personne !
- NOTE SEUL L'UNITÉ DE MESURE TWIPERPIXEL FONCTIONNE !!!! Les autres ben j'ai pas encore été capable !!!!
Source / Exemple :
'LE CODE EST TROOOOP LONG !!!
'Mais voici les fonctions de base !
Public Function refreshpolygone() 'POUR RAFRAÎCHIR LE POLYGONE
Me.Cls
For r = 1 To Cote
pourlesnombrespair = pourlesnombrespair + 1
radian = 2 * Atn(1) / Cote
bouge = bouge + 4
coscosx1 = rayoncos * Cos(bouge * radian) + (Screen.Width / 2)
sinsiny1 = rayonsin * Sin(bouge * radian) + (Screen.Height / 2)
If pourlesnombrespair >= 2 Then
Form1.Line (coscosx1, sinsiny1)-(coscosx2, sinsiny2), RGB(rouge, vert, bleu)
If deformation = True Then GoTo suivre
ANALYSER
End If
suivre:
bouge = bouge + 4
radian = 2 * Atn(1) / Cote
coscosx2 = rayoncos * Cos(bouge * radian) + (Screen.Width / 2)
sinsiny2 = rayonsin * Sin(bouge * radian) + (Screen.Height / 2)
Form1.Line (coscosx1, sinsiny1)-(coscosx2, sinsiny2), RGB(rouge, vert, bleu)
Next r
Afficheinfo
End Function
Public Function ANALYSER()
Form3.Label11.Caption = "Rayon: " & HScroll1.Value
Form3.Label10.Caption = "Diamètre:" & HScroll1.Value * 2
rayon = HScroll1.Value
If sinsiny1 < sinsiny2 Then Hauteur = sinsiny2 - sinsiny1 'Détermine les différences
If sinsiny1 > sinsiny2 Then Hauteur = sinsiny1 - sinsiny2 'de longeur et de hauteur entre
If coscosx1 < coscosx2 Then Base = coscosx2 - coscosx1 ' les points x et y de la ligne
If coscosx1 > coscosx2 Then Base = coscosx1 - coscosx2 ' Pour former la base et la hauteur du triangle rectangle
Mesurecote = Sqr(Hauteur ^ 2 + Base ^ 2) 'Détermine la mesure du coté(l'hypothénuse) avec Pythagore
Form3.Label13.Caption = "Mesure coté: " & Mesurecote
Apotheme = Sqr((Mesurecote / 2) ^ 2 + rayon ^ 2) 'Détermine l'apotheme avec Pythagore
Form3.Label12.Caption = "Apothème: " & Apotheme
Aire = (Cote * Mesurecote * Apotheme) / 2 'Détermine L'aire avec la formule simple
Form3.Label8.Caption = "Aire: " & Aire
Perimetre = Mesurecote * Cote 'Détemine le périmètre :)
Form3.Label9.Caption = "Périmètre: " & Perimetre
End Function
Conclusion :
Des bugs il doit en avoir à vous de les trouver :) ! lol
Amélioration pour la prochaine version:
-Dessin effectuer avec la souris et non avec des commandes
-Possibilités de mettre plusieurs polygone chacun indépendant.
-RENDRE LES AUTRES UNITÉS DE MESURE DISPONIBLE !
-Design Améliorer
-OPTIMISATION DU CODE !!!
-Plusieurs autres fonctions disponibles...
J'aurais pu le mettre dans Graphique mais il existe pas de catégorie Graphique & Math !!! ça irait bien ensemble..
Des commentaires !?!? N'hésitez pas ça me fera plaisir !!!