L
libaoliang
Unregistered / Unconfirmed
GUEST, unregistred user!
我有一个读取串口1的VB程序代码，该串口线接在一个地衡器的输出端口上，谁能告诉我在delphi6.0下实现这一功能并把其二进制数据转换为十进制数据并赋给一变量中。(40分)<br />我有一个读取串口1的VB程序代码，该串口线接在一个地衡器的输出端口上，谁能告诉我在delphi6.0下实现这一功能并把其二进制数据转换为十进制数据并赋给一变量中。
下面是Vb的代码，能否告诉我其含义，不胜感激！
Private Sub Setp()
'设定并打开端口
VB_MSComm.CommPort = 1
' 9600 波特，无奇偶校验，8 位数据，一个停止位。
VB_MSComm.PortOpen = True
VB_MSComm.Settings = "1200,n,8,1"
VB_MSComm.InBufferCount = 0
'设定 InputMode 读取二进制数据
'VB_MSComm.InputMode = comInputModeBinary
Me.VB_MSComm.RThreshold = 8
'等待直到输入缓冲区有 10 个字节
End Sub
下面是Vb的代码，能否告诉我其含义，不胜感激！
Private Sub Setp()
'设定并打开端口
VB_MSComm.CommPort = 1
' 9600 波特，无奇偶校验，8 位数据，一个停止位。
VB_MSComm.PortOpen = True
VB_MSComm.Settings = "1200,n,8,1"
VB_MSComm.InBufferCount = 0
'设定 InputMode 读取二进制数据
'VB_MSComm.InputMode = comInputModeBinary
Me.VB_MSComm.RThreshold = 8
'等待直到输入缓冲区有 10 个字节
End Sub