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 626 fois - Téléchargée 694 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..
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 !!!
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
Du même auteur (ATH|500|)
-
Comparateur d'images de console monochrome de base et création d'un fichier de différence.
-
Simon en directx répétez la séquence ( particules , manipulation d'images , bass.dll , musique jeu , jeux , directx 8.1 )
-
Jeu de course (voitures) avec directx 8.1
-
Boule en 3d avec éclairage et intensité ! 3d
-
Castle of wolfenstein 3d jeu borland c++ 3.1
Bon anniversaire.
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.