Bonjour,
très bon programme, il sera vraiment parfait avec les tolérances et un 4ème groupe de filetages: filetage rond et trapézoïdal( angle à 30°).
Merci et bonne continuation.
Bonjour et félicitations pour votre programme, juste comme le faisait remarqué une personne précédente il manque le contrôle des filets style ACME avec un angle de 29 degrés
Il me faut du temps mais il est prévu des compléments déjà sur les tolérances
Bonne idée aussi d'introduire des filetages ronds et trapézoïdaux.
Je travaille dans un service contrôle et cela pourra être utile.
A plus.
JPF.
Le programme marche pour des pas gros et fins sans distinction.
La formule de la côte sur piges est fonction :
-- Du diamètre nominal du filetage
-- Du pas
-- Et de l'angle du filetage.
Ce programme permet de calculer des côtes sur piges de filetage standart ou non standart.
Bonjour.
Pourquoi les Anonymes n'écrivent pas de commentaires ?
quand ils jugent qu'une source est mauvaise.
Ce serait plus dans l'esprit De CodeS-SourceS d'expliquer ce qui ne va pas dans un programme afin de progresser.
A plus.
Bonjour Jeanfab.
Merci pour les commentaires.
C'est vrai qu'il manque les tolérances.
Mais avec une bonne dose de Normes et de volonté,j'espère
avancer ce programme.
A plus.
Voici l'adresse où l'on peut télécharger la version
installable du programme "Filetages":
http://jolopop31.free.fr/JP/VB6/Filetages/ Après avoir décompressé le fichier "Installation.rar",
il faut lancer l'installation par le setup.exe.
Ensuite: Démarrer ... Tous les programmes ... Filetages ... Filetages (Par exemple)
Pour tout renseignements, ne pas hésiter.
A plus
JP
Salut Bernardluguet.
Je viens de tester ton code.
Il marche bien.
Je dois faire des modifs dans ma source parce que les tests
de comparaison à la pige Mini et à la pige Maxi , ne fonctionnent
plus si le nombre décimal "diamchoisi" a une virgule au lieu d'un point.
Merci pour ton aide Bernard
Pour empécher l'utilisateur de taper un point on lui impose la virgule sur clavier en transformant le point en virgule.
ex:
Private Sub TxtDiam_KeyPress(KeyAscii As Integer)
Char = Chr(KeyAscii)
If Char "." Then Char ","
KeyAscii = Asc(Char)
End Sub
Bon prog.
slts bernard
Bonjour
Merci, je n'avais pas compris le système de menu
Reste que lorsqu'on choisit le diamètre de piges, il faut l'entrer comme 2.4 par exemple avec le point comme décimal, ce qui heurte un peu. Sinon tout est bon
Amicalement
Maurice
En réponse à Mauricet
Salut Maurice
Sur la première "form" :
Pour avoir les infos d'un M36 au pas de 4 et ayant un profil ISO
il faut mettre les boutons bascules en position :
"Diamètre en millimètres",
"Pas en millimètres" et
"ISO - UN - ect ... - NPSI".
Il faut aussi entrer les valeurs : "36" et "4" et enfin appuyer
sur le gros bouton "DEMARRER".
Sur la deuxième "form" :
On a alors l'angle de 60° et la possibilité de lancer le calcul de la plage mini-maxi des piges possibles.
Après le choix d'un diamètre de piges choisi dans la plage mini-maxi on lance le calcul de la côte sur piges.
Le programme ne propose pas ,en fonction du diamètre,une série de pas normalisés.Il faut considérer le pas comme une donnée à saisir.
Voilà et merci pour le message !
Amitiés
JP
Bonjour
Il me semble qu'il manque quelque chose
J'introduis un filet ISO diamètre 36 le pas devrait être 4
l'angle est 60° mais n'apparait pas
probablement parce que l'on ne sait pas sélectionner ISO
Donc piges = ?
A revoir
Amicalement
Maurice
La procédure et décrite sur ma réponse du 8 Aout 2006
- Messages postés
-
169
- Date d'inscription
- samedi 10 décembre 2005
- Statut
- Membre
- Dernière intervention
- 18 juin 2017
> lexsty- Messages postés
-
169
- Date d'inscription
- samedi 10 décembre 2005
- Statut
- Membre
- Dernière intervention
- 18 juin 2017
> lexstyje suis sous Windows 10 et pas de probleme
que faut-il faire pour le faire fonctionner.
merci de votre réponse