Table des Matières
Publicité
currentloopoutput
currentloopoutput
currentloopoutput
YCurrentLoopOutput.FindCurrentLoopOutput
utiliser à loisir pour contrôler la sortie sortie 4-20mA.
isOnline
La
méthode
YCurrentLoopOutput.FindCurrentLoopOutput
correspondant est présent et en état de marche.
get_loopPower
La méthode
get_loopPower()
permet de connaitre l'état de l'alimentation de la boucle de courant.
set_current
La méthode
set_current()
boucle. Le paramètre est une valeur entre 3.0 et 21.0 mA.
Un exemple réel
Lancez Microsoft VisualBasic et ouvrez le projet exemple correspondant, fourni dans le répertoire
Examples/Doc-GettingStarted-Yocto-4-20mA-Tx 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
Console.WriteLine("<value>: floating point number between 4.00 and 20.00
System.Threading.Thread.Sleep(2500)
End
End Sub
Sub Main()
Dim argv() As
Dim
errmsg
As
Dim
target
As
Dim
currentloop
Dim
pwr
As
Integer
Dim
value
As
Double
If
argv.Length
target
= argv(1)
value
= CDbl(argv(2))
REM
Setup the API
If
(YAPI.RegisterHub("usb",
Console.WriteLine("RegisterHub error: "
End
End If
If
target
=
"any"
currentloop
If
currentloop
Console.WriteLine("No module connected (check USB cable)
End
End If
target
= currentloop.get_module().get_serialNumber()
End If
currentloop
=
www.yoctopuce.com
= YCurrentLoopOutput.FindCurrentLoopOutput("MonModule.currentLoopOutput")
= YCurrentLoopOutput.FindCurrentLoopOutput("MonModule.MaFonction")
= YCurrentLoopOutput.FindCurrentLoopOutput("MaFonction")
isOnline()
de l'objet retourné par la fonction
permet de d'ajuster la quantité de courant qui doit circuler dans le
System.AppDomain.CurrentDomain.FriendlyName
+
" <serial_number>
+
" <logical_name>
+
" any
String
= System.Environment.GetCommandLineArgs()
String
=
""
String
As
YCurrentLoopOutput
<
2
Then Usage()
to
use local USB devices
errmsg) <> YAPI_SUCCESS) Then
Then
= YCurrentLoopOutput.FirstCurrentLoopOutput()
Is Nothing Then
YCurrentLoopOutput.FindCurrentLoopOutput(target
11. Utilisation du Yocto-4-20mA-Tx en VisualBasic .NET
renvoie un objet que vous pouvez ensuite
de
l'objet
permet
<value>")
<value>")
<value>
(use any discovered
+ errmsg)
renvoyé
de
savoir
si
le
YFindCurrentLoopOutput
device)")
mA")
")
+ ".currentLoopOutput")
par
module
71
Publicité
Table des Matières
