"Du hast Gewonnen" | springende Picturebox

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von hammerdollen.

    "Du hast Gewonnen" | springende Picturebox

    Guten Tag :)

    Mit meinem Sokoban-Klon komme ich derzeit recht gut vorran.

    Nun wollte ich noch ein kleines Extra hinzufügen:

    Und zwar soll, nachdem der Spieler alle Level gemeistert hat, eine PictureBox mit einem Bild, auf welchem so etwas wie: Herzlichen Glükwunsch. Du hast gewonnen steht, wie bei Solitaire auf und ab richtung rechte Seite hüpfen, dabei immer etwas an höhe verlieren, und sobald die Position der Picturebox dann den X-Wert der Höhe der Form hat, stoppen.

    Ich habe schon gehört, dass man dies gut mit einem Time realisieren kann. Hat jemand einen Vorschlag? (Während dessen probiere ich ein bisschen daran rum :D)


    Hier ein kleiner Ansatz:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim startpos As Point
    3. Dim currentpos As Point
    7. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    8. startpos = New Point(0, 0)
    9. Timer1.Interval = 3000
    10. Timer1.Start()
    12. Ball.Location = startpos
    13. currentpos = startpos
    15. End Sub
    17. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    18. Dim i As Integer
    20. For i = 0 To 1000
    22. currentpos = New Point(i, 4)
    23. Ball.Location = currentpos
    24. Next
    26. End Sub
    27. End Class


    Fehler vorhanden, berichtige grad den Intervall :)

    es handelt sich NUR um einen ANSATZ ( habe noch nie zuvor mit dem Timer gearbeitet)


    hammerdollen :)

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „hammerdollen“ ()

    also die Picturebox steuerst du zum auf und ab bewegen mit .Top = ** und die seidwertsbewegung mit .Left = ** ahmund dann schreibst du einfach ins timer tick event das die Pictureboxsich nach oben bewegen soll also immer um eins dann reicht es hinzuschreiben .Top += 1 fertig und dann überprüfst du einfach ob die picbox schon hoch genug gesprungen ist und änderst den wert in -1 dann fällt sie wieder runter und das selbe machst du dann mit der seidwärtsbewegung ;)

    mfg

    überarbeiteter Code:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim i1 As Integer = 1
    3. Dim i2 As Integer = 1
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. Timer1.Interval = 500 ' setzt den Timer-Intervall (hier 1 Sekunde)
    8. End Sub
    10. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    11. Call check()
    12. Ball.Left = Ball.Left + (i1) ' Abstand des Balls vom linken Fensterrand
    13. Ball.Top = Ball.Top + (i2) ' Abstand des Balles vom oberen Fensterrand
    14. 'Quadtratische Funktion -> f(x)=x² (Normaparabel)
    15. i1 = i1 + 1
    16. i2 = i1 ^ 2
    18. End Sub
    20. Private Sub start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles start.Click
    21. Timer1.Start() 'Startet den Timer bei einem Klick auf den Button
    22. End Sub
    24. Private Sub check()
    25. If Ball.Location.Y + 130 >= Me.Height Then 'Überprüft, ob der Ball den unteren Fensterrand berührt/überschreitet
    26. Timer1.Stop()
    27. MsgBox("Der Ball hat das Fenster verlassen")
    28. End If
    30. End Sub
    32. Private Sub ballplatzieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ballplatzieren.Click
    33. i1 = 1
    34. i2 = 1
    35. ' Variable Ausgangsposition des Balles
    36. Ball.Left = startpos_x.Text
    37. Ball.Top = startpos_y.Text
    38. End Sub
    39. End Class


    Nun möchte ich, dass wenn der Ball den unteren Bildschirmrand berührt, wieder nach oben springt (immer und immer wieder) und jedesmal ein stück an Höhe verliert. wie ein richtiger Ball eben :)


    Ratschläge gesucht :D

    Gruß

    Hallo,

    @VorVorposter: find ich nicht sooo schön..

    PseudoCode

    Quellcode

    1. Bewegung = 10
    3. Bewegung *= 0.9
    4. TOP += Bewegung
    5. WENN TOP <= ENDE(BODEN)
    6. Bewegung *= -1

    somit wird die PB bei der Aufwärtsbewegung langsamer und sollte bei der Abwärtsbewegung wieder schneller werden...(habs zwar nicht getestet, aber so ähnlich sollte es funktionieren
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---