[lxa85]

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)
помогло?

[KnRSU]

помогите совместить два кода одной задачи. вот основной код: »

полны код приведи у тебя в начале нет даже select case ???

а вообще код нужно вставлять сюда

Код:

If Label2(i).Left = Label1(u).Left Then
If Label2(i).Top = Label1(u).Top Then
'ВОТ ПРЯМО СЮДА 
Label1(u).Visible = False
End If
End If

(НО УЧИТЫВАЙ ПРИВЕДЕННЫЙ ТОБОЙ КОД

а вот код где хищники поедают жертв: 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) »

НЕ НА VBA !!!)