Table des Matières
Publicité
YDigitalIO.FindDigitalIO
contrôler le port d'E/S digital.
isOnline
La méthode
isOnline()
savoir si le module correspondant est présent et en état de marche.
set_state
La méthode
set_portState()
chacune des sorties en une seule fois. Le paramètre est un entier représentant un bitmap: Bit 0 pour
la première sortie, bit 1 pour la deuxième, etc..
Un exemple réel
Lancez Microsoft VisualBasic et ouvrez le projet exemple correspondant, fourni dans le répertoire
Examples/Doc-GettingStarted-Yocto-IO 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
io
As
YDigitalIO
Dim
outputdata
Dim
inputdata
Dim
line
As
String
If
argv.Length
target
= argv(1)
REM
Setup the API
If
(YAPI.RegisterHub("usb",
Console.WriteLine("RegisterHub error: "
End
End If
If
target
=
"any"
io
= YDigitalIO.FirstDigitalIO()
If
io
Is Nothing Then
Console.WriteLine("No module connected (check USB cable)
End
End If
Else
io
=
YDigitalIO.FindDigitalIO(target
End If
If (Not io.isOnline()) Then
Console.WriteLine("Module not connected (check identification and USB
End
End If
REM
lets configure the channels direction
REM
bits
0..1
REM
bits
2..3
io.set_portDirection(&H3)
www.yoctopuce.com
renvoie un objet que vous pouvez ensuite utiliser à loisir pour
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
As
Integer
As
Integer
<
2
Then Usage()
to
use local USB devices
errmsg) <> YAPI_SUCCESS) Then
Then
as
output
as
input
16. Utilisation du Yocto-IO en VisualBasic .NET
YDigitalIO.FindDigitalIO
yFindDigitalIO
+ errmsg)
+ ".digitalIO")
permet de
permet d'affecter
")
cable)")
125
Publicité
Table des Matières
