久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

標題: Embarcadero RAD Studio 10 Seattle win32串口通信例程 [打印本頁]
作者: 51黑小牛    時間: 2016-4-10 17:59
標題: Embarcadero RAD Studio 10 Seattle win32串口通信例程
// ---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
// ---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include "CPort.hpp"
#include "CPortCtl.hpp"
// ---------------------------------------------------------------------------
class TForm1 : public TForm {
__published: // IDE-managed Components

    TComPort *ComPort1;
    TComPort *ComPort2;
    TComLed *ComLed1;
    TComLed *ComLed2;
    TComComboBox *ComComboBox1;
    TComComboBox *ComComboBox2;
    TButton *Button1;
    TButton *Button2;
    TButton *Button3;
    TButton *Button4;
    TButton *Button5;
    TMemo *Memo1;
    TMemo *Memo2;
    TButton *Button6;

    void __fastcall Button1Click(TObject *Sender);
    void __fastcall Button2Click(TObject *Sender);
    void __fastcall Button3Click(TObject *Sender);
    void __fastcall Button4Click(TObject *Sender);
    void __fastcall Button5Click(TObject *Sender);
    void __fastcall Button6Click(TObject *Sender);
    void __fastcall ComPort2RxChar(TObject *Sender, int Count);
    void __fastcall ComPort1RxChar(TObject *Sender, int Count);

private: // User declarations
        public : // User declarations
    __fastcall TForm1(TComponent* Owner);
};

// ---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
// ---------------------------------------------------------------------------
#endif

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CPort"
#pragma link "CPortCtl"
#pragma resource "*.dfm"
TForm1 *Form1;

// ---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) {
}

// ---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender) {
    ComPort1->Connected = true;
}
// ---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender) {
    ComPort2->Connected = true;
}
// ---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender) {
    ComPort1->Connected = false;
}
// ---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender) {
    ComPort2->Connected = false;
}
// ---------------------------------------------------------------------------
unsigned char buf1[128];
unsigned char buf2[128];

void __fastcall TForm1::Button5Click(TObject *Sender) {
    buf1[0] = 0x30;
    buf1[1] = 0x31;
    buf1[2] = 0x32;
    buf1[3] = 0x33;
    buf1[4] = 0x34;
    buf1[5] = 0x35;
    buf1[6] = 0x36;
    buf1[7] = 0x37;
    buf1[8] = 0x38;
    buf1[9] = 0x39;
    buf1[10] = 0x00;
    ComPort1->Write(buf1, 10);
}
// ---------------------------------------------------------------------------

void __fastcall TForm1::Button6Click(TObject *Sender) {
    buf2[0] = 'a';
    buf2[1] = 'b';
    buf2[2] = 'c';
    buf2[3] = 'd';
    buf2[4] = 'e';
    buf2[5] = 'f';
    buf2[6] = 'g';
    buf2[7] = 'h';
    buf2[8] = 'i';
    buf2[9] = 'j';
    buf2[10] = 0x00;
    ComPort2->Write(buf2, 10);
}
// ---------------------------------------------------------------------------

void __fastcall TForm1::ComPort2RxChar(TObject *Sender, int Count) {
    AnsiString Str;
    Str.SetLength(Count);
    ComPort2->Read(&Str[1], Count);
    Memo2->Lines->Add(Str);
}
// ---------------------------------------------------------------------------
void __fastcall TForm1::ComPort1RxChar(TObject *Sender, int Count)
{
    AnsiString Str;
    Str.SetLength(Count);
    ComPort1->Read(&Str[1], Count);
    Memo1->Lines->Add(Str);
}
//---------------------------------------------------------------------------








歡迎光臨 (http://www.zg4o1577.cn/bbs/) Powered by Discuz! X3.1
主站蜘蛛池模板： 亚洲精品久久久久中文字幕二区 | 在线国产一区 | 成人自拍视频网站 | 久久久免费电影 | 亚洲一区二区三区四区视频 | 亚洲一级淫片 | 免费国产视频 | 天天草天天干天天 | 美女毛片免费看 | 毛片一区二区三区 | 天堂在线1 | 国产精品国产成人国产三级 | 91精品国产综合久久久久久 | 久热精品免费 | 亚洲一区二区精品视频 | 在线观看国产www | 日本一区二区三区免费观看 | 三级免费av | 欧美区在线观看 | 久久久久国产精品午夜一区 | 久热电影 | 成人不卡| 日韩一级黄色毛片 | 国产成人精品一区 | 国产精品1区 | 在线超碰 | 91社区在线观看播放 | 欧美日韩在线电影 | 亚洲人成人一区二区在线观看 | 日韩精品一区二区三区 | 亚洲国产成人在线视频 | 中文字幕在线免费视频 | 午夜av毛片 | 天天操天天干天天透 | 在线观看av不卡 | 中文字幕日韩欧美一区二区三区 | 97久久精品 | 一级毛片视频 | 久久久免费观看视频 | 精品乱码一区二区三四区视频 | 日韩一级黄色毛片 |