Calcul chaine mecanique

0/5 (2 avis)

Vue 6 788 fois - Téléchargée 754 fois

Description

grollerocho (XX) est mon pseudo yahoo.ca et mon pseudo pour le groupe openCV.
Pour les gens de VAE. ce programme a ete publié sous ce pseudo car l auteur (moi)
travallait dans une usine de fab de chaine a cette epoque. Les choses ont evoluées
et le programme a été publié sous mon pseudo plus explicite ccgousset@gmail.com.
Ce source est utilisé par tous les ateliers du monde manipulant la chaine par maillons
Sncf,Armées, Charles de Gaulle ,Nasa .. Les cotes des chaines sont repertoriees dans
la base de donnée et accesible avec un moteur jet 40 ou jet 351. (cotes de dessinateur
en mm precison ISo quart de pouce) bien qu elles ne se voient pas.Voila a bientot.

Auteur Christophe C Gousset . Ce prog est une copie de celuide ccgousset ,Coupeur à
la petite semaine . Pour les Xavier, Moussa ou Bento le photographe ... et tous les
coupeurs du Monde , une petite bdd qui permet de calculer les valeurs de coupe et
raboutage de chaines mecaniques. (ascenseurs , transmissions ect.). Les chaines
ont des longueurs exprimees en maillons et toujours impaires. etonnant non ?

Fonctionne sur disdque C:

Je publie et ai modifié le prog publié sous le nom de Groller (qui n'est ke moi)
pour qu'il soit plus accessible.Il reste des petits bug . Notament le separateur numerique ds la base de donnee.
Si lez point marche pas c'est la virgule,classique.Les calculs par contre marchent parfaitement.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
ULLYFAX
Messages postés
3
Date d'inscription
lundi 9 novembre 2009
Statut
Membre
Dernière intervention
10 janvier 2011

10 janv. 2011 à 19:37
Correction: conversion et pas convertion ullyfax
ULLYFAX
Messages postés
3
Date d'inscription
lundi 9 novembre 2009
Statut
Membre
Dernière intervention
10 janvier 2011

10 janv. 2011 à 19:36
Bonsoir à tous,

pour le bug, en effet c'est la virgule qu'il faut utiliser dans les bases de données.

Quand j'ai été confronté à ce problème j'ai écrit la petite fonction qui suit pour faire la convertion des formats:

'**************************************************************************************************
Function Virgule(ByVal Nb As Variant) As Double
'
'******************************************************************************
'* Edition originale du 11/03/2010
'*
'* Converti le point décimal en virgule pour les nombres entrés dans les fenêtres de Ed_Situ
'******************************************************************************
'
Dim UnNb As String, I As Integer

UnNb = CStr(Nb)

For I = 1 To Len(UnNb)
If Mid(UnNb, I, 1) "." Then Mid(UnNb, I, 1) ","
Next I

If IsNumeric(UnNb) Then
Virgule = CDbl(UnNb)
Else
Virgule = 0
End If

End Function
'**************************************************************************************************

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.