pc軟件控制的io模塊(編輯修改稿)
2024-08-03 11:58 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 MSComm1RThreshold = 1。 MSComm1SThreshold = 0。 MSComm1InBufferCount = 0。 MSComm1OutBufferCount = 0。 Set_Uart()。}//void __fastcall TForm1::U_OPENClick(TObject *Sender){ if(!Uart_Open) { Uart_Open=true。 U_StatusBrushColor=clRed。 U_OPENCaption=關(guān)閉串口。 if(!MSComm1PortOpen)Set_Uart()。 }else { Uart_Open=false。 U_StatusBrushColor=clBlack。 U_OPENCaption=打開(kāi)串口。 if(MSComm1PortOpen) MSComm1PortOpen=False。 }}//void __fastcall TForm1::U_PortChange(TObject *Sender){ Uart_Port=U_PortItemIndex+1。 Set_Uart()。}//void __fastcall TForm1::U_BondChange(TObject *Sender){ Uart_Bond=U_BondItemsStrings[U_BondItemIndex]。 Set_Uart()。}//void __fastcall TForm1::U_CheckChange(TObject *Sender){ Uart_Chek=U_CheckItemsStrings[U_CheckItemIndex]。 Set_Uart()。}//void __fastcall TForm1::U_DataChange(TObject *Sender){ Uart_Data=U_DataItemsStrings[U_DataItemIndex]。 Set_Uart()。}//void __fastcall TForm1::U_StopChange(TObject *Sender){ Uart_Stop=U_StopItemsStrings[U_StopItemIndex]。 Set_Uart()。}//void __fastcall TForm1::Send_ButtonClick(TObject *Sender){ AnsiString str=Send_BoxText。 OleVariant temp。 uchar c。 if(Uart_Open) { for(int n=1。n=()。n++) { c=str[n]。 if(c==39。\r39。||c==39。\n39。)continue。 temp=VarArrayCreate(OPENARRAY(int,(0,0)),varByte)。 (c,0)。 MSComm1Out
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1