Télécharger Imprimer la page

Yoctopuce Yocto-PT100 Mode D'emploi page 81

Publicité

module: si le module redémarre, les modifications seront perdues. Pour qu'elle soient mémorisées
de manière persistante, il est nécessaire de demander au module de sauvegarder sa configuration
courante dans sa mémoire non volatile. Pour cela il faut utiliser la méthode
Inversement il est possible de forcer le module à oublier ses réglages courants en utilisant la
méthode
revertFromFlash()
d'un module.
Module
Module1
Sub usage()
Console.WriteLine("usage: demo <serial or logical name> <new logical
End
End Sub
Sub Main()
Dim argv() As
Dim
errmsg
As
Dim
newname
As
Dim
m
As
YModule
If
(argv.Length
REM
Setup the API
If
YAPI.RegisterHub("usb",
Console.WriteLine("RegisterHub error: "
End
End If
m
= YModule.FindModule(argv(1)) REM
If m.isOnline() Then
newname
= argv(2)
If (Not YAPI.CheckLogicalName(newname)) Then
Console.WriteLine("Invalid name ("
End
End If
m.set_logicalName(newname)
m.saveToFlash() REM do not
Console.Write("Module: serial= "
Console.Write(" / name= "
Else
Console.Write("not connected (check identification and USB
End If
YAPI.FreeAPI()
End Sub
End Module
Attention, le nombre de cycles d'écriture de la mémoire non volatile du module est limité. Passé cette
limite plus rien ne garantit que la sauvegarde des réglages se passera correctement. Cette limite,
liée à la technologie employée par le micro-processeur du module se situe aux alentour de 100000
cycles. Pour résumer vous ne pouvez employer la fonction
cours de la vie du module. Veillez donc à ne pas appeler cette fonction depuis l'intérieur d'une
boucle.
Enumeration des modules
Obtenir la liste des modules connectés se fait à l'aide de la fonction
le premier module trouvé, il suffit ensuite d'appeler la fonction
trouver les modules suivants, et ce tant que la réponse n'est pas un
exemple listant les module connectés
Module
Module1
Sub Main()
Dim
M
As
ymodule
Dim
errmsg
As
REM
Setup the API
If
YAPI.RegisterHub("usb",
www.yoctopuce.com
. Ce petit exemple ci-dessous vous permet changer le nom logique
String
= System.Environment.GetCommandLineArgs()
String
=
""
String
<> 3) Then usage()
to
use local USB devices
errmsg) <>
forget this
+ m.get_logicalName())
String
=
""
to
use local USB devices
errmsg) <>
11. Utilisation du Yocto-PT100 en VisualBasic .NET
YAPI_SUCCESS
Then
+ errmsg)
use serial
or
logical name
+
newname
+ ")")
+ m.get_serialNumber)
saveToFlash()
nextModule()
YAPI_SUCCESS
Then
saveToFlash()
name>")
cable")
que 100000 fois au
qui renvoie
yFirstModule()
de cet objet pour
. Ci-dessous un petit
Nothing
.
75

Publicité

loading