|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.02.2009, 20:52 | #1 |
Пользователь
Регистрация: 24.01.2009
Сообщений: 36
|
"Модель молекулы в газе" подскажите почему не работает?
пытаюсь сделать "Модель молекулы в газе" почему то "молекула" не движется хотя я прописал timer1.Enabled:=true. Тут V-скорость,V_x-скорость смещения x,V_y-y скорость смещения, y,x-начальные точки,а-угол. Скорость и угол рандомно. Что не правильно? Объясните?
var Form1: TForm1; a,V,V_x,V_y:integer; x,y:real; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin randomize; v:=random(2)+1; a:=random(360); V_x:=round(v*cos(a)); // скорость смещения v_y:=round(v*sin(a)); // по горизонтали и вертикали shape1.Top:=10; //начальная точка shape1.Left:=20; //начальная точка end; //кнопка начало procedure TForm1.Button1Click(Sender: TObject); begin timer1.Enabled:=true; randomize; v:=random(2)+1; a:=random(360); canvas.LineTo(0,250); canvas.LineTo(293,250); canvas.LineTo(293,0); canvas.LineTo(0,0); timer1.Enabled:=true; button1.Enabled:=true; button2.Enabled:=false; x:=shape1.Left+V_x; // координата угла х y:=shape1.Top+V_y; // координата угла у if ((shape1.Left>=0) and (shape1.Left<=250)) then v_x:=-V_x; if ((shape1.Top>=0) and (shape1.Top<=293)) then v_x:=-V_x; //ограничители end; //кнопка стоп procedure TForm1.Button2Click(Sender: TObject); begin if button1.Enabled=true then button1.Enabled:=false else if button1.Enabled=false then button1.Enabled:=true; end; end. |
02.02.2009, 21:34 | #2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
У Вас по таймеру не прописано никакое движение. Вот пример движения картинки по кругу.
Код:
|
03.02.2009, 19:31 | #3 |
Пользователь
Регистрация: 24.01.2009
Сообщений: 36
|
не получается
(((у мя все равно не получается.Объясни как по подробнее пожалуйста или дай ссылку я чет не как найти не могу. У всех с таймером написано по разному и все в моем случае почему то не работают. А мне над разобраться а то так попадется в экзамене а я...
|
03.02.2009, 20:02 | #4 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Не знаю что Вы там делаете, но вот просто хаотическое движение.
|
03.02.2009, 20:28 | #5 |
Пользователь
Регистрация: 24.01.2009
Сообщений: 36
|
))
Во)) Спасибо с этим разобрался))
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Почему на форуме нет рздела "1С" ? | veter_s_morya | О форуме и сайтах клуба | 36 | 03.12.2008 14:13 |
Как работает "Удаленный модуль данных"? | kiber0net0 | Общие вопросы Delphi | 0 | 08.10.2008 12:43 |
Word 2003 не работает "Параметры" | tatav | Microsoft Office Word | 4 | 01.04.2008 15:00 |
Создаю диаграмму "Bar". Подскажите как убрать растояние между "столбами" | MAcK | Компоненты Delphi | 11 | 24.10.2007 10:49 |
Работает ли при "SQL dialect 3" оператор DISTINCT? | 3lander | БД в Delphi | 1 | 12.10.2007 00:21 |