Enregistrement de 4 sismographes en simultané.

sismographe 4 voies

 

Pour réaliser une station d'enregistrement sismique simple, il suffit de construire un capteur sismique, un amplificateur et une carte d'acquisition analogique numérique. L'ensemble est connecté à un ordinateur qui gère l'électronique et stocke les données. Un enregistrement monocanal avec un capteur Lhéman est un excellent début. Au bout d'un moment, si le virus vous prend, vous pourriez souhaiter tester plusieurs capteurs sismiques et faire des comparatifs. Pour réaliser un ensemble permettant d'enregistrer plusieurs voies, il faut multiplier les installations, et donc les ordinateurs, les écrans, les claviers et la consommation électrique. Ou bien vous pouvez centraliser les données analogiques sur une seule et même carte d'acquisition. Nous avons décidé avec Monsieur MASSINOT de travailler avec le MAX 186 de DALLAS MAXIM. En effet le MAX 186 permet de travailler avec 8 voies en simultané.

L'interface s'articule d'un côté sur les amplificateurs et de l'autre sur le convertisseur de chez DALLAS MAXIM, le MAX186.

L'amplificateur: il faut un amplificateur par voie.

Le schéma :

amplificateur


La conversion analogique numérique.

Chaque amplificateur se raccorde sur le circuit principal, lequel est équipé du MAX 186. La carte de Monsieur Roland MASSINOT est équipée de quatre amplificateurs, mais il est possible d'utiliser les quatre entrées restantes avec des signaux analogiques à condition de ne pas dépasser 4,1 V par entrée. Le branchement entre la platine et le micro-ordinateur se fait par le biais d'une prise SUB DB25. La connection à l'ordinateur passe par le port imprimante parallèle. ( LPT1 = &h378, LPT2 = &h278 ou LPT3 = &h3bc).

Convertisseur analogique numérique Max186

Je vous communique le noyau de commande du MAX 186 en Basic.

En fonction des languages, il sera nécessaire d'adapter ces lignes et d'importer parfois des bibliothèques  !

'***********************************************

REM déclaration générale ]

Declare Function inp Lib "inpout.dll" (ByVal port%) As Integer

Declare Sub OUT Lib "inpout.dll" (ByVal port%, ByVal Value%)

'************************************************

Voici le noyau du programme.



'****************************************************************************

REM la syntaxe REM signifie que le texte qui suit cette mention n'est pas pris en compte par l'interpréteur ]

REM pour des raisons pratiques je clos chaque ligne ayant un REM par le symbole suivant ]

 

OUT (Ab), 0 REM AB est l'adresse de base du port de communication ]

FOR n = 0 To 7 REM il faut interroger les huit canaux du max186, le zéro est actif ]

SelectionCanal186 = 7 - (n \ 2) - 4 * (n AND 1)

NiveauLogiqueAdrsCanal = 128 + 16 * SelectionCanal186 + 8 + 4 + 2

bit = 128

FOR B = 0 To 7

IF (NiveauLogiqueAdrsCanal AND bit) = bit THEN PilotMax = 2 ELSE PilotMax = 0

OUT (Ab), PilotMax

EM Pour l'affichage graphique sous QBasic & QuickBasic (480X640 avec SCREEN 12 ), il faut diviser la sortie par mille,]REM au moment où l'ordinateur interroge le canal correspondant ]

OUT (Ab), PilotMax + 4

OUT (Ab), PilotMax

bit = bit \ 2

NEXT B

bit = 2048: sortie = 0

FOR B = 1 TO 16

OUT (Ab), 4

OUT (Ab), 0

IF ((INP(Ab + 1) AND 32) = 32) THEN sortie = sortie + bit

bit = bit \ 2

NEXT B

REM la valeur 4095 prend 409 ou 410 suivant que la variable sera arrondie en dessous ou au dessus ]

U = sortie / 1000

REM la variable MesureSismoUn ,De,Tr ... est l'image numérique du signal analogique présent à l'entrée du MAX186 ]


IF n = 0 THEN MesureSismoHt = U

IF n = 1 THEN MesureSismoSt = U

IF n = 2 THEN MesureSismoSx = U

IF n = 3 THEN MesureSismoCq = U

IF n = 4 THEN MesureSismoQu = U

IF n = 5 THEN MesureSismoTr = U

IF n = 6 THEN MesureSismoDe = U

IF n = 7 THEN MesureSismoUn = U

NEXT n

'***************************************************************************************************************

Cette page n'existerait pas sans l'important travail de Monsieur Roland Massinot auteur des différentes interfaces présentées dans ce site.

 

Page d'accueil


Lainé Jean-Pierre

Luçon-Vendée-France

Merci de votre visite.

Migration sous Linux Mint le 26 décembre 2014.

tux

Fin de cette page.