Calcul de résistance

4/5 (14 avis)

Vue 32 088 fois - Téléchargée 1 718 fois


Télécharger le projet
Commenter

Description

Ce programme calcule les valeurs (Résistance, Tolérance, Coefficient de température) d'une résistance de 4, 5 ou 6 bandes en fonction de ses couleurs, ou inversement, définit ses couleurs en fonction de ses valeurs.

C'est la première source que je poste ici...
Si vous voyez des améliorations à apporter, je suis preneur !

Source / Exemple : 


All in the zip !

Conclusion :


Pour l'instant, pas de bugs connus...

J'utilise dans ce programme le fichier ressource 'WindowsXP.res' pour permettre l'affichage du style XP sur toutes les versions de Delphi (seulement pour ceux qui ont WinXP évidement ! ;) ).
Le fichier ressource 'PIC.res' stocke les images des résistances.

Le programme offre une possibilité de copier les valeurs de la résistance dans le presse-papier afin de pouvoir les réutiliser.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 14
14 nov. 2004 à 23:37
hello,

je suis nul en electricité/electronique et j'ai dejé eu a rechch le code couleur.
Ca va me servir de temps en temps, meme si j'ai une horreur de toucher a l'electricité :p

sinon qqs retouches :
procedure TForm1.ontopClick(Sender: TObject);
begin
OnTop.Checked := not OnTop.Checked;
if OnTop.Checked then Form1.FormStyle := fsStayOnTop
else Form1.FormStyle := fsNormal;
end;

>> pas besoin de "OnTop.Checked := not OnTop.Checked;" puisque si tu mets ton "ontop"(le TMenuItem de ton TPopupMenu) en "AutoCheck=true", elle sera cochée et décochée automatikement.

Idem dans tes 3 procedures : N4Click, N5Click, N6Click :
supprimer "N4Click.checked := true;" idem pour 5 et 5 bien sur, et leur mettre (aux 3 TMenuItem "4" "5" "6")
Je suis sur aussi qu'il y a moyen de tout mettre (ces 3 rpoc.) en une seule proc pour alleger.

et pour finir : nomme tes composants, c'est plus parlant.

9/10 :)
ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 12
14 nov. 2004 à 23:51
Merci pour tes remarques constructives :)
Je vais modifier ça tout de suite ;)
cs_MAURICIO Messages postés 2106 Date d'inscription mardi 10 décembre 2002 Statut Modérateur Dernière intervention 15 décembre 2014 5
15 nov. 2004 à 18:14
Encore un programme atypique.
Merci!
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 22
16 nov. 2004 à 19:52
J'apprécie beaucoup. C'est certes moins rapide à manipuler qu'un prog que je m'étais fait, mais celui-ci est plus complet. Un popup panel au lieu des ComboBox serait intéressant. Ce prog est très beau, marche presque dans les deux sens. Il serait bien de rajouter les résultats de la tolérance, car +/- 15% de 4510 ohms ne se fait pas vraiment de tête.
ni69 Messages postés 1418 Date d'inscription samedi 12 juin 2004 Statut Membre Dernière intervention 5 juillet 2010 12
16 nov. 2004 à 21:53
Merci :)

Pour les suggestions, je vais voir ce que je peux faire ;)
S'inscrire maintenant

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.

Du même auteur (ni69)