RS232

Question

Bonjour,

j'utilise le port RS232 pour simplement &#233;crire vers l'ext&#233;rieur (switch
on/off d'une alim). Le probl&#232;me est que je n'arrive pas &#224; envoyer mes
commandes, car jai une exception COMException, m'indiquant que la
m&#233;thode est introuvable.

Voici mon code :

    

Sub initComPort(ByVal numPort As Short, ByVal handshaking As Short,
ByVal RThreshold As Short, ByVal RTS As Boolean, ByVal properties As
String, ByVal SThreshold As Short)

        ComPort1 = New MSCommLib.MSComm   



        With ComPort1 'configuration du port

            .CommPort = numPort 'On utilise le port COM1:

            .Handshaking = handshaking 'RTS

            .RThreshold = RThreshold

            .RTSEnable = True 'mieux pour le port COM:

            .Settings = properties

            .SThreshold = SThreshold

            .PortOpen = True 'ouverture du port

        End With

    End Sub



    Function alimSwitch(ByVal state As Boolean) As Integer

        Dim x As Short

        If state = True Then

            ComPort1.Output("OUTP:STAT ON")

        Else

            ComPort1.Output("OUTP:STAT OFF")

        End If



    End Function



    Sub CompPort1Open(ByVal open As Boolean)

        ComPort1.PortOpen = open

    End Sub



Lorsque j'utilise le debugger de vb.net, je constate que mes propri&#233;t&#233;s
du rs232 sont bien prises en compte, mais jai peut etre un probl&#232;me de
d&#233;claration car d&#233;j&#224;, je peux voir que la m&#233;thode output est une
exception (Systme.Runtime.InteropServices.COMEexception)...

Merci pour votre aide..

Rappel : je travaille sous vb.net

cs_lim · Answer

Salut

Essaye d'&#233;crire &#231;&#224; plutot

 ComPort1.Output ="OUTP:STAT ON"

@+
LIM

runo · Answer

Bah j'ai essay&#233; et cela supprime ne change rien (tjs l'exception). Ca
fait chier car jai trouv&#233; des sources qui me permettent de le faire
fonctionner sous vb6 mais je ny arrive pas sous vb.net... Je commence a
me demander si vb.net est reellement mieux que vb6....

Si qqun a d'autres id&#233;es, ne pas hesiter... !!

runo · Answer

C'est bon j'ai trouv&#233; l'astuce !!! Il fallait bien comme tu le disais
LIM supprimer les ( ), mais en plus il fallait ajouter & vbCrLf....
C'&#233;tait pas &#233;vident &#224; choper ce probl&#232;me !!

    ComPort1.Output = "OUTP:STAT ON" & vbCrLf

RS232

3 réponses

Discussions similaires