通信发送跟接受不一致，定时好象不起作用
我菜鸟一个，望大虾们能够帮帮小弟。
程序里2个小问题：选ASCII的时候发送跟接受不一致，定时好象不起作用。
谢谢！
[此贴子已经被作者于2006-5-14 12:23:35编辑过]
不能上传？
Private Sub Command1_Click(Index As Integer)
ABCD = CStr(Val("&H" + Text1.Text) + Val("&H" + Text3.Text) + Val("&H" + Text2.Text))
Text4.Text = Hex(ABCD) '校验位的计算
MSComm1.Output = Text6.Text + Text1.Text + Text2.Text + Text3.Text + Text4.Text + Text7.Text '发送数据的组成
End Sub
Private Sub Command6_Click()
If MSComm1.PortOpen Then '确认关闭串行口
MSComm1.PortOpen = False
Command6.Caption = "开始通信"
Else: MSComm1.PortOpen = True
Command6.Caption = "结束通信"
End If
End Sub
Private Sub Form_Load()
Dim ABC As Single
Dim ABCD As Single
Combo2.AddItem "ASCII"
Combo2.AddItem "RTU"
Combo3.AddItem "LRC"
Combo3.AddItem "CRC"
Combo1.AddItem "10"
Combo1.AddItem "20"
Combo1.AddItem "30"
Combo1.ListIndex = 0
Combo2.ListIndex = 0
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
MSComm1.CommPort = 2 '选用com2串行口
MSComm1.Settings = "9600,N,8,1" '波特率9600,无奇偶校验位,8位数据,1位停止位
MSComm1.InputLen = 0 'input将读取接受缓冲区的全部内容
MSComm1.InBufferSize = 1024 '设置接受缓冲区的字节长度
MSComm1.RThreshold = 1 '产生MSCOMM－EV－RECEIVE事件
MSComm1.PortOpen = True '打开通信口
MSComm1.InBufferCount = " 0"
MSComm1.OutBufferCount = 0
Option1.Value = True 'Option1 有效
End Sub
Private Sub Combo2_Click()
Select Case Combo2.Text
Case "ASCII"
Combo3.ListIndex = 0
Case "RTU"
Combo3.ListIndex = 1
End Select
Select Case Combo2.Text
Case "RTU"
Label11.Caption = ""
Label12.Caption = ""
Case "ASCII"
Label11.Caption = ":"
Label12.Caption = "CRLF"
End Select
End Sub
ASCII的时候发送跟接受不一致？什么原因呢？
[此贴子已经被作者于2006-5-14 12:29:20编辑过]