Calcul mécanique de précision

Soyez le premier à donner votre avis sur cette source.

Vue 4 484 fois - Téléchargée 448 fois

Description

Voici ma premiere source je l'ai ecrite grace a tous les exemples que j'ai consulter sur VBFrance car je suis debutant.
Le but de ce code est d'aider les mécaniciens d'atelier dans leurs calculs de tous les jours.

Rien d'extraordinaire mais je me suis fais plaisir.

Pour le niveau débutant désoler mais il n'y avait pas plus bas que Débutant.

Alors ne casser pas de trop svp constructif (merci).

Pour la tangente qui ne marche pas si vous pouvez me donner la solution(cool)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
us_30
Messages postés
2065
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
10
5 juin 2005 à 22:14
Salut,

Pour ma part, je trouve que l'interface présentée en capture est trés clair et propre... C'est déjà un bon point ! car il y en a qui ont tendance à serrer tout, et d'un coup c'est chiant...

Une p'tite note d'encouragement : 8/10 !

Bonne programmation,
Us.
Saros
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010

3 févr. 2005 à 19:08
Aie plus cofiance en toi quand tu postes une source, ça fausse la critique :)

"Longueur du périmètre" c'est redondant, le périmètre est une longueur en soi ^^

Angle de la tangente, faudrait faire en sorte d'entrer l'angle en degré

Tu as ajouté plusieurs ocx & dll qui ne sont pas utilisés dans le projet mais qui sont chargées lors de l'éxecution

Définit des constantes, écris au début :
Const PI = 3.141592654
Const Sqr2 = 1.414213562
et remplace les nombres par leurs appellations. C'est pas forcément mieux au niveau performances, mais c'est plus clair.

Et idem que cqui789,
If A=B Then
Else
équivaut à
If A<>B Then
et puis c'est plus clair aussi :)

Voilà, que dire sinon continue comme ça :)
cqui789
Messages postés
261
Date d'inscription
jeudi 13 janvier 2005
Statut
Membre
Dernière intervention
18 mai 2009
3
3 févr. 2005 à 14:12
Joli programme.

tu pourrait utiliser les evenements des textes pour declancher les calcules (P.ex. Text1_Change) comme ca le resultat s'affiche directement.

le
IF ***="" THEN
ELSE
...


peut etre remplace par

IF NOT ***="" THEN
...

ou par
IF ***<>"" THEN
...
ScSami
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
24
3 févr. 2005 à 01:06
Je n'ai pas regardé le code mais les fonctions de trigo en VB sont toujours en Radians...
pour les convertions :
x * (PI / 180)
x * (180 / PI)

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.