嵌入式課程設(shè)計(jì)--基于嵌入式系統(tǒng)的傳感器環(huán)境檢測(cè)(已改無錯(cuò)字)
2023-07-18 19:40:28 本頁面
【正文】 的子串是從第四個(gè)開始的 */ 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: 18 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)。 thisADOQuery1ParametersParamByName(bmptemp)Value = thisLabeledEdit1Text。 thisADOQuery1ParametersParamByName(bmppress)Value = thisLabeledEdit2Text。 thisADOQuery1ParametersParamByName(sht1xtemp)Value = thisLabeledEdit3Text。 thisADOQuery1ParametersParamByName(sht1xhr)Value = thisLabeledEdit4Text。 thisADOQuery1ParametersParamByName(light)Value = thisLabeledEdit5Text。 thisADOQuery1ParametersParamByName(rain)Value = thisLabeledEdit6Text。 thisADOQuery1ParametersParamByName(time)Value = thisDateTimePicker1()。 thisADOQuery1ExecSQL()。 } 19 } void __fastcall TComConnection::Timer1Timer(TObject *Sender) { if(!dymcshow) return 。 try{ Chart1RemoveAllSeries()。 // 清除 Chart1 上所有舊 Series Chart1View3D=True。 // 不要 3D 立體 Chart1LegendVisible=false。 // 不秀圖例說明 Chart1TitleTextClear()。 Chart1TitleTextAdd(傳感器指標(biāo) )。 Series1Clear()。 Series1ParentChart=Chart1。 Series1MarksVisible=true。 // 設(shè)定要提示說明 /* int V。 // value String L。 //Label for (int i = 1。 i = 8。 i++) { V=i。 // Series 值 L=V+IntToStr(i)。 // 軸名稱 Series1Add( V , L , clTeeColor )。 } */ double a[6] = {StrToFloat(LabeledEdit1Text), StrToFloat(LabeledEdit2Text)/10000, StrToFloat(LabeledEdit3Text), StrToFloat(LabeledEdit4Text), StrToFloat(LabeledEdit5Text), StrToFloat(LabeledEdit6Text)}。 UnicodeString b[]={LabeledEdit1EditLabelCaption, LabeledEdit2EditLabelCaption, LabeledEdit3EditLabelCaption, LabeledEdit4EditLabelCaption, LabeledEdit5EditLabelCaption, LabeledEdit6EditLabelCaption}。 for(int i=0。i6。i++) Series1AddXY(i*15,a[i],b[i],clTeeColor)。 } catch(Exception amp。e){ dymcshow = false。 ShowMessage(顯示圖形失敗 ,請(qǐng)檢查串口 )。 20 } } // void __fastcall TComConnection::Button1Click(TObject *Sender) { ADOQuery2Connection = thisADOConnection1。 ADOQuery2SQLClear()。 UnicodeString mand = select time as 時(shí)間 ,bmptemp as BMP 溫度 ,bmppress as BMP 氣壓 ,sht1xtemp as SHT1 溫度 ,sht1xhr,light as 光強(qiáng) ,rain as 雨量 from SensorData order by time desc。 thisADOQuery2SQLAdd(mand)。 thisADOQuery2Open()。 thisDBGrid1DataSource = thisDataSource1。 } // void __fastcall TComConnection::Button4Click(TObject *Sender) { ADOQuery2Connection = thisADOConnection1。 ADOQuery2SQLClear()。 UnicodeString mand = select time as 時(shí)間 ,bmptemp as BMP 溫度 ,bmppress as BMP 氣壓 ,sht1xtemp as SHT1 溫度 ,sht1xhr,light as 光強(qiáng) ,rain as 雨量 from SensorData where time=:stime and time =:etime order by time desc。 thisADOQuery2SQ
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1