本人做的第一个程序，多亏CSDN上面各位高手的帮助，虽然程序内容很简单，但是我很满足
unit COMM;



interface



uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, SPComm, ExtCtrls, Buttons, ComCtrls, Menus;



type

TForm1 = class(TForm)

Com1: TComm;

Button4: TButton;

GroupBox1: TGroupBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;
Button5: TButton;
memo1: TMemo;
edRx: TEdit;
Memo2: TMemo;
Timer1: TTimer;
Label4: TLabel;
Label8: TLabel;
Button11: TButton;
Button10: TButton;
Button12: TButton;
Edit2: TEdit;
Button13: TButton;
Edit3: TEdit;
Button14: TButton;
Button15: TButton;
GroupBox2: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
ComboBox5: TComboBox;
edTx: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Label18: TLabel;
Button16: TButton;
Button7: TButton;
GroupBox3: TGroupBox;
Label14: TLabel;
Label15: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label16: TLabel;
Label17: TLabel;
Label19: TLabel;
Label20: TLabel;
Button8: TButton;
Button9: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Com1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word);
procedure Button3Click(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure ListBox2Click(Sender: TObject);
procedure ComboBox3Change(Sender: TObject);
procedure ComboBox4Change(Sender: TObject);
procedure ComboBox5Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure ComboBox2Change(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 Button7Click(Sender: TObject);
procedure Edit5Change(Sender: TObject);
procedure Edit6Change(Sender: TObject);
procedure Edit7Change(Sender: TObject);
procedure Edit8Change(Sender: TObject);
procedure Edit9Change(Sender: TObject);
procedure Edit10Change(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button16Click(Sender: TObject);





private
{ Private declarations }

FShowText:Boolean;
FRXNum:Integer;
FTXNum:Integer;
procedure ShowRX;
procedure ShowTX;


procedure SendString(const str:string);
private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

viewstring:string;

test: string;
i:integer;

rbuf,sbuf:array[0..16] of byte;


implementation
uses StrUtils;
const
minWidth=627;
minHeight=444;
idAbout =$F200;


{$R *.dfm}


//打开串口

procedure TForm1.Button1Click(Sender: TObject);

begin


Com1.StopComm;

Com1.StartComm;

Button1.Enabled :=False;

Button2.Enabled :=True;



end;

//关闭串口

procedure TForm1.Button2Click(Sender: TObject);

begin

Com1.StopComm;

Button2.Enabled := False;

Button1.Enabled := True;


end;


//自定义发送数据过程

procedure senddata;

var

i:integer;

commflg:boolean;

begin

viewstring:='';

commflg:=true;

for i:=1 to 9 do

begin

if not form1.com1.writecommdata(@sbuf[i],1) then

begin

commflg:=false;

break;

end;

//发送时字节间的延时

sleep(2);

viewstring:=viewstring+' '+inttohex(sbuf[i],2)+'';
end;

viewstring:=viewstring;

form1.memo2.lines.add(viewstring);

form1.memo1.lines.add('');

if not commflg then messagedlg('设备尚未就绪,请您检查设备是否连接或者串口是否打开!' ,mterror,[mbyes],0);

end;

procedure senddata4;

var

i:integer;

commflg:boolean;

begin

viewstring:='';

commflg:=true;

for i:=1 to 8 do

begin

if not form1.com1.writecommdata(@sbuf[i],1) then

begin

commflg:=false;

break;

end;

//发送时字节间的延时

sleep(2);

viewstring:=viewstring+' '+inttohex(sbuf[i],2)+'';
end;

viewstring:=viewstring;

form1.memo2.lines.add(viewstring);

form1.memo1.lines.add('');

if not commflg then messagedlg('设备尚未就绪,请您检查设备是否连接或者串口是否打开!' ,mterror,[mbyes],0);

end;


//打开阀门
procedure TForm1.Button4Click(Sender: TObject);
Var
U:integer;
begin
test := '打开阀门';
if label15.caption='' then
begin
showmessage('请先抄表获取表号') ;
exit;
end
else
Form1.Memo1.Clear;
Form1.Memo2.Clear;

U:= strtoint('$'+trim( label15.caption)) + ($A6);
edit2.text:=IntToHex(U,2);

sbuf[1]:=byte($EA ); {帧头}

sbuf[2]:=byte($EA );

sbuf[3]:=byte($07 );

sbuf[4]:=Byte(StrToInt('$'+trim( label15.caption)) ); {命令号}

sbuf[5]:=byte($4F );

sbuf[6]:=byte($50 );

sbuf[7]:=byte($00 );

sbuf[8]:=byte(StrToInt('$'+trim( Edit2.text)) ); {校验和} // StrToInt('$'+String(U))

sbuf[9]:=byte($16 );

senddata;{调用发送函数}

form1.Button9.Click;




end;


procedure TForm1.Button10Click(Sender: TObject);

begin
Form1.Memo1.Clear;
Form1.Memo2.Clear;



sbuf[1]:=byte($EA); {帧头}

sbuf[2]:=byte($EA);

sbuf[3]:=byte($07);

sbuf[4]:=byte($ff);

sbuf[5]:=byte($50);

sbuf[6]:=byte($46);

sbuf[7]:=byte($ff);

sbuf[8]:=byte($9d);

sbuf[9]:=byte($16);

senddata;{调用发送函数}

form1.Button9.Click;
end;

procedure TForm1.Button12Click(Sender: TObject);
Var
U:integer;
begin
if label15.caption= '' then
begin
showmessage('请先抄收水表表号') ;
exit;
end
else
test := '查询余额与阀门状态';
Form1.Memo1.Clear;
Form1.Memo2.Clear;

U:= strtoint('$'+trim( label15.caption)) + ($a2);
edit2.text:=IntToHex(U,2);

sbuf[1]:=byte($EA); {帧头}

sbuf[2]:=byte($EA);

sbuf[3]:=byte($07);

sbuf[4]:=Byte(StrToInt('$'+trim( label15.caption))); {命令号}

sbuf[5]:=byte($43);

sbuf[6]:=byte($58);

sbuf[7]:=byte($00);

sbuf[8]:=byte(StrToInt('$'+trim( Edit2.text)));

sbuf[9]:=byte($16);

senddata;{调用发送函数}

form1.Button9.Click;
end;


procedure TForm1.ShowRX;
begin
edRX.Text:='Rx:'+IntTostr(FRXNum);
end;

procedure TForm1.ShowTX;
begin
edTx.Text:='Tx:'+IntTostr(FTXNum);
end;



//定义 senddata3
procedure senddata3;

var

i:integer;

commflg:boolean;

begin

viewstring:='';

commflg:=true;

for i:=1 to 15 do

begin

if not form1.com1.writecommdata(@sbuf[i],1) then

begin

commflg:=false;

break;

end;

//发送时字节间的延时

sleep(2);

viewstring:=viewstring+' '+inttohex(sbuf[i],2)+'';
end;

viewstring:=viewstring;

form1.memo2.lines.add(viewstring);

form1.memo1.lines.add('');

if not commflg then messagedlg('发送失败！' ,mterror,[mbyes],0);

end;

//设置时间命令
procedure TForm1.Button3Click(Sender: TObject);
var
U:integer;
begin
test := '设置时间命令';
Form1.Memo1.Clear;
Form1.Memo2.Clear;

U:= strtoint('$'+trim( Edit5.text))+strtoint('$'+trim( Edit6.text))+strtoint('$'+trim( Edit7.text)) + strtoint('$'+trim( Edit8.text))+strtoint('$'+trim( Edit9.text))+strtoint('$'+trim( label15.caption)) + strtoint('$'+trim( Edit10.text))+strtoint('$'+trim( Edit11.text))+($b8);
edit2.text:=IntToHex(U,2);

sbuf[1]:=byte($EA); {帧头}

sbuf[2]:=byte($EA);

sbuf[3]:=byte($0d);

sbuf[4]:=Byte(StrToInt('$'+trim( label15.caption))); {命令号}

sbuf[5]:=byte($58);

sbuf[6]:=byte($53);

sbuf[7]:=byte(StrToInt('$'+trim( Edit5.text)));//年

sbuf[8]:=byte(StrToInt('$'+trim( Edit6.text)));//月

sbuf[9]:=byte(StrToInt('$'+trim( Edit7.text))); //星期

sbuf[10]:=byte(StrToInt('$'+trim( Edit8.text))); //日期

sbuf[11]:=byte(StrToInt('$'+trim( Edit9.text))); //时

sbuf[12]:=byte(StrToInt('$'+trim( Edit10.text))); //分

sbuf[13]:=byte(StrToInt('$'+trim( Edit11.text))); //秒

sbuf[14]:=byte(StrToInt('$'+trim( Edit2.text))); //校验和

sbuf[15]:=byte($16);

senddata3;{调用发送函数}

Form1.Button9.Click;

end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin




Com1.StopComm;
Com1.CommName:=ComboBox1.Text;
Com1.StartComm;

end;






[解决办法]
恭喜，接分~

ps：代码太乱了，好好规整下~
[解决办法]
年青人有前途！！！
[解决办法]
加油加油..
[解决办法]
多去找些感兴趣程序的源码来看看,长进更快.


[解决办法]
最好重新排版一下
[解决办法]
要不要把所有的代码都贴上来啊。
好长哦。。
[解决办法]
看着好累...