![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 13.06.2009
Сообщений: 12
|
![]()
Имеется такой код :
------------------------------------------------------------------------ unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, jpeg; type TForm1 = class(TForm) Image1: TImage; Timer1: TTimer; Image2: TImage; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; dx,dy: integer; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Image1.Left:=(Form1.Width-Image1.Width) div 2; Image1.Top:=(Form1.Height-Image1.Height) div 2; randomize; if random(100)>50 then dx:=1 else dx:=-1; if random(100)>50 then dy:=1 else dy:=-1; Timer1.Enabled:=true; end; procedure TForm1.Timer1Timer(Sender: TObject); begin if (Image1.Left+dx<0)or (Image1.Left+dx>Form1.Width-Image1.Width) then dx:=-dx; if (Image1.Top+dy<0)or (Image1.Top+dy>Form1.Height-Image1.Height) then dy:=-dy; Image1.Left:=Image1.left+dx; Image1.Top:=Image1.Top+dy; end; ---------------------------------------------------------------------- в примере летящий шар. Что надо добавить в код что бы он отлетал от планки ( Image2 )? |
![]() |
![]() |
![]() |
#2 |
Любопытная Вредина
Участник клуба
Регистрация: 19.06.2009
Сообщений: 1,285
|
![]()
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 13.06.2009
Сообщений: 12
|
![]()
Посмотрел но ничего путного не нашёл. Мне нужно именно пример на моём коде.
|
![]() |
![]() |
![]() |
#4 | |
Участник клуба
Регистрация: 12.08.2008
Сообщений: 1,977
|
![]()
Сравнивайте координаты совпадения рисунков. Примерно следующее :
Код:
Цитата:
Просто в примере мяч и ракетки - TBitMap, а у Вас TImage. Но надо рассматривать их просто как объекты.
И не сомневайся даже ... отдых - кайф, работа - лажа!
Последний раз редактировалось DeKot; 06.07.2009 в 08:49. |
|
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 13.06.2009
Сообщений: 12
|
![]()
Можно реально работающий код, а то у меня ничего не получается уж слишком всё запутанно.
|
![]() |
![]() |
![]() |
#6 |
Участник клуба
Регистрация: 12.08.2008
Сообщений: 1,977
|
![]()
Внизу страницы
![]() В атаче в добавок сам проект.
И не сомневайся даже ... отдых - кайф, работа - лажа!
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 13.06.2009
Сообщений: 12
|
![]() |
![]() |
![]() |
![]() |
#8 | |
Участник клуба
Регистрация: 06.03.2009
Сообщений: 1,346
|
![]() Цитата:
|
|
![]() |
![]() |
![]() |
#9 |
Пользователь
Регистрация: 13.06.2009
Сообщений: 12
|
![]() |
![]() |
![]() |
![]() |
#10 |
Участник клуба
Регистрация: 12.08.2008
Сообщений: 1,977
|
![]()
Классика... Клиника...
Да никто тебе /Вам не поможет окромя себя. Попробуй вот такой метод - 1.запустил код, откомпилровал. посмотрел. 2. Изменил одну переменную ( одну), выполнил п.1. 3. Проанализируй, что же изменилось. 4.Вернул все в обрат и убедился , что работает по прежнему. 5.Изменил другую переменную - п.1, 3, 4. И так далее. Если не получается - " парашютный спорт не для Вас".
И не сомневайся даже ... отдых - кайф, работа - лажа!
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Разрабатываем игру теннис | DeKot | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 28 | 28.10.2011 19:05 |
Accuracer поделитесь примерами | Poligraf | БД в Delphi | 4 | 12.01.2010 21:25 |
настольный теннис | sverhuVniz | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 15.11.2008 15:59 |
есть у кого SQL справочник команд процедур и функций, с подробным описанием и примерами? | Рустам | SQL, базы данных | 2 | 23.11.2007 12:20 |