0,0 → 1,96 |
unit Unit1; |
|
interface |
|
uses |
Portinc,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, |
Dialogs, StdCtrls, ExtCtrls, Tabs, ComCtrls; |
|
type |
TForm1 = class(TForm) |
Button1: TButton; |
Button2: TButton; |
CheckBox1: TCheckBox; |
CheckBox3: TCheckBox; |
StaticText1: TStaticText; |
StaticText2: TStaticText; |
Timer1: TTimer; |
Edit1: TEdit; |
Button3: TButton; |
Label1: TLabel; |
CheckBox2: TCheckBox; |
StaticText3: TStaticText; |
Button4: TButton; |
Button5: TButton; |
procedure Button1Click(Sender: TObject); |
procedure Button2Click(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
procedure Timer1Timer(Sender: TObject); |
procedure Button3Click(Sender: TObject); |
procedure Button5Click(Sender: TObject); |
procedure Button4Click(Sender: TObject); |
private |
{ Private declarations } |
public |
{ Public declarations } |
end; |
|
var |
Form1: TForm1; |
|
implementation |
|
{$R *.dfm} |
|
procedure TForm1.Button1Click(Sender: TObject); |
begin |
|
TXD (1); |
CheckBox1.Checked:=True; |
end; |
|
procedure TForm1.Button2Click(Sender: TObject); |
begin |
TXD(0); |
CheckBox1.Checked:=False; |
end; |
|
procedure TForm1.FormCreate(Sender: TObject); |
begin |
OPENCOM (Pchar('COM1,1200,N,8,')); |
Timer1.Interval:=1; |
Timer1.Enabled:=True; |
end; |
|
procedure TForm1.Timer1Timer(Sender: TObject); |
begin |
if DCD=1 then CheckBox3.Checked:=True |
else CheckBox3.Checked:=False |
end; |
|
procedure TForm1.Button3Click(Sender: TObject); |
// var i,c:integer; |
|
// b:string; |
begin |
// b:=Edit1.Text; |
// for c:=1 to len(b) |
//b:=Edit1.Text[c]; |
//ord (i,b); |
//SENDBYTE (i); |
//edit1.text:=i |
end; |
|
procedure TForm1.Button5Click(Sender: TObject); |
begin |
DTR (1); |
CheckBox2.Checked:=True; |
end; |
|
procedure TForm1.Button4Click(Sender: TObject); |
begin |
DTR(0); |
CheckBox2.Checked:=False; |
end; |
|
end. |