Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject); begin form1.Canvas.Pen.Width:=3; form1.canvas.Polyline(polylines) end;

end.

Окно этой программы-примера приведено на рис. 2. 1 (стр. 20):

[pic]

Рисунок 2. 1 – Окно программы-примера

Выводы

В данной работе представлена образовательная программа, разработанная в среде программирования Borland Delphi 5. К ней прилагается файл урока, описывающего основы Delphi. Но вообще, эту систему обучения можно
«заставить» обучать какой-угодно дисциплине – для этого достаточно создать файлы уроков и записать их имена в файл конфигурации.

В процессе разработки программы детально изучены графические возможности Делфи и объекта Canvas.

Во второй части работы рассмотрены типизированные константы в
Паскале, их применение. Даны примеры программ.

Перечень ссылок

1. Культин Н. Delphi 4. Программирование на Object Pascal. BHV, Санкт-
Петербург, 1999. – 480 с., ил.

2. Дэн Оузьер и др. Delphi 3. Освой самостоятельно. М.: “Издательство
БИНОМ”, 1998 г. – 560 с.: ил.

3. Бондарев В. М., Рублинецкий В. И., Качко Е. Г. Основы программирования.
Харьков: Фолио; Ростов н/Д: Феникс, 1998 – 368 с.

4. Справочная система Delphi

5. Фаронов В. В. Delphi 4. Учебный курс. М.: «Нолидж», 1999 – 464 с., ил.

Приложение А

Ниже дан исходный код всех модулей программы

unit Mainfrm;

interface

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

type
TfrmMain = class(TForm)

Image1: TImage;

Timer1: TTimer;

Button1: TButton; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private

Рекомендуем скачать другие рефераты по теме: охрана труда реферат, шпоры по уголовному.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата