48253 (Программирование на Delphi с алгоритмами и кодами), страница 2

2016-07-30СтудИзба

Описание файла

Документ из архива "Программирование на Delphi с алгоритмами и кодами", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "48253"

Текст 2 страницы из документа "48253"

Конец Движение.

Начало Создание формы

Задаем регион в виде круга

Задаем регион в качестве вида формы

Конец Создание формы.

Код третьей программы

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs;

type

TForm7 = class(TForm)

procedure FormClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormDblClick(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

const r=150;

{$R *.dfm}

procedure TForm7.FormClick(Sender: TObject); //движении круга по экрану

var

i, j : integer;

begin

for i:=1 to screen.Width-r do // пока не достигнут конец экрана

begin

form7.Color:=clGreen; //задаем форме зеленый цвет

form7.Left:=i; //задаем отступ формы слева

sleep(5); //задержка времени

//form7.Top:=j;

end;

for j:=1 to screen.Height-r do // пока не достигнут низ экрана

begin

form7.Color:=clRed; // задаем форме красный цвет

form7.Top:=j; //задаем отступ сверху

sleep(5); // задержка времени

end;

for i:=screen.Width-r downto 1 do // пока не достигнуто начало экрана

begin

form7.Color:=clBlue; // задаем форме синий цвет

form7.Left:=i; // задаем отступ слева

sleep(5); //задержка времени

//form7.Top:=j;

end;

for j:=screen.Height-r downto 1 do // пока не достигнут верх экрана

begin

form7.Color:=clYellow; // задаем форме желтый цвет

form7.Top:=j; //задаем отступ сверху

sleep(5); // задержка времени

end;

end;

procedure TForm7.FormCreate(Sender: TObject); // задаем визуальную форму формы задания №3

var

formRgn : HRGN;

//i, j : integer;

begin

FormRgn:=createEllipticRgn(0,0,r,r);

SetWindowRgn(Handle, FormRgn, True);

end;

procedure TForm7.FormDblClick(Sender: TObject);

begin

close;

end;

procedure TForm7.FormShow(Sender: TObject);

begin

form7.Left:=1;

form7.Top:=1;

end;

end.

Инструкция по применению программы

Для запуска курсовой работы нужно в папке «Туктаров» двойным щелчком запустить файл «Project» с расширением .ехе. На экране появится главное окно. На нем находятся три кнопки, каждая из которых соответствует одному из трех заданий.

При нажатии на первую кнопку - «Задание 1» появится форма на которой будут находиться текст задания, таблица результатов расчета, управляющие кнопки. График строится автоматически при выполнении расчетов. Расчеты производятся при нажатии кнопки «Старт». Для просмотра графика необходимо воспользоваться кнопкой «График». Для возврата в основное окно работы предназначена кнопка «Финиш».

При нажатии на вторую кнопку - «Задание 2» на экране появится форма с полями задания значений формирования массивов, таблицами для вывода массивов и управляющими кнопками. Заполнение массивов в соответствии с заданием происходит по нажатии кнопки «Старт». Возврат к основному окну предусматривает кнопка «Финиш».

При нажатии на третью кнопку «Задание 3» на экране появляется круг. Для начала движения необходимо кликнуть на нем. После полного оборота по экрану станет доступным возврат в основное окно программы нажатием клавиш Alt+F4.

Заключение

Преимущества:

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

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

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

В третьей программе реализована возможность изменения интерфейса формы при помощи стандартных функций Windows API. Данные возможности широко применяются в мультимедийных приложениях.

Возникновение ошибочных ситуаций при работе программы:

При запуске программы могут возникнуть ошибочные ситуации. Например, если в первом задании нажать кнопку просмотра графика до выполнения расчета, то график будет пустым. Также могут возникнуть ошибки при задании параметров вычисления.

Во втором задании к ошибке может привести попытка сформировать массивы без задания их величины.

В третьем задании существует недостаток невозможности остановить движения круга до прохождения полностью экрана, а также может возникнуть ошибка при попытке использовать основную форму программы без закрытия формы задания 3.

Список литературы

  1. Архангельский А. Я. Программирование в Delphi г. Москва: издательство «Бином», 2005г. – 332 с.;

  2. Ахметов А. Р. Программирование в Delphi 7 . г.Москва: издательство «Бином-Пресс», 2003 г. – 780 с.;

  3. Бобровский С.И. Delphi7 – Учебный курс. г. Санкт-Петербург: издательство «Питер», 2004 г. – 736 с.;

  4. Глушаков С. В. Delphi 2007 г. Москва: издательство «Хранитель», 2008 г. – 635 с.;

  5. Жуков А. В. Изучаем Delphi. г. Санкт-Петербург: издательство «Питер», 2001 г. – 352 с.;

  6. Маслобоев А. В. Delphi г. Санкт-Петербург: издательство «БХВ-Петербург», 2005 г. – 496 с.;

  7. Стивенс Р.А. Delphi. Готовые алгоритмы. г. Москва: издательство «ДМК пресс», 2001 г. – 384 с.;

  8. Фаронов В. В. Delphi. Программирование на языке высокого уровня г. Санкт-Перетбург: издательство «Питер», 2007 г. – 640 с.;

  9. Хузятов Ш. Ш. Delphi 7. Основные компоненты и элементы языка программирования г. Набережные Челны: издательство КамПИ, 2005г. – 116 с.;

  10. www.delphisources.ru/

  11. www.edelphi.ru/

  12. www.delphi.int.ru/

  13. www.delphiexpert.ru/

Свежие статьи
Популярно сейчас
А знаете ли Вы, что из года в год задания практически не меняются? Математика, преподаваемая в учебных заведениях, никак не менялась минимум 30 лет. Найдите нужный учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4125
Авторов
на СтудИзбе
667
Средний доход
с одного платного файла
Обучение Подробнее