isOnline
La méthode
isOnline()
correspondant est présent et en état de marche.
set_rgbColor
La méthode
set_rgbColor()
couleur de la led correspondante. La Couleur est donnée en coordonnées RGB codées sous forme
d'un entier.
rgbMove
Il existe une méthode alternative pour changer de couleur. La méthode
renvoyé par
yFindColorLed
autre couleur RGB donnée en paramètre. Cette fonction prend aussi en paramètre le temps accordé
pour effecter la transition.
Les méthodes
set_rgbColor()
d'exercice, vous pourriez modifier l'exemple ci'dessous pour utiliser le système HSL. Vous pourriez
ainsi observer les différences de comportement. En HSL pour le rouge est codé 0xFFFF80, le vert
est codé 0x55FF80 et du bleu est codé 0xA9FF80.
Un exemple réel
Lancez Microsoft VisualBasic et ouvrez le projet exemple correspondant, fourni dans le répertoire
Examples/Doc-GettingStarted-Yocto-Color 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 +
Console.WriteLine(execname +
Console.WriteLine(execname +
Console.WriteLine("Eg.")
Console.WriteLine(execname +
Console.WriteLine(execname +
System.Threading.Thread.Sleep(2500)
End
End Sub
Sub Main()
Dim argv() As
Dim
errmsg
As
Dim
target
As
Dim
led1
As
YColorLed
Dim
led2
As
YColorLed
Dim
color_str
Dim
color
As
Integer
If
argv.Length
target =
argv(1)
color_str =
argv(2).ToUpper()
If
(color_str =
color = &HFF0000
ElseIf
(color_str =
color = &HFF00
ElseIf
(color_str =
color = &HFF
Else
color =
CInt(Val("&H"
End If
REM Setup the API to use local USB devices
If
(yRegisterHub("usb",
www.yoctopuce.com
de l'objet renvoyé par
de l'objet renvoyé par
permet de lancer une transition entre la couleur courante et une
et
rgbMove()
System.AppDomain.CurrentDomain.FriendlyName
" <serial_number>
" <logical_name> [ color | rgb
"
any
" any FF1493
" YRGBLED1-123456
String
=
System.Environment.GetCommandLineArgs()
String
=
""
String
As
String
<
3
Then Usage()
"RED") Then
"GREEN") Then
"BLUE") Then
+
color_str))
errmsg)
<>
11. Utilisation du Yocto-Color en VisualBasic .NET
yFindColorLed
yFindColorLed
existent aussi en version HSL. En guise
[ color | rgb
[ color | rgb ]
")
")
red")
YAPI_SUCCESS) Then
permet de savoir si le module
permet de régler la
de l'objet
rgbMove()
]")
]")
67