Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Графика и игры
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 13.12.2011, 21:40
brutalis brutalis вне форума
Новичок
 
Регистрация: 20.05.2011
Сообщения: 51
Репутация: 10
По умолчанию не получается задать цикл

доброго времени суток, товарищи. проблема следующая нужно описать движение кинематической схемы, часть я уже сделал и сталкнулся с такой проблемой: как задать чтобы звено поворачивалось на определеный угол и обратно, то что я патался сделать поворачивает в одну сторону и встает на +/-1при этом размер 2 звена не выдерживается. и как сделать чтобы схема появлялась при нажатии кнопки старт(сейчас начинает работать только после нажатия кн построитьь)одно из звеньев примыкает к др под углом 90
Изображения
Тип файла: jpg Безымянный.JPG (5.0 Кбайт, 18 просмотров)
Вложения
Тип файла: rar kinematik.rar (212.9 Кбайт, 8 просмотров)
Ответить с цитированием
  #2  
Старый 14.12.2011, 21:43
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

2011-12-14_192941.jpg
соотвественно без труда можно узнать нужный угол (а+в).
Кстати какое звено ведущее?
Ответить с цитированием
  #3  
Старый 15.12.2011, 20:16
brutalis brutalis вне форума
Новичок
 
Регистрация: 20.05.2011
Сообщения: 51
Репутация: 10
По умолчанию

ведущее звено AB
Изображения
Тип файла: jpg Безымянный.JPG (6.7 Кбайт, 8 просмотров)
Ответить с цитированием
  #4  
Старый 15.12.2011, 20:17
brutalis brutalis вне форума
Новичок
 
Регистрация: 20.05.2011
Сообщения: 51
Репутация: 10
По умолчанию

Цитата:
Сообщение от brutalis
ведущее звено AB
на картинке показаны все звенья
Ответить с цитированием
  #5  
Старый 15.12.2011, 21:05
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

Могу сделать свое видение данного кода, но оно у меня будет скорее-всего обьектно-ориентированное, и не совсем оптимизированно. Через часок-два выложу исходник, а то у меня на чужые коды аллергия) - никак не хочу расбираться
Ответить с цитированием
  #6  
Старый 15.12.2011, 21:40
brutalis brutalis вне форума
Новичок
 
Регистрация: 20.05.2011
Сообщения: 51
Репутация: 10
По умолчанию

Цитата:
Сообщение от YVitaliy
Могу сделать свое видение данного кода, но оно у меня будет скорее-всего обьектно-ориентированное, и не совсем оптимизированно. Через часок-два выложу исходник, а то у меня на чужые коды аллергия) - никак не хочу расбираться
буду очень признателен. собенно если по коду будут коменты
Ответить с цитированием
  #7  
Старый 16.12.2011, 03:10
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

вот держи, кое-что накатал, недоработанное конечно, но основную суть уловишь. По коду строго несудить - не слишком люблю разбирать отступы и прочее.
Вложения
Тип файла: rar primer1.rar (198.5 Кбайт, 12 просмотров)
Ответить с цитированием
  #8  
Старый 16.12.2011, 03:21
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Всё что удалось добиться от примера, жёсткий вылет по ошибке с плавающими числами.
P.S. Разбираться в чужом коде, да ещё без отступов и неумения форматировать код, также нет желания.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #9  
Старый 16.12.2011, 03:35
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

Цитата:
Всё что удалось добиться от примера, жёсткий вылет по ошибке с плавающими числами.
жесткий вылет - у меня все идет норм, ошибки исключены. Там есть скомпилированный экзшник, вот его и запусти, а то я не знаю твои настройки компилятора. Жду отзыва от других пользователей, мож действительно что-нетак. Ошибка на которой строке?
Ответить с цитированием
  #10  
Старый 16.12.2011, 10:46
brutalis brutalis вне форума
Новичок
 
Регистрация: 20.05.2011
Сообщения: 51
Репутация: 10
Радость

большое спс за пример. вот только мне не совсем понятно что откуда там берется и с собственными классами я особо не дружу. а так почти то что нужно. осталось только разобраться в нем и добавить оставшиеся эл-ты

зы на ошибку уходит когда задается слишком большое значение звена
Ответить с цитированием
  #11  
Старый 16.12.2011, 11:36
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

Ну, там можно переделать на попроще, сделать тока 1 класс рычага, а вязи оставить как точку.
Насчет длины звена, там у меня есть поправочные коеффициенты на погрешность (0.1, 0.5), так они, я думаю, должны зависеть от длины рычагов и звена.
Ответить с цитированием
  #12  
Старый 16.12.2011, 14:23
brutalis brutalis вне форума
Новичок
 
Регистрация: 20.05.2011
Сообщения: 51
Репутация: 10
По умолчанию

Цитата:
Сообщение от YVitaliy
Ну, там можно переделать на попроще, сделать тока 1 класс рычага, а вязи оставить как точку.
Насчет длины звена, там у меня есть поправочные коеффициенты на погрешность (0.1, 0.5), так они, я думаю, должны зависеть от длины рычагов и звена.

если не сложно, будь добр.
Ответить с цитированием
  #13  
Старый 16.12.2011, 16:03
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

Может сделаю, но попозже, сейчас некогда, да и мороки побольше программировать без ооп
Ответить с цитированием
  #14  
Старый 16.12.2011, 18:15
Pyro Pyro вне форума
Так проходящий
 
Регистрация: 18.07.2011
Сообщения: 805
Версия Delphi: 7Lite
Репутация: 6063
По умолчанию

занимательная программка, ума не приложу как работает и что будет, если вставить ещё 4-е звено
интерестно двигается, если задать все 3 примерно одинаковой длины
Ответить с цитированием
  #15  
Старый 16.12.2011, 21:30
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Цитата:
Сообщение от YVitaliy
... Там есть скомпилированный экзшник, вот его и запусти ...
А мне лень было компилировать, я твой exe-шник и запустил. Пару раз потаскал левой кнопкой, пару раз правой и всё... приплыли.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:04.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter