我现在能连上串口但是接收不到也发不出去数据,下位机已经写好往缓存发东西的程序,求帮助!
代码如下:
Dim x As Integer '定义变量x用于记录数据个数
Dim y0 As Integer '定义变量y0用于记录上一次数据
Dim y As Integer '定义变量y用于记录当前数据
Private Sub Command1_Click() ' 打开串口
MSComm1.CommPort = 7 '设置通信端口号为COM4,这个要根据自己所使用的串口而定
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputMode = 0
MSComm1.PortOpen = True
Shape1.FillColor = RGB(0, 255, 0)
Timer1.Enabled = True
End Sub
Private Sub Command2_Click() '关闭串口
MSComm1.PortOpen = False
Shape1.FillColor = vbRed
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Timer1_Timer() '定时器
Dim buf$ '定义一个字符串变量
buf = Trim(MSComm1.Input) '将串口接收缓冲区内的数据读入buf变量中
Text1.Text = Text1.Text + buf 'Text1中的数据等于原有的数据加上新接收的数据
End Sub