хищники и жертвы

[Balthazar]

помогите совместить два кода одной задачи.
вот основной код:
yy = 100
Case 5
xx = 100
yy = -100
Case 6
xx = -100
yy = -100
Case 7
xx = -100
yy = 100
End Select

p3 = Label2(e).Left + xx
p4 = Label2(e).Top + yy
If (p3 >= 0) And (p3 <= 10000) And (p4 > 0) And (p4 < 6700) Then
Label2(e).Left = Label2(e).Left + xx
Label2(e).Top = Label2(e).Top + yy
End If
Next e
End Sub

Private Sub Timer3_Timer()

For i = 4 To 5

If p2 < Label2(i).Top Then
Label2(i).Top = Label2(i).Top - 200
End If

If p2 > Label2(i).Top Then
Label2(i).Top = Label2(i).Top + 200
End If

If p1 < Label2(i).Left Then
Label2(i).Left = Label2(i).Left - 200
End If

If p1 > Label2(i).Left Then
Label2(i).Left = Label2(i).Left + 200
End If

For u = 0 To 3

If Label2(i).Left = Label1(u).Left Then
If Label2(i).Top = Label1(u).Top Then
Label1(u).Visible = False
End If
End If
Next u
Next i
End Function

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

не могу разобраться куда вставить этот фрагмент!

[lxa85]

:laugh: 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 !!!)