Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Другие методич. материалы / Инструкционная карта к открытому уроку производственного обучения
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

Инструкционная карта к открытому уроку производственного обучения

библиотека
материалов

Инструкционно технологическая карта


Тема урока: Работа с процедурами

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


Задание№1. Создайте программу простейший текстовой редактор.

Задание№2. Отладка программы.



Выполнение работы:

1.Выложим на форму Memo(Standart). Установим свойство Align в alClient. Установим свойство ScrollBars в ssBoth, а WordWrap в False. И уберем введенный в Memo1 текст поумолчанию, удалив этот текст из свойства Lines.

2. Выложим на форму MainMenu(Standart). Щелкнем по MainMenu1 два раза - появится окно. Теперь создадим меню "Файл". В нем элементы: "Создать", "Открыть", "Сохранить", "Сохранить как...", разделительную полоску (символ "-") и "Выход". Установим горячие клавиши как показанно на рис 1. Горячие клавиши устанавливаются в свойстве ShortCut.

hello_html_m6775f17e.png

Рис. 1 - Меню "Файл"

Аналогично создаем меню "Правка":

hello_html_66a7e49c.png

Рис. 2 - Меню "Правка"

Аналогично создаем меню "Формат":

hello_html_m78df3e9f.png

Рис. 3 - Меню "Формат"

Окошко редактора меню закрыть.

3. Пишем код, который будет выполняться при выборе чего-либо из меню. Щлекнем по меню "Файл", а там выберем "Выход".


hello_html_m6669e86e.png

Рис. 4 - Создание события onClick

После нажатия по меню "Выход" появляется окно редактора кода с уже готовой процедурой. Пишем:

Close;

Реализация переноса по словам

В меню "Формат" выберем "Перенос по словам":

procedure TForm1.N14Click(Sender: TObject);

begin

If Memo1.WordWrap then

begin

Memo1.WordWrap:=false;

Memo1.ScrollBars:=ssBoth;

N14.Checked:=False;

end

else

begin

Memo1.WordWrap:=True;

Memo1.ScrollBars:=ssVertical;

N14.Checked:=True;

end;

end;

Реализация функции "Сохранить как..."

Нам понадобится диалоговое окно сохранения документа. Выложим на форму компонент SaveDialog (Dialogs). Установим фильтр, т.е. те файлы которые будет этот диалог отображать. Нам нужно *.txt, т.е. текстовые документы. Чтобы это сделать нужно найти свойство Filter и нажать на кнопку ... Появится окно. Заполните его как показанно на рис. 5.

hello_html_m39790e.png

Рис. 5 - Редактор фильтра

Теперь измените свойство DefaultExt на *.txt. Это расширение которое будет добавляться к файлу.

Создадим процедуру сохранения файла. Напишем этот код сразу после {$R *.dfm}.

Procedure SaveAs;

begin

If Form1.SaveDialog1.Execute then

begin

Form1.Memo1.Lines.SaveToFile(Form1.SaveDialog1.FileName);

FileWork:=Form1.SaveDialog1.FileName;

end;

end;

Далее выбераем в меню "Файл" —> "Сохранить как...". Там пишем:

SaveAs;

Вводим глобальную переменную FileWork. В ней будет храниться путь к файлу с которым работает пользователь. Это нужно для реализации функции "Файл" —> "Сохранить". Объявляем ее в разделе Var перед implementation.

var

Form1: TForm1;

FileWork: String;

Реализация функции "Сохранить"

Выбераем "Файл" —> "Сохранить". И пишем:

If FileWork='' then SaveAs else Memo1.Lines.SaveToFile(FileWork);

Реализация функции "Открыть"

Выложим компонент OpenDialog на форму и свойство Filter изменим так же как у SaveDialog1.

Жмем "Файл" —> "Открыть". Пишем:

if OpenDialog1.Execute then

begin

Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

FileWork:=OpenDialog1.FileName;

end;

Реализация функции "Создать"

Жмем "Файл" —> "Создать". Пишем:

FileWork:='';

Memo1.Clear;

Реализация функций в меню "Правка"

По клику на меню "Вырезать":

Memo1.CutToClipboard;

По клику на меню "Копировать":

Memo1.CopyToClipboard;

По клику на меню "Вставить":

Memo1.PasteFromClipboard;

Реализация функций в меню "Шрифт..."

Нам понадобится еще один компонент - FontDialog .

Создаем событие по клику по меню "Шрифт...".

if FontDialog1.Execute then Memo1.Font:=FontDialog1.Font;

4.Активируйте форму. Измените заголовок окна: в свойстве Caption напишите "Блокнот". Свойство Position измените на poScreenCenter для того, чтобы форма появлялась по центру экрана.



Контрольные вопросы:

  1. На какой вкладке находится компонент MainMenu?

  2. Как открыть компонент MainMenu для редактирования?

  3. На какой вкладке находится компонент SaveDialog?

  4. С помощью какого свойства изменяется название формы?

  5. Какое свойство необходимо задать для формы чтобы она появлялась по центру?




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


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Автор
Дата добавления 15.02.2016
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров333
Номер материала ДВ-456055
Получить свидетельство о публикации
Похожие материалы

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