有关.NET和RS232设备通讯
本来想整理一些东西出来的，后来发现没什么需要特别说明的，那篇翻译的文章实在是讲得太清楚了。
唯一需要说明的也许是如何使用这个类，其实在控件的源代码里面也可以找到两个很好的实现
- CommPingPong
- CommLine
也许值得一提的还有文章中用来举例的 LineTerm.vb ，实在是一个非常简单明了的实现：
1
Imports JH.CommBase
2
3
Public Class LineTerm
4
Inherits CommLine
5
6
Public Sub SendCommand(ByVal s As String)
7 Send(s)
8
End Sub
9
10 Public Sub TransactCommand(ByVal s As String)
11 Dim r As String
12 r = Transact(s)
13 Console.WriteLine("RESPONSE: " + r)
14 Prompt()
15 End Sub
16
17 Public Sub Prompt()
18 Console.WriteLine("Type string to send and press ENTER. Empty string to close com port.")
19 End Sub
20
21 Protected Overrides Function CommSettings() As CommBaseSettings
22 Dim cs As New CommLineSettings()
23 cs.SetStandard("COM1:", 19200, Handshake.none)
24 cs.rxFilter = New ASCII() {ASCII.LF, ASCII.SOH}
25 cs.rxTerminator = ASCII.CR
26 cs.txTerminator = New ASCII() {ASCII.CR}
27 Setup(cs)
28 Return cs
29 End Function
30
31 Protected Overrides Sub OnRxLine(ByVal s As String)
32 Console.WriteLine("RECEIVED: " + s)
33 Prompt()
34 End Sub
35
36 Protected Overrides Sub OnTxDone()
37 Console.WriteLine("TRANSMISSION COMPLETE")
38 Prompt()
39 End Sub
40
41
End Class
42Module Module1
43
44 Sub Main()
45 Dim t As New LineTerm()
46 Dim c As String
47 Console.WriteLine("Press ENTER to open com port")
48 Console.ReadLine()
49 If t.Open() Then
50 Console.WriteLine("COM PORT OPEN")
51 t.Prompt()
52 While True
53 c = Console.ReadLine().Trim
54 If c = "" Then Exit While
55 t.SendCommand(c)
56 't.TransactCommand(c)
57 End While
58 t.Close()
59 End If
60 Console.WriteLine("COM PORT CLOSED")
61 Console.WriteLine("Press ENTER to close program.")
62 Console.ReadLine()
63 End Sub
64
65End Module
66
67
Imports JH.CommBase2
3
Public Class LineTerm
4
Inherits CommLine5
6
Public Sub SendCommand(ByVal s As String)
7
Send(s)8
End Sub9
10
Public Sub TransactCommand(ByVal s As String)11
Dim r As String12
r = Transact(s)13
Console.WriteLine("RESPONSE: " + r)14
Prompt()15
End Sub16
17
Public Sub Prompt()18
Console.WriteLine("Type string to send and press ENTER. Empty string to close com port.")19
End Sub20
21
Protected Overrides Function CommSettings() As CommBaseSettings22
Dim cs As New CommLineSettings()23
cs.SetStandard("COM1:", 19200, Handshake.none)24
cs.rxFilter = New ASCII() {ASCII.LF, ASCII.SOH}25
cs.rxTerminator = ASCII.CR26
cs.txTerminator = New ASCII() {ASCII.CR}27
Setup(cs)28
Return cs29
End Function30
31
Protected Overrides Sub OnRxLine(ByVal s As String)32
Console.WriteLine("RECEIVED: " + s)33
Prompt()34
End Sub35
36
Protected Overrides Sub OnTxDone()37
Console.WriteLine("TRANSMISSION COMPLETE")38
Prompt()39
End Sub40
41
End Class42
Module Module143
44
Sub Main()45
Dim t As New LineTerm()46
Dim c As String47
Console.WriteLine("Press ENTER to open com port")48
Console.ReadLine()49
If t.Open() Then50
Console.WriteLine("COM PORT OPEN")51
t.Prompt()52
While True53
c = Console.ReadLine().Trim54
If c = "" Then Exit While55
t.SendCommand(c)56
't.TransactCommand(c)57
End While58
t.Close()59
End If60
Console.WriteLine("COM PORT CLOSED")61
Console.WriteLine("Press ENTER to close program.")62
Console.ReadLine()63
End Sub64
65
End Module66
67
其中Send和Transact就是同步和异步的区别。
如果使用TransactCommand就是发送命令之后等待回复，收到的数据做为函数的返回值返回。
如果使用SendCommand，就是‘发送后不管’，直到收到数据以后触发OnRxLine函数（首先每收到一个字符都要触发OnRxChar事件来判断接收的数据是不是正确，或者有没有正确的结束，一旦判断数据接收结束，就触发OnRxLine函数，这些都是在CommLine中实现的），讲收到的数据显示，或者提示。
哦，也许还有需要说明的就是：这个控件跟其他的使用Windows API的.NET下与RS232设备通讯的类库不同：
- 使用继承，还有OO的思想，不像其他只能算作工具类。
- 接收时候使用线程，继承的类也自动采用线程接收。
- 一次接收一个字符，其他的都是一次接收一串字符串。优点是不像其他的有时候会没有接收完毕就返回了。缺点可能是这样速度稍慢，对于某些RS232设备毫秒级的速度要求，加上.NET的速度本就不快，可能会产生一些问题。
- 可以在OnRxChar里面写判断函数，例如检查是否有开始结束字符，或者效验位的正确与否，来判断是否接收完毕（如果这个函数的判断较复杂，可能会影响传输的速度，每接收一个字符都会触发这个事件啊……）。
- 可以方便的把RS232设备封装成对象。或者使用单例模式来保证RS232设备资源冲突（未试验）。
- 其他，想到再说。
