Учебное пособие: Методические указания по выполнению учебной практики студентами 1 курса
|
Название: Методические указания по выполнению учебной практики студентами 1 курса Раздел: Остальные рефераты Тип: учебное пособие | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Министерство сельского хозяйства РФ Федеральное государственное образовательное учреждение высшего профессионального образования «Пермская государственная сельскохозяйственная академия имени академика. Д.Н. Прянишникова» Козлов А.Н. МЕТОДИЧЕСКИЕ УКАЗАНИЯ ПО ВЫПОЛНЕНИЮ УЧЕБНОЙ ПРАКТИКИ СТУДЕНТАМИ 1 КУРСА (направление 080800) Утверждено методической комиссией ФПИ Протокол № ….. от …………20… г. Пермь 2011 ОГЛАВЛЕНИЕ
МЕТОДИЧЕСКИЕ УКАЗАНИЯ ПО ВЫПОЛНЕНИЮ УЧЕБНОЙ ПРАКТИКИ СТУДЕНТАМИ 1 КУРСА (специальность 080801) 1.Общие положения об учебной практике Учебная практика имеет целью совершенствование практических навыков студентов по применению современных прикладных программных средств общего назначения в профессиональной деятельности на основе знаний, полученных в ходе изучения курса «Информатика и программирование». Задачей практики является углубление теоретических знанийи совершенствование навыков: - программирования на персональном компьютере с применением процедурных языков программирования; - обработки и визуализации данных в офисных приложениях MS Office. - программирования в VBA. - оформления документации в MS Word. По окончании практики студент предоставляет руководителю практики отчет о проделанной работе и полученных результатах. Форма итогового контроля по практике – зачет с оценкой. На зачете студент демонстрирует работу созданных программ и макросов. При успешном прохождении практики студенту выдается документ о присвоении рабочей специальности. 2.Тематика учебной практики. Учебная практика выполняется по теме: «Программирование, расчет значений и построение графика тригонометрической функции на заданном интервале» в соответствии с вариантом задания. 3.Требования к выполнению задания по учебной практике. В соответствии с тематикой учебной практики, требуется: 1. Подготовить реферат на заданную тему. 2. Составить программу на языке Паскаль, которая реализует: - Расчет значений тригонометрической функции на заданном интервале; - Вывод полученных значений во внешний текстовый файл в виде таблицы; - Построение на экране дисплея графика функции по найденным значениям. 3. Выполнить эту же задачу в MS Exсel. 4. Отработать создание макросов с помощью VBA (задания №№1-8 в методическом материале «Макросы и VBA»). 5. Создать макрос в MS Exсel, позволяющий рассчитать значение заданной согласно варианта тригонометрической функции для заданного (любого) значения аргумента (см. задание 6 в методическом материале «Макросы и VBA»). Создать кнопку на панели инструментов для вызова данного макроса. 6. Оформить отчет в MS Word. 4.Подготовка отчета по учебной практике Отчет по учебной практике выполняется в виде реферата (в обложке) и должен содержать: 1. Титульный лист (см. Приложение 1). 2. Содержание (см. Приложение2). 3. Теоретическую часть (текст реферата на 8-10 листов). 4. Список используемой литературы. 5. Практическая часть (исходные данные и краткое описание работы). 6. Текст программы на языке Паскаль. 7. Распечатку (скриншот) полученных значений функции и скриншот графика функции. 8. Распечатку значений и графика функции, выполненные в MS Exсel; 9. Экранную форму (скриншот) текстов созданных макросов (задания №№ 1-8). 10. Приложение: CD с файлом программы на Паскаль, файлом в MS Exсel и файлами макросов, в том числе макроса для расчета тригонометрической функции. 5. Защита отчета о практике. В установленное преподавателем время студент прибывает на кафедру, имея с собой оформленный отчет и программы на ФЛЭШКЕ . После проверки преподавателем реферата студент отчитывается по практической части: · показывает график функции в Паскале, · показывает график функции в MS Exсel, · демонстрирует работу макросов, · выполняет дополнительное задание по модернизации своей программы в Паскале. 6.Методические указания. 6.1.Основные понятия и средства машинной графики в Паскале Графический модуль Graph В стандарте Паскаля не предусмотрен графический вывод. Начиная с 4-ой версии Паскаля появилась библиотека, (модуль) GraphАВС.tpu, которая содержит большой набор процедур и функция для работы с графикой. Для того, чтобы в программе можно было обращаться к процедурам и функциям модуля GraphАВС.tpu, необходимо в начале программы написать строку: Uses GraphАВС; Для инициализации (включения) графического режима используется процедура: InitGraph(Driver, Mode : integer; Path : String), где целые переменные Driver и Mode определяют тип графического драйвера и режим его работы. Строковая переменная Path содержит путь к файлу графического драйвера. Возможно автоматическое определение драйвера и установка режима: Driver := Detect; InitGraph(Driver, Mode, ‘’); где Detect – имя константы модуля Graph, соответствующее автоматическому выбору драйвера. Возвращение в текстовый режим работы дисплея осуществляет процедура: CloseGraph; Графические координаты Графические оси координат расположены на экране следующим образом:
То есть, горизонтальная ось Х направлена слева направо, а вертикальная ось У – сверху вниз. В соответствии с режимом VGHi, по горизонтали на экране помещается 640 точек, а по вертикали – 480 точек. Графические процедуры Line(X1,Y1,X2,Y2 : integer) – рисует линию от точки (X1,Y1) до точки (X2,Y2); PutPixel(X,Y : integer; Color : Word) – рисует точку с координатами (X,Y) цветом Color; OutTextXY(X,Y : integer; Text : string) – отображает Text, начиная с координат (X,Y). Построение графика функций Требуется составить программу построения на экране графика функции У = F(Х); Решение задачи будем проводить в следующем порядке: 1. Определим границы значений аргумента, в пределах которых будем строить график функции. Обозначим их: Хmin – минимальная граница, Xmax – максимальная граница аргумента функции; 2. Для заданной области значений аргумента оценим минимальное и максимальное значения функции: Ymin и Ymax; 3. Зададим границы графического окна, в пределах которого будем строить график: [Xgmin,Xgmax], [Ygmin,Ygmax]. Поскольку в графических координатах вертикальная ось направлена вниз, то Ygmin>Ygmax; 4. Значение функции Y, вычисленное в точке Х будем отображать на экране через графические координаты (Xg,Yg) связанные со значениями (Х,Y) по формулам: Xg = Xgmin + [(Xgmax-Xgmin)/(Xmax-Xmin)*(X-Xmin)]; Yg = Ygmin + [(Ygmax-Ygmin)/(Ymax-Ymin)*(Y-Ymin)], Где квадратные скобки означают округление до целого числа (функция Round). Пример ( в отчете отразить пример в соответствии с вариантом ). Требуется построить график функции У = 2*sin(Х) + cos(2*Х) на интервале [0, 2*pi] с шагом 10 градусов (2pi/36 радиан). Решение. Для построения графика функции на экране, необходимо связать найденные в программе значения (Х,У) с графическими координатами (Xg,Yg): 1. Определим границы значений аргумента, в пределах которых будем строить график: Хmin = 0, Xmax = 2*pi; 2. Для заданной области значений аргумента оценим минимальное и максимальное значения функции У = 2*sin(Х) + cos(2*Х): на интервале [0, 2*pi], значения функции 2*sin(Х) изменяются в пределах от -2 до 2, а значения функции cos(2*Х) – в пределах от -1 до 1. Тогда значения функции У=2*sin(Х)+cos(2*Х) на интервале [0, 2*pi] будут в пределах от -3 до 3, т.е. Ymin = -3 и Ymax = 3; 3. Зададим границы графического окна, в пределах которого будем строить график: график будем строить в окне экрана от 10 до 210 точек по оси Х и от 40 до 240 точек по оси У, т.е. Xgmin = 10, Xgmax = 210, Ygmin = 240, Ygmax = 40; 4. Значение функции Y, вычисленное в точке Х будем отображать на экране через графические координаты (Xg,Yg), связанные со значениями (Х,Y) по формулам: Xg = 10 + [(210-10)/(2*pi-0)*(X-0)] = 10 + [100*X/pi]; Yg = 240 + [(40-240)/(3-(-3))*(Y-(-3))] = 140+[-100*Y/3]. Вместе с графиком функций выводим на экран оси координат. Ось Х имеет координату Yg = (Ygmin+Ygmax)/2 = 140, ось Y имеет координату Xg = Xgmin = 10; 6.2. Макросы и VBA.
Задание №1. Запись макроса в Word Запустите редактор Microsoft Office Word .
Замените имя макроса (Макрос1 ), предложенное по умолчанию, на имя Создание_Проекта_Распоряжения . Добавьте следующий текст в поле Описание к автоматически созданному тексту: Проект распоряжения согласно указания № ХХХ. Примечание. Не используйте ни одну из настроек Назначить мак рос (ни панели, ни клавиши). 5. Нажмите ОК
, чтобы закрыть диалоговое окно Запись макроса
и запустить процесс записи. При этом на экране появится диалоговое окно Остановить запись
Нажмите кнопку Создать на стандартной панели инструментов, чтобы создать новый чистый документ. Наберите заголовок текста Проект служебного распоряжения . 8.Выберите Вставка / Поле , чтобы открыть окно Поле , выберите в Категориях пункт Все , если он не подсвечен автоматически, затем выберите поле Create Date и задайте формат M/D/YYYY H:MM:SS A/P (например, 20/11/2006 4:15:07 РМ) и нажмите ОК . 9. Набрать следующий текст: № 056 г. Пермь [О создании …] ПРЕДЛАГАЮ: 1. Создать … 2. Определить … 3. Считать … 4. Распоряжение довести по принадлежности. 5. Контроль за исполнение распоряжения возложить на заместителей начальника по курируемым направлениям. 10. Выполните команду Сохранить как (или нажмите Ctrl+ S ),чтобы открыть диалоговое окно. 11. Сохраните документ под именем Проект1. doc в папке Мои документы. 12. Нажмите кнопку (Остановить запись) на панели инструментов или на индикаторе. 13. Протестируйте макрос. Для этого выберите Сер вис / Макрос / Макросы , а затем выберите имя вашего макроса в списке и нажмите кнопку Выполнить . VBA создаст новый документ, введет текст в него и сохранит документ.
Задание № 2. Запись макроса в Excel Запустите Microsoft Office Excel .
Замените предложенное по умолчанию имя макроса (Макрос1) , на имя Создание_Рабочего_Бюджета . В списке Сохранить в выберите Личная книга макросов . Добавьте следующий текст к началу автоматически созданного описания: Создание проекта рабочего Бюджета . Нажмите OK
, чтобы закрыть диалоговое окно Запись макроса
. При этом запустится процесс записи и появится диалоговое окно Остановить запись
ПРИМЕЧАНИЕ: И начинаем записывать макрос, как музыку на диске: начинаем записывать все выполняемые вами операции с целью дальнейшего запуска. Будьте очень внимательны при записи макроса – не делайте лишних действий и ошибок. Нажмите кнопку Создать на стандартной панели инструментов, чтобы создать новую книгу. 8. Наберите таблицу, предложенную ниже:
9.Выполните команду Сохранить , чтобы открыть диалоговое окно Сохранить как. Сохраните книгу под именем Бюджет. xls в папке по вашему усмотрению. Например, используем папку d:\ Общие . Нажмите кнопку Остановить запись кнопку на индикаторе или на панели инструментов, выбрав Сервис / Макрос / Остановить запись . 10.Протестируйте получившийся макрос. Для этого выберите Сервис / Макрос / Макросы или нажмите Alt+ F8 . З атем выберите имя вашего макросе в списке, и нажмите кнопку Выполнить . VBA создаст новую книгу, создаст таблицу, введет в нее соответствующую информацию и сохранит книгу. Заметьте, что Excel покажет вам предупреждение о перезаписи, сохраняемой книга, в то время как Word делает это молча. Задание № 3 Рассмотрим создание макроса переход по страницам любого уровня в тексте документа Word . Такой макрос даст нам возможность быстро перемещаться по тексту. 1. В меню Сервис / Макрос и активизируем пункт Начать запись . 2. В окне Запись макроса в качестве имени макроса введём Переход_страниц . 3. Для задания горячей комбинации клавиш нажмём вторую кнопку со словом Клавишам из группы кнопок под именем Назначить макрос. 4. В открывшемся окне Настройка клавиатуры нажимаем комбинацию Ctrl+H , находясь в строке Новое сочетание . Нажмите сначала кнопку Назначить , а затем - кнопку Закрыть . Горячая комбинация для вызова макроса назначена, и запись макроса началась. 5. В меню Правка нажмите Перейти . 6. В раскрывшемся окне Найти и заменить в списке Объект перехода выставляем значение Страница . Проверяем, что строка под названием Введите номер страницы пуста. Нажимаем кнопку Далее . Затем нажмите кнопку Закрыть . Диалог Найти и заменить закрывается, курсор оказывается на следующей странице в тексте документа. 7. В меню Сервис / Макрос активизируем пункт Остановить запись . 8. Протестируйте получившейся макрос. Теперь в любой момент мы можем нажать комбинацию Ctrl+H , и курсор тут же переместиться к следующей странице. Таким образом, быстро можно просмотреть любой объемный документ. 9. Создайте аналогичный макрос для перехода к предыдущей странице. С его помощью можно быстро перемещаться по тексту и в обратном направлении. Для этого горячей комбинацией этого макроса необходимо назначить комбинацию Ctrl+ Shift+H . А в строке Введите номер страницы окна Найти и заменить поставить знак минус. Задание № 4 1.Запустите Microsoft Office Excel . 2.Откройте Лист Excel и в ячейке А1 вставьте цифру 7 . 3.Выберите Сервис / Макрос / Начать запись . 4.В появившемся окне Запись макроса в поле Имя макроса указать ПРОБА. 5. Задайте комбинацию клавиш для его запуска (например, Ctrl + q ) и нажмите кнопку ОК. 6. Выполнить следующие операции: ПРИМЕЧАНИЕ: Будьте очень внимательны при записи макроса – не делайте лишних действий и ошибок. - сначала выделите ячейку А1 , нажав на неё, затем копируйте её содержание и вставляйте в ячейку С1 (простая операция копирования). 7.Нажмите кнопку Остановить запись кнопку на индикаторе или на панели инструментов, выбрав Сервис / Макрос / Остановить запись . 8. Удалите данные с листа, а затем в ячейку А1 , поставьте любое значение и нажмите Ctrl + q . Если вы всё сделали правильно, в ячейку С1 должны автоматически копироваться значения А1 .
10. Рассмотрите более подробно автоматически созданный программный код. Вот как выглядит макрос или процедура (программный код) задачи копирования ячейки А1 в ячейку С1 . ПРИМЕЧАНИЕ: Процедура - это общее название всех самостоятельных частей кода. Процедура - участок кода, выделенный ключевыми словами Sub (в начале процедуры: за ним следует ее имя) и End Sub (окончание процедуры: помещается на отдельной строке). Обычно процедура выполняет одно или несколько действий. 11. Выделите строки программного кода от « Range…» до «… Paste» и копируйте их либо через меню Edit / Copy , либо с помощью правой кнопки мыши. 12. Сместите строку « End Sub» на одну строку ниже и в пустую строку вставьте скопированный программный код. 13. Во вставленном программном коде измените «А1» на «С1» и «С1» на «Е1». 14. Через панель задач перейти в Microsoft Office Excel и очистите все ячейки, а затем наберите любое значение в ячейке А1 . 15. Запустите на выполнение измененный макрос либо нажатием комбинации клавиш Ctrl + q , либо через меню Сервис / Макрос / Макросы / Выполнить.
Задание № 5 Запустите Microsoft Office Excel . Откройте Лист Excel . Выберите Вид / Панели инструментов/ Visual Basic . На открывшейся панели редактора Visual Basic нажмите кнопку Панель элементов управления и перенести элемент «Кнопка» на рабочее поле. На Панели элементов управления нажмите кнопку Окно свойства и в появившемся окне Properties в графе Caption переименуйте название кнопки CommandButton1 на Создание Овала. 6. Выберите Сервис / Макрос / Начать запись . 7. В появившемся окне Записи Макроса укажите Имя макроса и комбинацию клавиш для его запуска ( Ctrl +а) и нажмите ОК. 8. С панели Рисование перенесите на рабочее поле Овал , а затем выделите этот объект и зайдите в Формат Автофигуры, а затем зайдите Цвет Заливки – Красный, Цвет линии – черный, Толщина линии – 3 пт. 9. В меню Сервис / Макрос активизируйте пункт «Остановить запись» . 10 . Зайдите в Microsoft Visual Basic в меню Редактор Visual Basic в модулях найти наш Макрос, скопируйте код макроса и вставьте в процедуру: Private Sub CommandButton1_Click() End Sub 11. Протестируйте макрос. Теперь при нажатии кнопки Создать Овал будет появляться на рабочем поле соответствующая геометрическая фигура. Задание № 6 1. Запустите Microsoft Office Excel .
3. Создайте макрос. Для этого в поле Имя наберите MY, а в поле Находится в выберите - Это книга (место нахождения этого макроса). 4. Нажмите кнопку Создать , если она станет активной. Появится редактор VBA . 5. Введите в пустую строку программный код MsgBox “ПРИВЕТ VBA !!!” , как на рисунке (Пустая строка между Sub и End Sub ). ПРИМЕЧАНИЕ: Здесь используется функция MsgBox , которая выводит на экран окно сообщения. 6. Закройте редактор VBA и закройте файл. 7. Привяжите макрос к кнопке. Для этого через меню Сервис / Настройка / Команды в разделе Категории выберите Макросы . 8. Захватите левой кнопкой мыши «веселую желтую рожицу» и перетащите ее на панель.
11. Протестируйте макрос. Для этого нажмите кнопку - макрос выполняется и появляется надпись. Задание № 7 Запустите редактор Microsoft Office Word . Создайте новый макрос с именем Радиус через Сервис / Макрос / Начать запись и нажмите Остановить запись . Откройте окно редактора Visual Basic и найдите в окне Code программный код: Sub Радиус () End Sub 4. Запишите в пустой строке следующий программный код: RAD frm.Show ПРИМЕЧАНИЕ: Этой строкой вызывается форма RAD frm . 5. Создайте саму форму. Для этого в окне редактора Visual Basic
найдите кнопку 6. На саму форму перенесите Textbox (окно ввода), Button (кнопку) и Label (метку). Разместите всё друг за другом:
7. Задайте следующие параметры через на панель Properties : Textbox: Name: txtRadius Text: (пусто) Button: Name: cmdCalc Caption: РЕЗУЛЬТАТ Label: Name: lblLenght Caption: (пусто) 8. Разберитесь в том, что должно получиться: в поле ввода вводим цифру, нажимаем на кнопку Результат , и на Label появляется сосчитанная по формуле длина окружности. 9. Откройте окна программного кода созданной формы. Для этого щелкните два раза по кнопке Результат . 10. Напишите в окне кода следующее: 'Объявляем переменные радиуса и длины окружности Dim Radius As Integer Dim Lenght As Integer ' Объявление постоянного числа Pi Const Pi = 3.14159 Private Sub cmdCalc _ Click () 'Считывание чисел в окне ввода Radius = txtRadius . Text ' Считаем… Lenght = 2 * Radius * Pi 'Полученный результат выводим на Label lblLenght.Caption = Lenght End Sub 11. Протестируйте макрос. Для этого перейдите через Панель задач в Word, запустите на выполнение макрос, в появившемся окне ВЫЧИСЛЕНИЕ РАДИУСА в поле Textbox наберите любое число и нажмите кнопку Результат. Задание № 8 Это задание позволяет сделать текущий запрос о свободной оперативной памяти. К примеру, на слабых машинах, из-за сильной их загруженности, приложения Microsoft Office вылетают с сообщением об ошибке. Причина, которой можно объяснить это - нехватка оперативной памяти, и ошибка при переходе на использование «виртуальной» памяти. ПРИМЕЧАНИЕ: Код этого макроса уже намного серьезнее предыдущих. Стандартными средствами Visual Basic , на котором пишутся макросы, эту задачу не решить. На помощь приходят API - функции Windows . API - это сокращение от Application Programming Interface. API состоит из целого ряда функций, которые позволяют использовать системные Windows-конструкции. Чтобы использовать API -функции, нужно сначала их декларировать (объявить). Запустите Microsoft Office Excel . Создайте новый макрос с именем RAM через Сервис / Макрос / Начать запись и нажмите Остановить запись . Откройте окно редактора Visual Basic и найдите в окне Code программный код: Sub
RAM
() End Sub 4. Запишите в пустой строке Ramfrm.Show ПРИМЕЧАНИЕ: Этой строкой вызывается форма Ramfrm . Создайте саму форму. Для этого в окне редактора Visual Basic
найдите кнопку Нажмите F7 , появится окно редактора кода. Удалите все, что там есть и внесите туда следующий код: Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS) 7. Наберите программный код процедуры, которая выполняется при старте формы: Private Sub UserForm_Initialize() 8. Протестируйте созданный макрос RAM . 7. Варианты заданий. Номер варианта (реферата и практического задания ) определяются в табл.1 по последней и предпоследней цифрам номера зачетной книжки студента (шифра). Например, студент, у которого номер зачетной книжки оканчивается на 58, должен выбрать вариант №29 по списку тем рефератов и по табл. 2. Таблица 1 Таблица 1. Номер варианта.
7.1 Темы рефератов.
7.2. Варианты практического задания. Таблица 2. Варианты заданий.
Приложение 1 Федеральное Государственное образовательное учреждение высшего профессионального образования
Кафедра Информационных систем отчет по учебной практике«Устройства вывода данных. Мониторы. Виды, разрешение экрана, цветовое разрешение (глубина цвета)» «Программирование, расчет значений и построение графика тригонометрической функции на заданном интервале»
Выполнила: студентка 1 курса специальности: 080801 «Прикладная информатика в экономике» шифр Пи-10-404 Суханова Любовь Сергеевна Проверил: профессор Козлов Алексей Николаевич Пермь-20.... Приложение 2 Содержание I. Теоретическая часть: реферат на тему «....(согласно варианта ) ...». Введение.
1.1. …. 1.2. … 2. ... Основная часть реферата (2-3 раздела с подразделами). 2.1. ... 2.2. … Заключение. Список литературы. (5-10 наименований) II. Практическая часть: расчет значений тригонометрической функции. 1. Исходные данные и краткое описание работы. 2. Текст программы на языке Паскаль. 3. Полученные значения функции и график функции. 4. Значения и график функции, выполненные в MS Exсel. 5. Макросы. Приложение: CD с файлами.
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

Выберите на панели Сервис / Макрос / Начать запись
или нажмите индикатор
Выберите Сервис / Макрос / Начать запись
.
9. Перейдем к редактору Visual
Basic
. Для этого через меню Сервис / Макрос / Макросы
нажмите кнопку Изменить
– откроется окно редактора Visual
Basic.
2. Откройте окно Макрос
либо через меню Сервис / Макрос / Макросы
, либо нажатием кнопок (Alt + F8)
.
9. Нажмите правой кнопкой мыши на «рожице» и выберите пункт меню Назначить макрос
. 10. Выберите макрос MY
и нажмите Ok
, а затем закройте окно настройки. 
Пермская государственная сельскохозяйственная академия имени академика Д.Н.Прянишникова