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). Mitt första intryck är väl att felet ligger i: Har gjort ett mycket grundläggande exempel som kanske kan vara till hjälp:Fråga från nybörjare. Klarar inte att få ordning p
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 kodSv: Fråga från nybörjare. Klarar inte att få ordni
"HasBeeped2 = True" Hur kollar du att detta är uppfyllt?
Om inte "HasBeeped2 = True" infaller innan klotet lämnat
"träffytan", sparar du då, att ytterligare en träff ägt rum, eller
registreras enbart träffen om det inte "beeper" nånstans, liksom?
spånat av...
/ChristerGbg
Sv: Fråga från nybörjare. Klarar inte att få ordni
Programarkivet:Spel: Duell