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

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

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

Sie haben den Bereich eigene Programme aufgerufen. Hier finden Sie ein paar selbst programmierte Programme. Einige Programme tauschen Daten über das Internet mit einer Datenbank bzw. anderen Rechner aus. Dies ist für den Multiplayer-Modus erforderlich. Aus diesem Grund kann es vorkommen, dass eure Firewall beim Ausführen der Anwendung eine Warnung auf dem Display anzeigt.

• Anleitung
• Installation
• Wichtiger Hinweis
• PingPong VB.net Quellcode
• Download Spiel
• Hinweis Datenschutzerklärung
• GameScore PingPong