131 lines
4.9 KiB
HTML
131 lines
4.9 KiB
HTML
<html>
|
|
|
|
<head>
|
|
<object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
|
|
<param name="Keyword" value="">
|
|
</object>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
|
|
<title></title>
|
|
<link rel="StyleSheet" href="../../default.css">
|
|
</head>
|
|
|
|
<body>
|
|
<H1>Ñîçäàíèå çàäàíèé äëÿ èñïîëíèòåëÿ <span lang="ru">×åðòåæíèê</span></H1>
|
|
<hr>
|
|
<p><span lang="ru">Îïèøåì ïîñëåäîâàòåëüíîñòü ñîçäàíèÿ ãðóïïû çàäàíèé äëÿ
|
|
èñïîëíèòåëÿ ×åðòåæíèê. Ñîçäàäèì ìîäóëü </span><span lang="en-us">DM</span>Tasks.pas ñî ñëåäóþùè<span lang="ru">ì
|
|
òåêñòîì:</span></p>
|
|
<blockquote>
|
|
<p><code><b>unit</b> <span lang="en-us">DM</span>Tasks;</code></p>
|
|
<p><code><b>interface</b></code></p>
|
|
<p><code><b>uses</b> DMTaskMaker;</code></p>
|
|
<p><code><b>implementation</b></code></p>
|
|
<p><code><b>procedure</b> First<span lang="en-us">DM</span>;<br>
|
|
<b>var</b> i,a: integer;<br>
|
|
<b>begin</b><br>
|
|
TaskText('Çàäàíèå mydm1. Íà÷åðòèòå, èñïîëüçóÿ öèêë');<br>
|
|
Field(14,8);<br>
|
|
DoToPoint(7,7);<br>
|
|
a:=6;<br>
|
|
<b>for</b> i:=1 <b>to</b> 6 <b>do</b><br>
|
|
<b>begin</b><br>
|
|
DoPenDown;<br>
|
|
DoOnVector(a,-a);<br>
|
|
DoOnVector(-a,a);<br>
|
|
DoOnVector(-a,-a);<br>
|
|
DoOnVector(a,a);<br>
|
|
Dec(a);<br>
|
|
DoPenUp;<br>
|
|
DoOnVector(0,-1);<br>
|
|
<b>end</b>;<br>
|
|
<b>end</b>;</code></p>
|
|
<p><code><b>begin</b><br>
|
|
</span>RegisterGroup('mydm','Ìîè çàäàíèÿ äëÿ ×åðòåæíèêà','DMTasks',2);<br>
|
|
</span>RegisterTask('mydm1',FirstDM);<br>
|
|
<b>end</b>.</code></p>
|
|
</blockquote>
|
|
<p><span lang="ru">Íàáåðåì è çàïóñòèì îñíîâíóþ ïðîãðàììó (ñîõðàíÿòü åå â êàêîì-ëèáî ôàéëå íå òðåáóåòñÿ):</span></p>
|
|
<blockquote>
|
|
<p><code><b>uses</b> <span lang="en-us">Drawman</span>, <span lang="en-us">
|
|
DM</span>Tasks;<br>
|
|
<b>begin</b><br>
|
|
Task('my<span lang="en-us">dm</span>1');<br>
|
|
<b>end</b>.</code></p>
|
|
</blockquote>
|
|
<p>Áóäåò âûâåäåíî ñëåäóþùåå çàäàíèå äëÿ <span lang="ru">×åðòåæíèêà</span>:</p>
|
|
<p><img border="0" src="images/dmmake1.PNG"></p>
|
|
<p>Äîáàâèì çàäàíèå íà ðàçðàáîòêó ïðîöåäóðû:</p>
|
|
<blockquote>
|
|
<p><code><b>procedure</b> DoCross;<br>
|
|
<b>begin</b><br>
|
|
DoPenDown;<br>
|
|
DoOnVector(1,0); DoOnVector(0,-1);<br>
|
|
DoOnVector(1,0); DoOnVector(0,-1);<br>
|
|
DoOnVector(-1,0); DoOnVector(0,-1);<br>
|
|
DoOnVector(-1,0); DoOnVector(0,1);<br>
|
|
DoOnVector(-1,0); DoOnVector(0,1);<br>
|
|
DoOnVector(1,0); DoOnVector(0,1);<br>
|
|
DoPenUp;<br>
|
|
<b>end</b>;</code></p>
|
|
<p><code><b>procedure</b> SecondDM;<br>
|
|
<b>begin</b><br>
|
|
TaskText('Çàäàíèå mydm2. Íà÷åðòèòå, èñïîëüçóÿ ïðîöåäóðó Cross');<br>
|
|
Field(18,12);<br>
|
|
DoToPoint(3,8);<br>
|
|
DoCross;<br>
|
|
DoToPoint(8,4);<br>
|
|
DoCross;<br>
|
|
DoToPoint(12,11);<br>
|
|
DoCross;<br>
|
|
DoToPoint(15,6);<br>
|
|
DoCross;<br>
|
|
<b>end</b>;</code></p>
|
|
</blockquote>
|
|
<p>Äîáàâèì âûçîâ ïðîöåäóðû ðåãèñòðàöèè äëÿ äàííîãî çàäàíèÿ; â ðåçóëüòàòå ñåêöèÿ èíèöèàëèçàöèè ïðèìåò ñëåäóþùèé âèä:</p>
|
|
<blockquote>
|
|
<p><code><b>begin</b><br>
|
|
RegisterGroup('mydm','Ìîè çàäàíèÿ äëÿ ×åðòåæíèêà','DMTasks',2);<br>
|
|
RegisterTask('mydm1',FirstDM);<br>
|
|
RegisterTask('mydm2',SecondDM);<br>
|
|
<b>end</b>.</code></p>
|
|
</blockquote>
|
|
<p><span lang="ru">Èçìåíèì îñíîâíóþ ïðîãðàììó:</span></p>
|
|
<blockquote>
|
|
<p><code><b>uses</b> <span lang="en-us">Drawman</span>, <span lang="en-us">
|
|
DM</span>Tasks;<br>
|
|
<b>begin</b><br>
|
|
Task('my<span lang="en-us">dm2</span>');<br>
|
|
<b>end</b>.</code></p>
|
|
</blockquote>
|
|
<p>Ïðè çàïóñêå ýòîé ïðîãðàììû â îêíå èñïîëíèòåëÿ ×åðòåæíèê áóäåò âûâåäåíî íîâîå çàäàíèå:</p>
|
|
<p><img border="0" src="images/dmmake2.PNG"></p>
|
|
<p>
|
|
Ïðè ïåðâîì çàïóñêå ïðîãðàììû ñ ïîäêëþ÷åííûì ìîäóëåì <code>DMTasks</code> ñîçäàííàÿ íàìè ãðóïïà áûëà àâòîìàòè÷åñêè çàðåãèñòðèðîâàíà
|
|
â ìàñòåðå ïî ñîçäàíèþ ïðîãðàìì-çàãîòîâîê <b>PT4Load</b>.
|
|
Åñëè òåïåðü íàæàòü êíîïêó <img border="0" src="images/load.gif" width="16" height="17"> è â ïîÿâèâøåìñÿ îêíå
|
|
<b>PT4Load</b> ââåñòè ïðåôèêñ
|
|
</span><span lang="en-us"><code>DM</code></span><span lang="ru"> â ïîëå «Çàäàíèå», òî îêíî ïðèìåò ñëåäóþùèé âèä:
|
|
</span></p>
|
|
<p><img border="0" src="images/dmmake3.PNG">
|
|
</p>
|
|
<p>Ìû âèäèì, ÷òî ãðóïïà çàäàíèé mydm ïîÿâèëàñü â ñïèñêå äîñòóïíûõ ãðóïï äëÿ èñïîëíèòåëÿ ×åðòåæíèê. Íàáåðåì èìÿ çàäàíèÿ
|
|
<span lang="en-us"><code>mydm1</code></span>:</p>
|
|
<p>
|
|
<img border="0" src="images/dmmake4.PNG">
|
|
</p>
|
|
<p>Ïîñëå íàæàòèÿ êëàâèøè <span lang="en-us"><b>Enter</b> </span>â ðàáî÷åì êàòàëîãå áóäåò ñîçäàí
|
|
íîâûé ôàéë <span lang="en-us">DMmydm1.pas </span>ñî ñëåäóþùèì ñîäåðæèìûì:</p>
|
|
<blockquote>
|
|
<p><code><b>uses</b> <span lang="en-us">Drawman</span>, <span lang="en-us">
|
|
DM</span>Tasks;<br>
|
|
<br>
|
|
<b>begin</b><br>
|
|
Task('my<span lang="en-us">dm</span>1');<br>
|
|
<br>
|
|
<b>end</b>.</code></p>
|
|
</blockquote>
|
|
<p>Ìîæíî ïîïûòàòüñÿ ðåøèòü :)</p>
|
|
</body>
|
|
|
|
</html>
|