non non MHEC, il s'agit bien d'une liaison série, avec deux interfaces, l'une filaire pour le client, l'autre optique ou électromagnétique pour le personnel EDF. A l'intérieur de la boiboite bat un coeur de silicium, insensible à l'amour et qui ne dit pas tadoun tadoun tadoun ... toutes les secondes, donc rien à écouter avec un stéthoscope
(mais j'ai bien compris que c'était une blague)Les agents EDF n'ont pas seuls accès à ces informations, n'importe qui peut y accéder, c'est un droit : voir le sujet http://dbhsarl.eu/forum/viewtopic.php?f=5&t=77 d'il y a bientôt deux ans, et dans lequel j'ai expliqué comment procéder (juste pour le Fun, on peut même fouiller un peu plus, mais c'est pas bien).
Présentée comme ça, mon information a l'air vaseuse, mais c'est pourtant là aussi la vérité : voici la liste des paramètres accessibles sur ces compteurs avec un PC (de préférence un vieux machin avec un port parallèle ou série, on peut même le faire avec un vieux Minitel) :un éventuel CoefficientsPertesTransfo
Cherchez bien, et vous trouverez les "CoefficientsPertesTransfo"
Avec le montage que j'ai décrit, qui doit revenir à environ 10 €, plus un vieux PC à écran cathodique ramassé dans une poubelle et tournant sous Windows 286, vous avez avec l'application hyper-terminal présente d'origine dans Windows une petite supervision qui vous donne "gratuitement" toutes les informations ci-dessus. Si vous connaissez un peu Excel et les macros, vous pouvez accumuler en continu l'historique et dessiner de jolis camemberts inodores !
Juste pour rigoler, quelques vieux programmes réalisés dans les années 90 pour dialoguer avec les premiers dispositifs communicants de l'époque (variateurs Altivar, régulateurs de process, GTC ) :
Programme simple en Basic ou Basica je ne sais plus, dB-) août 1994 !
Programme plus élaboré en Basic ou Basica je ne sais plus, octobre 1993, bientôt 20 ans !Init:
CLS
OPEN "COM1:4800,N,8,2,RB4096" FOR RANDOM AS #1
COM(1) ON
ON COM(1) GOSUB Dialogue
DO WHILE INKEY$ = ""
LOOP
COM(1) OFF
CLOSE
END
Dialogue:
FOR x = 0 TO 255
PRINT #1, CHR$(x)
PRINT x,
NEXT
INPUT #1, A$
PRINT ASC(A$)
RETURN
DEFINT A-Z
DECLARE SUB Filtre (ChaineEntree$)
COLOR 7, 1 'D‚finition de la couleur
'de l'‚cran.
CLS
Quit$ = CHR$(0) + CHR$(16) 'Valeur fournie par INKEY$
'en cas d'appui de ALT+q.
' Positionnement du message d'attente sur la derniŠre
' ligne de l'‚cran et affichage du curseurÿ:
LOCATE 24, 1, 1
PRINT STRING$(80, "_");
LOCATE 25, 1
PRINT TAB(30); "Appuyez sur ALT+q pour quitter";
VIEW PRINT 1 TO 23 'Affichage entre les
'lignes 1 et 23.
' Ouverture de la voie de communication (1200 bauds,
' parit‚ paire, 7 bits de donn‚es, 1 bit d'arrˆt,
' tampon d'entr‚e de 256 octets)ÿ:
OPEN "COM1:1200,E,7,1" FOR RANDOM AS #1 LEN = 256
DO 'Principale boucle de
'communication.
EntreeClavier$ = INKEY$ 'Contr“le du clavier.
' Sortie de la boucle si l'utilisateur a appuy‚
' sur ALT+q.
IF EntreeClavier$ = Quit$ THEN
EXIT DO
' Sinon, si l'utilisateur a appuy‚ sur une touche,
' transmission au modem du caractŠre frapp‚.
ELSEIF EntreeClavier$ <> "" THEN
PRINT #1, EntreeClavier$;
END IF
' Contr“le du modem. Si des caractŠres sont
' en attente (EOF(1) est vrai), les rechercher et
' les afficherÿ:
IF NOT EOF(1) THEN
' LOC(1) fournit le nombre de caractŠres en
' attenteÿ:
EntreeModem$ = INPUT$(LOC(1), #1)
Filtre EntreeModem$ 'Elimination des sauts de
PRINT EntreeModem$; 'ligne et des retours
END IF 'arriŠre, puis affichage.
LOOP
CLOSE 'Fin de la communication.
CLS
END
'
' ===================== FILTRE =======================
' Filtre les caractŠres d'une chaŒne entr‚e
' ====================================================
'
SUB Filtre (ChaineEntree$) STATIC
' Recherche des caractŠres de retour arriŠre
' (CHR$(8)) et transformation de ceux-ci en
' CHR$(29) (touche curseur vers la GAUCHE)ÿ:
DO
RetourArr = INSTR(ChaineEntree$, CHR$(8))
IF RetourArr THEN
MID$(ChaineEntree$, RetourArr) = CHR$(29)
END IF
LOOP WHILE RetourArr
' Recherche et suppression des caractŠres de saut
' de ligne (CHR$(10))ÿ:
DO
SautLigne = INSTR(ChaineEntree$, CHR$(10))
IF SautLigne THEN
ChaineEntree$ = LEFT$(ChaineEntree$, SautLigne - 1) + MID$(ChaineEntree$, SautLigne + 1)
END IF
LOOP WHILE SautLigne
END SUB
Plus quantité d'autres plus élaborés, en C ou en assembleur, avec affichage en mode semi graphique ou même texte, tous complètement dépassés maintenant, mais qui réalisaient déjà très simplement une bonne partie de ce que propose une supervision actuelle à 30 ou 100 k€ !
Bien sûr, les heures passées à développer une interface conviviale, un historique, un accès à distance, etc ... sont facturées par les sociétés spécialisées et c'est normal. Mais les supervisions que je vois sont parfois bien chères, et pas à l'abri d'une erreur.
Cordialement
dB-)
