basic實(shí)現(xiàn)pc與89c51單片機(jī)之間的串行通信(編輯修改稿)
2024-07-22 06:04 本頁面
【文章內(nèi)容簡介】 訪問CommEvent屬性了解通信事件的類型，分別進(jìn)行各自的處理。每個(gè)通信控件對應(yīng)一個(gè)串口，可以設(shè)計(jì)多個(gè)通信控件來訪問多個(gè)通信口。VB通信控件設(shè)計(jì)軟件如下：Global m_time As Integer //定義一些全局變量Global data(1000)As IntegerGlobal Receive(1000)As IntegerPrivate Sub Form_Load()’ //串口初始化 =1 //設(shè)置串口1 =“9600,N,8,1” //波特率：9600 奇校驗(yàn)，8位數(shù)據(jù)，1位停止位 =0 //讀取接收緩沖區(qū)的所有字符 =256 //設(shè)置接收緩沖區(qū)為256字節(jié) =256 //設(shè)置發(fā)送緩沖區(qū)為256字節(jié) =True //打開串口1 =1 //發(fā)送緩沖區(qū)空觸發(fā)發(fā)送事件 =1 //每一個(gè)字符到接收緩沖區(qū)都觸發(fā)接收事件End SubPublic Sub senddata() //發(fā)送n個(gè)數(shù)據(jù) For i=0 To n =Chr(data(i)) Next iEnd SubPublic Sub Comml_OnComm() //接收數(shù)據(jù)觸發(fā)OnComm()事件 Select Case //在CommEvent中接收數(shù)據(jù) Case EvReceive Receive(m_time)=Asc() //將接收數(shù)據(jù)放在Receive(mtime)數(shù)組中 Comm_time=m_time+1 End SelectEnd Sub 單片機(jī)部分 單片機(jī)89C51采用MCS51系列的匯編語言編程。它有一個(gè)標(biāo)準(zhǔn)的串行口，有4種工作方式，其中方式1是標(biāo)準(zhǔn)的10位異步通信方式，10位數(shù)據(jù)和PC機(jī)的標(biāo)準(zhǔn)串口相對應(yīng)，由串行口控制寄存器SCON設(shè)置狀態(tài)，其字節(jié)地址為98H。如下式所示： SM0 SM1 SM2 REN TB8
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1