unit1.cpp

一个串口测试程序

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

#include <vcl.h>
#pragma hdrstop
#include <stdio.h>
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CPort"
#pragma link "CPortCtl"
#pragma resource "*.dfm"
TForm1 *Form1;
unsigned int j,data;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N2Click(TObject *Sender)
{
 ComPort1->Open();       
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N3Click(TObject *Sender)
{
 ComPort1->Close();       
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N4Click(TObject *Sender)
{
 ComPort1->ShowSetupDialog();       
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N7Click(TObject *Sender)
{
   AnsiString Str;
  Str="确实要清理历史记录吗？";
  if(MessageDlg(Str,mtConfirmation,TMsgDlgButtons()<<mbYes<<mbNo,0)==6)
  {
  FILE *fp;
  fp=fopen(".\\串口数据.txt","w");
  fprintf(fp,"%s","");
  fclose(fp);
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N8Click(TObject *Sender)
{
   Memo1->Text=""; Memo2->Text="";
   j=0;
   FILE *fp;
  fp=fopen(".\\串口数据.txt","a");
  fprintf(fp,"\n%s\n","清空后数据：");
  fclose(fp);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if(ComPort1->Connected)
   {
  AnsiString Str;
  Str = Edit1->Text;
  ComPort1->WriteStr(Str);
    Edit1->Text="";
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  Label2->Caption=TimeToStr(Time());

}
//---------------------------------------------------------------------------


void __fastcall TForm1::FormCreate(TObject *Sender)
{
  Label2->Caption=TimeToStr(Time());
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ComPort1RxChar(TObject *Sender, int Count)
{
  AnsiString Str;
  ComPort1->ReadStr(Str,Count);
  unsigned char x=Str[1];
  data=x;   //用于曲线显示。
  Memo1->Text=Memo1->Text+"0x"+IntToHex(x,2)+"  ";
  Memo2->Text=Memo2->Text+Str;
  Label1->Caption=++j;
  FILE *fp;
  fp=fopen(".\\串口数据.txt","a");
  fprintf(fp,"%s",TimeToStr(Time())+": 0x"+IntToHex(x,2)+"    ");
  fclose(fp);
}
//---------------------------------------------------------------------------


void __fastcall TForm1::N6Click(TObject *Sender)
{
Form2->Show();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N9Click(TObject *Sender)
{
 Form3->Show();
}
//---------------------------------------------------------------------------