Yoctopuce Yocto-Thermocouple Mode D'emploi page 133

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-Thermocouple 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, serial
Dim tsensor, ch1, ch2
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
Console.WriteLine("using:"
Else
tsensor = YTemperature.FindTemperature(target
End If
REM retreive module
serial = tsensor.get_module().get_serialNumber()
REM retreive both channels
ch1 = YTemperature.FindTemperature(serial
ch2 = YTemperature.FindTemperature(serial
While (True)
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 = ""
As String
As YTemperature
< 2 Then Usage()
to use local USB devices
errmsg) <> YAPI_SUCCESS) Then
Then
+ tsensor.get_module().get_serialNumber())
serial number
17. Utilisation du Yocto-Thermocouple en VisualBasic .NET
YTemperature.FindTemperature
")
+ errmsg)
+ ".temperature1")
+ ".temperature1")
+ ".temperature2")
yFindTemperature
")
permet
permet
127