嵌入式課程設(shè)計(jì)--基于嵌入式系統(tǒng)的傳感器環(huán)境檢測(cè)(參考版)
2025-01-21 16:47本頁(yè)面
【正文】 }//24。 Chart1TitleTextAdd(sensorname[index])。 // Series1add thisADOQuery1Next()。 while(!(thisADOQuery1Eof)){ count[i++] = StrToFloat(thisADOQuery1FieldByName(fileindex[index])())。 double count[100]。 thisADOQuery1Open()。 thisADOQuery1SQLAdd(mand)。 // 設(shè)定要提示說明 ADOQuery1SQLClear()。 Series1ParentChart=Chart1。 // Chart1TitleTextClear()。 // 清除Chart1上所有舊 Series Chart1View3D=True。//__fastcall Thisc::Thisc(TComponent* Owner) : TForm(Owner){}//void __fastcall Thisc::TabControl1Change(TObject *Sender){ int index = thisTabControl1TabIndex。UnicodeString sensorname[]={BMP溫度,BMP氣壓,SHIT1x溫度,SHIT1x濕度,光強(qiáng),雨量}。//extern PACKAGE Thisc *hisc。private: // User declarationspublic: // User declarations __fastcall Thisc(TComponent* Owner)。 TADOQuery *ADOQuery1。 TChart *Chart1。 }}//void __fastcall TComConnection::Button6Click(TObject *Sender){ hiscShow()。}void __fastcall TComConnection::Button5Click(TObject *Sender){ if(thisDBGrid2Excel(DataSource1DataSet,F:\\360data\\重要數(shù)據(jù)\\桌面\\傳感器信息_)){ ShowMessage(導(dǎo)出數(shù)據(jù)成功!)。 throw e。 int xx = 0。 } catch(Exceptionamp。 (SaveAs, (varOleStr) )。 datasetNext()。 ((Cells, row, i+1)).PS(Value, vv )。 v = datasetFieldsFields[i]AsString。 i++ ) { ((Cells, row, i+1)).PR(Select)。 while( !datasetEof ) { for ( i = 0。 AnsiString tmp。 } int row = 2。 vv = (varOleStr)。 i datasetFieldsCount。 Variant vv = (varOleStr)。 int i。 Variant excel = CreateOleObject()。 thisDBGrid1DataSource = thisDataSource1。 thisADOQuery2ParametersParamByName(etime)Value = thisDateTimePicker3DateTime。 thisADOQuery2SQLAdd(mand)。 ADOQuery2SQLClear()。 thisDBGrid1DataSource = thisDataSource1。 thisADOQuery2SQLAdd(mand)。 ADOQuery2SQLClear()。 ShowMessage(顯示圖形失敗,請(qǐng)檢查串口)。 } catch(Exception amp。i6。 UnicodeString b[]={LabeledEdit1EditLabelCaption, LabeledEdit2EditLabelCaption, LabeledEdit3EditLabelCaption, LabeledEdit4EditLabelCaption, LabeledEdit5EditLabelCaption, LabeledEdit6EditLabelCaption}。 // 軸名稱 Series1Add( V , L , clTeeColor )。 i++) { V=i。 //Label for (int i = 1。 // 設(shè)定要提示說明/* int V。 Series1ParentChart=Chart1。 Chart1TitleTextAdd(傳感器指標(biāo))。 // 不要 3D 立體 Chart1LegendVisible=false。 try{ Chart1RemoveAllSeries()。 thisADOQuery1ExecSQL()。 thisADOQuery1ParametersParamByName(rain)Value = thisLabeledEdit6Text。 thisADOQuery1ParametersParamByName(sht1xhr)Value = thisLabeledEdit4Text。 thisADOQuery1ParametersParamByName(bmppress)Value = thisLabeledEdit2Text。 thisADOQuery1SQLAdd(mand)。 ADOQuery1SQLClear()。}//void __fastcall TComConnection::btdataopenClick(TObject *Sender){ datain=true。 break。 case 5: LabeledEdit6Text=s。 case 4: LabeledEdit5Text=s。 case 3: LabeledEdit4Text=s。 case 2: LabeledEdit3Text=s。 case 1: LabeledEdit2Text=s。}//void TComConnection::FillInfo(int varity,UnicodeStr
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1