Sv: Fråga från nybörjare. Klarar inte att få ordni

Fråga från nybörjare. Klarar inte att få ordning p

Postades av 2002-12-15 16:52:27 - Andreas Wickström, i forum spel/grafik, Tråden har 4 Kommentarer och lästs av 1121 personer

Jag är nybörjare, började med vb för knappt en vecka sedan, och håller på med ett spel (har fått hjälp från en person).
Spelet går ut på att man ska kasta eldklot på varandra.
Varje gång man blir träffad ska det pipa (beep).
Men endra så slutar det inte att låta, eller så låter det bara en gång.
Gubbarna rör sig i Y led och eldkloten i X led.

Så här har jag försökt att lösa det:

Sub MoveArrows()
For i = 1 To UBound(Arrows)

Arrows(i).X = Arrows(i).X + 20

CheckArrow.Left = Arrows(i).X - 4
CheckArrow.Top = Arrows(i).Y
CheckArrow.Right = Arrows(i).X + picArrow1.ScaleWidth
CheckArrow.Bottom = Arrows(i).Y + picArrow1.ScaleHeight

If CheckArrow.Top >= motstandare1.Y And CheckArrow.Bottom <= motstandare1.Y + picMotstandare1.ScaleHeight And CheckArrow.Left >= motstandare1.X And HasBeeped2 = False Then
HasBeeped2 = True
Beep
Arrows(i).X = 1000
Arrows(i).Y = 1000
End If

If HasBeeped2 = True Then
hpMeter1.Text = hpMeter1.Text - 10
End If

Next i

End Sub

Sub MoveArrows2()
For i = 1 To UBound(Arrows2)
Arrows2(i).X = Arrows2(i).X - 20

CheckArrow.Left = Arrows2(i).X - 4
CheckArrow.Top = Arrows2(i).Y
CheckArrow.Right = Arrows2(i).X + picArrow2.ScaleWidth
CheckArrow.Bottom = Arrows2(i).Y + picArrow2.ScaleHeight

If CheckArrow.Top >= Gubbe1.Y And CheckArrow.Bottom <= Gubbe1.Y + picGubbe1.ScaleHeight And CheckArrow.Left <= Gubbe1.X And HasBeeped2 = False Then
HasBeeped = True
Beep
Arrows2(i).X = 1000
Arrows2(i).Y = 1000

End If

Next i

End Sub

Men det fungerar inte särskilt bra.

Edit: La till kod

Svara