⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit1.~pas

📁 1、 图形设计：静态、移动、睡觉时的形态
💻 ~PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
 img2.Visible:=false;
img3.Visible:=false;
img4.Visible:=false;
img5.Visible:=true;
img6.Visible:=false;
img7.Visible:=false;
img8.Visible:=false;
img9.Visible:=false;
 IMG11.Visible:=FALSE;
  IMG12.Visible:=FALSE;
panel1.Visible:=false;
panel2.Visible:=false;

label2.Visible:=false;
/////////////////////////////////////////

 if (form4.eatSpinEdit.value<=2)and (form4.doctorSpinEdit.value<=5) and (form4.sleepSpinEdit.value<=5) then begin form7.showmodal;end;
 if (form4.doctorSpinEdit.value<=40) and (form4.doctorSpinEdit.value>=20) then  begin form6.label1.visible:=true;form6.ShowModal;end;
  if form4.doctorSpinEdit.value<20 then begin form6.label2.Visible:=true;form6.Label1.Visible:=false; form6.showmodal;end;

if form4.nameEdit.text<>'' then begin form4.doctorSpinEdit.Value:= form4.doctorSpinEdit.Value-2;end;
if form4.nameEdit.text<>'' then begin  form4.ageSpinEdit.Value:=form4.ageSpinEdit.Value+1;end;
if (form4.eatSpinEdit.value<100) and (form4.nameEdit.text<>'') then begin form4.eatSpinEdit.Value:=form4.eatSpinEdit.Value+15;end;
 save_spin(form4.eatSpinEdit);
save_spin(form4.doctorSpinEdit);
save_spin(form4.ageSpinEdit);

/////////////////////////////////////////
end
else
    begin label1.Visible:=true;
        form1.mediaplayer1.open;
        form1.mediaplayer1.play;
        form1.Panel2.Visible:=false;
    end;
end;

procedure TForm1.Timer5Timer(Sender: TObject);
begin
case cnt5 of
0:img5.Picture.Bitmap:=image45.Picture.Bitmap;
1:img5.Picture.Bitmap:=image46.Picture.Bitmap;
2:img5.Picture.Bitmap:=image47.Picture.Bitmap;
3:img5.Picture.Bitmap:=image48.Picture.Bitmap;
4:img5.Picture.Bitmap:=image49.Picture.Bitmap;
end;
cnt5:=cnt5 + 1;
if cnt5>=5 then cnt5:=0;
end;


procedure TForm1.doctorButtonClick(Sender: TObject);
begin
if (img2.Visible=false) then
 begin

  if (form4.doctorSpinEdit.value<30) and (form4.nameEdit.text<>'') then
  begin  form4.doctorSpinEdit.value:=form4.doctorSpinEdit.value+30; save_spin(form4.doctorSpinEdit);
img1.Visible:=false;
img2.Visible:=false;
img3.Visible:=false;
img4.Visible:=false;
img5.Visible:=false;
img7.Visible:=false;
img8.Visible:=false;
img9.Visible:=false;
  IMG11.Visible:=FALSE;
    IMG12.Visible:=FALSE;
panel1.Visible:=false;



panel2.Visible:=false;
img6.visible:=true;
label1.Visible:=false;
label2.Visible:=false;
end
////////////////////////////////////
 else
  if (form4.doctorSpinEdit.value>=30) and (form4.nameEdit.text<>'')
  then begin
    form1.mediaplayer1.open;
     form1.mediaplayer1.play;
   form6.label4.visible:=true;
   form6.Label1.Visible:=false;  
   form6.ShowModal;

  end;


//////////////////////////////////////
end
else
  begin
   form1.mediaplayer1.open;
     form1.mediaplayer1.play;



  label1.Visible:=true;
  end;
end;

procedure TForm1.watchTVbuttonClick(Sender: TObject);
begin
if (img2.Visible=false) then
 begin


CNT6:=0; CNT7:=0;
IMG1.Visible:=FALSE;
IMG2.Visible:=FALSE;
IMG3.Visible:=FALSE;
IMG4.Visible:=FALSE;
IMG5.Visible:=FALSE;
IMG6.Visible:=FALSE;
IMG7.Visible:=TRUE;
 IMG8.Visible:=TRUE;
 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<=5)and (form4.doctorSpinEdit.value<=5) and (form4.sleepSpinEdit.value<=5) then begin form7.showmodal;end;

  if (form4.doctorSpinEdit.value<=40) and (form4.doctorSpinEdit.value>=20) then  begin form6.label1.visible:=true; form6.Label2.Visible:=false; form6.Label4.Visible:=false;  form6.ShowModal;end;
  if form4.doctorSpinEdit.value<20 then begin form6.label2.Visible:=true; form6.Label1.Visible:=false; form6.Label4.Visible:=false;  form6.showmodal;end;
 if form4.bodySpinEdit.value<=5 then begin form5.Label4.Visible:=true;form5.ShowModal;end;
  if form4.sleepSpinEdit.value<=40 then begin form5.Label3.Visible:=true; form5.label2.Visible:=false; form5.ShowModal;end;

 if form4.eatSpinEdit.value<=40 then begin form5.label2.visible:=true;form5.showmodal;end;

 if form4.nameEdit.text<>'' then begin form4.sleepSpinEdit.Value:=form4.sleepSpinEdit.Value-10;end;
  if form4.nameEdit.text<>'' then begin  form4.eatSpinEdit.Value:=form4.eatSpinEdit.Value-2; end;
   if form4.nameEdit.text<>'' then begin    form4.bodySpinEdit.Value:=form4.bodySpinEdit.Value-1;end;
    if form4.nameEdit.text<>'' then begin  form4.doctorSpinEdit.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 label1.Visible:=true;
     form1.mediaplayer1.open;
     form1.mediaplayer1.play;
     form1.Panel2.Visible:=false;
   end;
end;

procedure TForm1.Timer6Timer(Sender: TObject);
begin
CASE CNT6 OF
0 : IMG7.Picture.Bitmap:=IMAGE54.Picture.Bitmap;
1 : IMG7.Picture.Bitmap:=IMAGE55.Picture.Bitmap;

end;
CNT6:=CNT6 + 1;
IF CNT6>=2 THEN CNT6:=0;




////////////////////////////////////////////////
case cnt12 of
0:img15.Picture.Bitmap:=image82.Picture.Bitmap;
1:img15.Picture.Bitmap:=image82.Picture.Bitmap;
end;
if cnt12>=2 then cnt12:=0;
if dirc3<=0 then
   begin
   img14.Visible:=false;
   img13.Visible:=true;
   img15.Left:=81;
    step2:=step2+8;
    img15.Left :=step2;
    end else begin
    img13.Visible:=false;
    img14.Visible:=true;
    step2 :=step2-8;
    img15.Left:=step2
    end;
  if img15.left<=81  then dirc3:=0;
  if img15.left>=618 then dirc3 :=1;

END;
/////////////////////////////////////////////////
procedure TForm1.Timer7Timer(Sender: TObject);
begin
CASE CNT7 OF
0:IMG8.Picture.Bitmap:=IMAGE50.Picture.Bitmap;
1:IMG8.Picture.Bitmap:=IMAGE51.Picture.Bitmap;
2:IMG8.Picture.Bitmap:=IMAGE52.Picture.Bitmap;
3:IMG8.Picture.Bitmap:=IMAGE53.Picture.Bitmap;


end;
CNT7:=CNT7 + 1;
IF CNT7>=4 THEN CNT7:=0;
END;

procedure TForm1.walkButtonClick(Sender: TObject);
begin
cnt8:=0;
step:=0;
IMG9.Left:=0;
IMG10.Left:=0;
dirc:=0;
DIRC2:=0;
img1.Visible:=false;
img2.Visible:=false;
img3.Visible:=false;
img4.Visible:=false;
img5.Visible:=false;
img6.Visible:=false;
img7.Visible:=false;
img8.Visible:=false;
img10.Visible:=false;
img9.Visible:=true;


IMG11.Visible:=FALSE;
IMG12.Visible:=FALSE;
img13.Visible:=false;
img14.Visible:=false;
img15.Visible:=false;
panel2.Visible:=false;
panel1.Visible:=true;

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


end;

procedure TForm1.Timer8Timer(Sender: TObject);
begin
case cnt8 of
 0:IMG9.Picture.Bitmap:=IMAGE56.Picture.Bitmap;
 1:IMG9.Picture.Bitmap:=IMAGE57.Picture.Bitmap;
 2:IMG9.Picture.Bitmap:=IMAGE58.Picture.Bitmap;
 3:IMG9.Picture.Bitmap:=IMAGE59.Picture.Bitmap;
end;
CNT8:=CNT8 + 1;
IF CNT8>=4 THEN CNT8:=0;
IF DIRC<=0 THEN
  BEGIN
  IMG9.Visible:=TRUE;
  IMG10.Visible:=FALSE;
  STEP:=STEP+9;
  IMG9.LEFT:=STEP;
  END ELSE BEGIN

  STEP:=STEP-9;
  IMG9.Left:=STEP;
  img9.Visible:=false;
  img10.visible:=true;
  END;
  IF IMG9.LEFT<=0  THEN DIRC:=0;
  IF IMG9.LEFT >=(PANEL1.Width-86) THEN DIRC:=1;
  END;

procedure TForm1.Timer9Timer(Sender: TObject);
begin
begin
case cnt8 of
 0:IMG10.Picture.Bitmap:=IMAGE60.Picture.Bitmap;
 1:IMG10.Picture.Bitmap:=IMAGE61.Picture.Bitmap;
 2:IMG10.Picture.Bitmap:=IMAGE62.Picture.Bitmap;
 3:IMG10.Picture.Bitmap:=IMAGE63.Picture.Bitmap;
end;
 CNT8:=CNT8 + 1;
 IF CNT8>=4 THEN CNT8:=0;

  IF DIRC2<=0 THEN
  BEGIN
  IMG10.Visible:=FALSE;
  IMG9.Visible:=TRUE;
  STEP:=STEP+9;
  IMG10.LEFT:=STEP;
  END ELSE BEGIN
  STEP:=STEP-9;
  IMG10.Left:=STEP;
  img9.Visible:=false;
  img10.visible:=true;
  END;
  IF IMG10.LEFT<=0  THEN DIRC2:=0;
  IF IMG10.LEFT >=(PANEL1.Width-86) THEN DIRC2:=1;
  END;

end;

procedure TForm1.WCButtonClick(Sender: TObject);
 begin
if (img2.Visible=false) then

begin
IMG1.Visible:=FALSE;
IMG2.Visible:=FALSE;
 IMG3.Visible:=FALSE;
IMG4.Visible:=FALSE;
IMG5.Visible:=FALSE;
IMG6.Visible:=FALSE;
IMG7.Visible:=FALSE;
IMG8.Visible:=FALSE;
IMG9.Visible:=FALSE;
IMG10.Visible:=FALSE;
IMG11.Visible:=TRUE;
IMG12.Visible:=TRUE;
PANEL1.Visible:=FALSE;
panel2.Visible:=false;
LABEL1.Visible:=FALSE;
LABEL2.Visible:=FALSE;
CNT9:=0;
//////////////////////////////////////////
if form4.nameEdit.text<>'' then begin form4.eatSpinEdit.Value:=form4.eatSpinEdit.Value-5;end;
  if (form4.eatSpinEdit.value<=5)and (form4.doctorSpinEdit.value<=5) and (form4.sleepSpinEdit.value<=5) then begin form7.showmodal;end;
 if form4.eatSpinEdit.value<=40 then begin form5.Label2.Visible:=true;form5.ShowModal;end;

  save_spin(form4.eatSpinEdit);

///////////////////////////////////////////
end
else
   begin label1.Visible:=true;
     form1.mediaplayer1.open;
     form1.mediaplayer1.play;
     form1.Panel2.Visible:=false;
   end;

end;

procedure TForm1.Timer10Timer(Sender: TObject);
begin
 case cnt9 of
 0:IMG11.Picture.Bitmap:=IMAGE64.Picture.Bitmap;
 1:IMG11.Picture.Bitmap:=IMAGE65.Picture.Bitmap;
 2:IMG11.Picture.Bitmap:=IMAGE66.Picture.Bitmap;
 3:IMG11.Picture.Bitmap:=IMAGE67.Picture.Bitmap;
end;
 CNT9:=CNT9 + 1;
 IF CNT9>=4 THEN
 IMG11.Picture.Bitmap:=IMAGE67.Picture.Bitmap;


end;

procedure TForm1.aboutButtonClick(Sender: TObject);
begin
 form1.mediaplayer1.open;
     form1.mediaplayer1.play;
    

 Form2.showmodal;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   cnt14:=0;

  Form3.showmodal;
end;

procedure TForm1.overButtonClick(Sender: TObject);
begin


save_edit(form4.nameedit);
save_spin(form4.ageSpinEdit);
save_spin(form4.eatSpinEdit);
save_spin(form4.doctorSpinEdit);
save_spin(form4.bodySpinEdit);
save_spin(form4.sleepSpinEdit);
close;
end;

procedure TForm1.ballButtonClick(Sender: TObject);
begin

 if (img2.Visible=false) then
  begin
  cnt10:=0;
  cnt11:=0;
  cnt12:=0;
  cnt13:=0;
  step1:=0;
  step2:=81;
  IMG13.Left:=3;
  IMG14.Left:=628;
  img15.Left:=81;
  dirc3:=0;
  DIRC4:=0;

  img1.Visible:=false;
  img2.Visible:=false;
  img3.Visible:=false;
  img4.Visible:=false;
  img5.Visible:=false;
  img6.Visible:=false;
  img7.Visible:=false;
  img8.Visible:=false;
  img9.Visible:=false;
  img10.Visible:=false;
  IMG11.Visible:=FALSE;
  IMG12.Visible:=FALSE;
  panel1.Visible:=true;
  label1.Visible:=false;
  label2.Visible:=false;
  img13.Visible:=true;

img15.Visible:=true;
panel1.Visible:=false;
panel2.Visible:=true;
/////////////////////////////////////////////////
 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.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.nameEdit.text<>'' then begin    form4.eatSpinEdit.Value:=form4.eatSpinEdit.Value-5;end;
   if form4.nameEdit.text<>'' then begin  form4.sleepSpinEdit.Value:=form4.sleepSpinEdit.Value-2;end;
 if (form4.doctorSpinEdit.value<100) and (form4.nameEdit.text<>'')  then begin  form4.doctorSpinEdit.value:=form4.doctorSpinEdit.value+5; end;
  save_spin(form4.eatSpinEdit);
save_spin(form4.doctorSpinEdit);

save_spin(form4.sleepSpinEdit);
 /////////////////////////////////////////////////
end
else
   begin label1.visible:=true;
    form1.mediaplayer1.open;
     form1.mediaplayer1.play;
     form1.Panel2.Visible:=false;
   end;

end;

procedure TForm1.Timer11Timer(Sender: TObject);
begin
 case cnt10 of
 0:IMG13.Picture.Bitmap:=IMAGE68.Picture.Bitmap;
 1:IMG13.Picture.Bitmap:=IMAGE69.Picture.Bitmap;
 2:IMG13.Picture.Bitmap:=IMAGE70.Picture.Bitmap;
 3:IMG13.Picture.Bitmap:=IMAGE71.Picture.Bitmap;
 4:IMG13.Picture.Bitmap:=IMAGE72.Picture.Bitmap;
 5:IMG13.Picture.Bitmap:=IMAGE73.Picture.Bitmap;
 6:IMG13.Picture.Bitmap:=IMAGE74.Picture.Bitmap;
   end;
  cnt10:=cnt10 + 1;
  if cnt10>=7 then
  begin
    img13.Picture.Bitmap:=image74.Picture.Bitmap;
     if img15.left<=95 then cnt10:=0;
     end;
 case cnt11 of
 0:IMG14.Picture.Bitmap:=IMAGE75.Picture.Bitmap;
 1:IMG14.Picture.Bitmap:=IMAGE76.Picture.Bitmap;
 2:IMG14.Picture.Bitmap:=IMAGE77.Picture.Bitmap;
 3:IMG14.Picture.Bitmap:=IMAGE78.Picture.Bitmap;
 4:IMG14.Picture.Bitmap:=IMAGE79.Picture.Bitmap;
 5:IMG14.Picture.Bitmap:=IMAGE80.Picture.Bitmap;
 6:IMG14.Picture.Bitmap:=IMAGE81.Picture.Bitmap;

 end;

  cnt11:=cnt11 + 1;
 if cnt11>=7 then
 begin
  img14.Picture.Bitmap:=image81.Picture.Bitmap;

  if img15.Left>=610 then cnt11:=0;

 end;

  end;
procedure TForm1.Button11Click(Sender: TObject);
begin
 load_edit(form4.nameEdit);
 load_spin(form4.ageSpinEdit);
 load_spin(form4.eatSpinEdit);
 load_spin(form4.doctorSpinEdit);
 load_spin(form4.bodySpinEdit);
 load_spin(form4.sleepSpinEdit);
 form4.showmodal;
end;

end.
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -