完善资料让更多小伙伴认识你，还能领取20积分哦， 立即完善>
3天内不再提示
补充内容 (2018-5-8 09:59): 下面是我上位机程序 Private Sub Command1_Click() strBuff = "1" MSComm1.Output = strBuff End Sub Private Sub Command2_Click() strBuff = "2" MSComm1.Output = strBuff End Sub Private Sub Command3_Click() strBuff = "3" MSComm1.Output = strBuff End Sub Private Sub Command4_Click() End End Sub Private Sub Form_Load() Label1.Caption = "-----" Label2.Caption = "-----" Command1.Caption = "增加" Command2.Caption = "减少" Form1.WindowState = 2 '界面设置为最大 MSComm1.Settings = "9600,n,8,1" MSComm1.OutBufferSize = 2 '设置MSComm1发送缓冲区为2字节 MSComm1.OutBufferCount = 0 '清除发送缓冲区 MSComm1.CommPort = 3 '指定使用com4 MSComm1.PortOpen = True '打开接口 End Sub Private Sub MSComm1_OnComm() Text1.Text = MSComm1.Input Text2.Text = MSComm1.Input End Sub 
0
|
|
相关推荐
1个回答
|
|
|
判断接收一次才加
|
|
|
|
|
你正在撰写答案
如果你是对答案或其他答案精选点评或询问，请使用“评论”功能。
/6 
关注我们的微信
下载发烧友APP
电子发烧友观察
版权所有 © 湖南华秋数字科技有限公司
电子发烧友 （电路图） 湘公网安备 43011202000918 号 电信与信息服务业务经营许可证：合字B2-20210191
工商网监
湘ICP备2023018690号
4734
评论
淘帖
3326
