Table des Matières
Publicité
11. Utilisation du Yocto-Color en VisualBasic .NET
Console.WriteLine("RegisterHub error: "
End
End If
If
target =
"any"
led1 =
yFirstColorLed()
If
led1
Is
Nothing
Console.WriteLine("No module connected (check USB cable)
End
End If
led2 =
led1.nextColorLed()
Else
led1 = yFindColorLed(target +
led2 = yFindColorLed(target +
End If
If (led1.isOnline()) Then
led1.set_rgbColor(color)
led2.rgbMove(color,
Else
Console.WriteLine("Module not connected (check identification and USB
End If
yFreeAPI()
End Sub
End Module
11.4. Contrôle de la partie module
Chaque module peut-être contrôlé d'une manière similaire, vous trouverez ci dessous un simple
programme d'exemple affichant les principaux paramètres d'un module et permettant d'activer la
balise de localisation.
Imports
System.IO
Imports
System.Environment
Module
Module1
Sub usage()
Console.WriteLine("usage: demo <serial or logical name>
End
End Sub
Sub Main()
Dim argv() As
Dim
errmsg
As
Dim
m
As
ymodule
If
(yRegisterHub("usb",
Console.WriteLine("RegisterHub error:"
End
End If
If
argv.Length
m =
yFindModule(argv(1))
If (m.isOnline()) Then
If
argv.Length
If argv(2)
If argv(2)
End If
Console.WriteLine("serial:
Console.WriteLine("logical name: "
Console.WriteLine("luminosity:
Console.Write("beacon:
If (m.get_beacon()
Console.WriteLine("ON")
Else
Console.WriteLine("OFF")
End If
Console.WriteLine("upTime:
68
Then
Then
".colorLed1")
".colorLed2")
REM immediate switch
1000)
REM smooth transition
String
=
System.Environment.GetCommandLineArgs()
String
=
""
errmsg)
<>
<
2
Then usage()
REM use serial or logical name
>
2
Then
=
"ON"
Then m.set_beacon(Y_BEACON_ON)
=
"OFF"
Then m.set_beacon(Y_BEACON_OFF)
")
=
Y_BEACON_ON) Then
+
errmsg)
YAPI_SUCCESS) Then
+
errmsg)
"
+
m.get_serialNumber())
+
m.get_logicalName())
"
+
Str(m.get_luminosity()))
"
+
Str(m.get_upTime()
")
cable)")
[ON/OFF]")
/
1000)
+
"
sec")
www.yoctopuce.com
Publicité
Table des Matières
