ООП

pascal
  1. Program oop;
  2.  
  3. Uses
  4. graph,crt;
  5.  
  6. Type
  7.   barObj = Object
  8.  
  9.     x1,x2,y1,y2: integer;
  10.     Procedure Show;
  11.     Procedure Hide;
  12.     Procedure Init(nX1,nX2,nY1,nY2:integer);
  13.     Procedure Move(speedX,speedY:integer);
  14.   End;
  15.  
  16. Procedure barObj.Init(nX1,nX2,nY1,nY2:integer);
  17. Begin
  18.   x1 := nX1;
  19.   x2 := nX2;
  20.   y1 := nY1;
  21.   y2 := nY2;
  22. End;
  23.  
  24. Procedure barObj.Show;
  25. Begin
  26.   SetFillStyle(SolidFill,15);
  27.   Bar(x1,y1,x2,y2);
  28. End;
  29.  
  30. Procedure barObj.Hide;
  31. Begin
  32.   SetFillStyle(SolidFill,0);
  33.   Bar(x1,y1,x2,y2);
  34. End;
  35.  
  36. Procedure barObj.Move(speedX,speedY:integer);
  37. Begin
  38.   Hide;
  39.   x1 := x1+speedX;
  40.   y1 := y1+speedY;
  41.   x2 := x2+speedX;
  42.   y2 := y2+speedY;
  43.   Show;
  44. End;
  45.  
  46.  
  47. Var
  48.   j,Err: integer;
  49.   key: char;
  50.   ourBar: barObj;
  51.  
  52.  
  53. Begin
  54.   Err := detect;
  55.   InitGraph(Err,j,'');
  56.   ourBar.Init(100,200,300,400);
  57.   Err := GraphResult;
  58.   WriteLn(GraphErrorMsg(Err));
  59.   ourBar.Show;
  60.   While key<>'x' Do
  61.     Begin
  62.       key := readkey;
  63.       If key='w' Then ourBar.Move(0,-5);
  64.       If key='s' Then ourBar.Move(0,5);
  65.       If key='a' Then ourBar.Move(-5,0);
  66.       If key='d' Then ourBar.Move(5,0);
  67.     End;
  68.   halt;
  69. End.
Может помочь в написании многих игр и программ :)
Назад

Реклама

Мы в соцсетях

tw tg yt gt