Polygone tracer dessine des polygones calcul l'air calcul l'apothème calcul coté calcul périmètre effectue des rotations et

Télécharger le projet
Commenter

Description

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 !!!
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (ATH|500|)