home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / FLOWDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  4.7 KB  |  167 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program FlowDemo;
  5.  
  6. {$I Float.inc}  { Determines what type Float means. }
  7.  
  8. uses
  9.   Dos, Crt, GDriver, GKernel, GWindow, GShell;
  10.  
  11. procedure FlowChartDemo;
  12. var
  13.   X1, Y1, X2, Y2, I, Count : integer;
  14.   Temp : WrkString;
  15.  
  16. procedure DrawArrowHor(X1, Y1, X2, Y2 : integer);
  17. { Draw horizontal arrow with tip at point (X2, Y2) }
  18. begin
  19.   DrawLine(X1, Y1, X2, Y2);
  20.   if X2 > X1 then
  21.     begin
  22.       DrawLine(X2 - 4, Y2 - 2, X2, Y2);
  23.       DrawLine(X2 - 4, Y2 + 2, X2, Y2);
  24.     end
  25.   else
  26.     begin
  27.       DrawLine(X2 + 5, Y2 - 2, X2, Y2);
  28.       DrawLine(X2 + 5, Y2 + 2, X2, Y2);
  29.     end;
  30. end; { DrawArrowHor }
  31.  
  32. procedure DrawArrowVer(X1, Y1, X2, Y2 : integer);
  33. { Draw vertical arrow with tip at point (X2, Y2) }
  34. begin
  35.   DrawLine(X1, Y1, X2, Y2);
  36.   if Y2 > Y1 then
  37.     begin
  38.       DrawLine(X2 - 2, Y2 - 3, X2, Y2);
  39.       DrawLine(X2 + 2, Y2 - 3, X2, Y2);
  40.     end
  41.   else
  42.     begin
  43.       DrawLine(X2 - 2, Y2 + 3, X2, Y2);
  44.       DrawLine(X2 + 2, Y2 + 3, X2, Y2);
  45.     end;
  46. end; { DrawArrowVer }
  47.  
  48. procedure Blink(Count, Time : integer);
  49. { Blink the current window }
  50. var
  51.   I : integer;
  52. begin
  53.   for I := 1 to Count do
  54.   begin
  55.     Delay(Time);
  56.     InvertWindow;
  57.   end;
  58. end; { Blink }
  59.  
  60. begin { FlowChartDemo }
  61.   DefineWindow(1, 0, 0, 79, 190);         { Define the 'FLOW CHART' window }
  62.   DefineWindow(2, 12, 20, 25, 40);        { Define the 'START' window }
  63.   DefineWindow(3, 15, 55, 22, 75);        { Define the 'I=1' window }
  64.   DefineWindow(4, 11, 110, 26, 130);      { Define the 'IF I<=5' window }
  65.   DefineWindow(5, 47, 90, 56, 110);       { Define the 'I=I+1' window }
  66.  
  67.   ClearScreen;                            { Draw the surrounding window }
  68.   SetColorWhite;
  69.   DefineHeader(1, 'A FLOW CHART');
  70.   SetHeaderOn;
  71.   SelectWindow(1);
  72.   DrawBorder;
  73.   SetHeaderOff;
  74.  
  75.   SelectWindow(2);                        { Draw the 'START' window }
  76.   DrawBorder;
  77.   DrawText(125, 27, 2, 'START');
  78.   SetWindowModeOff;
  79.   DrawArrowVer(151, 40, 151, 55);         { Draw the connecting line }
  80.   SetWindowModeOn;
  81.  
  82.   SelectWindow(3);                        { Draw the 'I=1' window }
  83.   DrawBorder;
  84.   DrawText(136, 63, 2, 'I=1');
  85.   SetWindowModeOff;
  86.   DrawArrowVer(151, 75, 151, 110);        { Draw the connecting line }
  87.   SetWindowModeOn;
  88.  
  89.   SelectWindow(4);                        { Draw the 'IF I>=5' window }
  90.   DrawBorder;
  91.   DrawText(108, 118, 2, 'IF I<=5');
  92.   DrawStraight(215, 417, 120);            { Draw the connecting lines }
  93.   SetWindowModeOff;
  94.   DrawArrowVer(417, 120, 417, 110);
  95.   DrawArrowVer(151, 130, 151, 155);
  96.   SetWindowModeOn;
  97.   SelectWindow(1);
  98.   DrawText(300, 110, 2, 'YES');
  99.   DrawText(160, 137, 2, 'NO');
  100.  
  101.   SelectWindow(5);                        { Draw the 'I=I+1' window }
  102.   DrawBorder;
  103.   DrawText(390, 98, 2, 'I=I+1');
  104.   SetWindowModeOff;
  105.   DrawLine(417, 90, 417, 80);             { Draw the connecting lines }
  106.   DrawArrowHor(417, 80, 151, 80);
  107.  
  108.   SetAspect(1.0);                         { Draw the 'END' circle }
  109.   DrawCircle(151, 165, 25);
  110.   SelectWindow(1);
  111.   DrawText(137, 163, 2, 'END');
  112.   SetWindowModeOn;
  113.   SetHeaderOn;
  114.  
  115.   CopyScreen;                             { Make an image of this screen }
  116.                                           { on the virtual RAM screen }
  117.  
  118.   DefineWindow(2, 15, 21, 22, 39);        { Set up the moving window }
  119.   SelectWindow(2);
  120.   SetBackground(0);
  121.   DrawBorder;
  122.   InvertWindow;
  123.   Delay(1000);
  124.   InvertWindow;
  125.  
  126.   Temp := '123456';                       { Initialize the number array }
  127.   MoveVer(35, true);                      { move window over init statement }
  128.   DrawText(139, 63, 2, 'I=' + Temp[1]);   { 'init' it }
  129.   Blink(30, 50);
  130.   MoveVer(55, true);                      { Move it down to increment loop }
  131.  
  132.   for Count := 2 to 6 do                  { Do increment loop }
  133.   begin
  134.     Delay(500);
  135.     MoveHor(33, true);
  136.     MoveVer(-20, true);
  137.     SetBackground(0);
  138.     DrawBorder;
  139.     DrawText(400, 98, 2, 'I=' + Temp[Count]);
  140.     Blink(30, 50);
  141.     MoveVer(-20, true);
  142.     MoveHor(-33, true);
  143.     MoveVer(40, true);
  144.   end;
  145.  
  146.   InvertWindow;
  147.   Delay(1000);
  148.   MoveVer(46, true);                      { Move to the 'END' statement }
  149.   Blink(30, 50);
  150.  
  151.   MoveHor(45, true);                      { Move back up to the top }
  152.   MoveVer(-136, true);
  153.   MoveHor(-45, true);
  154.   SetHeaderOn;
  155. end; { FlowChartDemo }
  156.  
  157. begin
  158.   InitGraphic;                            { Initialize the graphics system }
  159.  
  160.   FlowChartDemo;                          { Do the demo }
  161.  
  162.   repeat until KeyPressed;                { Wait until a key is pressed }
  163.  
  164.   LeaveGraphic;                           { Leave the graphics system }
  165. end. { FlowDemo }
  166.  
  167.