Разработка учебника по изучению языка Delphi в среде программирования Delphi 5.0

 

Введение

В настоящее время в компьютерном мире существует множество языков программирования. Программу, выполняющую одни и те же действия, можно написать на Бейсике (ВАSIС), Паскале (Рasсаl) Си (С) Какой из языков лучше? Ответ на этот вопрос не так прост. Однако можно с уверенностью сказать, что Раsсаl лучше других языков подходит для обучения программированию. И это не удивительно, ведь данный язык был разработан швейцарским ученым Н. Виртом, в том числе и для обучения программированию.

Язык программирования Раsсаl оказался настолько удачным, что с момента его появления за короткое время различными фирмами было создано достаточно большое количество компиляторов (компилятор - программа, переводящая инструкции языка программирования, языка высокого уровня, на язык инструкций процессора вычислительной машины, язык низкого уровня)». Одной из наиболее удачных стала разработка американской фирмы Borland, в которой были объединены редактор текста и высокоэффективный компилятор. Созданная система получила название Тurbо Раsсаl, а язык программирования, используемый в ней, стал называться Тurbо Раsсаl.

Совершенствуя Turbo Раsсаl, фирма Borland разрабатывала новые версии пакета. Так, в систему были внесены дополнения, позволяющие создавать большие программные проекты, что сделало ее привлекательной для профессиональных программистов. Со временем в Turbo Раsсаl появились средства, обеспечивающие поддержку концепции объектно-ориентированного программирования, и язык программирования Turbo Раsсаl стал называться Object Раsсаl.

Развитие вычислительной техники и технологии программирования привело к тому, что фирма Borland разработала принципиально новый программный продукт, который получил название Delphi. - это среда разработки программ, ориентированных на работу в Windows. В основе идеологии Delphi лежит технология визуального проектирования и методология объектно-ориентированного программирования.

Первая версия, Delphi 1, работала в среде Windows 3.1. С появлением Windows 95 Вогland выпустила сначала 16-разрядную версию, Delphi 2, а затем значительно более совершенную 32-разрядную - Delphi 3. С появлением Windows 98 была выпущена четвертая версия. И вот теперь для разработчиков программ стала доступна Delphi 5 [1, c. 28].

программа электронный учебник delphi

1. Назначение и преимущество использования электронных учебников

Электронные учебники используются для интерактивного изучения каких либо дисциплин. Преимущество таких учебников состоит в том, что они легки в использовании, размещаются на гибких магнитных и оптических дисках, что существенно облегчает транспортировку, возможность копирования электронных учебников позволяет экономить денежные средства.

2. Описание возможностей среды DELPHI 5 для разработки электронного учебника

Delphi 5 является средой разработки, используемой прежде всего для поддержки и разработки приложений, предназначенных как для отдельных рабочих станций, так и для серверов. Delphi 5 может функционировать под управлением операционной системы Windows 95, Windows 98 или Windows NT.

Отличительными чертами рабочей среды Delphi 5 являются:

Большинство созданных с помощью Delphi приложений будут направлены главным образом на решение задач, связанных с производством и бизнесом; это значит, что обеспечение функционирования баз данных и создание отчетов будут наиболее часто решаемыми задачами.

Совместимость приложений становится все более важной. Помимо всего прочего, это обусловлено еще и бурным развитием аппаратного обеспечения (Hardware), в частности:

широким распространением мобильных компьютеров;

дальнейшим развитием технических средств, предназначенных для приема, воспроизведения и передачи информации следующих типов: цифровой текстовой, изображения и звука.

При рассмотрении приведенного выше списка становится ясно, что именно потребители, связанные с производством и бизнесом, нашли в Delphi 5 идеальное вспомогательное средство для решения своих задач.

Delphi 5 имеет графический пользовательский интерфейс, подобный используемому Microsoft в Visual Basic и C++. В настоящее время множество фирм приняли его в качестве стандарта для разработки интерфейсов собственных приложений [2, c. 36].

Поскольку пользовательский интерфейс создается визуально, о Delphi 5 говорят как о среде, предназначенной для быстрого создания приложений. Основной составляющей среды быстрого создания приложений является технология, получившая название Two Ways Tools. Это значит, что при размещении или изменении компонента в какой-либо форме соответствующий программный код будет автоматически дополнен или модифицирован. И наоборот, все изменения, которые вносятся в программный код при разработке приложения, автоматически отражаются на функциональных свойствах компонентов формы. Для создания пользовательского интерфейса Delphi 5 предлагает широкий набор вспомогательных средств.

Если вы еще не знакомы с визуальной технологией создания пользовательского интерфейса, было бы целесообразно приобрести такие знания. Эта технология, без преувеличения, является сегодня стандартной технологией разработки новых приложений.

Другой аспект графической среды разработки - это замечательная сама по себе справочная система. Delphi 5 предоставляет в ваше распоряжение средства, позволяющие снабжать приложения контекстно-зависимой справочной информацией (Help) [2, c. 45].

Delphi 5, как и всякая современная среда разработки приложений, основана на объектно-ориентированном программировании (ООП). Эта технология программирования является той основой, которая и позволяет реализовать все функциональные возможности Delphi 5. При создании приложений на основе готовых компонентов с использованием свойств, методов и заранее определенных обработчиков событий можно обходиться программным кодом небольшого объема. Для разработчика это означает, что при разработке пользовательского интерфейса своих приложений он может получить значительную экономию времени.

Поддержка разработки бизнес приложений, использующих базы данных и генераторы отчетов, осуществляется в Delphi 5 очень эффектным способом. Здесь фирма Borland применила весь свой технологический опыт, накопленный за прошедшие годы. При работе в среде Delphi 5 посредством BDE (Borland Database Engine) можно получать прямой доступ к dBase-, Paradox-, FoxPro-, Access- и ASCII-таблицам баз данных. Набор драйверов Borland SQL Links for Windows обеспечивает все необходимые соединения с SQL-серверами.

С Delphi 5 поставляется СУБД InterBase, которая обычно используется для тестирования приложений, разрабатываемых для работы с удаленными SQL-серверами Oracle, Sybase, Informix, InterBase NT и DB2. Для того чтобы получить доступ к другим базам данных или другим форматам данных посредством BDE, нужно воспользоваться ODBC-драйвером. Таким образом, Delphi 5 можно использовать при создании приложений типа клиент / сервер любого масштаба. В пятой версии Delphi появился набор специализированных компонентов для работы с СУБД InterBase, не требующих использования BDE и более полно использующих особенности сервера InterBase, чем стандартные компоненты.

Для создания отчетов в Delphi 5 имеется набор интегрированных компонентов TQuickReport.

Для программирования непосредственного доступа к аппаратному обеспечению Delphi 5 предоставляет в распоряжение программиста интегрированный ассемблер. Благодаря этому Intel-Assembler-код может непосредственно включаться в код программ Object Pascal. Интегрированный ассемблер в значительной степени использует синтаксис, поддерживаемый компиляторами Borland Turbo Assembler и Macro Assembler фирмы Microsoft. Интегрированный ассемблер Delphi 5 включает в себя все команды процессоров 8086/8087 и 80386/80387, а также некоторые расширения Turbo Assembler. Интегрированный ассемблер Delphi представляет собой разновидность ассемблер-компилятора, использующего синтаксис языка Object Pascal.

После запуска Delphi 5 на экране открывается четыре окна интегрированной среды разработки приложения: главное окно, окна проектировщика форм, редактора кода и инспектора объектов. На рисунке 1 показан вид экрана после запуска Delphi 5 [3, c. 45].

Рисунок 1 - Вид экрана после запуска Delphi 5

В верхней части экрана расположено главное окно, которое показано на рисунке 2, в нём находятся строка главного меню, панели инструментов (Standard, View, Debug, Custom) и палитра компонентов. Главное окно программы остается открытым все время, пока остается загруженным Delphi 5.

Рисунок 2 - Главное окно.

Окно редактора кода (Code Editor) имеет заголовок Unit1.pas, оно представлено на рисунке 3. В редакторе кода могут быть открыты несколько файлов. Каждый открытый файл размещается на отдельной странице, а его название отображается в верхней части окна на отдельной вкладке.

Рисунок 3 - Окно редактора кода

При разработке приложений часто приходится использовать инспектор объектов, рисунок 4. Если окна инспектора объектов нет на экране, его можно открыть при помощи команды Инспектор объектов меню Вид или нажать клавишу F11. Окно Инспектора объектов содержит две страницы, каждую из которых можно активизировать, выполнив щелчок на вкладке с соответствующим названием. Первая страница имеет название Properties, Левая колонка этой страницы содержит список всех свойств редактируемого компонента, доступных во время проектирования. Вторая страница называется Events. В ее левой колонке перечислены все имеющееся обработчики событий компонента. В правых колонках обеих страниц могут устанавливаться значения соответствующих свойств или обработчиков событий. Функциональные возможности компонента, используемого в проектируемом приложении, определяется путем присвоения свойствам компонента определенных значений и связывания с обработчиками событий определенных процедур. Процедуры обработки событий published - методы компонента, которые выполняются при возникновении определенного события [10, c. 43].

Таким образом, инспектор объектов является инструментом, который используется для формирования внешнего вида и функциональных возможностей формы и компонентов в процессе разработки приложения.

Рисунок 4 - Инспектор объектов

3. Краткое описание разделов электронного учебника

Введение:

что нового?

-введение;

-палитра компонентов;

Типы данных:

- простые типы данных;

-процедурные типы;

-указательные типы;

структурные типы;

строковые типы;

типы данных;

Создание приложений:

-работа с формами;

-передовые технологии программирования;

опции проекта;

повторное использование приложений;

создание приложений MDI;

создание консольного приложения;

создание приложений SDI;

Создание элементов управления ActiveX:

-среда разработки Delphi ActiveX (DAX);

-распространение элементов управления ActiveX и форм ActiveForm в Web;

создание форм ActiveForm;

регистрация и установка элемента управления ActiveX;

элементы управления ActiveX;

библиотеки типов;

Тестирование и отладка:

-тестирование;

-обработка ошибок;

силовая отладка;

интегральный отладчик Delphi;

Практикум:

-урок 1;

-урок 2;

урок 3;

урок 4;

урок 5;

урок 6;

урок 7;

урок 8;

4. Варианты применения служб Internet для дистанционного обучения

Одна из современных тенденций заключается в том, что по мере внедрения компьютерной техники взаимодействие между людьми всё меньше требует непосредственного общения.

Его заменяют:

Электронная почта

Телеконференции

Электронные форумы и т.д.

Отношения между работодателем и служащим приобретают форму телеворкинга (telework), a между студентами и преподавателями - форму дистанционного обучения (distance learning).

Учитывая, что большинство современных высокотехнологичных компаний требуют от своих сотрудников постоянной переподготовки, процессы организации телеворкинга и дистанционного обучения тесно увязаны между собой.

Новая технология позволяет экономить огромные ресурсы на командировки, аренду офисного оборудования и т.д.

Уже сегодня десятки миллионов людей в мире работают и учатся не выходя из дома, и, видимо, эта тенденция будет развиваться

Интернет - технологии дистанционного обучения особенно эффективны, когда количество обучаемых по определенной специальности превышает 100-200 человек. Поэтому не удивительно, что данный подход широко используют крупные корпорации, концерны и банки всего мира.

Дистанционное обучение можно определить как «тип образования, при котором студенты работают самостоятельно дома и контактируют с преподавателем и другими студентами посредством e-mail, электронных форумов, видеоконференций и других форм сетевого общения».

Дистанционное обучение - это не средство замены преподавателя компьютерной программой, а средство взаимодействия с преподавателем на базе компьютерных технологий.

Система Дистанционного обучения должна не только предоставить студенту учебную программу, но и обеспечить ему возможность сетевого контакта с преподавателем, с тем чтобы он мог задавать преподавателю вопросы (и главное - оперативно получать комментарии от него), а также общаться с другими студентами, изучающими тот же курс.

Задача организации Дистанционного обучения включает два аспекта:

Обеспечение контента.

Подбор штата квалифицированных преподавателей.

У нас в стране Системы дистанционного обучения относятся к классу BII и BIII.

Наиболее популярны четыре системы:

АСДО «Доцент»

«Прометей»

ИДО МЭСИ

«ОРОКС» - сетевая оболочка

Система «Доцент» имеет наиболее привлекательные характеристики по сравнению с основными конкурентами.

Структура дистанционного учебного центра построена на основе автоматизированных систем «Доцент».

Административная подсистема включает в себя автоматизированные рабочие места, обеспечивающие работу учебного центра:

«Администратор»

«Куратор»

«Преподаватель»

Администратор - осуществляет руководство учебным центром (принимает на работу сотрудников, создает учебные группы и т.д.).

Куратор - отвечает за организацию учебного процесса или проведение тестирования по курсу.

Преподаватели - готовят учебно-методические материалы, ведут консультации, проверяют тестовые задания и курсовые работы.

Система «Прометей» - программная оболочка, которая обеспечивает дистанционное обучение и тестирование слушателей, а также позволяет управлять всей деятельностью виртуального учебного заведения.

«Прометей» имеет модульную масштабируемую структуру, состоящую из элементов:

Типовой Web-узел

Автоматизированные рабочие места

Набор дополнительных модулей

5. Фрагменты листинга программы

После запуска программы появляется «ГЛАВНАЯ ФОРМА». При помощи этой формы пользователь управляет самой программой.

Рисунок 7 - «Главная форма»

Программный код «главной формы»:

unit MainUnit;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, SHDocVw, ComCtrls, ExtCtrls, ImgList, StdCtrls, jpeg, Buttons;= class(TForm): TPanel;: TPanel;: TTimer;: TPanel;: TWebBrowser;: TPanel;: TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TTabSheet;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TTabSheet;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TSpeedButton;: TImage;FormActivate (Sender: TObject);Timer1Timer (Sender: TObject);Image1MouseMove (Sender: Tobject

: TShiftState; X, Y: Integer);SpeedButton1Click (Sender: TObject);SpeedButton2Click (Sender: TObject);SpeedButton3Click (Sender: TObject);SpeedButton2MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);SpeedButton5Click (Sender: TObject);FormCreate (Sender: TObject);FormShow (Sender: TObject);Panel4Click (Sender: TObject);Panel4MouseMove (Sender: TObject; Shift:; X, Y: Integer);SpeedButton7Click (Sender: TObject);SpeedButton8Click (Sender: TObject);SpeedButton6Click (Sender: TObject);TabSheet1MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);SpeedButton13Click (Sender: TObject);SpeedButton14Click (Sender: TObject);SpeedButton21Click (Sender: TObject);SpeedButton20Click (Sender: TObject);SpeedButton19Click (Sender: TObject);SpeedButton15Click (Sender: TObject);SpeedButton22Click (Sender: TObject);SpeedButton28Click (Sender: TObject);SpeedButton26Click (Sender: TObject);SpeedButton27Click (Sender: TObject);SpeedButton25Click (Sender: TObject);SpeedButton24Click (Sender: TObject);SpeedButton23Click (Sender: TObject);SpeedButton30Click (Sender: TObject);SpeedButton37Click (Sender: TObject);SpeedButton36Click (Sender: TObject);SpeedButton35Click (Sender: TObject);SpeedButton32Click (Sender: TObject);SpeedButton31Click (Sender: TObject);SpeedButton38Click (Sender: TObject);SpeedButton45Click (Sender: TObject);SpeedButton44Click (Sender: TObject);SpeedButton42Click (Sender: TObject);SpeedButton11Click (Sender: TObject);SpeedButton1MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);SpeedButton5MouseMove (Sender: Tobject;: TShiftState; X, Y: Integer);SpeedButton3MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);SpeedButton4Click (Sender: TObject);SpeedButton4MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);SpeedButton9Click (Sender: TObject);SpeedButton10Click (Sender: TObject);SpeedButton12Click (Sender: TObject);SpeedButton16Click (Sender: TObject);SpeedButton17Click (Sender: TObject);SpeedButton40Click (Sender: TObject);SpeedButton39Click (Sender: TObject);SpeedButton34Click (Sender: TObject);SpeedButton33Click (Sender: TObject);SpeedButton29Click (Sender: TObject);SpeedButton18Click (Sender: TObject);

{Private declarations}

{Public declarations};: TMainForm;:real;SplashUnit, AbuotUnit, MusikUnit, CloseUnit, InstalUnit;

{$R *.DFM}

// Загрузка главной странички с логотипом (первая загрузка)

procedure TMainForm. FormActivate (Sender: TObject);

//WebBrowser1. Navigate (GetCurrentDir+

'\data\HTML\MainHTML.htm');. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\MainHTML.htm');;

// Бегущая строка в заголовке

procedure TMainForm. Timer1Timer (Sender: TObject);L:integer; c: Char; s:string;:=MainForm. Caption;:=s[1];:=length(s);(s[2], s[1], L-1);[L]:=c;. Caption:=s;;TMainForm. Image1MouseMove (Sender: TObject;: TShiftState; X,: Integer);. Color:=clInactiveBorder;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;;

// Форма с музыкойTMainForm. SpeedButton1Click (Sender: TObject);not Assigned(MusikForm) then:= TMusikForm. Create(Self);. ShowModal;

end;

// Скрытие глвной формы и загрузка прощальной формы

procedure TMainForm. SpeedButton2Click (Sender: TObject);. Visible:=false;not Assigned(CloseForm) then:= TCloseForm. Create(Self);.showmodal;;TMainForm. SpeedButton3Click (Sender: TObject);: Word;, p2: array [0..100] of Char;(p1,'test');GetModuleHandle(p1)=0 THEN(p2, ExtractFilePath (ParamStr(0))+'data\progi\test.exe');:=WinExec (p2, SW_Restore);;;TMainForm. SpeedButton2MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);. Font. Color:=clRed;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;;

// Загрузка формы о программе

procedure TMainForm. SpeedButton5Click (Sender: TObject);not Assigned(AboutForm) then:= TAboutForm. Create(Self);. ShowModal;;TMainForm. FormCreate (Sender: TObject);;

// заставкаTMainForm. FormShow (Sender: TObject);. ShowModal;

end;

// Скрытие(появление) управлющей панели

procedure TMainForm. Panel4Click (Sender: TObject);Panel2. Height<>0 then. Height:=0. Height:=97;;

// эфект подсветкиTMainForm. Panel4MouseMove (Sender: TObject; Shift:; X,: Integer);. Color:=clred;;TMainForm. SpeedButton7Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\data_type.htm');;TMainForm. SpeedButton8Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\01.htm');;TMainForm. SpeedButton6Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\What_new.htm');;TMainForm. TabSheet1MouseMove (Sender:; Shift: TShiftState;, Y: Integer);. Color:=clInactiveBorder;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;;TMainForm. SpeedButton13Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\palette_of_components.htm');;TMainForm. SpeedButton14Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\asked_types_of_data.htm');;TMainForm. SpeedButton21Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\string_type_of_data.htm');;TMainForm. SpeedButton20Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\Struct_type.htm');;TMainForm. SpeedButton19Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\qualifying_types.htm');;TMainForm. SpeedButton15Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\Procedure_types.htm');;TMainForm. SpeedButton22Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\workwithform.htm');;TMainForm. SpeedButton28Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\MakeSDI.htm');;TMainForm. SpeedButton26Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\MakeMDI.htm');;TMainForm. SpeedButton27Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\Makekons.htm');;TMainForm. SpeedButton25Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\reget.htm');;TMainForm. SpeedButton24Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\Optionproject.htm');;TMainForm. SpeedButton23Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\Firsttechnol.htm');;TMainForm. SpeedButton30Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\Dax.htm');;TMainForm. SpeedButton37Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\library_types.htm');;TMainForm. SpeedButton36Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\element_ActiveX.htm');;TMainForm. SpeedButton35Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\regestry_ActiveX.htm.');;TMainForm. SpeedButton32Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\Make_ActiveForm.htm');;TMainForm. SpeedButton31Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\Activeform_in_Web.htm');;TMainForm. SpeedButton38Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\test.htm');;TMainForm. SpeedButton45Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\DebugerDelphi.htm');;TMainForm. SpeedButton44Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\PowerDebug.htm');;TMainForm. SpeedButton42Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\FindError.htm');;TMainForm. SpeedButton11Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Delphi\LES01.htm');;TMainForm. SpeedButton1MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);. Font. Color:=clRed;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;;TMainForm. SpeedButton5MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);. Font. Color:=clRed;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;;TMainForm. SpeedButton3MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);. Font. Color:=clRed;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;;TMainForm. SpeedButton4Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\Halp.htm');;TMainForm. SpeedButton4MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);. Font. Color:=clRed;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;. Font. Color:=clNavy;;TMainForm. SpeedButton9Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\02.htm');;TMainForm. SpeedButton10Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\03.htm');;TMainForm. SpeedButton12Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\04.htm');;TMainForm. SpeedButton16Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\05.htm');;TMainForm. SpeedButton17Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\06.htm');;TMainForm. SpeedButton40Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\07.htm');;TMainForm. SpeedButton39Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\08.htm');;TMainForm. SpeedButton34Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\09.htm');;TMainForm. SpeedButton33Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\10.htm');;TMainForm. SpeedButton29Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\11.htm');;TMainForm. SpeedButton18Click (Sender: TObject);. Navigate (ExtractFilePath(ParamStr(0))+

'data\HTML\practikum\12.htm');;.

Форма «Музыка»

В этой форме можно выбрать музыку, которая будет сопровождать вас во время изучения электронного учебника.

Рисунок 7 - Форма «МУЗЫКА»

Программный код формы «МУЗЫКА»

unit MusikUnit;, Messages, SysUtils, Classes, Graphics,, Forms, Dialogs,, MPlayer, Buttons, jpeg, ExtCtrls;= class(TForm): TMediaPlayer;: TListBox;: TSpeedButton;: TImage;: TSpeedButton;ListBox1Click (Sender: TObject);SpeedButton1Click (Sender: TObject);SpeedButton2Click (Sender: TObject);SpeedButton2MouseMove (Sender: TObject; Shift:; X, Y: Integer);SpeedButton1MouseMove (Sender: TObject; Shift:; X, Y: Integer);Image1MouseMove (Sender: TObject; Shift: TShiftState;, Y: Integer);FormActivate (Sender: TObject);

{Private declarations}

{Public declarations};:TMusikForm;:integer;

{$R *.DFM}. Caption:='Состояние: Воспроизведение';

case ListBox1. ItemIndex of

: MediaPlayer1. FileName:=ExtractFilePath (ParamStr(0))+

'data\mid\1.mid';

: MediaPlayer1. FileName:=ExtractFilePath (ParamStr(0))+

'data\mid\2.mid';

: MediaPlayer1. FileName:=ExtractFilePath (ParamStr(0))+

'data\mid\3.mid';

: MediaPlayer1. FileName:=ExtractFilePath (ParamStr(0))+

'data\mid\4.mid';

: MediaPlayer1. FileName:=ExtractFilePath (ParamStr(0))+

'data\mid\5.mid';

: MediaPlayer1. FileName:=ExtractFilePath (ParamStr(0))+

'data\mid\6.mid';

: MediaPlayer1. FileName:=ExtractFilePath (ParamStr(0))+

'data\mid\7.mid';

: MediaPlayer1. FileName:=ExtractFilePath (ParamStr(0))+

'data\mid\8.mid';

: MediaPlayer1. FileName:=ExtractFilePath (ParamStr(0))+

'data\mid\9.mid';

: MediaPlayer1. FileName:=ExtractFilePath (ParamStr(0))+

'data\mid\10.mid';

: ediaPlayer1. FileName:=ExtractFilePath (ParamStr(0))+

'data\mid\11.mid';

: MediaPlayer1. FileName:=ExtractFilePath (ParamStr(0))+

'data\mid\12.mid';

: MediaPlayer1. FileName:=ExtractFilePath (ParamStr(0))+

'data\mid\13.mid';;. Open;. Play;:=1;;TMusikForm. SpeedButton1Click (Sender: TObject);

MusikForm. Caption:='Состояние: Остановлено';

if a=1 then.stop;.close;;TMusikForm. SpeedButton2Click (Sender: TObject);. Caption:='Состояние: Выход';;;TMusikForm. SpeedButton2MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);.font.color:=clred;.font.color:=clMaroon;;TMusikForm. SpeedButton1MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);.font.color:=clMaroon;;TMusikForm. Image1MouseMove (Sender: TObject; Shift:; X, Y: Integer);.font.color:=clMaroon;.font.color:=clMaroon;;TMusikForm. FormActivate (Sender: TObject);

MusikForm. Caption:='Музыкальное сопровождение';

Image1. Picture. LoadFromFile (ExtractFilePath(ParamStr(0))+

'data\img\Musik.jpg');;.

Форма «О ПРОГРАММЕ»

Рисунок 8 - о программе

Программный код формы «О ПРОГРАММЕ»

unit AbuotUnit;, Messages, SysUtils, Classes, Graphics,, Forms, Dialogs,, ExtCtrls, Buttons, jpeg;= class(TForm): TMemo;: TImage;: TSpeedButton;: TImage;SpeedButton1MouseMove (Sender:; Shift: TShiftState; X,: Integer);Image2MouseMove (Sender: TObject;: TShiftState; X,: Integer);Memo1MouseMove (Sender:; Shift: TShiftState; X,: Integer);FormActivate (Sender: TObject);SpeedButton1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TAboutForm;TAboutForm. SpeedButton1MouseMove (Sender: TObject;: TShiftState; X, Y: Integer);.font.color:=clred;;TAboutForm. Image2MouseMove (Sender:; Shift: TShiftState;, Y: Integer);.font.color:=clMaroon;;TAboutForm. Memo1MouseMove (Sender: TObject; Shift:; X, Y: Integer);.font.color:=clMaroon;;TAboutForm. FormActivate (Sender: TObject);. Picture. LoadFromFile (ExtractFilePath(ParamStr(0))+

'data\img\about.jpg');;TAboutForm. SpeedButton1Click (Sender: TObject);;;.

Форма «ТЕСТИРОВАНИЕ»

Рисунок 9 - тестирование

Программный код формы «ТЕСТИРОВАНИЕ»

unit test2_;

interface, WinTypes, WinProcs, Messages,, Graphics, Controls,, Dialogs, StdCtrls, ExtCtrls, jpeg;= class(TForm): TLabel; // поле вывода вопроса1: TImage; // область вывода иллюстрации

Panel1: TPanel;

Button1: TButton;: TImage; // кнопка «Ok», «Дальше», «Завершить»FormActivate (Sender: TObject);FormCreate (Sender: TObject);Button1Click (Sender: TObject);SelectorClick (Sender: TObject);

{Private declarations}

{Public declarations};

const

N_ANSWERS=4; // четыре варианта ответов}

N_LEVEL=4; // четыре уровня оценки}

var: TForm1; // форма: array [1..N_ANSWERS] of TLabel;

// альтернативные ответы: array [1..N_ANSWERS+1] of TRadioButton;

// кнопки выбора ответа

f: TextFile;

fn:string; // имя файла вопросов:array [1..N_LEVEL] of integer;

{сумма, соответствующая уровню}:array [1..N_LEVEL] of string;

{сообщение, соответствующее уровню}

score:array [1..N_ANSWERS] of integer; {очки за выбор ответа}

summa:integer; {набрано очков}

vopros:integer; {номер текущего вопроса}

n_otv:integer; {число вариантов ответа}

otv:integer; {номер выбранного ответа}

implementation

{установка формы в исходное состояние}

Procedure ResetForm (frm:TForm1);:integer;i:=1 to N_ANSWERS do[i].width:=frm. ClientWidth-answer[i].left-5;[i].Visible:=FALSE;[i].Visible:=FALSE;;. Label5.width:=frm. ClientWidth-frm. Label5.left-5;. Image1. Visible:=False;;

{определение достигнутого уровня}Itog (summa:integer; frm:TForm1);:integer;:string;:='';(summa:5, buf);:='Результаты тестирования'+chr(13)

+'Всего баллов: '+buf;

i:=1;(summa < level[i]) and (i<N_LEVEL) do:=i+1;:=buf+chr(13)+mes[i];. Label5.caption:=buf;;TForm1. FormCreate (Sender: TObject);

i: integer;

begin

// создадим пять меток для вывода вопроса и

альтернативных ответовi:=1 to N_ANSWERS do[i]:=TLabel. Create(self);[i].Parent:=Form1;[i].Left:=36;[i].WordWrap:=True;;

// создадим радиокнопки для выбора ответа

for i:=1 to N_ANSWERS+1 do

begin[i]:=TRadioButton. Create(self);[i].Parent:=self;[i].Caption:='';[i].Width:=17;[i].Left:=16;[i].Visible:=False;[i].Enabled:=True;[i].OnClick:=SelectorClick;;(Form1);

end;

{вывод начальной информации о тесте}

procedure info (var f: TextFile; l:TLabel);, buf:string;:='';(f, s);s[1] <> '.'buf:=buf+s+' ';s[1] ='.';. Label5.caption:=buf;

end;

{прочитать информацию об оценках за тест}

Procedure GetLevel (var f: TextFile);:integer;:string; {заполняем значения глобальных массивов}

i:=1;(f, buf);buf[1] <> '.' then begin[i]:=buf;(f, level[i]);:=i+1;;buf[1]='.';;

// масштабирование иллюстрацииScalePicture;

w, h:integer; // максимально допустимые размеры картинки

scaleX:real; // коэф. масштабирования по X

scaleY:real; // коэф. масштабирования по Y

scale:real; // общий коэф. масштабирования

i:integer;

begin

// вычислить максимально допустимые размеры картинки

w:=Form1. ClientWidth-Form1. Label5. Left;:=Form1. ClientHeight

Form1. Panel1. Height -5

Form1. Label5. Top

Form1. Label5. Height - 5;i:=1 to N_ANSWERS doanswer[i].Caption <> ''h:=h-answer[i].Height-5;

// здесь определена маскимально допустимая

величина иллюстрации

// определить масштаб

if w>Form1. Image1. Picture. WidthscaleX:=1scaleX:=w/Form1. Image1. Picture. Width;h>Form1. Image1. Picture. HeightscaleY:=1scaleY:=h/Form1. Image1. Picture. Height;ScaleY<ScaleXscale:=scaleYscale:=scaleX;

// здесь масштаб определен. Image1. Top:=Form1. Label5. Top+Form1. Label5. Height+5;. Image1. Left:=Form1. Label5. Left;. Image1. Width:=Round (Form1. Image1. Picture. Width*scale);. Image1. Height:=Round (Form1. Image1. Picture. Height*scale);. Label5. Visible:=TRUE;

end;

// вывод вопроса на экран

Procedure VoprosToScr (var f: TextFile; frm:TForm1;vopros:integer);:integer;:integer;, buf:string;:string; // файл иллюстрации:=vopros+1;(vopros:3, s);.caption:='Вопрос' + s;

{Выведем текст вопроса}

buf:='';

repeat(f, s);(s[1] <> '.') and (s[1] <> '\')buf:=buf+s+' ';(s[1] ='.') or (s[1] ='\');. Label5.caption:=buf;s[1] = '\' // к вопросу есть иллюстрация

begin

frm. Image1. Tag:=1;:=copy (s, 2, length(s));. Image1. Picture. LoadFromFile(ifn);E:EFOpenError do.tag:=0;{try}frm. Image1. Tag:=0;

// Читаем варианты ответовi:=1 to N_ANSWERS do[i].caption:='';[i].Width:=frm. ClientWidth-Form1. Label5. Left-5;;:=1;:=''; // читаем текст варианта ответа

readln (f, s);

if (s[1]<>'.') and (s[1] <> ', ')buf:=buf+s+' ';(s[1]=', ') or (s[1]='.');

// прочитан альтернативный ответ

val (s[2], score[i], code);

answer[i].caption:=buf;:=i+1; s[1]='.';

// здесь прочитана иллюстрация и альтернативные ответы

if Form1. Image1. Tag =1 // есть иллюстрация к вопросу?

then begin;. Image1. Visible:=TRUE;

end;

// вывод альтернативных ответов

i:=1;(answer[i].caption <> «) and (i <= N_ANSWERS) doi = 1frm. Image1. Tag =1answer[1].top:=frm. Image1. Top+frm. Image1. Height+5answer[i].top:=frm. Label5. Top+frm. Label5. Height+5[i].top:=answer [i-1].top+ answer [i-1].height+5;[i].top:=answer[i].top;[i].visible:=TRUE;[i].visible:=TRUE;:=i+1;;;

{$R *.DFM}TForm1. FormActivate (Sender: TObject);:='Delphi.txt';(f, fn);

{$I-}(f);

{I+}IOResult=0 then(f, Label5);(f);;

// end;;TForm1. Button1Click (Sender: TObject);Button1.tag of

: begin.caption:='Дальше';.tag:=1;[N_ANSWERS+1].Checked:=TRUE;

{вывод первого вопроса}. Enabled:=False;(Form1);(f, Form1, vopros);

: begin {вывод остальных вопросов}:=summa+score[otv];[N_ANSWERS+1].Checked:=TRUE;. Enabled:=False;(Form1);not eof(f)VoprosToScr (f, Form1, vopros):=summa+score[otv];(f);.caption:='Ok';.caption:='Результат';.tag:=2;. Enabled:=TRUE;(summa, Form1);;;

: begin {завершение работы}. Close;;; {case};TForm1. SelectorClick (Sender: TObject);:integer;:=1;selector[i].Checked = FALSE do:=i+1;:=i;.enabled:=TRUE;;

end.

Текст программного кода теста.

Сейчас Вам будут предложены вопросы по Delphi. Вы должны из предложенных нескольких вариантов ответов выбрать правильный.

Вы прекрасно разбираетесь в Delphi!

Вы много знаете о Delphi, но на некоторые вопросы ответили не верно.

Вы, вероятно, только начали знакомиться с Delphi?

Вы плохо знаете Delphi!

.

В каком окне расположена Палитра КОМПОНЕНТ:

\1.bmp

Окно Инспектора объектов

Окно Конструктора формы

Главное окно

Что содержит Палитра КОМПОНЕНТ:

\2.bmp

Команды.

Множество компонент.

Свойства компонент

Какое количество закладок содержит Палитра компонент:

\3.bmp

Зависит от настроек

Как часто называют окно конструктора формы?:

\4.bmp

Редактор кода

Инспектор объектов

Форма

Сколько закладок имеет окно Инспектора объектов:

\5.bmp

Что отображает закладка «Properties» Инспектора объектов:

\6.bmp

Свойства компонент.

События.

Объекты.

Для чего предназначен селектор объектов:

\7.bmp

Для удаления объекта

Для добавления объекта

Для выбора объекта

С помощью, какой команды создается прект нового приложения с пустой формой?:

\8.bmp/Open

/Use Unit

0

File/New Application

Какое действие выполняет команда Edit/Undo?:

\9.bmp

Вставляет текст из буфера

Удаляет выделенный фрагмент

Отменяет последние действие

Для чего используется компанент Label:

\10.bmp

Вывод графики

Отображение текста

Ввод текста

Какое свойство соответствует тексту отображаемому компонентой Edit:

\11.bmp

Форма «ВЫХОД»

Рисунок 10 - Выход

Программный код фомы «ВЫХОД»

unit CloseUnit;, Messages, SysUtils, Classes, Graphics,, Forms, Dialogs,, ExtCtrls, StdCtrls;= class(TForm): TLabel;: TLabel;FormClick (Sender: TObject);Image1Click (Sender: TObject);FormKeyDown (Sender: TObject; var Key: Word;: TShiftState);Label1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TCloseForm;MainUnit;

{$R *.DFM}TCloseForm. FormClick (Sender: TObject);. Close;. Close;;TCloseForm. Image1Click (Sender: TObject);. Close;. Close;;TCloseForm. FormKeyDown (Sender:; var Key: Word;: TShiftState);. Close;. Close;;TCloseForm. Label1Click (Sender: TObject);. Close;. Close;;

end.

6. Экономическая часть: расчет себестоимости работ по разработке электронного учебника

Затраты на создание электронного учебника:

Расчет заработной платы:

Заработная плата разработчика с отчислениями:

ЗП раз = 260*5,00* 1,385 (1)

где - 260 - трудоемкость разработки (в часах) табл. 1.

5,00 руб. - средняя часовая оплата

(оплата в месяц = 880 рублей, рабочих дней в месяце = 22, таким образом, оплата в день составит 800: 22=40 рублей, оплата в час составит 40:8=5,00 рублей)

- 1,385% - коэффициент, действующий в существующей системе налогообложения.

ЗП раз = 1800,50 руб. (2)

Таблица 1 - Подсчет трудоемкости разработки

Наименование этапаТрудоемкость (час.)1. Постановка целей и задач разработки электронного учебника42. Поиск и приобретение необходимой литературы83. Разработка плана составления электронного учебника84. Разработка электронного учебника: - подготовка материала в рукописном виде1075. Редактирование материала86. Набор материала на компьютере1207. Запись электронного учебника на СD18. Оформление необходимой документации4Итого:260

Расчет машинного времени при создании методического пособия:

Затраты определяются следующими пунктами:

1. стоимость 1 кВт/ч электроэнергии - 0,53 руб.;

2. балансовая стоимость ПЭВМ - 25000,00 руб.;

3. амортизационные отчисления - 12,5%;

. планируемое время работы над методическим пособием 136 часов;

5. количество часов работы компьютера за год 1500 часов;

6. потребляемая мощность:

- системного блока - 150 Вт;

- монитора - 50 Вт;

- принтера - 30 Вт.

Стоимость одного машинного времени на этапе разработки методического пособия определяется из:

1. Стоимости одного часа электроэнергии:

Ст. 1 час/руб. = Рпотр*0,53 (3)

где - Ст. 1 час/руб. - стоимость 1 часа потребления электроэнергии на стадии разработки;

- Рпотр - сумма потребляемой электрической мощности системного блока, монитора, принтера (кВт);

- 0,53 - стоимость 1 кВт/час электрической энергии (руб.).

Ст1 час/руб. = (1,5+0,5+0,3)*0,53 = 1,22 руб./час (4)

. Величины годовых амортизационных отчислений:

Саморт.отчисл. = (Ст.компьют.*12,5%)/1500

где - Саморт.отчисл. - величина амортизационных отчислений за час работы компьютера (руб.);

- 12,5% - ежегодный процент амортизационных отчислений;

- 1500 - приблизительное количество часов работы компьютера за год.

Саморт.отчисл. = 2,08 руб. (5)

. Затраты на обслуживание:

Зобсл. = 136*(3 поб.перс./176)*2*1,385 (6)

где - Зобсл./час - затраты на обслуживание персонального компьютера, монитора и принтера во время разработки методического пособия в час;

- Зобсл. - затраты на обслуживание персонального компьютера, монитора и принтера во время разработки методического пособия за весь срок (136 часов) изготовления методического пособия;

- Зпоб.перс. - заработная плата обслуживающего персонала (200 руб.);

-176 - количество рабочих часов в месяц;

- 2 - количество часов работы с разработчиком;

-1,385% - коэффициент, действующий в существующей системе налогообложения.

Зобсл./час = (200/176)*2* 1,385 = 3,15 руб./час (7)

Зобсл. = 136* Зобсл./час = 428,40 руб. (8)

. Рассчитаем стоимость 1 часа машинного времени на стадии разработки:

Ст1час.маш. времени = Ст. 1 час/руб. + Саморт.отчисл. + Зобсл./час

где - Ст1час.маш. времени - стоимость 1 часа машинного времени во время разработки методического пособия;

- Ст. 1 час/руб. - стоимость 1 часа потребления электроэнергии на стадии разработки;

- Саморт.отчисл. - величина амортизационных отчислений за час работы компьютера;

- Зобсл. - затраты на обслуживание персонального компьютера, монитора и принтера во время этапа разработки пособия.

Ст1час.маш. времени = 1,22+2,08+3,15 = 6,45 руб. (9)

Стоимость расходных материалов (Рвсп.мат.)

Таблица 2 - Расходные материалы и их стоимость

Перечень расходных материаловСумма затрат, руб.Дискеты (10 шт.)100Компакт диск27Бумага для принтера (1 пачка)90Картридж для принтера (1 шт.)800Итого:1017

Таким образом стоимость разработки электронного учебника будет складываться из трудоемкости затрат на заработную плату разработчика, из стоимости машино-часа, с учетом времени, затраченного на разработку методического пособия, и стоимости материалов.

Ст.м.п. = ЗПраз.+Ст. 1 час.маш. времени*Т+Рвсп.мат. (10)

где - ЗПраз. - заработная плата разработчика (руб.);

- СтЛчас.маш. времени - стоимость 1 часа машинного времени во время разработки методического пособия (руб.);

- Т - время работы компьютера на стадии разработки методического пособия (час.);

- Рвсп.мат. - стоимость расходных материалов (руб.).

Себестоимость разработки методического пособия:

Себест.разр. м.п. =2354,50 + 6,45*136+1017 = 4248,70 руб. (11)

7. Описание технических средств необходимых для выполнения проекта

5 может работать в среде операционных систем от Windows 95 до Windows 2000. Особых требований к компьютеру система не предъявляет, за исключением того, что процессор должен быть типа Pentium, оперативной памяти - не менее 32 Мбайт и достаточное количество свободной дисковой памяти (порядка 200 Мбайт).

Электронный учебник может работать в среде операционных систем от Windows 95 до Windows 2000. Процессор типа Pentium, оперативной памяти - не менее 16 Мбайт.

Список источников

1 Р. Баас, М. Фервай, Х. Гюнтер Delphi 5 для пользователя: пер. с нем. - К.: Издательская группа BHV, 2000. - 496 с.: ил.

Культин Н.Б. Программирование на Object Pascal в Delphi 5. - СПб.: БХВ - Санкт-Петербург, 2000. - 464 с.: ил.

Дарахвелидзе П.Г., Марков Е.П., Котенок О.А. Программирование в Delphi 5. - СПб.: БХВ - Санкт-Петербург, 2000. - 784 с.: ил.

Браун М. HTML 3.2. - СПб.: БХВ - Санкт-Петербург, 1999. - 470 с.: ил.

Гофман В. Delphi 5. - СПб.: БХВ - Санкт-Петербург, 2000. - 584 с.: ил.

Вебер Дж. Технология Java. - СПб.: БХВ - Санкт-Петербург, 1999

Матросов Е. HTML 4.0. - СПб.: БХВ - Санкт-Петербург, 2000. - 576 с.: ил.

Пономаренко С. Adobe Photoshop 5.0 - СПб.: BHV - Санкт-Петербург, 2000. - 656 с.: ил.

Тихомиров К. Microsoft SQL Server 7.0 - СПб.: BHV - Санкт-Петербург, 2000. - 524 с.: ил.

Хомоненко А. Самоучитель по Delphi 5. - СПб.: БХВ - Санкт-Петербург, 1999. - 496 с.: ил.

Архангельский А.Я. Разработка прикладных программ для Windows в Delphi 5 - М.: ЗАО «Издательство БИНОМ», 1999. - 256 с.: ил. (Все о Delphi)

Дарахвелидзе П., Марков Е. Delphi 4. - СПб.: БХВ - Санкт-Петербург, 1999. - 486 с.: ил.

13 СанПин 542-96 Гигиенические требования к видеодисплейным терминалам, персональным электронно-вычислительным машинам и организации работ - М.: Просвещение, 2000. - 389 с.

Компьютер и закон: Типовая инструкция. // Охрана труда и социальное страхование. - 2000 - №8, 20 с.

Сулла М.Б. Охрана труда - М.: Просвещение, 1999. - 472 с.

Эргономика: Учебник/ Под ред. Крылова А.А., Суходольского Г.В. - Л.: Изд-во Ленингр. ун-та 1998. - 184 с

Кенин А.М., Печенкина Н.С. Организация и дизайн рабочего места/ Екатеринбург: Издательство «АРД ЛТД», 2001, 312 с.

Муроховский В. Сборка, настройка, апгрейд современного компьютера. - М.: Инфорком - Пресс, 1999, 256 с.

Пилгрим А. Персональный компьютер: модернизация и ремонт: Пер. с англ. - СПб.: BHV - Санкт - Петербург, 2000. -528 с.

Введение В настоящее время в компьютерном мире существует множество языков программирования. Программу, выполняющую одни и те же действия, можно написать

Больше работ по теме: