基于pc機windows環(huán)境下數(shù)據(jù)通信、處理及存儲程序設(shè)計與(編輯修改稿)
2025-07-15 15:54 本頁面
【文章內(nèi)容簡介】 拉為低電平，P3口將輸出電流（ILL）這是由于上拉的緣故。P3口也可作為AT89C51的一些特殊功能口，如下表所示： RXD（串行輸入口） TXD（串行輸出口） /INT0（外部中斷0） /INT1（外部中斷1） T0（計時器0外部輸入） T1（計時器1外部輸入） /WR（外部數(shù)據(jù)存儲器寫選通） /RD（外部數(shù)據(jù)存儲器讀選通）P3口同時為閃爍編程和編程校驗接收一些控制信號，用于和PC連接通信。 RS232簡介通常 RS232 接口以9個引腳 (DB9) 或是25個引腳 (DB25) 的型態(tài)出現(xiàn)，RS232的電器特性、邏輯電平和各種信號線功能也有規(guī)定。 在TxD和RxD上： 邏輯1：3V ～15V 邏輯0：+3V～+15V 發(fā)送數(shù)據(jù)(TxD)——通過TxD終端將串行數(shù)據(jù)發(fā)送到MODEM，(DTE→DCE)。 接收數(shù)據(jù)(RxD)——通過RxD線終端接收從MODEM發(fā)來的串行數(shù)據(jù)，(DCE→DTE)。include includedefine uchar unsigned chardefine uint unsigned intunsigned char flag,a,i。uchar code table[]=OH MY GOD。void delay1ms(){ uchar i,j。 for(i=0。i10。i++) for(j=0。j33。j++)。}void delay(uchar n)//延時n毫秒{ uchar i。 for(i=0。in。i++) delay1ms()。}void init(){ TMOD=0x20。//T1定時器方式2 TH1=0xfd。 TL1=0xfd。//T1定時器裝初值 TR1=1。//啟動定時器T1 REN=1。//數(shù)據(jù)允許接受 SM0=0。設(shè)定串口方式1 SM1=1。// EA=1。//開總中斷 ES=1。//允許串口中斷}void main(){ uchar k。 init()。 while(1) { if(flag==1) { ES=0。//關(guān)閉串口中斷 for(i=0。i17。i++) { SBUF=table[i]。//接收數(shù)據(jù) while(!TI)。//等待是否發(fā)送完畢 TI=0。 } SBUF=a。//發(fā)送數(shù)據(jù) while(!TI)。 TI=0。 ES=1。 flag=0。 } }}void ser() interrupt 4//串口中斷程序{ RI=0。//軟件清零，進入中斷服務(wù)程序 a=SBUF。 flag=1。//標志位置1，判斷是否已收到數(shù)據(jù)}圖41單片機電路仿真圖5 VB設(shè)計PC機本次設(shè)計需要添加MSComm控件，可用ProjectComponents—m control 。在設(shè)計窗體時要添加以下控件：1個ComboBox 、9個Label、1個 Option 、7個Command Button、2個 TextBox。 VB設(shè)計的窗體圖51 VB設(shè)計軟件 VB代碼Option Explicit39。Option Base 1Private Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long)Dim port As ByteDim rate As LongDim data_t As IntegerDim stop_t As IntegerDim disp_on As IntegerDim mut As BooleanDim out() As Byte——————————————————————————————————Private Sub _change() Dim flag As Boolean On Error Resume Next If mut = False Then Exit Sub 39。初始化完成前本過程無效 flag = If flag Then = False 39。已打開先關(guān)閉 = port 39。設(shè)置串行端口 = CStr(rate) + ,N, + CStr(data_t) + , + CStr(stop_t) 39。設(shè)置波特率及數(shù)據(jù)幀格式 = True If Then If = 8002 Then MsgBox 串口 + CStr(port) + 不存在！, vbOKOnly, 警告 If = 8005 Then MsgBox 串口 + CStr(port) + 已打開！, vbOKOnly, 警告 = RGB(0, 0, 0) = False = False Else = RGB(255, 0, 0) = True = 關(guān)閉串口 = True End IfEnd Sub——————————————————————————————————Private Sub Combo1_click() port = + 1 _changeEnd Sub——————————————————————————————————Private Sub Combo2_click() Select Case Case 0 rate = 300 Case 1 rate = 600 Case 2 rate = 1200 Case 3 rate = 2400 Case 4 rate = 4800 Case 5 rate = 9600 Case 6 rate = 19200 Case 7 rate = 38400 Case 8 rate = 56000 Case 9 rate = 57600 Case 10 rate = 115200 End Select _changeEnd
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1