Balthazar, это вообще верх наглости на самом деле!
Сначала создать тему и спросить про код поедания хищников и жертв.
Выдрать от туда предложенный код, и просить помочь совместить с основной программой в другой теме!
соседняя тема
Balthazar
напишите пожалуйста кто-нибудь фрагмент кода программы на Visual Basic про хищника и жертву.нужет тот фрагмент где хищник поедает жертву,догоняя её.
----
lxa85
У меня VBA под руками нет, но как-то так:
Код:
function catch(pr,vic) as boolean:
if pr.x=vic.x then catch=true
else catch=false:
end function
procedure eat(pr,vic) :
pr.eat=pr.eat+1:
Vic.killed=true:
end procedure:
if Catch(Predator, Victim) then Eat(Predator, Victim)
помогло?
