Bonjour,
je cherche l'équivalent de ces évènements et méthodes en vb.net avec SerialPort :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
MSComm1_OnComm()
      MSComm1.InputMode
      MSComm1.Output
      CommEvent
et comment je peux remplacer ce code en vb.net(juste les evenements):
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
 Select Case MSComm1.CommEvent
        Case comEvReceive
            If MSComm1.InputMode = comInputModeBinary Then
                ReceiveArray (MSComm1.Input)
            Else
                ReceiveText (MSComm1.Input)
            End If
        Case comBreak
            Info.Value = Now & " : A Break was received."
            'EcrireEvtSig (Info.Value)
        Case comCDTO
            Info.Value = Now & " : CD (RLSD) Timeout."
            EcrireEvtSig (Info.Value)
        Case comCTSTO
            Info.Value = Now & " : CTS Timeout."
            EcrireEvtSig (Info.Value)
        Case comDSRTO
            Info.Value = Now & " : DSR Timeout."
            EcrireEvtSig (Info.Value)
        Case comFrame
            Info.Value = Now & " : Framing Error"
            EcrireEvtSig (Info.Value)
        Case comOverrun
            Info.Value = Now & " : Data Lost."
            EcrireEvtSig (Info.Value)
        Case comRxOver
            Info.Value = Now & " : Receive buffer overflow."
            EcrireEvtSig (Info.Value)
        Case comRxParity
            Info.Value = Now & " : Parity Error."
            EcrireEvtSig (Info.Value)
        Case comTxFull
            Info.Value = Now & " : Transmit buffer full."
            EcrireEvtSig (Info.Value)
        Case comEvCD
            'Info.Value = Now & " : Change in the CD line."
            'If Not MSComm1.CDHolding Then
            '    StopCom
            'Else
            '    StartCom
            'End If
            'EcrireEvtSig (Info.Value)
        Case comEvCTS
            Info.Value = Now & " : Change in the CTS line. (" & MSComm1.CTSHolding & ")"
            'EcrireEvtSig (Info.Value)
        Case comEvDSR
            'Info.Value = Now & " : Change in the DSR line."
            'EcrireEvtSig (Info.Value)
        Case comEvRing
            Info.Value = Now & " : Change in the Ring Indicator."
            'EcrireEvtSig (Info.Value)
        Case comEvSend
            Info.Value = Now & " : Chars in send buffer"
            EcrireEvtSig (Info.Value)
    End Select
Merci beaucoup