begin process at 2012 02 16 22:21:07
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Maths

 > CALCUL DES DIFFÉRENTS ÉLÉMENTS D'UN TRIANGLE

CALCUL DES DIFFÉRENTS ÉLÉMENTS D'UN TRIANGLE


 Information sur la source

Note :
Aucune note
Catégorie :Maths Classé sous :triangle, différent, calcul Niveau :Débutant Date de création :07/12/2002 Date de mise à jour :07/12/2002 12:13:45 Vu / téléchargé :9 675 / 201
Auteur : PatDeLaYaute

Ecrire un message privé
Site perso
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

 Description

Suite à la source de Miko500 sur le théorème de pythagore, je met la mienne qui date déjà un peu. Elle permet de calculer tous les éléments d'un tirangle rectangle ou non à partir de 3 éléments.

ATTENTION LES ANGLES SONT EN GRADES

Source

  • Une petite partie du code, le reste dans le zip
  • If a = 0 Then
  • If b <> 0 And C <> 0 Then
  • a = 200 - (b + C)
  • Formule_A = "200 - (B + C)"
  • GoTo suite4
  • End If
  • If TriRecB = True Then
  • If AC <> 0 And AB <> 0 Then
  • a = Acos(AB / AC)
  • Formule_A = "Acos[AB/AC]"
  • GoTo suite4
  • End If
  • If AC <> 0 And BC <> 0 Then
  • a = Asin(BC / AC)
  • Formule_A = "Asin[BC/AC]"
  • GoTo suite4
  • End If
  • If AB <> 0 And BC <> 0 Then
  • a = Atn(BC / AB)
  • Formule_A = "Atan[BC/AB]"
  • GoTo suite4
  • End If
  • End If
  • If TriRecC = True Then
  • If AC <> 0 And AB <> 0 Then
  • a = Acos(AB / AC)
  • Formule_A = "Acos[AB/AC]"
  • GoTo suite4
  • End If
  • If AC <> 0 And BC <> 0 Then
  • a = Atn(BC / AC)
  • Formule_A = "Atan[BC/AC]"
  • GoTo suite4
  • End If
  • If AB <> 0 And BC <> 0 Then
  • a = Asin(BC / AB)
  • Formule_A = "Asin[BC/AB]"
  • GoTo suite4
  • End If
  • End If
  • If AB <> 0 And AC <> 0 And BC <> 0 Then
  • a = (Acos(((AB * AB) + (AC * AC) - (BC * BC)) / (2 * AB * AC))) * Conver
  • Formule_A = "Acos[(AB² + AC² - BC²)/(2 x AB x AC)]"
  • GoTo suite4
  • End If
  • If BC <> 0 And AC <> 0 And b <> 0 Then
  • a = (Asin((BC * Sin(b / Conver)) / AC)) * Conver
  • Formule_A = "Asin[(BC x sin B)/AC]"
  • GoTo suite4
  • End If
  • If BC <> 0 And AB <> 0 And C <> 0 Then
  • a = (Asin((BC * Sin(C / Conver)) / AB)) * Conver
  • Formule_A = "Asin[(BC x sin C)/AB]"
  • GoTo suite4
  • End If
  • If S <> 0 And AB <> 0 And AC <> 0 Then
  • a = (Asin((2 * S) / (AB * AC))) * Conver
  • Formule_A = "Asin[(2 x S)/(AB x AC)]"
  • GoTo suite4
  • End If
  • End If
Une petite partie du code, le reste dans le zip

    If a = 0 Then
        If b <> 0 And C <> 0 Then
            a = 200 - (b + C)
            Formule_A = "200 - (B + C)"
            GoTo suite4
        End If
        If TriRecB = True Then
            If AC <> 0 And AB <> 0 Then
                a = Acos(AB / AC)
                Formule_A = "Acos[AB/AC]"
                GoTo suite4
            End If
            If AC <> 0 And BC <> 0 Then
                a = Asin(BC / AC)
                Formule_A = "Asin[BC/AC]"
                GoTo suite4
            End If
            If AB <> 0 And BC <> 0 Then
                a = Atn(BC / AB)
                Formule_A = "Atan[BC/AB]"
                GoTo suite4
            End If
        End If
        If TriRecC = True Then
            If AC <> 0 And AB <> 0 Then
                a = Acos(AB / AC)
                Formule_A = "Acos[AB/AC]"
                GoTo suite4
            End If
            If AC <> 0 And BC <> 0 Then
                a = Atn(BC / AC)
                Formule_A = "Atan[BC/AC]"
                GoTo suite4
            End If
            If AB <> 0 And BC <> 0 Then
                a = Asin(BC / AB)
                Formule_A = "Asin[BC/AB]"
                GoTo suite4
            End If
        End If
        If AB <> 0 And AC <> 0 And BC <> 0 Then
            a = (Acos(((AB * AB) + (AC * AC) - (BC * BC)) / (2 * AB * AC))) * Conver
            Formule_A = "Acos[(AB² + AC² - BC²)/(2 x AB x AC)]"
            GoTo suite4
        End If
        If BC <> 0 And AC <> 0 And b <> 0 Then
            a = (Asin((BC * Sin(b / Conver)) / AC)) * Conver
            Formule_A = "Asin[(BC x sin B)/AC]"
            GoTo suite4
        End If
        If BC <> 0 And AB <> 0 And C <> 0 Then
            a = (Asin((BC * Sin(C / Conver)) / AB)) * Conver
            Formule_A = "Asin[(BC x sin C)/AB]"
            GoTo suite4
        End If
        If S <> 0 And AB <> 0 And AC <> 0 Then
            a = (Asin((2 * S) / (AB * AC))) * Conver
            Formule_A = "Asin[(2 x S)/(AB x AC)]"
            GoTo suite4
        End If
    End If


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture CRÉATION DE FICHIER D'AIDE (MISE À JOUR)
Source avec Zip Source avec une capture CRÉATION DE FICHIER D'AIDE
Source avec Zip PROTECTION DU PC PAR MDP (VERSION BASIC)
Source avec Zip APPLI QUI "S'AUTO SUPPRIME"
Source avec Zip SAVOIR SI UN POINT CE TROUVE DANS UN TRIANGLE
Toutes les sources de PatDeLaYaute

 Sources de la même categorie

Source avec Zip Source avec une capture CONVERTISSEUR HEXAVIGÉSIMAL par shaeks
Source avec Zip Source avec une capture Source .NET (Dotnet) CRYPTOGRAPHIE AFFINE par Tigrou66
Source avec Zip Source avec une capture SCANNER FLEX par lajouad
Source avec Zip EQUATIONSECONDDEGRÉ,MATH,DEGRÉ par shadkitenge
Source avec Zip Source .NET (Dotnet) SOMME DE CHIFFRES CONTENUE DANS UN NOMBRE par alpha5
Toutes les sources de la catégorie Maths

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture CALCUL DE PLACEMENT OU DE PRET - MENSUALITES - MONTANT - D... par lexsty
Source avec Zip Source .NET (Dotnet) NOMBRES PRIMORDIAUX par alpha5
Source avec Zip Source avec une capture SUDOKU SOLVEUR CRIBLE par ccgousset
Source avec Zip Source avec une capture Source .NET (Dotnet) CALCUL DE RÉSISTANCE par Jeromedu79
CALCUL DE L'HYPOTHÉNUSE, D'UN COTÉ A PARTIRE DE L'HYPOTHÉNUS... par tecjas

Commentaires et avis

Commentaire de MaCFerson le 08/12/2002 14:21:08

heu je m'y connais pas en Visual Basic mais il y a pas moyen de ne pas utiliser les GoTo??

Commentaire de PatDeLaYaute le 08/12/2002 19:54:47

Ca doit faire 2 ans que j'ai fait cette source et depuis je n'y ai pas toucher.
Je l'ai mis suite à la dépose d'une source de Miko500, c'est juste pour montrer
comment on peut calculer des éléments d'un tirangle.
En gros c'est pour la fond pas pour la forme, mais je pense qu'on peux
améliorer la chose.
@+

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Calcul d'un triangle, un p'tit pb. [ par us_30 ] Bonsoir, Un petit problème de triangle, pour faire tourner les méninges... Dans un triangle qlconque d'angles intérieurs A,B,C avec les distances o calcul de jours entre deux date [ par mell01 ] bonjours,qql saurait-il calcul&#233; le nb de jour entre deux dates, soit avec une fction sql ou une fonction vba?merci d'avance Exécution en parallèle [ par leclairf ] Bonjour &#224; tousJe programme une application VB dans lequel j'ai une interface et j'ai un module de calcul. Dans le module de calcul, j'ai une bouc do events! coment l'inserer dans plusieurs boucle [ par j_aub ] slt ttt le monde,j'ai une fonction&nbsp; 'calcul()' (en vb.net) qui fait un calcul &#233;norme ( en terme de temps d'&#233;xecution) j'ai donc penser récupérer nom de session windows (différent du nom user windows) [ par jlb92400 ] Bonjour &#224; tous. Heureuse ann&#233;e 2006.Je sais comment r&#233;cup&#233;rer le nom de l'utilisateur windows (par l'API GetUserName ou plus simpl programmation [ par 1217meyrin ] Bonjour,voici un bout de code qui imbrique 4 boucles for et 2 for each. le probl&#232;me, c'est que les 2 boucles for i et j ne compte pas, elle reste string et control [ par 1217meyrin ] Bonjour,peut-on convertir une string en control?exemple que j'aimerai faire:ctrl et triangle2 sont des&nbsp;controls et&nbsp;triangle est une string t ListBox multiple avec un seul bouton de calcul [ par anton8338 ] Bonjour &#224; tous,J aimerai faire un bouton qui prenne en charge tous les calculs que j ai a faire. je vous explique: jai une 1er textbox ou je rent Création régle de calcul [ par napoleon4 ] J'ai un tableau &#224; cr&#233;er pour une gestion transport, j'ai renseign&#233; mes tarifs sur un feuille et je voudrais faire une extraction par d& Calcul entre deux feuilles Excel [ par lenemmasque ] Bonjour ! Je d&#233;bute en VBA et je travaille actuellement sur un programme qui me pose probl&#232;me...Je m'explique :&nbsp;&nbsp;&nbsp;&nbsp;&nbsp


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Beautiful woman in a bikini meditating on the beachPhoto Green Energy Solutions With Light Bulb Morphed Into Landscape
Photo Jonque traditionnelle 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,718 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)