vb2005 串口问题
我在接收数据部份的代码如下:Private Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort.DataReceived
Dim ReadByte(0) As Byte
SerialPort.Read(ReadByte, 0, 1)
Timer1.Enabled = True
End Sub
设置Timer1.interval=300的但执行完上面代码后Timer1感觉是没打开一样没执行相应代码。
但我用一个Button1来打开Timer1确能能执行相应代码。
这是为什么呢?到底是那个有问题呢? --------------------编程问答-------------------- 设置断点,单步调试一下看看 --------------------编程问答-------------------- 同上 --------------------编程问答-------------------- 以下代码也许对你有帮助!
--------------------编程问答-------------------- 设置了断点,单步调试一过,什么都是正常的。
Dim com_data As String
Private Sub mySerialPort_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles mySerialPort.DataReceived
Try
com_data = mySerialPort.ReadLine
Catch ex As Exception
com_data = ""
End Try
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If com_data <> "" Then
Me.Timer1.Enabled = False
msgbox(com_data)
'处理读得的信息
Timer1.Enabled = True
End If
com_data = ""
End Sub
我现在又发现在 “Timer1.Enabled = True”这个语句后面跟上一句 “MsgBox("OK")”定时器就启动了! --------------------编程问答-------------------- clygs
你的代码我试过来还是不行! --------------------编程问答-------------------- 怎么没人来指教一下呢? --------------------编程问答-------------------- 高手们,SerialPort.Read(ReadByte, 0, 1)
我对串口设备,如短信猫等,返回就一个65
急求怎么用
--------------------编程问答-------------------- 65是字符:A 的ASCII编码,你能把你的代码贴出来吗?不贴出来,我们怎么知道为什么? --------------------编程问答-------------------- 我做短信猫的时候好像得开启短信接收才能接收数据,不知道是不是这样?? --------------------编程问答-------------------- --------------------编程问答-------------------- 帮顶~~~
补充:VB , COM/DCOM/COM+