Yoctopuce Yocto-PowerRelay-V2 Mode D'emploi page 131

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",
Console.WriteLine("RegisterHub error: "
End
End If
Console.WriteLine("Device
M = YModule.FirstModule()
While M IsNot Nothing
Console.WriteLine(M.get_serialNumber() +
M = M.nextModule()
www.yoctopuce.com
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) <>
list")
16. Utilisation du Yocto-PowerRelay-V2 en VisualBasic .NET
YAPI_SUCCESS Then
+ errmsg)
use serial or logical name
+ newname + ")")
+ m.get_serialNumber)
saveToFlash()
nextModule()
YAPI_SUCCESS Then
+ errmsg)
" (" + M.get_productName() + ")")
name>")
cable")
que 100000 fois au
qui renvoie
yFirstModule()
de cet objet pour
. Ci-dessous un petit
Nothing
125