freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

基于單片機(jī)at89c52與rs485的遠(yuǎn)程數(shù)據(jù)采集系統(tǒng)的設(shè)計(jì)-資料下載頁(yè)

2025-06-27 19:17本頁(yè)面
  

【正文】 )。_nop_()。value=1。DQ=0。_nop_()。_nop_()。_nop_()。_nop_()。 //4usDQ=1。_nop_()。_nop_()。_nop_()。_nop_()。 //4usif(DQ)value|=0x80。delay(6)。 //66us}DQ=1。return(value)。}//************************讀出溫度函數(shù)*****************//read_temp(){ow_reset()。 //總線(xiàn)復(fù)位write_byte(0xcc)。 //發(fā)Skip ROM命令write_byte(0xBE)。 //發(fā)讀命令temp_data[0]=read_byte()。 //溫度低8位temp_data[1]=read_byte()。 //溫度高8位ow_reset()。write_byte(0xCC)。 //Skip ROMwrite_byte(0x44)。 //發(fā)轉(zhuǎn)換命令}//*********************溫度數(shù)據(jù)處理函數(shù)*****************/work_temp(){uchar n=0。if (temp_data[1]127) {temp_data[1]=(256temp_data[1])。temp_data[0]=(256temp_data[0])。n=0。}//負(fù)溫度求補(bǔ)碼 display[4]=temp_data[0]amp。0x0f。display[0]=ditab[display[4]]。 display[4]=((temp_data[0]amp。0xf0)4)|((temp_data[1]amp。0x0f)4)。 display[3]=display[4]/100。 display[1]=display[4]%100。 display[2]=display[1]/10。 display[1]=display[1]%10。 if(!display[3]){display[3]=0x0A。if(!display[2]){display[2]=0x0A。}}//最高位為0時(shí)都不顯示 if(n){display[3]=0x0B。} //負(fù)溫度時(shí)最高位顯示 } 附錄3 串口程序include uchar unsigned char Unchar xdata rbuf[32]。 Unchar xdata tbuf[32]。Unchar rin , rout, tin, tout。 /*隊(duì)列指針*/Bit rfull, tempty, tdone。 Code unchar m[]={“this is a test program\r\n}Serial() interrupt 4 using 1 { If (RIamp。amp。~rfull) { rbuff[rin]=SBUF。 RI=0。 rin=++rinamp。0x1f。 if(rin==rout) rfull=1。 }else if(TIamp。amp。~tempty) { SBUF=tbuf[tout]。 TI=0。 tout=++toutamp。0x1f。 if(tout==tin) tempty=1。 } else if(TI) { TI=0。 tdone=1。 }}Void loadmsg(unchar code*msg) { While ((*msg!=0)amp。amp。((((tin+1)^tout)amp。ox1f)!=0)) /*測(cè)試緩沖區(qū)滿(mǎn)*/ { tbuf[tin]=*msg。msg++。 tin=++tinamp。0x1f。 if(tdone) { TI=1。 tempty=tdone=0。 /*若完成重新開(kāi)始*/ } } } Void process(unchar ch){return} Void process(void) { While (((rout+1)^rin!=0) { Process (rbuf[rout])。 rout=++routamp。0x1f。 } } Main() {tempty=tdone=1。rfull=0。rout=tin=tout=0。rin=1。 /*接收緩沖和發(fā)送緩沖置空*/TMOD=0x20。 //定時(shí)器1工作在模式2(自動(dòng)重載初值)。TL1=0xF3。 TH1=0xF3。 //在12M晶振下,設(shè)置波特率為4800bit/s時(shí),定時(shí)器T1的計(jì)數(shù)初值SCON=0x50。PCON=0x00。 //設(shè)置串行口工作在方式1,REN=1,波特率倍增系數(shù)SMOD=1TR=1。 IE=0x90。 //啟動(dòng)定時(shí)器1,允許串口中斷Disdat=0xff。 //初始化端口discan=0xff。for(h=0。h4。h++){display[h]=8。} //開(kāi)機(jī)顯示8888ow_reset()。 //開(kāi)機(jī)先轉(zhuǎn)換一次write_byte(0xCC)。 //Skip ROMwrite_byte(0x44)。 //發(fā)轉(zhuǎn)換命令for(h=0。h500。h++) {scan()。} //開(kāi)機(jī)顯示88882swhile(1) { read_temp()。 //讀出DS18B20溫度數(shù)據(jù) work_temp()。 //處理溫度數(shù)據(jù) for(h=0。h500。h++) {scan()。} //顯示溫度數(shù)據(jù) } for(。) {Loadmsg(amp。m)。 Processmsg()。 }}附錄4 VB控件相關(guān)程序Public flag As Boolean 39。全局變量Private Sub cmdStart_Click() = False 39。通信中不允許再更改串口屬性flag = True = 39。選擇串口 = ,39。設(shè)置波特率、校驗(yàn)位、數(shù)據(jù)位和停止位的值 = 256 39。輸入緩存字節(jié)數(shù) = 256 39。輸出緩存字節(jié)數(shù) = InputModeBinary 39。以二進(jìn)制方方式接收數(shù)據(jù) = 1 39。控件讀入緩沖區(qū) = 1 39。設(shè)置每收到一個(gè)字節(jié)就觸發(fā)Onm事件 = True 39。從PC機(jī)的RS232接口的DTR(4腳)竊電 = True 39。從PC機(jī)的RS232接口的DTR(4腳)竊電 = True 39。打開(kāi)串口Do While (flag = True) = + LoopEnd SubPrivate Sub cmdStop_Click()flag = False = FalseEnd SubPrivate Sub Form_Load() = True 39。以下為窗體初始化 = True = True = True = True = True = True = 39。以下為串口初始化39。默認(rèn)情況下,第一次運(yùn)行時(shí)選擇COM1為通信的串口,即串口組合框的默認(rèn)值 = ,39。設(shè)置波特率、校驗(yàn)位、數(shù)據(jù)位和停止位為相應(yīng)組合框中的默認(rèn)值 = 256 39。輸入緩存字節(jié)數(shù) = 256 39。輸出緩存字節(jié)數(shù) = InputModeBinary 39。以二進(jìn)制方方式接收數(shù)據(jù) = 1 39??丶x入緩沖區(qū) = 1 39。設(shè)置每收到一個(gè)字節(jié)就觸發(fā)Onm事件 = True 39。從PC機(jī)的RS232接口的DTR(4腳)竊電 = True 39。從PC機(jī)的RS232接口的DTR(4腳)竊電 = True 39。打開(kāi)串口 = False = Time() 39。顯示測(cè)試溫度時(shí)的時(shí)間End SubPrivate Sub MSComm1_OnComm()Dim nowstrings As ByteDim nowtemp As StringDim i As Integernowtemp = Select Case Case evreceive 39。接收字符的事件觸發(fā) nowstrings = 39。讀緩沖區(qū)字符 For i = 1 To 4 nowtemp = nowtemp + Chr$(nowstrings) 39。將接收到的各位連接起來(lái) Next i = nowtemp 39。將數(shù)據(jù)顯示在文本框中 nowtemp = End SelectEnd SubPrivate Sub Text1_Change() = End SubPrivate Sub send()If = False Then = True = Asc($) 39。送開(kāi)始字符串End Sub
點(diǎn)擊復(fù)制文檔內(nèi)容
環(huán)評(píng)公示相關(guān)推薦
文庫(kù)吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1