Table des Matières
Publicité
18. Utilisation du Yocto-RS485-V2 en VisualBasic .NET
Console.WriteLine("Press ENTER to read again, Q to
If
((reg
Mod 30000) < 10000) Then
cmd
= Console.ReadLine()
If
cmd
=
"q"
If
(cmd
<>
""
val
= Convert.ToInt32(cmd)
If
reg
>=
serialPort.modbusWriteRegister(slave, reg
Else
serialPort.modbusWriteBit(slave, reg
End If
End If
End While
YAPI.FreeAPI()
End Sub
End Module
18.4. Contrôle de la partie module
Chaque module peut-être contrôlé d'une manière similaire, vous trouverez ci dessous un simple
programme d'exemple affichant les principaux paramètres d'un module et permettant d'activer la
balise de localisation.
Imports
System.IO
Imports
System.Environment
Module
Module1
Sub usage()
Console.WriteLine("usage: demo <serial or logical name>
End
End Sub
Sub Main()
Dim argv() As
Dim
errmsg
As
Dim
m
As
ymodule
If
(YAPI.RegisterHub("usb",
Console.WriteLine("RegisterHub error:"
End
End If
If
argv.Length
m
= YModule.FindModule(argv(1)) REM
If (m.isOnline()) Then
If
argv.Length
If argv(2) =
If argv(2) =
End If
Console.WriteLine("serial:
Console.WriteLine("logical name: "
Console.WriteLine("luminosity:
Console.Write("beacon:
If (m.get_beacon() = Y_BEACON_ON) Then
Console.WriteLine("ON")
Else
Console.WriteLine("OFF")
End If
Console.WriteLine("upTime:
Console.WriteLine("USB current:
Console.WriteLine("Logs:")
Console.WriteLine(m.get_lastLogs())
Else
Console.WriteLine(argv(1) +
End If
YAPI.FreeAPI()
End Sub
146
Or
cmd
=
"Q"
Then End
And
(reg
Mod 30000) < 10000) Then
30001
Then
String
= System.Environment.GetCommandLineArgs()
String
=
""
errmsg) <> YAPI_SUCCESS) Then
<
2
Then usage()
>
2
Then
"ON"
Then m.set_beacon(Y_BEACON_ON)
"OFF"
Then m.set_beacon(Y_BEACON_OFF)
")
" not connected (check identification and USB
quit")
Console.WriteLine(" or enter a new
-
30001,
-
1,
val)
+ errmsg)
use serial
or
logical name
"
+ m.get_serialNumber())
+ m.get_logicalName())
"
+ Str(m.get_luminosity()))
"
+ Str(m.get_upTime() / 1000) +
"
+ Str(m.get_usbCurrent()) +
value")
val)
[ON/OFF]")
"
sec")
"
mA")
cable)")
www.yoctopuce.com
Publicité
Table des Matières
