Fun-Soft - Programmierforum

Autor

Thread - Seiten: > 1 <

000
31.12.2004, 21:33 Uhr
FlAsH
keine Ahnung

Hi,
ich wollte einfach mal zum testen eine shape zum springen Bringen mit gravition oder wie das heisst.

Visual Basic:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If JumpProzess = False Then
If KeyCode = vbKeyUp Then
JumpProzess = True
Timer1.Enabled = True
End If
End If
End Sub

Private Sub Form_Load()
Dim JumpProzess As Boolean
Dim graviti As Integer
Dim minuxgraviti As Integer
graviti = 30
minusgraviti = 2 * graviti
JumpProzess = False
End Sub

Private Sub Timer1_Timer()
If graviti = graviti - minusgraviti Then
Timer1.Enabled = False
JumpProzess = True
End If
Shape2.Top = Shape2.Top + graviti
graviti = graviti - 10
End Sub

Es rührt sich aber nichts, was ist der grund dafür?

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

001
01.01.2005, 00:33 Uhr
Audron-AT-www
http://www.sXene.de Audron@sxene.de
(Operator)

das prob is das
If Graviti = graviti - minusgraviti
undzwar machste mit graviti = graviti - 10 ja wieder weg.. also is "Shape2.Top = 0"

rechner noma drüber dann müssteste fehler finden
--
Mit freundlichen Grüßen
Audron, audron@sxene.de

Profil || Private Message || Suche

Download || Zitatantwort || Editieren || Löschen || IP

Seiten: > 1 < [ Visual Basic 6.0 / VBA ]

ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: