liaison serie

Question

Bonjour,

Je suis débutant en VBA.

Je travaille actuellement sur un projet étudiant en 4ième année d'école d'ingénieur.

Je dois, pour mon programme, effectuer une liaison série avec un pic et faire une interface graphique.

Pour l'heure, j'aimerais juste tester un petit prog qui fait la liaison série entre 2 pc (pour me faire la main).

J'ai trouvé sur l'aide de VBA2005 le programme ci-dessous.
Function

 ReceiveSerialData() 
As
String

' Receive strings from a serial port.

Dim returnStr 
As
String = 
""

Using com1 
As IO.Ports.SerialPort = _

My.Computer.Ports.OpenSerialPort(
"com1", 9600, IO.Ports.Parity.None, 8, IO.Ports.StopBits.One)

Do

Dim Incoming 
As
String = com1.ReadLine()

If Incoming 
Is
Nothing
Then

Exit
Do

ElsereturnStr &= Incoming & vbCrLf

End
If

Loop

End
Using

Return returnStr

End
Function
Il compile bien mais lorsque j'essaye de le lancer le prog ce fige.

Pourtant, j'ai bien configurer la liaison série sous hyper terminal de l'autre pc et dans mon prog.

Je ne sais pas trop d'où sa vient.

Please, help me, je suis seul sur cette partie du projet et c'est chaud quant on débute.

Merci pour vos réponses.

drikce06 · Answer

C'est du VBA ça?

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

NHenry · Answer

Bonjour


Comme ça je dirais VB.NET2 (2005).


Ton prog se fige car tu fait un do loop infini (sauf si Incoming est Nothing).


Rapidement je dirais que Incoming est toujours différent de Nothing.


Pour éviter le bloquage, regarde du coté des threads.

Il est plus facile de batiser quelqu'un que de le convertir.(surtout en programmation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

Liaison serie

2 réponses

Votre réponse

Discussions similaires