unit1.pas

1、 图形设计：静态、移动、睡觉时的形态

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    walkButton: TButton;
    readbutton: TButton;
    getupbutton: TButton;
    sleepbutton: TButton;
    eatButton: TButton;
    WCButton: TButton;
    bathbutton: TButton;
    doctorButton: TButton;
    watchTVbutton: TButton;
    Button11: TButton;
    aboutButton: TButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image12: TImage;
    Image13: TImage;
    Image14: TImage;
    Image15: TImage;
    Image16: TImage;
    Image17: TImage;
    Image18: TImage;
    Image19: TImage;
    Image20: TImage;
    Image21: TImage;
    Image22: TImage;
    Image23: TImage;
    IMG1: TImage;
    Timer1: TTimer;
    Image24: TImage;
    Image25: TImage;
    Image26: TImage;
    Image27: TImage;
    IMG2: TImage;
    Timer2: TTimer;
    Label1: TLabel;
    IMG3: TImage;
    Image28: TImage;
    Image29: TImage;
    Image30: TImage;
    Image31: TImage;
    Image32: TImage;
    Image33: TImage;
    Image34: TImage;
    Timer3: TTimer;
    Label2: TLabel;
    Image35: TImage;
    Image36: TImage;
    Image37: TImage;
    Image38: TImage;
    Image39: TImage;
    Image40: TImage;
    Image41: TImage;
    Image42: TImage;
    Image43: TImage;
    Image44: TImage;
    IMG4: TImage;
    Timer4: TTimer;
    Image45: TImage;
    Image46: TImage;
    Image47: TImage;
    Image48: TImage;
    Image49: TImage;
    Img5: TImage;
    Timer5: TTimer;
    Img6: TImage;
    Image50: TImage;
    Image51: TImage;
    Image52: TImage;
    Image53: TImage;
    Timer6: TTimer;
    Image54: TImage;
    Image55: TImage;
    IMG7: TImage;
    IMG8: TImage;
    Timer7: TTimer;
    Panel1: TPanel;
    Img9: TImage;
    Image56: TImage;
    Image57: TImage;
    Image58: TImage;
    Image59: TImage;
    Timer8: TTimer;
    Image60: TImage;
    Image61: TImage;
    Image62: TImage;
    Image63: TImage;
    Timer9: TTimer;
    IMG10: TImage;
    Image64: TImage;
    Image65: TImage;
    Image66: TImage;
    Image67: TImage;
    Timer10: TTimer;
    ImG11: TImage;
    ImG12: TImage;
    overButton: TButton;
    ballButton: TButton;
    Image68: TImage;
    Image69: TImage;
    Image70: TImage;
    Image71: TImage;
    Image72: TImage;
    Image73: TImage;
    Image74: TImage;
    Timer11: TTimer;
    Image75: TImage;
    Image76: TImage;
    Image77: TImage;
    Image78: TImage;
    Image79: TImage;
    Image80: TImage;
    Image81: TImage;
    Image82: TImage;
    Panel2: TPanel;
    Img13: TImage;
    img14: TImage;
    img15: TImage;
    MediaPlayer1: TMediaPlayer;
    procedure readbuttonClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure sleepbuttonClick(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure getupbuttonClick(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure bathbuttonClick(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure eatButtonClick(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure doctorButtonClick(Sender: TObject);
    procedure watchTVbuttonClick(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
    procedure Timer7Timer(Sender: TObject);
    procedure walkButtonClick(Sender: TObject);
    procedure Timer8Timer(Sender: TObject);
    procedure Timer9Timer(Sender: TObject);
    procedure WCButtonClick(Sender: TObject);
    procedure Timer10Timer(Sender: TObject);
    procedure aboutButtonClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure overButtonClick(Sender: TObject);
    procedure ballButtonClick(Sender: TObject);
    procedure Timer11Timer(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure form1show(sender:tobject);




  private
    { Private declarations }
    CNT1 : INTEGER;
    CNT2 : INTEGER;
    CNT3 : INTEGER;
    CNT4 : INTEGER;
    CNT5 : INTEGER;
    CNT6 : INTEGER;
    CNT7 :INTEGER;
    CNT8 :INTEGER;
    CNT9 :INTEGER;
    cnt10:integer;
    cnt11:integer;
    cnt12:integer;
    cnt13:integer;
    cnt14:integer;
    STEP : INTEGER;
    step1:integer;
    step2:integer;
    step3:integer;
    DIRC : INTEGER;
    DIRC2: INTEGER;
    dirc3: integer;
    dirc4: integer;
    lingyang:integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;

{$R *.dfm}


procedure tform1.form1show (sender:tobject);
begin
  if form4.nameEdit.text<>''  then
   begin form1.button1.enabled:=false;

            form1.walkbutton.enabled:=true;
            form1.readbutton.Enabled:=true;
            form1.getupbutton.Enabled:=true;
            form1.sleepbutton.Enabled:=true;
            form1.eatButton.Enabled:=true;
            form1.WCButton.Enabled:=true;
            form1.bathbutton.Enabled:=true;
            form1.doctorButton.Enabled:=true;
            form1.watchTVbutton.Enabled:=true;
            form1.ballButton.Enabled:=true;
            form1.Button11.Enabled:=true;
     end
     else form1.Show;
     end;



procedure TForm1.readbuttonClick(Sender: TObject);


begin
CNT1 :=0;



label2.Visible:=false;

if (img2.Visible=false) then
 begin
 img1.Visible:=true;
 img2.Visible:=false;
 img3.Visible:=false;
 img4.Visible:=false;
 img5.Visible:=false;
 img6.Visible:=false;
 img7.Visible:=false;
 img8.Visible:=false;
 IMG9.Visible:=FALSE;
  IMG11.Visible:=FALSE;
   IMG12.Visible:=FALSE;
 PANEL1.VISIBLE:=FALSE;
 panel2.Visible:=false;
///////////////////////////////////////
  if (form4.eatSpinEdit.value<=5)and (form4.doctorSpinEdit.value<=5) and (form4.sleepSpinEdit.value<=5) then begin form7.showmodal;end;
  if form4.doctorSpinEdit.value<20 then begin form6.label2.visible:=true;form6.ShowModal;end;
  if (form4.doctorSpinEdit.value<=40) and (form4.doctorSpinEdit.value>=20) then  begin form6.label1.visible:=true;form6.ShowModal;end;
  if form4.sleepSpinEdit.value<=40 then begin form5.Label3.Visible:=true;form5.ShowModal;end;
  if form4.eatSpinEdit.value<=40 then begin form5.label2.visible:=true;form5.showmodal;end;
  if (form4.eatSpinEdit.value<100) and (form4.nameEdit.text<>'')  then begin form4.eatspinedit.value:=form4.eatSpinEdit.Value-2;end;
  if (form4.bodySpinEdit.value<100) and (form4.nameedit.text<>'') then begin form4.bodySpinEdit.Value:=form4.bodySpinEdit.Value+2;end;
   if form4.nameEdit.text<>'' then begin  form4.doctorSpinEdit.Value:=form4.doctorSpinEdit.Value-2;end;
  if form4.nameEdit.text<>''  then begin form4.sleepSpinEdit.Value:=form4.doctorSpinEdit.Value-5;end;
  save_spin(form4.eatSpinEdit);
save_spin(form4.doctorSpinEdit);
save_spin(form4.bodySpinEdit);
save_spin(form4.sleepSpinEdit);
///////////////////////////////////////
 end
 else
   begin
   form1.mediaplayer1.open;
     form1.mediaplayer1.play;
     form1.Panel2.Visible:=false;
     label1.Visible:=true;
     end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
case CNT1 OF
 0 : IMG1.Picture.Bitmap :=IMAGE1.picture.Bitmap;
 1 : IMG1.Picture.Bitmap :=image2.picture.Bitmap;
 2 : IMG1.Picture.Bitmap :=image3.picture.Bitmap;
 3 : IMG1.Picture.Bitmap :=image4.picture.Bitmap;
 4 : IMG1.Picture.Bitmap :=image5.picture.Bitmap;
 5 : IMG1.Picture.Bitmap :=image6.picture.Bitmap;
  6 : IMG1.Picture.Bitmap :=image7.picture.Bitmap;
 7 : IMG1.Picture.Bitmap :=image8.picture.Bitmap;
 8 : IMG1.Picture.Bitmap :=image9.picture.Bitmap;
 9 : IMG1.Picture.Bitmap :=image10.picture.Bitmap;
 10 : IMG1.Picture.Bitmap :=image11.picture.Bitmap;
11 : IMG1.Picture.Bitmap :=image12.picture.Bitmap;
 12 : IMG1.Picture.Bitmap :=image13.picture.Bitmap;
 13 : IMG1.Picture.Bitmap :=image14.picture.Bitmap;
 14 : IMG1.Picture.Bitmap :=image15.picture.Bitmap;
 15 : IMG1.Picture.Bitmap :=image16.picture.Bitmap;
 16 : IMG1.Picture.Bitmap :=image17.picture.Bitmap;
 17 : IMG1.Picture.Bitmap :=image18.picture.Bitmap;
 18 : IMG1.Picture.Bitmap :=image19.picture.Bitmap;
 19 : IMG1.Picture.Bitmap :=image20.picture.Bitmap;
 20 : IMG1.Picture.Bitmap :=image21.picture.Bitmap;
 21 : IMG1.Picture.Bitmap :=image22.picture.Bitmap;
 22 : IMG1.Picture.Bitmap :=image23.picture.Bitmap;
 23 : IMG1.Picture.Bitmap :=image24.picture.Bitmap;
  end;
  CNT1 := CNT1 + 1;
  IF CNT1>=23 THEN cnt1 :=0;



  END;

procedure TForm1.sleepbuttonClick(Sender: TObject);
begin
CNT2 :=0;

label1.Visible :=false;
label2.Visible :=false;

img1.Visible :=false;
img3.Visible :=false;
img4.Visible :=false;
img5.Visible :=false;
img6.Visible :=false;
img7.Visible :=false;
img8.Visible :=false;
img2.Visible :=true;
 IMG9.Visible:=FALSE;
  IMG11.Visible:=FALSE;
    IMG12.Visible:=FALSE;
 PANEL1.VISIBLE:=FALSE;
 panel2.Visible:=false;

 /////////////////////////////
  if form4.eatSpinEdit.value<=40 then begin form5.label2.visible:=true; form5.Label3.Visible:=false;form5.showmodal;end;
  if form4.nameEdit.text<>'' then begin  form4.eatSpinEdit.Value:=form4.eatSpinEdit.Value-1;end;
  if (form4.sleepSpinEdit.value<100) and (form4.nameEdit.text<>'') then begin form4.sleepSpinEdit.value:=form4.sleepSpinEdit.value+20;end;
   save_spin(form4.eatSpinEdit);

save_spin(form4.sleepSpinEdit);
 ///////////////////////////
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
case cnt2 of
0 : IMG2.Picture.Bitmap :=IMAGE25.Picture.Bitmap;
1 : IMG2.Picture.Bitmap :=IMAGE26.Picture.Bitmap;
2 : IMG2.Picture.Bitmap :=IMAGE27.Picture.Bitmap;
3 : IMG2.Picture.Bitmap :=IMAGE25.Picture.Bitmap;
4 : IMG2.Picture.Bitmap :=IMAGE26.Picture.Bitmap;
5 : IMG2.Picture.Bitmap :=IMAGE27.Picture.Bitmap;
6 : IMG2.Picture.Bitmap :=IMAGE25.Picture.Bitmap;
7 : IMG2.Picture.Bitmap :=IMAGE26.Picture.Bitmap;
8 : IMG2.Picture.Bitmap :=IMAGE27.Picture.Bitmap;
9 : IMG2.Picture.Bitmap :=IMAGE25.Picture.Bitmap;
10 : IMG2.Picture.Bitmap :=IMAGE26.Picture.Bitmap;
11 : IMG2.Picture.Bitmap :=IMAGE27.Picture.Bitmap;
12 : IMG2.Picture.Bitmap :=IMAGE25.Picture.Bitmap;
13 : IMG2.Picture.Bitmap :=IMAGE26.Picture.Bitmap;
14 : IMG2.Picture.Bitmap :=IMAGE27.Picture.Bitmap;

end;
CNT2 :=CNT2 + 1;
IF CNT2>=15 THEN CNT2 :=0;

END;

procedure TForm1.getupbuttonClick(Sender: TObject);
begin
label1.Visible :=false;
if (img2.visible=true) then
  begin

  IMG2.Visible :=FALSE;
  IMG3.Visible:=true;
  img4.Visible:=false;
  img5.Visible:=false;
  img6.Visible:=false;
  img7.Visible:=false;
  img8.Visible:=false;
  IMG9.Visible:=FALSE;
    IMG11.Visible:=FALSE;
     IMG12.Visible:=FALSE;
     panel2.Visible:=false;
  PANEL1.Visible:=FALSE;
  CNT3 :=0;


  end
 else
   begin label2.visible :=true;
      form1.mediaplayer1.open;
     form1.mediaplayer1.play;
     form1.Panel2.Visible:=false;
    end;

 end;

procedure TForm1.Timer3Timer(Sender: TObject);

Begin
case cnt3 of
 0 : IMG3.Picture.Bitmap := IMAGE28.Picture.Bitmap;
 1 : IMG3.Picture.Bitmap := IMAGE29.Picture.Bitmap;
 2 : IMG3.Picture.Bitmap := IMAGE30.Picture.Bitmap;
 3 : IMG3.Picture.Bitmap := IMAGE31.Picture.Bitmap;
 4 : IMG3.Picture.Bitmap := IMAGE32.Picture.Bitmap;
 5 : IMG3.Picture.Bitmap := IMAGE33.Picture.Bitmap;
 6 : IMG3.Picture.Bitmap := IMAGE34.Picture.Bitmap;
 7 : IMG3.Picture.Bitmap := IMAGE24.Picture.Bitmap;

end;
CNT3 := CNT3 + 1;
IF  CNT3 >=7 THEN

  IMG3.Picture.Bitmap := IMAGE24.Picture.Bitmap;
  case cnt14 of
  0:form3.Image1.Picture.Bitmap:=form3.Image2.Picture.Bitmap;
  1:form3.Image1.Picture.Bitmap:=form3.Image3.Picture.Bitmap;
  2:form3.Image1.Picture.Bitmap:=form3.Image4.Picture.Bitmap;
  3:form3.Image1.Picture.Bitmap:=form3.Image5.Picture.Bitmap;
  4:form3.Image1.Picture.Bitmap:=form3.Image6.Picture.Bitmap;
  5:form3.Image1.Picture.Bitmap:=form3.Image7.Picture.Bitmap;
  end;
  cnt14:=cnt14+1;
  if cnt14>=6 then cnt14:=0;
  END;
procedure TForm1.bathbuttonClick(Sender: TObject);
begin

if (img2.Visible=false) then
 begin
cnt4:=0;
IMG1.Visible:=FALSE;
IMG2.Visible:=FALSE;
IMG3.Visible:=FALSE;
IMG4.Visible:=TRUE;
img5.Visible:=false;
img6.Visible:=false;
img7.Visible:=false;
img8.Visible:=false;
IMG9.Visible:=FALSE;
 IMG11.Visible:=FALSE;
  IMG12.Visible:=FALSE;
panel1.Visible:=false;
panel2.Visible:=false;
LABEL1.VISIBLE:=FALSE;
LABEL2.Visible:=FALSE;
/////////////////////////////////////////////////
if form4.eatSpinEdit.value<=40 then begin form5.label2.visible:=true;form5.showmodal;end;
if (form4.nameEdit.text<>'') and (form4.eatSpinEdit.value<100) then begin  form4.eatSpinEdit.Value:=form4.eatSpinEdit.Value-2;end;
save_spin(form4.eatSpinEdit);
  if (form4.eatSpinEdit.value<=5)and (form4.doctorSpinEdit.value<=5) and (form4.sleepSpinEdit.value<=5) then begin form7.showmodal;end;
/////////////////////////////////////////////////
end
else
   begin label1.Visible:=true;
     form1.mediaplayer1.open;
     form1.mediaplayer1.play;
     form1.Panel2.Visible:=false;
   end;
end;

procedure TForm1.Timer4Timer(Sender: TObject);
begin
CASE CNT4 OF
  0 : IMG4.Picture.Bitmap := IMAGE35.Picture.Bitmap;
  1 : IMG4.Picture.Bitmap := IMAGE36.Picture.Bitmap;
  2 : IMG4.Picture.Bitmap := IMAGE37.Picture.Bitmap;
  3 : IMG4.Picture.Bitmap := IMAGE38.Picture.Bitmap;
  4 : IMG4.Picture.Bitmap := IMAGE39.Picture.Bitmap;
  5 : IMG4.Picture.Bitmap := IMAGE40.Picture.Bitmap;
  6 : IMG4.Picture.Bitmap := IMAGE41.Picture.Bitmap;
  7 : IMG4.Picture.Bitmap := IMAGE42.Picture.Bitmap;
  8 : IMG4.Picture.Bitmap := IMAGE43.Picture.Bitmap;
  9 : IMG4.Picture.Bitmap := IMAGE44.Picture.Bitmap;
  END;
  CNT4:=CNT4 + 1;
  IF CNT4>=9 THEN
  IMG4.Picture.Bitmap := IMAGE44.Picture.Bitmap;
  END;






procedure TForm1.eatButtonClick(Sender: TObject);
begin
cnt5:=0;



if (img2.Visible=false) then
 begin
 img1.Visible:=false;