找回密碼
 立即注冊

QQ登錄

只需一步,快速開始

搜索
查看: 2551|回復(fù): 2
打印 上一主題 下一主題
收起左側(cè)

關(guān)于VB上位機的問題,求幫助

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:322045 發(fā)表于 2018-5-7 22:54 | 只看該作者 回帖獎勵 |正序瀏覽 |閱讀模式
我用VB做了一個上位機想用來控制51單片機,模擬了數(shù)值增加,減少和復(fù)位鍵,但是上位機上的數(shù)值增加鍵和減少鍵按一次,單片機的數(shù)值會不斷增加,再按別的也沒反應(yīng),復(fù)位鍵也只能按一次,按別的也都沒反應(yīng)請問是什么問題?
分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂 踩
回復(fù)

使用道具 舉報

板凳
ID:322045 發(fā)表于 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 '界面設(shè)置為最大
MSComm1.Settings = "9600,n,8,1"
MSComm1.OutBufferSize = 2   '設(shè)置MSComm1發(fā)送緩沖區(qū)為2字節(jié)
MSComm1.OutBufferCount = 0 '清除發(fā)送緩沖區(qū)
MSComm1.CommPort = 3  '指定使用com4
MSComm1.PortOpen = True '打開接口
End Sub

Private Sub MSComm1_OnComm()
Text1.Text = MSComm1.Input
Text2.Text = MSComm1.Input
End Sub
回復(fù)

使用道具 舉報

沙發(fā)
ID:303383 發(fā)表于 2018-5-7 23:41 | 只看該作者
提示: 作者被禁止或刪除 內(nèi)容自動屏蔽
回復(fù)

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規(guī)則

小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機教程網(wǎng)

快速回復(fù) 返回頂部 返回列表