Yoctopuce Yocto-Inclinometer Mode D'emploi page 137

YTilt.FindTilt
l'inclinomètre.
isOnline
La méthode
isOnline()
correspondant est présent et en état de marche.
get_currentValue
La méthode
get_currentValue()
l'inclinaison actuelle mesurée par le capteur. La valeur de retour est un nombre flottant.
Un exemple réel
Lancez Microsoft VisualBasic et ouvrez le projet exemple correspondant, fourni dans le répertoire
Examples/Doc-GettingStarted-Yocto-Inclinometer 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
System.Threading.Thread.Sleep(2500)
End
End Sub
Sub Main()
Dim argv() As
Dim errmsg As
Dim target As
Dim serial As
Dim count As Integer
Dim anytilt, tilt1, tilt2 , tilt3
If argv.Length
target = argv(1)
REM Setup the API
If (YAPI.RegisterHub("usb",
Console.WriteLine("RegisterHub error: "
End
End If
If target = "any"
anytilt = YTilt.FirstTilt()
If anytilt Is Nothing Then
Console.WriteLine("No module connected (check USB
End
End If
Else
anytilt = YTilt.FindTilt(target
If Not (anytilt.isOnline()) Then
Console.WriteLine("Module not connected (check identification and USB
End
End If
End If
serial = anytilt.get_module().get_serialNumber()
tilt1 = YTilt.FindTilt(serial
tilt2 = YTilt.FindTilt(serial
tilt3 = YTilt.FindTilt(serial
count = 0
While (True)
If (Not tilt1.isOnline()) Then
www.yoctopuce.com
renvoie un objet que vous pouvez ensuite utiliser à loisir pour contrôler
de l'objet renvoyé par
des objets renvoyés par
System.AppDomain.CurrentDomain.FriendlyName
+ " <serial_number>")
+ " <logical_name>")
+ " any
String = System.Environment.GetCommandLineArgs()
String = ""
String
String
As
< 2 Then Usage()
to use local USB devices
errmsg) <> YAPI_SUCCESS) Then
Then
+ ".tilt1")
+ ".tilt1")
+ ".tilt2")
+ ".tilt3")
17. Utilisation du Yocto-Inclinometer en VisualBasic .NET
YTilt.FindTilt
")
YTilt
+ errmsg)
cable)")
permet de savoir si le module
permet d'obtenir
yFindTilt
cable)")
131