?? aaaa.pas

?? 可讀寫串口 232 簡單明了使用初學者學習用我自己寫的,能力有限難免出錯請批評指正壓縮包里有說明
?? PAS
字號:
unit aaaa;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, CPDrv;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    CommPortDriver1: TCommPortDriver;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    GroupBox2: TGroupBox;
    Edit3: TEdit;
    Edit4: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Shape1: TShape;
    Memo1: TMemo;
    Memo2: TMemo;
    ComboBox1: TComboBox;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    Button29: TButton;
    Button30: TButton;
    Button31: TButton;
    Button32: TButton;
    Edit1: TEdit;
    Button33: TButton;
    CheckBox1: TCheckBox;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button31Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure Button32Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button33Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
CommPortDriver1.Connect;//建立連接
Shape1.Brush.Color:=clLime;//連接指示
CheckBox1.Enabled:=true; //開啟反彈項
Memo1.Text:='CommPortDriver1.Connect';
Memo2.Text:='建立連接';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
CommPortDriver1.Disconnect;//斷開連接
Shape1.Brush.Color:=clRed;//連接指示
CheckBox1.Enabled:=false;//關閉反彈項
Memo1.Text:='CommPortDriver1.Disconnect';
Memo2.Text:='斷開連接';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
CommPortDriver1.SendByte(3);
Memo1.Text:='CommPortDriver1.SendByte(3)';
Memo2.Text:='發送數據3';
Edit3.Text:='3';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
CommPortDriver1.SendByte(4);
Memo1.Text:='CommPortDriver1.SendByte(4)';
Memo2.Text:='發送數據4';
Edit3.Text:='4';
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Itemindex=0 then CommPortDriver1.Port:=pnCOM1;
if ComboBox1.Itemindex=1 then CommPortDriver1.Port:=pnCOM2;
if ComboBox1.Itemindex=2 then CommPortDriver1.Port:=pnCOM3;
if ComboBox1.Itemindex=3 then CommPortDriver1.Port:=pnCOM4;
if ComboBox1.Itemindex=4 then CommPortDriver1.Port:=pnCOM5;
Memo1.Text:='CommPortDriver1.Port:='+ 'pnCOM*';
Memo2.Text:='串口選擇, * 代表數字';
edit3.Text :=commportdriver1.PortName ;
end;

procedure TForm1.Button6Click(Sender: TObject);
var a:byte ;
begin
CommPortDriver1.SendByte(0);
Memo1.Text:='CommPortDriver1.SendByte(0)';
Memo2.Text:='發送數據0';
Edit3.Text:='0';
end;

procedure TForm1.Button7Click(Sender: TObject);
var a:byte ;
begin
CommPortDriver1.SendByte(1);
Memo1.Text:='CommPortDriver1.SendByte(1)';
Memo2.Text:='發送數據1';
Edit3.Text:='1';
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
CommPortDriver1.SendByte(2);
Memo1.Text:='CommPortDriver1.SendByte(2)';
Memo2.Text:='發送數據2';
Edit3.Text:='2';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
CommPortDriver1.SendByte(5);
Memo1.Text:='CommPortDriver1.SendByte(5)';
Memo2.Text:='發送數據5';
Edit3.Text:='5';
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
CommPortDriver1.SendByte(6);
Memo1.Text:='CommPortDriver1.SendByte(6)';
Memo2.Text:='發送數據6';
Edit3.Text:='6';
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
CommPortDriver1.SendByte(7);
Memo1.Text:='CommPortDriver1.SendByte(7)';
Memo2.Text:='發送數據7';
Edit3.Text:='7';
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
CommPortDriver1.SendByte(8);
Memo1.Text:='CommPortDriver1.SendByte(8)';
Memo2.Text:='發送數據8';
Edit3.Text:='8';
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
CommPortDriver1.SendByte(9);
Memo1.Text:='CommPortDriver1.SendByte(9)';
Memo2.Text:='發送數據9';
Edit3.Text:='9';
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
CommPortDriver1.SendChar('a');
Memo1.Text:='CommPortDriver1.SendChar('+'a'+')';
Memo2.Text:='發送數據a';
Edit3.Text:='a';
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
CommPortDriver1.SendChar('b');
Memo1.Text:='CommPortDriver1.SendChar('+'b'+')';
Memo2.Text:='發送數據b';
Edit3.Text:='b';
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
CommPortDriver1.SendChar('c');
Memo1.Text:='CommPortDriver1.SendChar('+'c'+')';
Memo2.Text:='發送數據c';
Edit3.Text:='c';
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
CommPortDriver1.SendChar('d');
Memo1.Text:='CommPortDriver1.SendChar('+'d'+')';
Memo2.Text:='發送數據d';
Edit3.Text:='d';
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
CommPortDriver1.SendChar('e');
Memo1.Text:='CommPortDriver1.SendChar('+'e'+')';
Memo2.Text:='發送數據e';
Edit3.Text:='e';
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
CommPortDriver1.SendChar('f');
Memo1.Text:='CommPortDriver1.SendChar('+'f'+')';
Memo2.Text:='發送數據f';
Edit3.Text:='f';
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
CommPortDriver1.SendChar('g');
Memo1.Text:='CommPortDriver1.SendChar('+'g'+')';
Memo2.Text:='發送數據g';
Edit3.Text:='g';
end;

procedure TForm1.Button20Click(Sender: TObject);
begin
CommPortDriver1.SendChar('h');
Memo1.Text:='CommPortDriver1.SendChar('+'h'+')';
Memo2.Text:='發送數據h';
Edit3.Text:='h';
end;

procedure TForm1.Button21Click(Sender: TObject);
begin
CommPortDriver1.SendChar('i');
Memo1.Text:='CommPortDriver1.SendChar('+'i'+')';
Memo2.Text:='發送數據i';
Edit3.Text:='i';
end;

procedure TForm1.Button31Click(Sender: TObject);
begin
CommPortDriver1.SendChar('j');
Memo1.Text:='CommPortDriver1.SendChar('+'j'+')';
Memo2.Text:='發送數據j';
Edit3.Text:='j';
end;

procedure TForm1.Button22Click(Sender: TObject);
begin
CommPortDriver1.SendChar('A');
Memo1.Text:='CommPortDriver1.SendChar('+'A'+')';
Memo2.Text:='發送數據A';
Edit3.Text:='A';
end;

procedure TForm1.Button23Click(Sender: TObject);
begin
CommPortDriver1.SendChar('B');
Memo1.Text:='CommPortDriver1.SendChar('+'B'+')';
Memo2.Text:='發送數據B';
Edit3.Text:='B';
end;

procedure TForm1.Button24Click(Sender: TObject);
begin
CommPortDriver1.SendChar('C');
Memo1.Text:='CommPortDriver1.SendChar('+'C'+')';
Memo2.Text:='發送數據C';
Edit3.Text:='C';
end;

procedure TForm1.Button25Click(Sender: TObject);
begin
CommPortDriver1.SendChar('D');
Memo1.Text:='CommPortDriver1.SendChar('+'D'+')';
Memo2.Text:='發送數據D';
Edit3.Text:='D';
end;

procedure TForm1.Button26Click(Sender: TObject);
begin
CommPortDriver1.SendChar('E');
Memo1.Text:='CommPortDriver1.SendChar('+'E'+')';
Memo2.Text:='發送數據E';
Edit3.Text:='E';
end;

procedure TForm1.Button27Click(Sender: TObject);
begin
CommPortDriver1.SendChar('F');
Memo1.Text:='CommPortDriver1.SendChar('+'F'+')';
Memo2.Text:='發送數據F';
Edit3.Text:='F';
end;

procedure TForm1.Button28Click(Sender: TObject);
begin
CommPortDriver1.SendChar('G');
Memo1.Text:='CommPortDriver1.SendChar('+'G'+')';
Memo2.Text:='發送數據G';
Edit3.Text:='G';
end;

procedure TForm1.Button29Click(Sender: TObject);
begin
CommPortDriver1.SendChar('H');
Memo1.Text:='CommPortDriver1.SendChar('+'H'+')';
Memo2.Text:='發送數據H';
Edit3.Text:='H';
end;

procedure TForm1.Button30Click(Sender: TObject);
begin
CommPortDriver1.SendChar('I');
Memo1.Text:='CommPortDriver1.SendChar('+'I'+')';
Memo2.Text:='發送數據I';
Edit3.Text:='I';
end;

procedure TForm1.Button32Click(Sender: TObject);
begin
CommPortDriver1.SendChar('J');
Memo1.Text:='CommPortDriver1.SendChar('+'J'+')';
Memo2.Text:='發送數據J';
Edit3.Text:='J';
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked=true then
begin
CommPortDriver1.SendChar('@');
Memo1.Text:='CommPortDriver1.SendChar('+'@'+')';
Memo2.Text:='發送數據@';
Edit3.Text:='@';
timer1.enabled:=true;
end
else
begin
CommPortDriver1.SendChar('!');
Memo1.Text:='CommPortDriver1.SendChar('+'!'+')';
Memo2.Text:='發送數據!';
Edit3.Text:='!';
timer1.enabled:=false;
end;
end;

procedure TForm1.Button33Click(Sender: TObject);
begin
CommPortDriver1.SendString(Edit1.Text);
Memo1.Text:='CommPortDriver1.SendString(Edit1.Text)';
Memo2.Text:='發送字符串數據';
Edit3.Text:=Edit1.Text;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var a:byte;
begin
commportdriver1.readbyte(a);
if a<>0 then edit4.Text:=inttostr(a);
end;

end.
?? 文件大小 190 K
?? 上傳用戶 qq569854
?? 所屬分類串口編程
??? 相關標簽

#232 #讀寫 #串口 #初學者
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? aaaa.pas

?? 快捷鍵說明
