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

Soyez le premier à donner votre avis sur cette source.

Vue 22 452 fois - Téléchargée 693 fois

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 !!!

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
vendredi 26 mars 2010
Statut
Membre
Dernière intervention
26 mars 2010

Merci pour ton programme, je vais l'explorer. ca facilite les calculs. Bravo! (je ne connais rien en info)
Messages postés
155
Date d'inscription
mardi 7 août 2001
Statut
Membre
Dernière intervention
30 janvier 2008

héhé :)
Messages postés
27
Date d'inscription
samedi 13 avril 2002
Statut
Membre
Dernière intervention
26 novembre 2005

Mais non, c'est formidable 14 ans, deux fois l'âge de raison, tu deviens un Sage !
Bon anniversaire.
Messages postés
155
Date d'inscription
mardi 7 août 2001
Statut
Membre
Dernière intervention
30 janvier 2008

Oh non snif :¬{ !!! Je viens juste de me rappeler que ma fête c'est le 29 Juin et que je vais rentrer dans mes 14 ans :[ Ça me tentait pas de quitter mon 13 ans quelqu'un pourrait m'aider à rester à 13 ans ???
Messages postés
155
Date d'inscription
mardi 7 août 2001
Statut
Membre
Dernière intervention
30 janvier 2008

Merci Cath ! Je suis présentement en train de regarder ton prog -Figures- et je suis pas mal imprésionné ! Ton prog va m'apprendre plein de choses que je savais peut-être pas !
Afficher les 8 commentaires

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.