isOnline
La méthode
isOnline()
correspondant est présent et en état de marche.
set_power
La fonction
set_power()
L'argument est Y_POWER_ON ou Y_POWER_OFF. Vous trouverez dans la référence de l'interface
de programmation d'autres méthodes permettant de contrôler précisément la luminosité et de faire
clignoter automatiquement la led.
Un exemple réel
Lancez Microsoft VisualBasic et ouvrez le projet exemple correspondant, fourni dans le répertoire
Examples/Doc-GettingStarted-Yocto-Demo de la librairie Yoctopuce.
Vous reconnaîtrez dans cet exemple l'utilisation des fonctions expliquées ci-dessus, cette fois
utilisées avec le décorum nécessaire à en faire un petit programme d'exemple concret.
Module
Module1
Private Sub Usage()
Dim
execname =
Console.WriteLine("Usage:")
Console.WriteLine(execname+" <serial_number>
Console.WriteLine(execname+" <logical_name> [ on | off
Console.WriteLine(execname+" any [ on | off ]
System.Threading.Thread.Sleep(2500)
End
End Sub
Sub Main()
Dim argv() As
Dim
errmsg
Dim
target
Dim
led
As
Dim
on_off
If
argv.Length
target =
argv(1)
on_off =
argv(2).ToUpper()
REM Setup the API to use local USB devices
If
(yRegisterHub("usb",
Console.WriteLine("RegisterHub error: "
End
End If
If
target =
led =
If
led
Console.WriteLine("No module connected (check USB cable)
End
End If
Else
led = yFindLed(target +
End If
If (led.isOnline()) Then
If
on_off =
Else
Console.WriteLine("Module not connected (check identification and USB
End If
End Sub
www.yoctopuce.com
de l'objet renvoyé par
de l'objet renvoyé par
System.AppDomain.CurrentDomain.FriendlyName
String
=
System.Environment.GetCommandLineArgs()
As
String
=
""
As
String
YLed
As
String
<
3
Then Usage()
errmsg)
"any"
Then
yFirstLed()
Is
Nothing
Then
".led")
"ON"
Then led.set_power(Y_POWER_ON) Else led.set_power(Y_POWER_OFF)
11. Utilisation du Yocto-Demo en VisualBasic .NET
yFindLed
permet d'allumer et d'éteindre la led.
yFindLed
[ on | off
")
<>
YAPI_SUCCESS) Then
+
errmsg)
permet de savoir si le module
]")
]")
")
cable)")
59