嵌入式課程設(shè)計(jì)--基于嵌入式系統(tǒng)的傳感器環(huán)境檢測(cè)(編輯修改稿)
2025-02-14 16:47 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 去掉兩端的空格 while(()0) { int p = (39。 39。)。 //空格 if(p0) { t = (1,p1)。 s = (p+1,()).Trim()。 Buffer[nBytes++] = wcstol((), amp。EndPtr, 16)。 //十六進(jìn)制字符串轉(zhuǎn)成字節(jié) } else //還剩下最后一個(gè)字節(jié) { t = s。 s = 。 Buffer[nBytes++] = wcstol((), amp。EndPtr, 16)。 //十六進(jìn)制字符串轉(zhuǎn)成字節(jié) } } YbCommDevice1Write(Buffer,nBytes)。}*///void __fastcall TComConnection::YbCommDevice1Package(TObject *Sender, int NotifyType){ unsigned char Buf[1000]。 //接收緩存 int n = YbCommDevice1ReadPackage(Buf,100)。 int varity = 1。 if(n0) //收到數(shù)據(jù)的字節(jié)數(shù) { UnicodeString s。 for(int i=0。 in。 i++){ if(Buf[i] == 0xff){ Memo1LinesAdd(s)。 if(varity =0) FillInfo(varity,s)。 s=。 continue。 } else if(Buf[i] =0xa0 amp。amp。 Buf[i]=0xa5){ varity = Buf[i]0xa0。 continue。 } s += (char)(Buf[i])。 } // Memo1LinesAdd(s)。 //在 Memo1 里顯示出收到的數(shù)據(jù), 將會(huì)是完整的一幀數(shù)據(jù) }}//void __fastcall TComConnection::Button3Click(TObject *Sender){ try{ TRegistry *reg = new TRegistry(KEY_READ)。 TStringList *strlist = new TStringList。 regRootKey = HKEY_LOCAL_MACHINE。/*2013126 未能將轉(zhuǎn)義符轉(zhuǎn)義，致使注冊(cè)表打開(kāi)失敗，經(jīng)過(guò)修改隨即可行。*/ regOpenKeyReadOnly(HARDWARE\\DEVICEMAP\\SERIALCOMM)。 regGetValueNames(strlist)。 cbb_Clear()。 for( int i=0。 istrlistCount。i++ ) { strlistStrings[i] = regReadString(strlistStrings[i])。 cbb_ItemsAdd(strlistStrings[i])。 } cbb_ItemIndex = 0。 delete reg,strlist。 cbb_Select(this)。 aotuCom = true。 } catch(Exception amp。e){ ShowMessage(自動(dòng)搜索串口失敗，請(qǐng)檢查串口是否正確接入。)。 }}//void __fastcall TComConnection::cbb_Select(TObject *Sender){ try { /* 串口號(hào)的形式是COMC, 其中C的取值不定，這里要將C提取出來(lái)， 就是去掉前面三個(gè)字符，并且不要后面/r和/n 那么它的長(zhǎng)度就是length32,而它的子串是從第四個(gè)開(kāi)始的 */ YbCommDevice1PortName = cbb_ItemsText。 UnicodeString s=YbCommDevice1PortName。 s=(4,YbCommDevice1()5)。 YbCommDevice1PortNo = StrToInt(s)。 } catch(Exception amp。e){ ShowMessage(自動(dòng)搜索串口失敗，請(qǐng)檢查串口是否正確接入。)。 }}//void __fastcall TComConnection::btdatacloseClick(TObject *Sender){ datain=false。}//void __fastcall TComConnection::btClearClick(TObject *Sender){ Memo1Clear()。}//void TComConnection::FillInfo(int varity,UnicodeString s){ switch(varity){ case 0: LabeledEdit1Text=s。 break。 case 1: LabeledEdit2Text=s。 break。 case 2: LabeledEdit3Text=s。 break。 case 3: LabeledEdit4Text=s。 break。 case 4: LabeledEdit5Text=s。 break。 case 5: LabeledEdit6Text=s。 FillDatabase()。 break。 }}void __fastcall TComConnection::btshowClick(TObject *Sender){ thisdymcshow = true。}//void __fastcall TComConnection::btdataopenClick(TObject *Sender){ datain=true。}//void TComConnection::FillDatabase(){ if(datain){ ADOQuery1Connection = thisADOConnection1。 ADOQuery1SQLClear()。 UnicodeString mand = insert into SensorData(bmptemp,bmppress,sht1xtemp,sht1xhr,light,rain,time) values(:bmptemp,:bmppress,:sht1xtemp,:sht1xhr,:light,:rain,:time) 。 thisADOQuery1SQLAdd(mand)。 thisADOQuery1Parameters
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1