unit1.cpp

8051與 RS232 通訊控制碼,可以依內容斟酌修改

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

#include <vcl.h>
#pragma hdrstop

#include "IdGlobal.hpp"
#include "Unit1.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TForm1 *Form1;
HANDLE hComm;
boolean DTRState,RTSState;
unsigned long sleep=500;
char word[4][24]={{'0','0','1','0','0','1','1','0','0','0','0','1','1','1','1','1','1','0','0','1','0','0','0','0'},
                  {'0','0','1','0','0','1','1','0','0','0','0','1','0','1','1','1','0','0','1','1','1','0','1','0'},
                  {'0','0','0','0','0','0','1','0','1','1','1','1','1','0','0','0','0','1','1','1','0','0','0','1'},
                  {'0','0','0','0','0','0','1','0','1','1','1','1','1','0','0','0','0','0','0','1','0','0','1','1'}};

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)       //秨币硄癟梆
{
  char *ComNo;
  DCB dcb;
  String Temp;
  if (hComm!=INVALID_HANDLE_VALUE) CloseHandle(hComm);
  Temp= "COM"+IntToStr(CSpinEdit5->Value);          //