Add Papers Marked0
Paper checked off!

Marked works

Viewed0

Viewed works

Shopping Cart0
Paper added to shopping cart!

Shopping Cart

Register Now

internet library
Atlants.lv library
FAQ
14,20 € Add to cart
Add to Wish List
Want cheaper?
ID number:492176
 
Evaluation:
Published: 01.11.2013.
Language: Latvian
Level: College/University
Literature: n/a
References: Not used
Time period viewed: 2011 - 2015 years
Extract

1. Darba uzdevums
Darba uzdevums: izveidot programmu, kas realizē 2D objekta (ar 5,6 vai 7 virsotnēm) transformācijas - rotāciju, pārbīdīšanu un mērogošanu.
2. Programmas kods
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, math;
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
RadioGroup1: TRadioGroup;
Label1: TLabel;
Button2: TButton;
Edit1: TEdit;
Button3: TButton;
Button4: TButton;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
ComboBox1: TComboBox;
Edit5: TEdit;
Edit6: TEdit;
Procedure Draw();
Procedure Rotate();
Procedure Large();
Procedure Move();
procedure FormCreate(Sender: TObject);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public

Author's comment
Load more similar papers

Atlants

Choose Authorization Method

Email & Password

Email & Password

Wrong e-mail adress or password!
Log In

Forgot your password?

Draugiem.pase
Facebook

Not registered yet?

Register and redeem free papers!

To receive free papers from Atlants.com it is necessary to register. It's quick and will only take a few seconds.

If you have already registered, simply to access the free content.

Cancel Register