Table des Matières
Publicité
Console.WriteLine("logical name: "
Console.WriteLine("luminosity:
Console.Write("beacon:
If (m.get_beacon() = Y_BEACON_ON) Then
Console.WriteLine("ON")
Else
Console.WriteLine("OFF")
End If
Console.WriteLine("upTime:
Console.WriteLine("USB current:
Console.WriteLine("Logs:")
Console.WriteLine(m.get_lastLogs())
Else
Console.WriteLine(argv(1) +
End If
YAPI.FreeAPI()
End Sub
End Module
Chaque propriété
xxx
propriétés qui se sont pas en lecture seule peuvent être modifiées à l'aide de la méthode
Pour plus de détails concernant ces fonctions utilisées, reportez-vous aux chapitre API
()
Modifications des réglages du module
Lorsque que vous souhaitez modifier les réglages d'un module, il suffit d'appeler la fonction
correspondante, cependant cette modification n'a lieu que dans la mémoire vive du
set_xxx()
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()
www.yoctopuce.com
")
" not connected (check identification and USB
du module peut être lue grâce à une méthode du type
. 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())
18. Utilisation du Yocto-I2C en VisualBasic .NET
+ m.get_logicalName())
"
+ Str(m.get_luminosity()))
"
+ Str(m.get_upTime() / 1000) +
"
+ Str(m.get_usbCurrent()) +
YAPI_SUCCESS
Then
+ errmsg)
use serial
or
logical name
+
newname
+ ")")
+ m.get_serialNumber)
"
sec")
"
mA")
cable)")
get_xxxx()
set_xxx
saveToFlash()
name>")
cable")
, et les
.
149
Publicité
Table des Matières
