基于windows環(huán)境下數(shù)據(jù)通信處理及存儲程序設計(編輯修改稿)
2025-07-21 18:51 本頁面
【文章內(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。設定串口方式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。//軟件清零，進入中斷服務程序 a=SBUF。 flag=1。//標志位置1，判斷是否已收到數(shù)據(jù)}圖41單片機電路仿真圖5 VB設計PC機本次設計需要添加MSComm控件，可用ProjectComponents—m control 。在設計窗體時要添加以下控件：1個ComboBox 、9個Label、1個 Option 、7個Command Button、2個 TextBox。 VB設計的窗體圖51 VB設計軟件 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。設置串行端口 = CStr(rate) + ,N, + CStr(data_t) + , + CStr(stop_t) 39。設置波特率及數(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