|
Вопрос # 2 487/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
напишите пожалуйста мне прогу чтобы машина ездила покругу по планете или еще по чему нибудь напишите плиз мне завтра сдавать
 |
Вопрос задал: HELP (статус: Посетитель)
Вопрос отправлен: 6 марта 2009, 20:07
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Dron
Здравствуйте, HELP!
Когда-то давно-давно помогал товарищам делать лабы. Вот нашёл нечто похожее, правда несколько другое. Да и реализация так себе. Однако может и пригодится чем :-) В приложении продублирован код модуля.
К ответу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки ответа)
Приложение: Переключить в обычный режим- unit Unit1;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, ExtCtrls, Buttons;
-
- type
- TForm1 = class(TForm)
- SpeedButton1: TSpeedButton;
- procedure FormCreate(Sender: TObject);
- procedure SpeedButton1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- const
-
-
-
-
-
-
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.dfm}
-
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- DoubleBuffered:=True;
- end;
-
- procedure TForm1.SpeedButton1Click(Sender: TObject);
- var x,y,x1,x2: integer; buf: TBitmap;
- begin
- with Canvas do
- begin
-
- Brush.Color:=$000078F0;
- Pen.Color:=clYellow;
- Pen.Width:=3;
- Ellipse(X0-RSun,Y0-RSun,X0+RSun,Y0+RSun);
-
- Pen.Color:=clSilver;
- Pen.Width:=1;
- Brush.Style:=bsClear;
- Ellipse(X0-R,Y0-R,X0+R,Y0+R);
- Brush.Style:=bsSolid;
- Pen.Color:=clBlue;
- Brush.Color:=$00CC6600;
- end;
- Buf:=TBitmap.Create;
- Buf.Width:=2*REarth+20;
- Buf.Height:=2*REarth+20;
-
-
- for x:=X0-R to X0+R do
- begin
- y:=Round(Sqrt(Abs(Sqr(R)-Sqr(X0-x))))+Y0;
- with Canvas do
- begin
-
Buf.Canvas.CopyRect(Rect(0,0,Buf.Width,Buf.Height),Canvas,Rect(x-REarth-10,y-REarth-10,x+REarth+10,y+REarth+10));
- Ellipse(x-REarth,y-REarth,x+REarth,y+REarth);
- Sleep(TimePause);
- Application.ProcessMessages;
- Canvas.Draw(x-REarth-10,y-REarth-10,Buf);
- end;
- end;
-
- for x:=X0+R downto X0-R do
- begin
- y:=Y0-Round(Sqrt(Abs(Sqr(R)-Sqr(X0-x))));
- with Canvas do
- begin
-
Buf.Canvas.CopyRect(Rect(0,0,Buf.Width,Buf.Height),Canvas,Rect(x-REarth-10,y-REarth-10,x+REarth+10,y+REarth+10));
- Ellipse(x-REarth,y-REarth,x+REarth,y+REarth);
- Sleep(TimePause);
- Application.ProcessMessages;
- Canvas.Draw(x-REarth-10,y-REarth-10,Buf);
- end;
- end;
-
- Buf.FreeImage;
- end;
-
- end.
 |
Ответ отправил: Dron (статус: Студент)
Время отправки: 6 марта 2009, 21:21
Оценка за ответ: 4
|
Мини-форум вопроса
Всего сообщений: 6; последнее сообщение — 12 марта 2009, 16:38; участников в обсуждении: 3.
|
|
HELP (статус: Посетитель), 6 марта 2009, 20:44 [#1]:
пожалуйста напишите мне код этой тупой проги плиз плиз
|
|
Паровоз (статус: 10-ый класс), 6 марта 2009, 22:59 [#2]:
1) Зачем же один вопрос (#2480) задавать два раза?
2) "мне завтра сдавать" - это то в 7 классе?
|
|
|
HELP (статус: Посетитель), 7 марта 2009, 10:32 [#3]:
писать 2 раза чтобы другие эксперты увидели.Да мне седня сдавать
|
|
Ерёмин А.А. (статус: *Администратор), 7 марта 2009, 10:39 [#4]:
Цитата (HELP):
писать 2 раза чтобы другие эксперты увидели
Они и без того увидят. А кто по несколько раз задаёт - обычно получает замечания. Данный вопрос не стал удалять только по той причине, что появился ответ.
|
|
|
HELP (статус: Посетитель), 7 марта 2009, 15:34 [#5]:
сорь, а ты знаеш ответ? просто тот не очень подходит
|
|
|
HELP (статус: Посетитель), 12 марта 2009, 16:38 [#6]:
народ всем спс я контрошку на 5 сдал =)
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
