Yoctopuce Yocto-PT100 Mode D'emploi page 79

temperature = YTemperature.FindTemperature("MaFonction")
YTemperature.FindTemperature
pour contrôler le capteur de température.
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 température actuelle mesurée par le capteur. La valeur de retour est un nombre flottant,
représentant directement le nombre de degrés Celsius.
Un exemple réel
Lancez Microsoft VisualBasic et ouvrez le projet exemple correspondant, fourni dans le répertoire
Examples/Doc-GettingStarted-Yocto-PT100 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 tsensor As
If argv.Length
target = argv(1)
REM Setup the API
If (YAPI.RegisterHub("usb",
Console.WriteLine("RegisterHub error: "
End
End If
If target = "any"
tsensor = YTemperature.FirstTemperature()
If tsensor Is Nothing Then
Console.WriteLine("No module connected (check USB cable)
End
End If
Else
tsensor = YTemperature.FindTemperature(target
End If
While (True)
If Not (tsensor.isOnline()) Then
Console.WriteLine("Module not connected (check identification and USB
End
End If
Console.WriteLine("Current temperature: "
Console.WriteLine("
YAPI.Sleep(1000,
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
YTemperature
< 2 Then Usage()
to use local USB devices
errmsg) <> YAPI_SUCCESS) Then
Then
+ " °C")
(press Ctrl-C to
errmsg)
11. Utilisation du Yocto-PT100 en VisualBasic .NET
YTemperature.FindTemperature
")
+ errmsg)
+ ".temperature")
+ Str(tsensor.get_currentValue())
exit)")
yFindTemperature
")
cable)")
_
permet
permet
73