PingPong


Einleitung

Das Spielt wurde von uns selbst in der Programmiersprache vb.net erstellt und könnt Ihr direkt von unserer Cloud downloaden. Bei Interesse erhaltet Ihr auch auf Anfrage über unserer Kontaktformular den Quelltext zum Spiel.


Inhaltsverzeichnis


Beschreibung

Anleitung

PingPong ist ein einfaches kleines Spiel, dass Sie nur mit der Maus spielen können. Zuerst müssen Sie Ihren Namen eingeben. Hierbei kann auch ein Fantasiename verwendet werden. Ist der Name lang genug, wird der Start Button freigeben. Nach dem Start setzt sich der rote Ball in Bewegung. Mit dem Mausrad können Sie die blaue Plattform am unteren Rand bewegen. Achten Sie darauf, dass der rote Ball nicht den Boden berührt, ansonsten ist das Spiel vorbei. Der Ball erhöht seine Geschwindigkeit mehr und mehr. Wir wünschen Ihnen viel Spaß mit dem Spiel.

Spielfeld

Installation

(Microsoft .NET Framework 4.7 erforderlich)

  • Möglichkeit 1.: Laden Sie die Dateien PingPongSetup.msi oder setup.exe auf Ihren PC herunter und führen anschließend eine von beiden Dateien aus. Nach der Installation der Anwendung können Sie diese aus dem Startmenü starten. Zum Herunterladen können Sie mehrere Dateien gleichzeitig auswählen. Bei einer mehrfach Auswahl, müssen die Dateien nach dem Download entpackt werden, bevor das Setup ausgeführt werden kann.
  • Möglichkeit 2.: Zip-Datei 'PingPong.zip' entpacken.
    Das Programm dann im entpackten Ordner ausführen über die Datei Memory-MPG.exe

Wichtiger Hinweis

Beim Download oder der Installation weist Microsoft unter Umständen darauf hin, dass das Programm von einem Unbekannten-Herausgeber ist. Das Programm lässt sich jedoch trotzdem Installieren.
Unter „Weiteren Informationen“ können Sie „Trotzdem ausführen“ auswählen. Um das Problem beim Download zu umgehen, können Sie auch einfach nur die *.zip herunterladen und entpacken.

1. Schritt

Nach dem Ausführen der Start-Datei kann die oben angezeigte Meldung erscheinen. Hier im Text auf 'Weitere Informationen klicken'

2.Schritt

Im Nächten Fenster, auf 'Trotzdem Ausführen' klicken.

(Zum vergrößern auf das jeweilige Bild klicken.)

PingPong VB.net Quellcode

Der Quellcode musste etwas angepasst werden, dass er auf der Homepage richtig angezeigt und eingebunden werden kann.
Er kann somit nicht 1 zu 1 in VS übernommen werden.
Gerne kann ich euch das Original zukommen lassen. Schreibt mir hierzu einfach über das Kontaktformular.

Public Class Form1
    Dim StartZeit As Date
    Dim intTimerStepper = 0

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        If GameSpeed.Enabled = False Then
            Panel1.Location = New Point((GroupBox1.Width / 2) - Panel1.Width / 2, (GroupBox1.Height / 4) * 3)
            Panel2.Location = New Point((GroupBox1.Width / 2) - Panel2.Width / 2, Panel2.Location.Y)
            txtLevel.Text = 1
            txtSpielzeit.Text = 0
            cmdStart.Enabled = False
            cmdStop.Enabled = False
            cmdReset.Enabled = False
            lblNameInfo.Text = "Noch min. " & 5 - txtGamer.Text.Length & " Zeichen..."
            txtGamer.Select()
        End If
    End Sub

    Private Sub cmdStart_Click(sender As Object, e As EventArgs) Handles cmdStart.Click
        If txtGamer.Text.Length > 4 Then
            StartZeit = DateTime.Now
            GameSpeed.Enabled = True
            StepperTime.Enabled = True
            cmdStart.Enabled = False
            cmdReset.Enabled = False
            cmdStop.Enabled = True
            cmdStop.Select()
            txtGamer.Enabled = False
        End If

    End Sub

    Private Sub cmdStop_Click(sender As Object, e As EventArgs) Handles cmdStop.Click
        GameSpeed.Enabled = False
        StepperTime.Enabled = False
        cmdReset.Enabled = True
        cmdStop.Enabled = False
        cmdStop.Select()
    End Sub

    Private Sub cmdReset_Click(sender As Object, e As EventArgs) Handles cmdReset.Click
        If txtGamer.Text.Length > 4 Then
            If GameSpeed.Enabled = False Then
                Panel1.Location = New Point((GroupBox1.Width / 2) - Panel1.Width / 2, (GroupBox1.Height / 4) * 3)
                Panel2.Location = New Point((GroupBox1.Width / 2) - Panel2.Width / 2, Panel2.Location.Y)
            End If
            cmdStart.Enabled = True
            txtLevel.Text = 1
            txtSpielzeit.Text = 0
            cmdStop.Select()
            txtGamer.Enabled = True
        End If
    End Sub

    Private Sub cmdLeaderboard_Click(sender As Object, e As EventArgs) Handles cmdLeaderboard.Click
        Process.Start("https://ploesch.de/index.php?side=g-gamescore&gameid=3")
    End Sub

    Private Sub GamesSpeed_Tick(sender As Object, e As EventArgs) Handles GameSpeed.Tick
        Static strVerticalRichtung As String = "up"
        Static strHorRichtung As String = "right"
        txtSpielzeit.Text = CStr(DateDiff(DateInterval.Second, StartZeit, DateTime.Now))

        If Panel1.Location.Y - Panel1.Height / 2 <= "0" Then
            strVerticalRichtung = "down"
        End If
        If Panel1.Location.Y + Panel1.Height >= Panel2.Location.Y Then
            If (Panel1.Location.X >= Panel2.Location.X And ¶
                Panel1.Location.X < Panel2.Location.X + Panel2.Width) Or ¶
                (Panel1.Location.X + Panel1.Width >= Panel2.Location.X And ¶
                Panel1.Location.X + Panel1.Width <=	Panel2.Location.X + Panel2.Width) Then
                strVerticalRichtung = "up"
            End If
        End If
        If Panel1.Location.X <= "0" Then
            strHorRichtung = "right"
        End If
        If Panel1.Location.X + Panel1.Width >= GroupBox1.Width Then
            strHorRichtung = "left"
        End If

        If Panel1.Location.Y + Panel1.Height >= GroupBox1.Height Then
            Call cmdStop_Click(Nothing, Nothing)
            Try
                Dim client As New Net.WebClient
                client.OpenRead("https://XX/XX/XX/XXX.php?YY=1&AA=" & txtGamer.Text & "&CC=" & ¶
                CInt(txtSpielzeit.Text) & "&EE=" & CInt(txtLevel.Text) & "&QQ=" & ¶
                CInt(txtLevel.Text) * CInt(txtSpielzeit.Text) & "&RR=" & ¶
                System.DateTime.Now.ToString("yyyy-MM-dd") & "&JJ=" & ¶
                System.DateTime.Now.ToString("HH:mm:ss"))
                client.CancelAsync()
            Catch ex As Exception
                MsgBox(ex.ToString,, "Info...")
            End Try
            MsgBox("GAME OVER!!!" & vbNewLine & vbNewLine &
                "Spieler.: " & txtGamer.Text & vbNewLine &
                "Spielzeit.: " & txtSpielzeit.Text & " Sekunden" & vbNewLine &
                "Level.: " & txtLevel.Text & vbNewLine &
                "Punkte.: " & txtLevel.Text * txtSpielzeit.Text,, "TP-Games")
            strVerticalRichtung = "up"
            GameSpeed.Enabled = False
            StepperTime.Enabled = False
            cmdStop.Enabled = False
            txtLevel.Text = 1
            txtSpielzeit.Text = 0
            Exit Sub
        End If

        If intTimerStepper = 1 And txtLevel.Text < 10 And strVerticalRichtung = "up" Then
            txtLevel.Text = txtLevel.Text + 0.1
            intTimerStepper = 0
        End If

        If strVerticalRichtung = "up" Then
            Panel1.Location = New Point(Panel1.Location.X, Panel1.Location.Y - txtLevel.Text)
        End If
        If strVerticalRichtung = "down" Then
            Panel1.Location = New Point(Panel1.Location.X, Panel1.Location.Y + txtLevel.Text)
        End If
        If strHorRichtung = "left" Then
            Panel1.Location = New Point(Panel1.Location.X - txtLevel.Text, Panel1.Location.Y)
        End If
        If strHorRichtung = "right" Then
            Panel1.Location = New Point(Panel1.Location.X + txtLevel.Text, Panel1.Location.Y)
        End If
    End Sub

    Private Sub Form1_MouseWheel(sender As Object, e As MouseEventArgs) Handles Me.MouseWheel
        If e.Delta > 0 And Panel2.Location.X + Panel2.Width + 5 <= GroupBox1.Width Then
            Panel2.Location = New Point(Panel2.Location.X + "10", Panel2.Location.Y)
        ElseIf e.Delta < 0 And Panel2.Location.X >= "2" Then
            Panel2.Location = New Point(Panel2.Location.X - "10", Panel2.Location.Y)
        End If
    End Sub

    Private Sub StepperTime_Tick(sender As Object, e As EventArgs) Handles StepperTime.Tick
        If intTimerStepper = 0 Then
            intTimerStepper = 1
        End If
    End Sub

    Private Sub txtGamer_TextChanged(sender As Object, e As EventArgs) Handles txtGamer.TextChanged
        If txtGamer.Text.Length > 4 Then
            cmdStart.Enabled = True
            lblNameInfo.Text = "Name OK. Spiel startbereit..."
        Else
            lblNameInfo.Text = "Noch min. " & 5 - txtGamer.Text.Length & " Zeichen..."
            cmdStart.Enabled = False
        End If
    End Sub

End Class

Download

Das Spielt wurde von uns selbst in der Programmiersprache vb.net erstellt und könnt Ihr direkt von unserer Cloud downloaden. Bei Interesse erhaltet Ihr auch auf Anfrage über unserer Kontaktformular den Quelltext zum Spiel.

Bitte Datenschutzerklärung beachten!

Vor, während und nach dem Spielen, werden Daten mit unserem Server ausgetauscht. In unserer Datenschutzerklärung erhaltet Ihr hierzu weitere Informationen.