Разработка учебника по изучению языка Delphi в среде программирования Delphi 5.0
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?ая отладка;
интегральный отладчик 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);SpeedB