Hoe doe ik dit?

[Timminator]

Hallo,

Ik zit met een probleempje .....

'K probeer een soort van spelletje te maken zoals space invador maar ik zit nog niet zo ver....

ik heb al een stukje code om mijn raketje van links naar rechts te verplaatsen.

Voor het raketje gebruik ik een picturebox met daarin een foto van een raket.

Het is de bedoeling dat als ik op de spatiebalk druk dat er een 'kogeltje' wordt afgevuurd vanaf de plaats waar het raketje staat...
Ik heb een vermoeden dat ik een timer moet optellen bij de y waarde van bv. een label waarin een foto van een kogel staat.

Weet iemand hoe je dat doet?

Dit is de code die ik al heb:

Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Left Then
            picRaket.Location = New Point(picRaket.Location.X - 2, picRaket.Location.Y)
        End If
        If e.KeyCode = Keys.Right Then
            picRaket.Location = New Point(picRaket.Location.X + 2, picRaket.Location.Y)
        End If
        If e.KeyCode = Keys.Space Then
           [B] ??????????????????????????????????????????????[/B]
        End If
    End Sub

foto van het formulier:


Ik gebruik het programma Visual Basic 2010 Express

Bedankt.

 

[vanschagen]

code voor space invader http://www.caspercomsci.com/pages/vbsource.htm#6

 

[JoZ1]

Met alle respect, vanschagen, maar dat lijkt me toch niet echt een goede source. Als er WindowsMediaplayer-Componenten (4 stuks!) en 11 (!!) timers voor nodig zijn, moet je je toch echt af gaan vragen of je wel efficiënt bezig bent...

Verder kun je gewoon een timer-component gebruiken. Denk aan zoiets:

[CPP]private sub timer_tick() handles timer1.tick ''//Interval van 100ms ?
''//als de afbeelding nog niet buiten het beeld is:
''//verhoog de y-coördinaat met 1 (of meer)
''//controleer of er iets wordt geraakt, zo ja: laat de afbeelding verdwijnen
end sub[/CPP]

Het is waarschijnlijk een schoolopdracht?

 

[vanschagen]

was maar als voorbeeld die ik vond

 

[Timminator]

Bedankt voor het snelle antwoord en de Link.

Maar zou het ook kunnen met maar 1 of 2 timers? Het is niet egt space invador zelf te proberen maken maar iets dat er op lijkt maar anders..

Het is niet voor een schoolopdracht
grtz ;p

 

[Timminator]

Bedankt voor het snelle antwoord en de Link.

Ik heb dit nu:
Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Left Then
picRaket.Location = New Point(picRaket.Location.X - 10, picRaket.Location.Y)
'picKogel.Location = New Point(picKogel.Location.X - 10, picKogel.Location.Y)
End If
If e.KeyCode = Keys.Right Then
picRaket.Location = New Point(picRaket.Location.X + 10, picRaket.Location.Y)
'picKogel.Location = New Point(picKogel.Location.X + 10, picKogel.Location.Y)
End If
If e.KeyCode = Keys.Space Then
picKogel.Visible = True
tmrKogel.Start()
picKogel.Location = New Point((picRaket.Location.X + 25), picRaket.Location.Y + 25)
End If
End Sub
Private Sub tmrKogel_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrKogel.Tick
picKogel.Top = picKogel.Top - 15

End Sub

Maar als ik op de spatiebalk druk begint de kogel die ik eerst heb afgevuurd terrug vanaf het schip ;(
Weet u toevallig hoe ik dan meerdere kogels achter elkaar kan afvuren?

bedankt.

 

[JoZ1]

Een goede (Nederlandse) tutorial over dit onderwerp:
Deel 1
Deel 2
Deel 3
[edit]
Voor het geval je je afvraagt hoe deze schepen bewegen:
Er is een timer ingebouwd in de klasse van het schip. [/edit]

 

[Timminator]

Bedankt. Maar ik begrijp er niet egt iets van...
Weet u toevallig niet een stukje code puur om automatisch kogeltjes te kunnen afvuren?

 

[JoZ1]

Maar wat begrijp je niet dan? Heb je het überhaupt (helemaal) gelezen?
Op welk deel loop je vast?

 

[Timminator]

Ja maar ik begrijp helemaal niet waarom je een picturebox moet gebruiken.. Het kan tog ook in een formulier?

 

[JoZ1]

Wat is een formulier-component?

Het kan overigens ook met een panel.