Calcul de résistance

Soyez le premier à donner votre avis sur cette source.

Vue 28 248 fois - Téléchargée 1 352 fois


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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

JulioDelphi
Messages postés
2349
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
12 -
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
1529
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
7 -
Merci pour tes remarques constructives :)
Je vais modifier ça tout de suite ;)
cs_MAURICIO
Messages postés
2233
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
5 -
Encore un programme atypique.
Merci!
cs_grandvizir
Messages postés
1237
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
10 -
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
1529
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
7 -
Merci :)

Pour les suggestions, je vais voir ce que je peux faire ;)

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.