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.
Kan ni komma med nåt bättre förskag?
