Методические указания для подготовки к практическим занятиям. По курсу Информационные технологии в электроэнергетике
 Скачать 3.37 Mb.
|
|
Напишите в окне программного кода в заготовке процедуры код вывода строки номинального напряжения. В качестве строки вывода укажите 1й элемент списка combobox1.Items[0]. Запустите программу на исполнение и убедитесь, что выводится 1е значение номинального напряжения. Выйдите из режима исполнения. С команде вывода замените вывод первой строки на вывод второй (следует изменить 0 на 1 в квадратных скобках). Запустите программу на исполнение и убедитесь, что выводится 2е значение номинального напряжения. Выйдите из режима исполнения. Скопируйте строку операции вывода и создайте 12 таких строк. В квадратных скобках расставьте цифры от 0 до 11. Запустите программу на исполнение и убедитесь, что выводятся все 12 значений номинального напряжения. Выйдите из режима исполнения. Перед 1й строкой вывода поставьте знак комментария - //. Запустите программу на исполнение и найдите изменения в выводе. Выйдите из режима исполнения. В начале второй строки вывода поставьте открывающую фигурную скобку, а в конце 3й (после точки с запятой) – закрывающую фигурную скобку. Запустите программу на исполнение и найдите изменения в выводе. Выйдите из режима исполнения. В начале 4й строки вывода поставьте два знака: открывающую круглую скобку и звёздочку (*. В конце 6й строки вывода поставьте знаки *). Запустите программу на исполнение и найдите изменения в выводе. Выйдите из режима исполнения. Закомментируйте остальные строки вывода одним из трёх вышеперечисленных способов. Запустите программу на исполнение и убедитесь, что в поле Мемо ничего не выводится. Напишите в окне программного кода в заготовке процедуры код вывода следующей строки – «вывод выбранного значения номинального напряжения». Далее вставьте одну из строк вывода и избавьтесь в ней от знаков комментария. В квадратные скобки вместо числа вставьте номер выбранного значения (combobox1.ItemIndex). Команда вывода примет вид: memo1.Lines.Add(Unom = +combobox1.Items[combobox1.ItemIndex]+ кВ); . Запустите программу на исполнение. Выберите из списка первое значение напряжения, нажмите кнопку выполнения процедуры и убедитесь, что в поле вывода появилось выбранное значение. Повторите выбор и вывод всех значений напряжения. Выйдите из режима исполнения. Комментируйте введённые строки. Задание 3 Напишите в окне программного кода в заготовке процедуры код вывода в список ListBox1 первого значения номинального напряжения: ListBox1.Items[0]:= 0,4. Запустите программу на исполнение и посмотрите, что произошло (в окне ListBox1 должна появиться строка 0,4). Выйдите из режима исполнения. В дальнейшем, последовательность перехода в режим исполнения, запуска программы, нахождения и исправления ошибок, выхода и сохранения будем кратко называть проверьте работу процедуры. Запишите команду ListBox1.Items[1]:= ComboBox1.Items[1]. Проверьте работу процедуры. Выведите в компонент ListBox1 остальные значения номинальных напряжений и проверьте работу процедуры. Обратите внимание, что данные по номинальным напряжениям сохраняются в компоненте ComboBox1 в свойстве Items и являются множеством строк. Значения напряжений в компоненте ListBox1 до нажатия кнопки Button1 отсутствовали, а присвоение их значений происходит по выполнению процедуры Button1Click. Часто бывает желательно, чтобы такие данные появлялись на форме после перехода в режим исполнения. Для этой цели служит процедура FormCreate(создание формы), которая выполняется по команде Run. В этой процедуре можно изменить названия кнопок, их цвет, размер и многое другой, что делается в режиме проектирования формы. Двойным щелчком на форме (в любом месте формы, которое не занято другими компонентами) создайте заготовку процедуры procedure TForm1.FormCreate(Sender: TObject);. В теле процедуры запишите строку изменения заголовка кнопки Button1. Команда присвоения заголовку кнопки слова «Старт» выглядит так: Button1.Caption:= Старт;. Проверьте работу процедуры и убедитесь, что заголовок кнопки стал действительно таким, каким его записали. В разделе описания переменных процедуры FormCreate опишите переменную, например, i (или любую другую) как целочисленную переменную (integer, byte, word,cardinal …). В теле процедуры (после операции присвоения кнопке заголовка «Старт») создайте цикл присвоения множества значений свойству Items компонента ListBox1: For i:=0 to 11 do ListBox1.Items[i]:= ComboBox1.Items[i];. Проверьте работу процедуры. В теле процедуры Button1Clickзапишите команду вывода в поле мемо: memo1.Lines.Add(Unom = +Listbox1.Items[Listbox1.ItemIndex]+ кВ);. Запустите программу на исполнение. Выберите одно из номинальных напряжений (щелчком левой кнопки на нужной строке) и нажмите кнопку запуска. Не выходя из режима исполнения, повторите операцию выбора для всех значений напряжений. Завершите режим исполнения. Задание 4 Двойным щелчком на компоненте ComboBox1 создайте заготовку процедуры ComboBox1Change. Эта процедура будет выполняться при любом выборе (изменении) значения ComboBox1.Items. В тело цикла запищите следующие команды: if ComboBox1.ItemIndex = 0 then begin memo2.Color:=clAqua; {изменение цвета поля мемо} memo2.Font.Color:=clRed; {изменение цвета шрифта в поле мемо} memo2.Font.Size:=10; {изменение размера шрифта} memo2.Lines.Add( 'Unom = '+ ComboBox1.Items[cbb1.ItemIndex]+ ' кВ' ); end; {if} Проверьте работу процедуры. По аналогии с изменениями при выводе первого значения номинального напряжения создайте изменения при выводе второго и третьего элемента множества номинальных напряжений, поменяв цвет, размер и т.п. Вопросы для самопроверки Как поместить на форму компоненты ComboBoxиListBox? Для чего нужны компоненты ComboBoxиListBox? Чем различаются компоненты ComboBoxиListBox? К какому типу переменных относятся значения, записанные в компонентах ComboBoxиListBox? Что такое Item и ItemIndex в компонентах ComboBoxиListBox? Как нумеруются строки в компонентах ComboBoxиListBox? Как записать информацию в компоненты ComboBoxиListBox? Как изменить информацию в компонентах ComboBoxиListBoxв режиме исполнения программы? Какой символ используется для разделения целой и дробной частей чисел с плавающей запятой в компонентах ComboBoxиListBox? Как вывести в поле Memo содержание определённой строки компонента ComboBoxиListBox? Как вывести в поле Memo содержание неопределённой в режиме проектирования строки, а определяемой в режиме исполнения компонента ComboBoxиListBox? Перечислите напряжения, входящие в шкалу номинальных напряжений? В шкале номинальных напряжений приводятся значения каких напряжений: фазных или междуфазных; амплитудных или действующих? Что такое фазное напряжение и насколько оно отличается от междуфазного напряжения? Между какими двумя точками на воздушной линии электропередач измеряется фазное (междуфазное) напряжение? Как различаются амплитудное и действующее значения напряжения и как они определяются? Чем отличается линейное напряжение от междуфазного? Как изменить цвет поля Memo в режиме исполнения программы? Как изменить цвет шрифта вывода информации в поле Memo в режиме исполнения программы? Как изменить размер символов вывода информации в поле Memo в режиме исполнения программы? Практическое занятие 5 Работа с таблицами в среде «Delphy» Цель занятия Знакомство студентов табличным представлением данных, ввод и вывод информации из файлов в таблицы. Задание 1 Запустите Дельфи. Положите на форму компонент Panel из стандартной палитры компонентов. Удалите заголовок панели и (поле Caption должно быть пустым) и измените цвет панели на clSkyBlue или clMoneyGreen. Измените размер панели: по вертикали размер панели увеличьте до размера формы, а по горизонтали до ¼ формы. Поместите панель в левую часть формы. Положите на панель следующие компоненты. 1. Компонент Label (метка, надпись) из стандартной палитры компонентов поместите в верхнем левом углу панели. В поле его заголовка напишите «Степень загрязнения атмосферы», а размер шрифта сделайте 10. 2. Компонент ComboBox поместите под меткой. В поле Text напишите «уровень загрязнений не выбран». В свойстве Items создайте четыре степени загрязнения атмосферы (4 строки: степень загрязнения 1; степень загрязнения 2; степень загрязнения 3; степень загрязнения 4). 3. Компонент Label (метка, надпись) из стандартной палитры компонентов поместите под компонентом ComboBox. В поле его заголовка напишите «Тип подвесного изолятора», а размер шрифта сделайте 10. 4. Компонент ComboBox поместите под меткой. В поле Text напишите «тип изолятора не выбран». В свойстве Itemsсоздайте 6 пустых строк. 5. Компонент ListBox поместите под компонентом ComboBox. 6. Компонент Label (метка, надпись) из стандартной палитры компонентов поместите под компонентом ListBox. В поле его заголовка напишите «Номинальное напряжение, кВ», а размер шрифта сделайте 10. 7. Компонент ComboBox поместите под меткой. В поле Text напишите «Напряжение не выбрано». В свойстве Items создайте список значений номинальных напряжений. 8. Компонент Button (BitButton, SpeedButton). В поле его заголовка напишите «Старт» («расчёт», «начали» и т.п.), цвет шрифта измените на clBlue, а размер шрифта сделайте 14. Положите на форму справа от панели компонент Label. В поле его заголовка напишите «Таблица характеристик изоляторов», сделайте цвет шрифта clHighLight, а размер шрифта 14. Положите на форму (ниже метки) компонент StringGrid (таблица строк или сетка строк) из дополнительной палитры компонентов. В поле количества строк (RowCount) и количества столбцов (ColCount) поставьте числа 7. Положите на форму компонент Memo ниже таблицы и в свойстве ScrollBar (линейки прокрутки) выберите ssBoth (обе). Сохраните программу в папке практика 5 (если такой папки в Вашей папке информационных технологий нет, то перед сохранением заготовки программы создайте папку с названием практика 5). Убедитесь, что в Вашей папке «практика 5» содержится не менее 6 файлов. Запустите программу в режим исполнения, исправьте возможные ошибки, убедитесь в возможности правильного выбора в компонентах ComboBox и закройте режим исполнения. Задание 2 Создайте заготовку процедуры создания формы (procedure TForm1.FormCreate) двойным щелчком на любом месте формы, которое не занято компонентами. В теле процедуры (после открывающей операторной скобки begin) вставьте оператор присвоения первой верхней ячейки имеющей номера по горизонтали и вертикали 0,0 строки «Марка». StringGrid1.Cells[0,0]:='Марка'; . Запустите программу в режим исполнения, исправьте возможные ошибки, убедитесь, что действительно в таблице появилась строка Марка, и закройте режим исполнения. Вставьте оператор присвоения значению второй верхней ячейки таблицы (номера по горизонтали и вертикали 1,0) строку «H, мм». StringGrid1.Cells[1,0]:=' H, мм '; . Запустите программу в режим исполнения, исправьте возможные ошибки, убедитесь, что действительно в таблице появилась строка Марка, и закройте режим исполнения. Аналогичным способом вставьте значения «D, мм» «d, мм» «Lут, мм», «Р, кН», «Масса, кг». Вставьте оператор присвоения значению первой ячейки второй строки значение марки первого изолятора из таблицы 5.1: StringGrid1.Cells[0,1]:='ПС 70Д'; и проверьте работу программы. Вставьте 6 операторов присвоения ячейкам второй строки значений характеристик 1го изолятора из таблицы 5.1 и проверьте работу программы. Аналогичным образом введите в таблицу данные ещё 3 произвольных изоляторов из таблицы 5.1 и проверьте работу программы. Вид изоляторов и обозначение таблицы 5.1 приведены на рис.5.1. Таблица 5.1. Характеристики подвесных изоляторов
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||