unit1.pas

含源代码的DELPHI制作的汽车灯模拟软件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, jpeg, ExtCtrls, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    Timer1: TTimer;
    Image2: TImage;
    Label1: TLabel;
    Label2: TLabel;
    RichEdit1: TRichEdit;
    RichEdit2: TRichEdit;
    N6: TMenuItem;
    SaveDialog1: TSaveDialog;
    RichEdit3: TRichEdit;
    RichEdit4: TRichEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Timer2: TTimer;
    Image3: TImage;
    Image4: TImage;
    N8255A1: TMenuItem;
    N16: TMenuItem;
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure N8255A1Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  X1,X2,Y1,Y2:Integer;
implementation

{$R *.dfm}

procedure TForm1.N4Click(Sender: TObject);
begin
showmessage('请先接好硬件电路在运行！');
Winexec(pchar('鼠标键盘控制.exe'),sw_shownormal);
end;

procedure TForm1.N3Click(Sender: TObject);
begin
showMessage('      谢谢使用我们的软件');
showMessage('  有什么建议记得要联系我哦！邮箱：[e-mail]  ');
close
end;
 procedure TForm1.FormCreate(Sender: TObject);
begin
  showmessage('哈哈！欢迎使用！');
  showmessage(' Warning!!        如果你是第一次使用本软件，'+#13+'  记得要先查看系统说明在点主菜单运行系统哦！！');
  Randomize();
  self.Canvas.Brush.Style:=bsClear;
end;

procedure TForm1.Timer1Timer(Sender: TObject);           //这是一个很简单的用随即函数生成的画图程序
begin
Image2.Canvas.Pen.Mode:=pmNotXor;

    Image2.Canvas.Ellipse(X1,Y1,X2,Y2);

    X1:=Random(Image2.Width);

    X2:=Random(Image2.Width);

    Y1:=Random(Image2.Height);

    Y2:=Random(Image2.Height);

    Image2.Canvas.Pen.Mode:=pmCopy;

    Image2.Canvas.Ellipse(X1,Y1,X2,Y2);

end;

procedure TForm1.N5Click(Sender: TObject);
begin
showmessage('请先接好硬件电路在运行！');
Winexec(pchar('开关控制.exe'),sw_shownormal);
end;

procedure TForm1.N9Click(Sender: TObject);
begin
richedit2.Visible:=false;
richedit3.Visible:=false;
richedit4.Visible:=false;
richedit1.Visible:=true;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
richedit1.Visible:=false;
richedit3.Visible:=false;
richedit4.Visible:=false;
richedit2.Visible:=true;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
showmessage('中南大学信息院自动化0401班 '+#13'                   3号  张远雄');
end;

procedure TForm1.N6Click(Sender: TObject);
begin
richedit2.Lines.SaveToFile('list.txt');
showmessage('我们的代码已经保存到与本软件相同的路径下，'+#13+'      名字为“代码”的文本文件中！请查收......');
end;

procedure TForm1.N13Click(Sender: TObject);
begin
richedit4.Visible:=false;
richedit1.Visible:=false;
richedit2.Visible:=false;
richedit3.Visible:=true;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
richedit1.Visible:=false;
richedit2.Visible:=false;
richedit3.Visible:=false;
richedit4.Visible:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);         //本来想做彩虹字的，但是效果不是很好
var r,b,g:integer;
begin
label3.Top:=label3.Top+10;
label3.left:=label3.left+2;
label4.Top:=label4.Top+10;
label4.left:=label4.left+4;
label5.Top:=label5.Top+10;
label5.left:=label5.left+6;
label6.Top:=label6.Top+10;
label6.left:=label6.left+8;
label7.Top:=label7.Top+10;
label7.left:=label7.left+10;
r:=random(255);
b:=random(200);
g:=random(155);
label3.Font.Color:=rgb(r,g,b);
label4.Font.Color:=rgb(g,r,b);
label5.Font.Color:=rgb(r,b,b);
label6.Font.Color:=rgb(r,g,b);
label7.Font.Color:=rgb(b,g,r);
end;

procedure TForm1.N8255A1Click(Sender: TObject);
begin
image4.Visible:=true;
end;

procedure TForm1.N16Click(Sender: TObject);
begin
image3.Visible:=true;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
image3.Visible:=false;
image4.Visible:=false;
richedit1.Visible:=false;
richedit2.Visible:=false;
richedit3.Visible:=false;
richedit4.Visible:=false;
end;

end.