Yoctopuce Yocto-RangeFinder Mode D'emploi page 139

rangefinder = YRangeFinder.FindRangeFinder("MaFonction")
YRangeFinder.FindRangeFinder
pour contrôler le capteur de distance.
isOnline
La méthode
isOnline()
de savoir si le module correspondant est présent et en état de marche.
get_currentValue
La méthode
get_currentValue()
d'obtenir la distance en mm mesurée par le capteur.
Un exemple réel
Lancez Microsoft VisualBasic et ouvrez le projet exemple correspondant, fourni dans le répertoire
Examples/Doc-GettingStarted-Yocto-RangeFinder 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 rf As YRangeFinder
Dim ir As YLightSensor
Dim tmp As YTemperature
If argv.Length
target = argv(1)
REM Setup the API
If (YAPI.RegisterHub("usb",
Console.WriteLine("RegisterHub error: "
End
End If
If target = "any"
rf = YRangeFinder.FirstRangeFinder()
If rf Is Nothing Then
Console.WriteLine("No module connected (check USB cable)
End
End If
target = rf.get_module().get_serialNumber()
Else
rf = YRangeFinder.FindRangeFinder(target
End If
ir = YLightSensor.FindLightSensor(target
tmp = YTemperature.FindTemperature(target
While (True)
If Not (rf.isOnline()) Then
Console.WriteLine("Module not connected (check identification and USB
End
End If
Console.WriteLine("Distance
Console.WriteLine("Ambiant IR
www.yoctopuce.com
renvoie un objet que vous pouvez ensuite utiliser à loisir
de l'objet renvoyé par
de l'objet renvoyé par
System.AppDomain.CurrentDomain.FriendlyName
+ " <serial_number>")
+ " <logical_name>")
+ " any
String = System.Environment.GetCommandLineArgs()
String = ""
String
< 2 Then Usage()
to use local USB devices
errmsg) <> YAPI_SUCCESS) Then
Then
: "
: "
17. Utilisation du Yocto-RangeFinder en VisualBasic .NET
YRangeFinder.FindRangeFinder
")
+ errmsg)
+ ".rangeFinder1")
+ ".lightSensor1")
+ ".temperature1")
+ Str(rf.get_currentValue()))
+ Str(ir.get_currentValue()))
yFindRangeFinder
")
cable)")
permet
permet
133