如何定时每秒发送数据给下位机并添加序号位?? 有没有大神帮解释一下啊〒_〒 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1000 MSComm1.PortOpen = TrueEnd SubPrivate Sub Timer1_Timer() Static i As Long i = i + 1 MSComm1.Output = i & "qitazhiling" If i Mod 255 = 0 Then i = 0End Sub 为什么vb6写的一个程序 文本框里面会没有光标闪烁? 数据库报错,“无法为更新定位行”,请指教。 求VB经典教材(主要讲解关于类的使用的教程,不是初级教程) vbl连接EXCEL后怎样读取指定行数据 xml与win2000 VB的postmessage能不能用来模拟鼠标移动? 如何让ToolTipText分行显示 请教诸位朋友一个问题:使用MSHFlexGrid如何实现单元格的拆分呀.在线等候 改换数据库遇到的问题 打包成功后,安装出错!在线等待!!!:) 关于msdn的问题 帮助
Timer1.Enabled = True
Timer1.Interval = 1000
MSComm1.PortOpen = True
End SubPrivate Sub Timer1_Timer()
Static i As Long
i = i + 1
MSComm1.Output = i & "qitazhiling"
If i Mod 255 = 0 Then i = 0
End Sub