Commande du MAX 187

Voici sous QBasic le noyau de commande du MAX187(pour le sismographe à une voie). L'original de cette commande se trouve dans le magasine ELEKTOR N°193/194 page 34 et 35 , juillet/août 1994. L'article utilise un convertisseur "température/tension" lequel fourni un signal analogique à la broche 2 du MAX187.

Voici le code source en PDF pour l'enregistrement des signaux sismiques.

Voici le code source en PDF pour la lecture des signaux sismiques.

Si vous maitrisez parfaitement Excel de Microsoft, vous pouvez vous passez du programme de lecture, il faudra simplement retaper une Macro VB pour le calcul de la distance à l'épicentre.

Il est impératif, pour travailler sous VisualBasic de déclarer la bibliothèque "INPOUT.DLL" pour gérer la syntaxe INP & OUT.

Sachez que ces programmes tournent trés bien sur Win95, Win98SE et XP.

Mais attention, si vous les écrivez avec VB5 ou VB6, la biblothèque pour la gestion des entrées et sorties (Inp/Out) devra se faire avec INPOUT32DLL .

Vous avez un exemple parfait d'utilisation fait par Monsieur Patrick ABATI, voici le lien:

http://stielec.ac-aix-marseille.fr/cours/abati/inout.htm

Pour le convertisseur analogique numérique de MAXIM le MAX 187:

vous pouvez consulter la documentation technique du constructeur.

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

REM déclaration général ]

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

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

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

REM ici définition de l'adresse du port de communication

AdresseDeBase = &H3BC

LecturePort = AdresseDeBase + 1

REM cs haut (9//)

OUT AdresseDeBase, 128

REM début de conversion

OUT AdresseDeBase, 0

REM attente fin de conversion

While inp(LecturePort) And 128 = 0

Wend

REM 'forçage avant transmission des datas

REM Forçage horloge haut

OUT AdresseDeBase, 1

REM Forçage horloge bas

OUT AdresseDeBase, 0

REM transmission des datas

signalsismo = 0

REM 12 tops d'horloge

For Horloge = 11 To 0 Step -1

REM top = niveau haut

OUT AdresseDeBase, 1

ValeurVraie% = (Not inp(LecturePort)) And 128

REM inversion pour atteindre la valeur vraie

If ValeurVraie% <> 0 Then signalsismo = (2 ^ Horloge) + signalsismo

REM tops bas horloge

OUT AdresseDeBase, 0

Next

La commande est dans une boucle sous QBasic et vous pensez à la sortie ! exemple de sortie : if inkey$ = chr$(27) then exit do, traduit en French Langage : si la frappe clavier correspond à la touche Esc, alors sortir de la boucle.

Dans VisualBasic, vous ouvrez une minuterie et vous installez la commande en prenant soin à la déclaration de la bibliothèque afin que VisualBasic prenne en compte la syntaxe INP et OUT.

Mon site: