Soyez le premier à donner votre avis sur cette source.
Vue 22 626 fois - Téléchargée 694 fois
'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
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.