基于pc機windows環(huán)境下數(shù)據(jù)通信處理存儲程序設計與實現(xiàn)畢業(yè)論文(參考版)
2025-06-21 16:49本頁面
【正文】 }本科生課程設計成績評定表姓 名性 別專業(yè)、班級課程設計題目：基于PC機Windows環(huán)境下數(shù)據(jù)通信、處理、存儲程序設計與實現(xiàn)課程設計答辯或質疑記錄：成績評定依據(jù)：最終評定成績（以優(yōu)、良、中、及格、不及格評定）指導教師簽字：21。 } } } return (key)。 tempamp。 break。 j++。 break。 j++。 break。 j++。 break。 j++。=0xf0。 if(temp!=0xf0) //判斷按鍵斷開 { temp=P1。 tempamp。 //取出按鍵后的值（1011，0000） if(temp!=0xf0) { delay(10)。 tempamp。 //value[]={0xfe,0xfd,0xfb,0xf7}。num4。 //初始化串口，使用方式1,1200比特率，} /*鍵盤掃描程序*/unsigned int key_scanf() { unsigned int num,temp。= 0x7F。//，則這里寫E8 TL1 = 0xE8。 TMOD = 0x20。// TI=0。a++)//使用查詢方式發(fā)送，未采用中斷方式 { SBUF = str[a]。} void rs_send(){ for(a=1。j0。i0。 } } }} /*延遲函數(shù) */void delay(unsigned int i){ unsigned int j。 //str[j]中存儲的為按鍵值,不按鍵時，str[0]=0；不要再首個字母選擇0， DispCharacter(1, j,str[j])。amp。 while(j13) { i=key_scanf()。p++) DispCharacter(0, p, k[p])。 for(p=0。 InitLCD()。 IT0=1。unsigned char k[]= send message : 。unsigned int value[]={0xfe,0xfd,0xfb,0xf7}。unsigned int temp,key,j。void rs_send()。unsigned int key_scanf()。 先判斷串口是否打開，如果打開則先關閉 Unload Me 39。=====================================================================================Private Sub CmdQuit_Click() 39。=====================================================================================39。關閉串口On Error GoTo Err If = True Then = False 39。 先判斷串口是否打開，如果打開則先關閉 Call Comm_reSet(Val(Mid(, 4, 1)), , Left(, 1), , ) 39。=====================================================================================Private Sub OpenCom() 39。=====================================================================================39。 調用關閉串口函數(shù)End Select 39。 如果串口已經打開，則提示 MsgBox 沒有成功，請重試, vbExclamation, 串口調試助手 CloseCom 39。 打開串口 Exit Sub ErrorHint: 39。 StopBit 39。 DataBit amp。 ParityBit amp。 設定端口 = BaudRate amp。 錯誤則跳往錯誤處理 If = True Then = False 39。 串口設置39。 如果串口已經打開，則提示 MsgBox 沒有發(fā)現(xiàn)此串口或被占用, 49, 串口調試助手 CloseCom Case Else MsgBox 沒有發(fā)現(xiàn)此串口或被占用, 49, 串口調試助手 CloseComEnd Select End Sub39。 打開串口 Exit Sub ErrorTrap: 39。 清空發(fā)送緩沖區(qū) = 0 39。 發(fā)送緩沖區(qū)空觸發(fā)發(fā)送事件 = 1 39。 清空輸入緩沖區(qū) = 0 39。 設置接收緩沖區(qū)為1024字節(jié) = 4096 39。 StopBit 39。 DataBit amp。 ParityBit amp。 設定端口 = BaudRate amp。 錯誤則跳往錯誤處理 If = True Then = False 39。 初始化串口39。 關閉串口 ComSwitch = False End IfErr:End Sub39。 串口開關按鈕On Error GoTo Err If = True Then ComSwitch = True Else ComSwitch = False End If If ComSwitch = False Then OpenCom 39。 串口開關39。 顯示光標位置 End IfErr: End Sub39。 InputSignal 39。==============================================================
環(huán)評公示相關推薦
鄂ICP備17016276號-1