从品牌网站建设到网络营销策划,从策略到执行的一站式服务
感觉问题出在
姑苏ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景,ssl证书未来市场广阔!成为创新互联建站的ssl证书销售渠道,可以享受市场价格4-6折优惠!如果有意向欢迎电话联系或者加微信:18982081108(备注:SSL证书合作)期待与您的合作!
Form2.Show() '启动倒计时显示窗口
这一句上。
这一句应该只需要执行一次就行了。
把它放在timer中,多次调用,造成假死。
Sub bc()
Dim cs As New qq163(AddressOf js)
Application.DoEvnts
Invoke(cs)
End Sub
并没有看出什么地方可能导致程序假死,这排版也太乱了.不妨调试一下程序,当出现你说的"假死"后暂停一下程序,看看线程都卡在哪里.
另外,从设计上来看,你这里并不需要多线程操作.
你把
TextBox1.AppendText(SerialPort1.ReadExisting)
替换成
TextBox1.AppendText(SerialPort1.ReadLine)
SerialPort1.DiscardInBuffer()
试试看
我之前用ReadExisting也遇到过类似情况,后来换成ReadLine就可以了
Private Sub SerialPort1_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
TextBox1.AppendText(SerialPort1.ReadLine)
SerialPort1.DiscardInBuffer()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
If SerialPort1.IsOpen Then
SerialPort1.DiscardInBuffer() '清除数据接收区
SerialPort1.DiscardOutBuffer() '清除数据发送区
End If
TextBox1.Clear()‘清屏
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图