# 请问rs-232 问题

Posted by jason on December 16, 1997 at 17:08:45:

请问为什么 > 128 的数值无法接收or 传送 (rs-232 pin 2,3 短路由com2 传及收)
如何解决?
我以前写了一个程式在win3.1 上可以跑换成win95及vb6.0 >128ascii code
就变成无法接收了
Dim buffer() As Byte

Private Sub Command1_Click()
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
For O = 0 To 254
MSComm1.Output = Chr$(O)
Next O
If MSComm1.InBufferCount > 0 Then
ReDim buffer(MSComm1.InBufferCount)
buffer() = MSComm1.Input
MSComm1.InBufferCount = 0
Else
End If
Label1.Caption = buffer(HScroll1.Value)
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub HScroll1_Change()
Label1.Caption = buffer(HScroll1.Value)
End Sub

Follow Ups:

- vb6 的 bug，vb6..... 小吴 07:03:15 12/17/97 (0)