VB.NET 串口接收中断程序中 Timer控件不能启动求助
Public Class Form1
Dim readcommand(1) As Byte
Dim receivefunction As Byte
Dim receivepointer As Integer
Dim receivedata(99) As Byte
Dim comtransmitdata(5) As Byte
Dim recdatabuf() As Byte
Dim writecommand(11) As Byte
Dim ensurecommand(1) As Byte
Dim AIW0 As Integer
Dim I0 As Byte
Dim ACC As Byte
Dim writeflag As Boolean
Dim graphics As Long
Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Control.CheckForIllegalCrossThreadCalls = False
readcommand(0) = &HA5
readcommand(1) = &HF0
ensurecommand(0) = &HB5
ensurecommand(1) = &HD0
SerialPort1.PortName = "COM1"
SerialPort1.BaudRate = 9600
SerialPort1.Parity = IO.Ports.Parity.None
SerialPort1.DataBits = 8
SerialPort1.StopBits = IO.Ports.StopBits.One
SerialPort1.ReceivedBytesThreshold = 1
SerialPort1.ReadBufferSize = 256
SerialPort1.Open()
SerialPort1.Write(readcommand, 0, 2)
receivepointer = 0
writeflag = False
Label2.Text = Timer1.Interval
End Sub
Public Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim i As Integer
'Timer1.Enabled = False
For i = 0 To SerialPort1.BytesToRead - 1
receivedata(receivepointer) = SerialPort1.ReadByte
receivepointer = receivepointer + 1
Next
TextBox1.Text = System.Text.Encoding.Default.GetString(receivedata)
Timer1.Interval = 100
Timer1.Enabled = True
Label2.Text = Timer1.Interval
End Sub
Public Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'Timer1.Enabled = False
receivepointer = 0
Label1.Text = System.Text.Encoding.Default.GetString(receivedata)
TextBox1.Text = "SAFDDFDA"
End Sub
End Class
在程序接收到字符串后产生中断, 然后启动定时器 Timer1, 用来判断是否字符串结尾. 但Timer1在中断程序中不能启动.
[解决办法]
线程中操作 Timer1.Enabled = True 是不起作用的.
我的解决办法是 用建一个 start as Boolean 变量.
在程序启动时就将 Timer1.Interval = 100 时钟就开始循环了.
在Timer1_Tick里面判断
if(start = true)
-------执行你要执持的内容
endif
虽然你在启动的时候已经 Control.CheckForIllegalCrossThreadCalls = False
但是线程中操作控件的 启用关闭或者可视之类的还是有问题的.需要用别的办法解决.
[解决办法]
