Commande du MAX 187

Voici en Basic 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.

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 Adresse

DeBase, 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  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.


Mon site:

Page d'accueil

Lainé Jean-Pierre

Luçon-Vendée-France

Merci de votre visite.

Migration sous Linux le 26 décembre 2014

Fin de cette page.