commset.cpp

实现RS232数据采集处理,设置RS23传输参数,显示控制终端的数据.

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "CommSet.h"
#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Comm"
#pragma resource "*.dfm"
TFormComm *FormComm;
int portnum;
int baudratenum;
int datanum;
int stopbitnum;
int paritynum;
//---------------------------------------------------------------------------
__fastcall TFormComm::TFormComm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormComm::BitBtn2Click(TObject *Sender)
{
 FormComm->Close();

}
//---------------------------------------------------------------------------
void __fastcall TFormComm::BitBtn1Click(TObject *Sender)
{
 portnum=ComboBox1->ItemIndex;
 switch(portnum){
 case 0:  FormMain->Comm1->CommPort=pnCOM1; break;
 case 1:  FormMain->Comm1->CommPort=pnCOM2; break;
 case 2:  FormMain->Comm1->CommPort=pnCOM3; break;
 case 3:  FormMain->Comm1->CommPort=pnCOM4; break;
 case 4:  FormMain->Comm1->CommPort=pnCOM5; break;
 default:  FormMain->Comm1->CommPort=pnCOM1; break;
 }
 baudratenum=ComboBox2->ItemIndex;
 switch(baudratenum){
 case 0: FormMain->Comm1->BaudRate=100; break;
 case 1: FormMain->Comm1->BaudRate=300; break;
 case 2: FormMain->Comm1->BaudRate=600; break;
 case 3: FormMain->Comm1->BaudRate=1200; break;
 case 4: FormMain->Comm1->BaudRate=2400; break;
 case 5: FormMain->Comm1->BaudRate=4800; break;
 case 6: FormMain->Comm1->BaudRate=9600; break;
 case 7: FormMain->Comm1->BaudRate=14400; break;
 case 8: FormMain->Comm1->BaudRate=19200; break;
 case 9: FormMain->Comm1->BaudRate=38400; break;
 case 10: FormMain->Comm1->BaudRate=56000; break;
 case 11: FormMain->Comm1->BaudRate=57600; break;
 case 12: FormMain->Comm1->BaudRate=115200; break;
 default:FormMain->Comm1->BaudRate=9600; break;
 }
 datanum=ComboBox3->ItemIndex;
 switch(datanum){
 case 0:FormMain->Comm1->DataBits=DB5; break;
 case 1:FormMain->Comm1->DataBits=DB6; break;
 case 2:FormMain->Comm1->DataBits=DB7; break;
 case 3:FormMain->Comm1->DataBits=DB8; break;
 default: FormMain->Comm1->DataBits=DB8; break;
 }
 stopbitnum=ComboBox4->ItemIndex;
 switch(stopbitnum){
 case 0:FormMain->Comm1->StopBits=SB1;break;
 case 1:FormMain->Comm1->StopBits=SB1_5;break;
 case 2:FormMain->Comm1->StopBits=SB2;break;
 default:FormMain->Comm1->StopBits=SB1;break;
 }
 paritynum=ComboBox5->ItemIndex;
 switch(paritynum){
 case 0:FormMain->Comm1->Parity=None;break;
 case 1:FormMain->Comm1->Parity=Odd;break;
 case 2:FormMain->Comm1->Parity=Even;break;
 case 3:FormMain->Comm1->Parity=Mark;break;
 case 4:FormMain->Comm1->Parity=Space;break;
 default:FormMain->Comm1->Parity=None;break;
 }
 if(FormMain->Comm1->PortOpen) FormMain->Comm1->PortOpen=false;
 FormMain->Comm1->PortOpen=true;
 Close();
}
//---------------------------------------------------------------------------