首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

求串口通讯步骤解决方案

2012-02-17 
求串口通讯步骤要编写个简单的串口通讯程序。用cport套件串口通讯第一次学,也第一次用。我想写一个实时通讯

求串口通讯步骤
要编写个简单的串口通讯程序。
用cport套件
串口通讯第一次学,也第一次用。
我想写一个实时通讯的程序,一直发送数据,返回数据保存至变量(分析后保存至文件)。
在实时通讯时要下载些数据,怎么处理?
想知道做这个程序,具体实现的步骤应该是怎样的?
谢谢各位。

[解决办法]
spcomm很好用的,资料也很多
[解决办法]
简单做了下,希望能对你有所帮助:

一直发送:(Timer定时1000毫秒)

Delphi(Pascal) code
unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, CPortCtl, ExtCtrls, CPort;type  TForm1 = class(TForm)    ComPort1: TComPort;    Timer1: TTimer;    Edit_Data: TEdit;    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Timer1Timer(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;  Ts: Integer;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin  Ts:= 0;  ComPort1.Open;  Timer1.Enabled:= True;  Button1.Enabled:= False;end;procedure TForm1.Timer1Timer(Sender: TObject);var  Str: String;begin  Str := Edit_Data.Text;  ComPort1.WriteStr(Str);  Inc(Ts);  Self.Caption:= IntToStr(Ts);end;procedure TForm1.Button2Click(Sender: TObject);begin  Timer1.Enabled:= False;  ComPort1.Close;  Button1.Enabled:= True;end;end.
[解决办法]
用spcomm,比Cport好。
[解决办法]
探讨
用spcomm,比Cport好。

[解决办法]
探讨
用spcomm,比Cport好。

[解决办法]
没用过CPORT,SPCOMM控件带有多线程处理功能。推荐使用。

热点排行