Text); if (x>500) or (y>500) then beginShowMessage (‘Неверныекоординаты'); Exit end; Canvas.Pen.Width:=StrToInt (cbbWidth.Text); DrawInd (x, y, Canvas, w);end;procedure TForm1. btnDiodClick (Sender: TObject);var w, x, y: Integer;beginw:=StrToInt (cbbSize.Text)*5; Canvas.Pen.Color:=RGB (34,28,100); x:=StrToInt (edtX.Text)+200; y:=StrToInt (edtY.Text); if (x>500) or (y>500) then beginShowMessage (‘Неверныекоординаты'); Exitend; Canvas.Pen.Width:=StrToInt (cbbWidth.Text); DrawDiod (x, y, Canvas, w);end;procedure TForm1. btnLampClick (Sender: TObject);var w, x, y: Integer;begin w:=StrToInt (cbbSize.Text)*5; Canvas.Pen.Color:=RGB (34,28,100); x:=StrToInt (edtX.Text)+200; y:=StrToInt (edtY.Text); if (x>500) or (y>500) then beginShowMessage (‘Неверныекоординаты'); Exit end; Canvas.Pen.Width:=StrToInt (cbbWidth.Text); DrawLamp (x, y, Canvas, w);end;procedure TForm1. FormCreate (Sender: TObject);begincbbSize.ItemIndex:=0;cbbWidth.ItemIndex:=0;end;procedure TForm1. edtXKeyPress (Sender: TObject; var Key: Char); //обработкавводазначенийвполе
Хbeginif (Keyin ['0'.'9']) or (Key=#8)= Falsethen //если введена не цифраи не нажатBackspace, то ничего не вводить в полеKey:=Chr (0);end;procedure TForm1. edtYKeyPress (Sender: TObject; var Key: Char);); //обработкавводазначенийвполе
Уbeginif (Keyin ['0'.'9'])or (Key=#8) = Falsethen//если введена не цифраи не нажатBackspace, то ничего не вводить в полеKey:=Chr (0);end;procedure TForm1. edtXExit (Sender: TObject);//еслипустоеполе, то =0beginifedtX.Text='' then edtX. Text:='0';end;procedure TForm1. edtYExit (Sender: TObject);//еслипустоеполе, то =0beginifedtY.Text='' then edtY. Text:='0';end;end.План отладки программы
Запуск программы. Выбрать размер элементов
Выбрать толщину линии
Ввести координаты. Нажать кнопки «Нарисовать» для всех элементов. Ввести в поле координат недопустимое значение и проверить реакцию при нажатии на кнопки «Нарисовать» Вводим следующие значения:
не цифры-нулевые значения-значения, превышающие размеры экранной формы 7. Завершить работу программы. Инструкция по работе с программой
Запустить программу. Выбрать в выпадающем списке размер элементов. Выбрать в выпадающем списке толщину линии. Ввести начальные координаты Х и У. Нажать кнопку «Нарисовать» для требуемого элемента. Далее можно выбрать другой размер, толщину линии, другие координаты и нарисовать новый элемент. При этом уже нарисованные элементы остаются на форме и не стираются. Элемент является непрозрачным, то есть он «загораживает» нарисованные ранее элементы, если их изображения пересекаются. Результат работы программы см. на рис. 2.Рис.
2. Скриншот программы. Результат рисования радиодеталей. Анализ полученных результатов и выводы. С помощью функций работы с графикой в среде Delphiразработаны процедуры для рисования резистора, конденсатора, катушки индуктивности, диода, лампы накаливания. Изучены и использованысвойства объекта Canvas, функции для работы с графикой: LineTo, PenPos, Arc, Ellipse. Также изучены и использованы компоненты формы выпадающий список, поле ввода и кнопка. Создан обработчик ввода некорректных данных в поле ввода координат. Библиотека может быть доработана функцией поворота элемента на 90 градусов. Заключение
Для повторения многократных повторений рисования графических изображений элементов с разными координатами и размерами удобно использовать созданную библиотеку процедур. Библиотека может быть использована для создания приложения для рисования электросхем.
Список литературы
Delphi 7. Анатолий Хомоненко, Владимир Гофман, Евгений Мещеряков. БХВ-Петербург, 2010.
ГОСТ 19.701−90 Схемы алгоритмов, программ, данных и систем.
ГОСТ 2.104−68 Основные надписи. Методические рекомендации и задания по выполнению курсовой работы.
Гладун С. К.,
Исай А. Н., Жуков
С. В. Смоленск, ВУ ВПВО ВС РФ, 2000.
