Table des Matières
Publicité
YSerialPort.FindSerialPort
contrôler le port série.
isOnline
La méthode
isOnline()
savoir si le module correspondant est présent et en état de marche.
reset
La méthode
reset()
série.
readLine
La méthode
readLine()
prochain saut de ligne. La fonction est non-bloquante: si aucune ligne n'est disponible, elle retourne
une chaîne vide.
writeLine
La méthode
writeLine()
(CR/LF).
Un exemple réel
Lancez Microsoft VisualBasic et ouvrez le projet exemple correspondant, fourni dans le répertoire
Examples/Doc-GettingStarted-Yocto-Serial 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
ex
=
System.AppDomain.CurrentDomain.FriendlyName
Console.WriteLine("Usage")
Console.WriteLine(ex
Console.WriteLine(ex
Console.WriteLine(ex
Console.WriteLine("
Console.WriteLine("
System.Threading.Thread.Sleep(2500)
End
End Sub
Sub Main()
Dim argv() As
Dim
errmsg
As
Dim
target
As
Dim
serialPort
Dim
line
As
String
If
(YAPI.RegisterHub("usb",
Console.WriteLine("RegisterHub error: "
Environment.Exit(0)
End If
If
(argv.Length
target
= argv(1)
serialPort
=
If (Not serialPort.isOnline()) Then
Console.WriteLine("No module connected (check
Environment.Exit(0)
End If
Else
serialPort
= YSerialPort.FirstSerialPort()
If
(serialPort
Console.WriteLine("No module connected (check USB
Environment.Exit(0)
End If
End If
serialPort.set_serialMode("9600,8N1")
www.yoctopuce.com
renvoie un objet que vous pouvez ensuite utiliser à loisir pour
de l'objet renvoyé par
de l'objet returné par
retourne la prochaine ligne de texte reçue sur le port série, jusqu'au
transmet la chaîne spécifiée sur le port série, suivie par un saut de ligne
+
" <serial_number>
+
" <logical_name> <frequency>
+
" any
<frequency> <dutyCycle>
<frequency>: integer between 1Hz and
<dutyCycle>: floating point number between 0.0 and
String
= System.Environment.GetCommandLineArgs()
String
=
""
String
As
YSerialPort
errmsg) <> YAPI.SUCCESS) Then
> 1) Then
YSerialPort.FindSerialPort(target
Is Nothing) Then
13. Utilisation du Yocto-Serial en VisualBasic .NET
YSerialPort.FindSerialPort
yFindSerialPort
<frequency>
<dutyCycle>")
<dutyCycle>")
(use any discovered
+ errmsg)
+ ".serialPort")
cable)")
cable)")
permet de
vide tous les tampons du port
device)")
1000000Hz")
100.0")
91
Publicité
Table des Matières
