vb spel

[Dieterken]

Ik heb een simpel spelletje gemaakt die figuurtjes bestuurd, maar goe kan ik nu programmeren dat als hij tegen de muur botst msgbox "Je bent dood" of zo iets


Option Explicit





Private Sub cmdboven_Click()
tmrlinks.Enabled = False
tmrboven.Enabled = True
tmronder.Enabled = False
tmrrechts.Enabled = False
End Sub

Private Sub cmdlinks_Click()
tmrlinks.Enabled = True
tmrboven.Enabled = False
tmronder.Enabled = False
tmrrechts.Enabled = False
End Sub

Private Sub cmdonder_Click()
tmrlinks.Enabled = False
tmrboven.Enabled = False
tmronder.Enabled = True
tmrrechts.Enabled = False
End Sub

Private Sub cmdrechts_Click()
tmrlinks.Enabled = False
tmrboven.Enabled = False
tmronder.Enabled = False
tmrrechts.Enabled = True
End Sub

Private Sub Form_Load()
tmrlinks.Enabled = False
tmrboven.Enabled = False
tmronder.Enabled = False
tmrrechts.Enabled = False
End Sub

Private Sub scrlsnelheid_Change()
Label1.Caption = scrlsnelheid.Value
End Sub

Private Sub tmrboven_Timer()
pctrfiets.Top = pctrfiets.Top - Label1.Caption * 5
End Sub

Private Sub tmrlinks_Timer()
pctrfiets.Left = pctrfiets.Left - Label1.Caption * 5
End Sub

Private Sub tmronder_Timer()
pctrfiets.Top = pctrfiets.Top + Label1.Caption * 5
End Sub

Private Sub tmrrechts_Timer()
pctrfiets.Left = pctrfiets.Left + Label1.Caption * 5
End Sub

 

[DENNIS90]

Door naar de coördinaten te kijken.

Wanneer de coördinaten van de muur en de fiets gelijk komen te staan.
Je kunt de coördinaten in de IDE, in design-time, achterhalen door de muur
en de fiets naast elkaar te plaatsen.

Groetjes,

Dennis.

 

[Dieterken]

dus bv: If pctrfiets.Left = muur.Left Then msgbox "kabaaaaaaam"

 

[DENNIS90]

Juist!

Rechtsboven van de IDE staan de coördinaten v.h. geselecteerde
control en ook zijn afmeting.

Even met een voorbeeld toelichting.

Verplaats je fiets in je Form zodanig, dat de rechter(voorste) kant van
het fiets tegen de muur (linkerkant) raakt.

Het gaat nu om de 1e coördinaten van beide controls.

Stel dat het 1e coöordinaat van je fiets op 1200 staat en van de muur
op 2400. Het verschil van deze 2 waarden is 1200.

Dus moet je code er, als voorbeeld, zo gaan uitzien:

If (pctrfiets.Left + 1200) = pctrmuur.Left Then msgbox "kabaaaaaaam"

Groetjes,

Dennis.

 

[Dieterken]

bedankt !

 

[DENNIS90]

Graag gedaan.

Succes verder met je spelprogramma.

 

[Dieterken]

hmmm, als ik dat doe dan zegt hij vanals ik hem opstart "kabaaaaaaaaaaam"

 

[DENNIS90]

Het was om de coördinaten te bepalen.

Nee, mijn uitleg was om de coördinaten te kunnen bepalen wanneer
de fiets tegen de muur aanrijdt. Heb je eenmaal de coördinaten bepaald, dan
verplaats je de fiets en de muur naar de oorspronkelijke locaties weer terug, je start positie dus. Fiets en muur zijn dan van elkaar verwijderd.

Succes,

Dennis.

P.S. Ben even weg.