Essays.club - Получите бесплатные рефераты, курсовые работы и научные статьи
Поиск

Написать программу в среде программирования Delphi

Автор:   •  Март 5, 2018  •  Лабораторная работа  •  1,175 Слов (5 Страниц)  •  537 Просмотры

Страница 1 из 5

МИНОБРНАУКИ РОССИИ

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

«Ижевский государственный технический университет имени М.Т. Калашникова»

Факультет «Информатики и Вычислительной Техники»

Кафедра «Автоматизированные системы обработки информации и управления»

ОТЧЕТ

по дисциплине «Программирование»

Лабораторная Работа №1

Вариант №36

Выполнил

студент гр. Б01(2)-782-1ЗТ Мущинкин Р.В.

Принял

ст. преподаватель Исупов Н.С.

Ижевск

2016

Цель работы: Написать программу в среде программирования Delphi которая выполняет следующее действия:

1. Рисует заданную геометрическую фигуру, которая перемещается по заданной траектории и постоянно изменяет свой масштаб («дышит»);

Геометрическая фигура:

Заданная траектория:

Код программы 1

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,

StdCtrls, ComCtrls, ColorBox;

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

ColPen: TColorBox;

ColBrush: TColorBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

PaintBox1: TPaintBox;

Panel1: TPanel;

Panel2: TPanel;

TBDuhan: TTrackBar;

TBSpeed: TTrackBar;

Timer1: TTimer;

TBMash: TTrackBar;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure ColBrushChange(Sender: TObject);

procedure ColPenChange(Sender: TObject);

procedure DrawShape(x,y,s:integer);

procedure FormShow(Sender: TObject);

procedure TBDuhanChange(Sender: TObject);

procedure TBSpeedChange(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure calcDraw();

procedure TBMashChange(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

lx,ly,ld,scale,speed,duh:integer;

nduh:boolean;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.DrawShape(x,y,s:integer);

begin

PaintBox1.Repaint;

PaintBox1.Canvas.Pen.Color:=ColBrush.Selected;

PaintBox1.Canvas.Rectangle(0,0,PaintBox1.Width,PaintBox1.Height);

PaintBox1.Canvas.Pen.Color:=ColPen.Selected;

PaintBox1.Canvas.Line(x,y,x-15,y-s);

PaintBox1.Canvas.Line(x-15,y-s,x+(s div 5)+15,y-s);

PaintBox1.Canvas.Line(x,y,x-s,y-15);

PaintBox1.Canvas.Line(x-s,y-15,x-s,y+(s div 5)+15);

PaintBox1.Canvas.Line(x-s,y+(s div 5)+15,x,y+(s div 5));

PaintBox1.Canvas.Line(x,y+(s div 5),x-15,y+(s div 5)+s);

PaintBox1.Canvas.Line(x+(s div 5),y,x+(s div 5)+15,y-s);

PaintBox1.Canvas.Line(x+(s div 5),y,x+(s div 5)+s,y-15);

PaintBox1.Canvas.Line(x+(s div 5),y+(s div 5),x+(s div 5)+15,y+s+(s div 5));

PaintBox1.Canvas.Line(x-20+(s div 5),y+s+(s div

...

Скачать:   txt (6.9 Kb)   pdf (57.9 Kb)   docx (15.7 Kb)  
Продолжить читать еще 4 страниц(ы) »
Доступно только на Essays.club