[Помогите!] Такое дело.

[CyberNEŦik]

Извините, вы случаем не можете мне подсказать, есть ли какое то поле, по типу Panel, мне нужно создать колонию бактерий. Т.е. я даже не могу понять как это сделать. Мозг бактерии должен быть простым, просто из алгоритмов. К примеру в начале, 1 бактерия, вокруг в рандомных местах, с такими же не предсказуемыми промежутками, появлялась трава. (кусочки, можно использовать картинку) . Так что бы можно было регулировать минимальное и максимальное значение промежутков.

Алгоритм бактерии:
она должна двигаться хаотично и примерно за 10-20 единиц какого то измерения пространства , замечать траву.
Вычислить положение травы.
Двигаться к траве.
Поглотить её.
Добавить +1 к общему числу поглощённой травы
считать, если общ.чис.поглощ=3
Создать своего клона с таким же алгоритмами.


___
+ ещё как нибудь оторожать число микроорганизмов и травы..

ПОЖАЛУЙСТА Помогите!! очень надо

[VeTaL_UA]

1) Графику как отрисовывать будешь? Стандартными средствами по Canvas'у или какой-то граф. движок?

Цитата: Сообщение от CyberNEŦik она должна двигаться хаотично и примерно за 10-20 единиц какого то измерения пространства , замечать траву.

хаотичные движения прописываешь с помощью рандома в цыкле.

Цитата: Сообщение от CyberNEŦik Вычислить положение травы.

Держишь координаты препятствий где-то в памяти и даёшь твоей казявке команду двигатся к ним.

Цитата: Сообщение от CyberNEŦik Поглотить её.

Чисто граф. еффект, никаких сложностей.

Цитата: Сообщение от CyberNEŦik Добавить +1 к общему числу поглощённой травы

Поднять значение лейбла на единицу не составит труда.

Цитата: Сообщение от CyberNEŦik считать, если общ.чис.поглощ=3 Создать своего клона с таким же алгоритмами.

Стандартное условие, в теле которого создаётся ещё один поток. Синхронизируй их движение, чтобы друг на друга не лезли и вуаля.

Как видишь, всё не так уж сложно

[Skrillex3]

Цитата: Сообщение от CyberNEŦik Алгоритм бактерии: она должна двигаться хаотично и примерно за 10-20 единиц какого то измерения пространства , замечать траву. Вычислить положение травы. Двигаться к траве. Поглотить её. Добавить +1 к общему числу поглощённой травы считать, если общ.чис.поглощ=3 Создать своего клона с таким же алгоритмами.

Как давно не кто не задавал вопросы про интересные задачки , а то всё хттп ,бруты ,хаки...
Когда люди начнут программирование с задач на развитие логики и тп , а не лезть в интернет и пытаться сломать пентагон

[CyberNEŦik]

Цитата: Сообщение от VeTaL_UA 1) Графику как отрисовывать будешь? Стандартными средствами по Canvas'у или какой-то граф. движок? хаотичные движения прописываешь с помощью рандома в цыкле. Держишь координаты препятствий где-то в памяти и даёшь твоей казявке команду двигатся к ним. Чисто граф. еффект, никаких сложностей. Поднять значение лейбла на единицу не составит труда. Стандартное условие, в теле которого создаётся ещё один поток. Синхронизируй их движение, чтобы друг на друга не лезли и вуаля. Как видишь, всё не так уж сложно

спасибо. Графика не нужна к чёрту. Всё делается на Panel. Поставил чёрный цвет, нарисовал бактерию и травинку
Бактерия:

Трава:


пока что научил её двигаться в лево, как в право без понятия.
т.к. работал на условии:
if image1.left<>0
begin
image1.left-1;
end;

а вот когда left достигает lefta бактерии она замирая и рвётся то в право то в лево, из-за кривого алгоритма движеения в право.

пожалуйста покажите как это закрутить в цикл что бы бактерия не билась об края Panel. спс

[kontra3]

Цитата: Сообщение от CyberNEŦik Извините, вы случаем не можете мне подсказать, есть ли какое то поле, по типу Panel, мне нужно создать колонию бактерий. Т.е. я даже не могу понять как это сделать. Мозг бактерии должен быть простым, просто из алгоритмов. К примеру в начале, 1 бактерия, вокруг в рандомных местах, с такими же не предсказуемыми промежутками, появлялась трава. (кусочки, можно использовать картинку) . Так что бы можно было регулировать минимальное и максимальное значение промежутков. Алгоритм бактерии: она должна двигаться хаотично и примерно за 10-20 единиц какого то измерения пространства , замечать траву. Вычислить положение травы. Двигаться к траве. Поглотить её. Добавить +1 к общему числу поглощённой травы считать, если общ.чис.поглощ=3 Создать своего клона с таким же алгоритмами. ___ + ещё как нибудь оторожать число микроорганизмов и травы.. ПОЖАЛУЙСТА Помогите!! очень надо

Знаю что это раздел "Delphi", но ты не пробовал game maker? там это все елементарно делается.

[CyberNEŦik]

Цитата: Сообщение от kontra3 Знаю что это раздел "Delphi", но ты не пробовал game maker? там это все елементарно делается.

Мне нужно именно дельфи, потому что я в нём работал, работаю и буду работать. Именно в дельфи надо реализовать

[Doverito]

Цитата: Сообщение от CyberNEŦik спасибо. Графика не нужна к чёрту. Всё делается на Panel. Поставил чёрный цвет, нарисовал бактерию и травинку Бактерия: Трава: пока что научил её двигаться в лево, как в право без понятия. т.к. работал на условии: if image1.left<>0 begin image1.left-1; end; а вот когда left достигает lefta бактерии она замирая и рвётся то в право то в лево, из-за кривого алгоритма движеения в право. пожалуйста покажите как это закрутить в цикл что бы бактерия не билась об края Panel. спс

Попробуй вместо image1.left-1; пропиши без минуса ))

[VeTaL_UA]

CyberNEŦik, а вы уверены, что потянете такую программу? Просто код ваш немного странный, ну как немного, реально странный.

[metraz]

image1.left+1 движение вправо

[CyberNEŦik]

Цитата: Сообщение от metraz image1.left+1 движение вправо

я знаю, я имел введу, что бы если приблежается граница панели клетка двигалась в противоположную сторону, лево праву верх низ )

[metraz]

if image1.left<>0
begin
image1.left+1;
end;
if image1.left+image1.width>=panel1.width then image1.left-1;
if image1.top<=panel1.top then image1.top+1;

и так далее. Как то так.

[CyberNEŦik]

осталось научить их размножаться и я буду богом, богом этих крох и милах

[metraz]

MyImage := TImage.Create(Form1);
with MyImage do begin
Left := myimage.left+30; как пример
Top := myimage.top-10+random(20);
Parent := panel1;
И загружаешь в нее картинку бактерии.
Если бактерий много то тоже самое, только в виде массива

[CyberNEŦik]

Цитата: Сообщение от metraz MyImage := TImage.Create(Form1); with MyImage do begin Left := image1.left+30; как пример Top := image1.top-10+random(20); Parent := panel1; И загружаешь в нее картинку бактерии. Если бактерий много то тоже самое, только в виде массива

СПАСИБО! ОНИ МНЕ ТОТЕМ ВОЗДВИГЛИ!!! АХАХАХАХАХ Я ГЕНИАЛЕН!!! У МЕНЯ ЕСТЬ СВОЙ МИР!!!! АХАХХАХ!!!!