Un Exemple Réel - Yoctopuce Yocto-Meteo Mode D'emploi

isOnline
La méthode
isOnline()
correspondant est présent et en état de marche.
get_currentValue
La méthode
get_currentValue()
l'humidité relative actuelle mesurée par le capteur. La valeur de retour est un nombre flottant,
représentant directement le nombre de %RH.
yFindTemperature et yFindPressure
Les fonctions
yFindTemperature
avec les mesures de temperature et de pression, et se manipulent exactement comme
.
yFindHumidity
Un exemple réel
Lancez Microsoft VisualBasic et ouvrez le projet exemple correspondant, fourni dans le répertoire
Examples/Doc-GettingStarted-Yocto-Meteo 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 hsensor As
Dim tsensor As
Dim psensor As
If argv.Length
target = argv(1)
REM Setup the API
If (yRegisterHub("usb",
Console.WriteLine("RegisterHub error: "
End
End If
If target = "any"
hsensor = yFirstHumidity()
tsensor = yFirstTemperature()
psensor = yFirstPressure()
If hsensor Is Nothing Or
Console.WriteLine("No module connected (check USB cable)
End
End If
Else
hsensor = yFindHumidity(target
tsensor = yFindTemperature(target
psensor = yFindPressure(target
End If
While (True)
If Not (hsensor.isOnline()) Then
www.yoctopuce.com
de l'objet renvoyé par
de l'objet renvoyé par
et
yFindPressure
System.AppDomain.CurrentDomain.FriendlyName
+ " <serial_number>")
+ " <logical_name>")
+ " any
String = System.Environment.GetCommandLineArgs()
String = ""
String
YHumidity
YTemperature
YPressure
< 2 Then Usage()
to use local USB devices
errmsg) <> YAPI_SUCCESS) Then
Then
tsensor
+ ".humidity")
+ ".pressure")
11. Utilisation du Yocto-Meteo en VisualBasic .NET
yFindHumidity
yFindHumidity
permettent de travailler respectivement
")
+ errmsg)
Is Nothing Or psensor
+ ".temperature")
permet de savoir si le module
permet d'obtenir
Is Nothing Then
")
75