Slider Game

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

  1. Anleitung
  2. Installation
  3. Wichtiger Hinweis
  4. Slider VB.net Quellcode
  1. Anleitung
  2. Installation
  3. Wichtiger Hinweis
  4. Slider VB.net Quellcode

Beschreibung

Anleitung

Slider Games 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 können sie Zahlen mit einem Mausklick in das nächste freie Feld verschoben werden. Das Ziel ist es, die Zahlen in die richtige Reihenfolge zu bringen. Hierbei muss immer auf der Linken Seite die kleinste Zahl der Reihe stehen (Siehe auch Lösungsbild). Wir wünschen Ihnen viel Spaß mit dem Spiel.

Lösungsbild

Diese Anordnung von Zahlen ist zu erreichen um das Spiel abzuschließen.

Spielfeld

Installation

(Microsoft .NET Framework 4.7 erforderlich)

  • Möglichkeit 1.: Laden Sie die Dateien SliderSetup.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 'Slider.zip' entpacken.
    Das Programm dann im entpackten Ordner ausführen über die Datei Slider-Game.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.)

Slider-Game 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
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Call RandomizeZahl()
        Call ChkGameFinish(True)
    End Sub
    Private Sub cmdReset_Click(sender As Object, e As EventArgs) Handles cmdReset.Click
        Call RandomizeZahl()
        Call ChkGameFinish(True)
    End Sub
    Private Sub RandomizeZahl()
        Dim strList As String = "|" 'Speicher für bereits gezogene Zahlen
        Dim intFeld As Integer = "1" 'Schleife Anwahl Spielfelder
        txt16.Text = ""
        For intFeld = 1 To 15
            Randomize()
            Dim oZahl As New System.Random
            Dim intZahl As Integer
            Do
                ' Zufallszahl im Bereich 1 bis 15
                intZahl = oZahl.Next(1, 16)

                ' Prüfen, ob Zufallszahl bereits gezogen
                If Not (strList.Contains("|" & intZahl & "|")) Then
                    strList = strList & intZahl & "|"
                    Me.Controls("txt" & intFeld).Text = intZahl
                    Exit Do
                End If
            Loop
        Next intFeld
        cmdReset.Select()
    End Sub
    Private Sub txt1_Click(sender As Object, e As EventArgs) Handles txt1.Click
        If txt1.Text <> "" Then
            If txt2.Text = "" Then
                txt2.Text = txt1.Text
                txt1.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt5.Text = "" Then
                txt5.Text = txt1.Text
                txt1.Text = ""
                Call ChkGameFinish(False)
            End If
        End If
        cmdReset.Select()
    End Sub
    Private Sub txt2_Click(sender As Object, e As EventArgs) Handles txt2.Click
        If txt2.Text <> "" Then
            If txt1.Text = "" Then
                txt1.Text = txt2.Text
                txt2.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt3.Text = "" Then
                txt3.Text = txt2.Text
                txt2.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt6.Text = "" Then
                txt6.Text = txt2.Text
                txt2.Text = ""
                Call ChkGameFinish(False)
            End If
        End If
        cmdReset.Select()
    End Sub
    Private Sub txt3_Click(sender As Object, e As EventArgs) Handles txt3.Click
        If txt3.Text <> "" Then
            If txt2.Text = "" Then
                txt2.Text = txt3.Text
                txt3.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt4.Text = "" Then
                txt4.Text = txt3.Text
                txt3.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt7.Text = "" Then
                txt7.Text = txt3.Text
                txt3.Text = ""
                Call ChkGameFinish(False)
            End If
        End If
        cmdReset.Select()
    End Sub
    Private Sub txt4_Click(sender As Object, e As EventArgs) Handles txt4.Click
        If txt4.Text <> "" Then
            If txt3.Text = "" Then
                txt3.Text = txt4.Text
                txt4.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt8.Text = "" Then
                txt8.Text = txt4.Text
                txt4.Text = ""
                Call ChkGameFinish(False)
            End If
        End If
        cmdReset.Select()
    End Sub
    Private Sub txt5_Click(sender As Object, e As EventArgs) Handles txt5.Click
        If txt5.Text <> "" Then
            If txt1.Text = "" Then
                txt1.Text = txt5.Text
                txt5.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt6.Text = "" Then
                txt6.Text = txt5.Text
                txt5.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt9.Text = "" Then
                txt9.Text = txt5.Text
                txt5.Text = ""
                Call ChkGameFinish(False)
            End If
        End If
        cmdReset.Select()
    End Sub
    Private Sub txt6_Click(sender As Object, e As EventArgs) Handles txt6.Click
        If txt6.Text <> "" Then
            If txt2.Text = "" Then
                txt2.Text = txt6.Text
                txt6.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt5.Text = "" Then
                txt5.Text = txt6.Text
                txt6.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt7.Text = "" Then
                txt7.Text = txt6.Text
                txt6.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt10.Text = "" Then
                txt10.Text = txt6.Text
                txt6.Text = ""
                Call ChkGameFinish(False)
            End If
        End If
        cmdReset.Select()
    End Sub
    Private Sub txt7_Click(sender As Object, e As EventArgs) Handles txt7.Click
        If txt7.Text <> "" Then
            If txt3.Text = "" Then
                txt3.Text = txt7.Text
                txt7.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt6.Text = "" Then
                txt6.Text = txt7.Text
                txt7.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt8.Text = "" Then
                txt8.Text = txt7.Text
                txt7.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt11.Text = "" Then
                txt11.Text = txt7.Text
                txt7.Text = ""
                Call ChkGameFinish(False)
            End If
        End If
        cmdReset.Select()
    End Sub
    Private Sub txt8_Click(sender As Object, e As EventArgs) Handles txt8.Click
        If txt8.Text <> "" Then
            If txt4.Text = "" Then
                txt4.Text = txt8.Text
                txt8.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt7.Text = "" Then
                txt7.Text = txt8.Text
                txt8.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt12.Text = "" Then
                txt12.Text = txt8.Text
                txt8.Text = ""
                Call ChkGameFinish(False)
            End If
        End If
        cmdReset.Select()
    End Sub
    Private Sub txt9_Click(sender As Object, e As EventArgs) Handles txt9.Click
        If txt9.Text <> "" Then
            If txt5.Text = "" Then
                txt5.Text = txt9.Text
                txt9.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt10.Text = "" Then
                txt10.Text = txt9.Text
                txt9.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt13.Text = "" Then
                txt13.Text = txt9.Text
                txt9.Text = ""
                Call ChkGameFinish(False)
            End If
        End If
        cmdReset.Select()
    End Sub
    Private Sub txt10_Click(sender As Object, e As EventArgs) Handles txt10.Click
        If txt10.Text <> "" Then
            If txt6.Text = "" Then
                txt6.Text = txt10.Text
                txt10.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt9.Text = "" Then
                txt9.Text = txt10.Text
                txt10.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt11.Text = "" Then
                txt11.Text = txt10.Text
                txt10.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt14.Text = "" Then
                txt14.Text = txt10.Text
                txt10.Text = ""
                Call ChkGameFinish(False)
            End If
        End If
        cmdReset.Select()
    End Sub
    Private Sub txt11_Click(sender As Object, e As EventArgs) Handles txt11.Click
        If txt11.Text <> "" Then
            If txt7.Text = "" Then
                txt7.Text = txt11.Text
                txt11.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt10.Text = "" Then
                txt10.Text = txt11.Text
                txt11.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt12.Text = "" Then
                txt12.Text = txt11.Text
                txt11.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt15.Text = "" Then
                txt15.Text = txt11.Text
                txt11.Text = ""
                Call ChkGameFinish(False)
            End If
        End If
        cmdReset.Select()
    End Sub
    Private Sub txt12_Click(sender As Object, e As EventArgs) Handles txt12.Click
        If txt12.Text <> "" And lblNameChk.Text = "Spielbereit..." Then
            If txt8.Text = "" Then
                txt8.Text = txt12.Text
                txt12.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt11.Text = "" Then
                txt11.Text = txt12.Text
                txt12.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt16.Text = "" Then
                txt16.Text = txt12.Text
                txt12.Text = ""
                Call ChkGameFinish(False)
            End If
        Else
            MsgBox("Bitte einen Spielernamen eingeben!")
        End If
        cmdReset.Select()
    End Sub
    Private Sub txt13_Click(sender As Object, e As EventArgs) Handles txt13.Click
        If txt13.Text <> "" Then
            If txt9.Text = "" Then
                txt9.Text = txt13.Text
                txt13.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt14.Text = "" Then
                txt14.Text = txt13.Text
                txt13.Text = ""
                Call ChkGameFinish(False)
            End If
        End If
        cmdReset.Select()
    End Sub
    Private Sub txt14_Click(sender As Object, e As EventArgs) Handles txt14.Click
        If txt14.Text <> "" Then
            If txt10.Text = "" Then
                txt10.Text = txt14.Text
                txt14.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt13.Text = "" Then
                txt13.Text = txt14.Text
                txt14.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt15.Text = "" Then
                txt15.Text = txt14.Text
                txt14.Text = ""
                Call ChkGameFinish(False)
            End If
        End If
        cmdReset.Select()
    End Sub
    Private Sub txt15_Click(sender As Object, e As EventArgs) Handles txt15.Click
        If txt15.Text <> "" And lblNameChk.Text = "Spielbereit..." Then
            If txt11.Text = "" Then
                txt11.Text = txt15.Text
                txt15.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt14.Text = "" Then
                txt14.Text = txt15.Text
                txt15.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt16.Text = "" Then
                txt16.Text = txt15.Text
                txt15.Text = ""
                Call ChkGameFinish(False)
            End If
        Else
            MsgBox("Bitte einen Spielernamen eingeben!")
        End If
        cmdReset.Select()
    End Sub
    Private Sub txt16_Click(sender As Object, e As EventArgs) Handles txt16.Click
        If txt16.Text <> "" Then
            If txt12.Text = "" Then
                txt12.Text = txt16.Text
                txt16.Text = ""
                Call ChkGameFinish(False)
            End If
            If txt15.Text = "" Then
                txt15.Text = txt16.Text
                txt16.Text = ""
                Call ChkGameFinish(False)
            End If
        End If
        cmdReset.Select()
    End Sub

    Private Sub ChkGameFinish(bytReset As Boolean)
        Static intZüge As Integer = 0
        If bytReset = True Then
            intZüge = 0
            TimePlay.Enabled = False
            txtTimePlay.Text = 0
            chkLeadOk.Checked = True
            chkLeadOk.Enabled = True
            txtGamerName.Enabled = True
            txtGamerName_TextChanged(Nothing, Nothing)
        Else
            intZüge = intZüge + 1
            TimePlay.Enabled = True
            chkLeadOk.Enabled = False
            txtGamerName.Enabled = False
        End If
        txtZüge.Text = intZüge
        'Überprüfen ob alles Korrekt
        Dim intSchlf As Integer 'Variable für Schleife
        Dim strChk As String = "" 'Variable für Umwandlung Schleifen Nummer in String
        Dim intChkSum As Integer = 0 'Ergebnis
        For intSchlf = 1 To 15
            strChk = intSchlf
            If Me.Controls("txt" & intSchlf).Text = strChk Then
                intChkSum = intChkSum + 1
            End If
        Next
        If intChkSum = 15 Then
            TimePlay.Enabled = False
            'Werte in DB schreiben
            If chkLeadOk.Checked = True Then
                Try
                    Dim client As New Net.WebClient
                    client.OpenRead("https://xx.de/xx/xx/xx.php?vv=1&aa=" & ¶
                    System.DateTime.Now.ToString("yyyy-MM-dd") & "&bb=" & ¶
                    System.DateTime.Now.ToString("HH:mm:ss") & "&tt=" & txtGamerName.Text ¶
                    & "&qq=" & CInt(txtTimePlay.Text) & "&ff=" & CInt(txtZüge.Text) & ¶
                    "&zz=" & 5000 - CInt(txtZüge.Text) - CInt(txtTimePlay.Text))
                    client.CancelAsync()
                Catch ex As Exception
                    MsgBox(ex.ToString,, "Info...")
                End Try
                MsgBox("*** Slider_Game gewonnen ***" & vbNewLine & vbNewLine & ¶
                vbNewLine & "Folgende Werte wurden in das Leaderboard eingetragen.:" & ¶
                vbNewLine & vbNewLine & "Spielername.: " & txtGamerName.Text & vbNewLine & ¶
                "Spielzeit.: " & txtTimePlay.Text & vbNewLine & "Anzahl Züge.: " & ¶
                txtZüge.Text & vbNewLine & "Score.: " & 5000 - txtZüge.Text - txtTimePlay.Text)
            Else
                MsgBox("*** Slider_Game gewonnen ***" & vbNewLine & vbNewLine & vbNewLine & ¶
                "Deine Zahlen zum Spiel (Werte wurden nicht in die Datenbank übernommen).:" & ¶
                vbNewLine & vbNewLine & "Spielername.: " & txtGamerName.Text & vbNewLine & ¶
                "Spielzeit.: " & txtTimePlay.Text & vbNewLine & "Anzahl Züge.: " & ¶
                txtZüge.Text & vbNewLine & "Score.: " & 5000 - txtZüge.Text - txtTimePlay.Text)
            End If
        End If
    End Sub

    Private Sub TimePlay_Tick(sender As Object, e As EventArgs) Handles TimePlay.Tick
        If TimePlay.Enabled = True Then
            txtTimePlay.Text = txtTimePlay.Text + 1
        End If
    End Sub

    Private Sub txtGamerName_TextChanged(sender As Object, e As EventArgs) Handles txtGamerName.TextChanged
        If txtGamerName.Text.Length > 5 Then
            lblNameChk.Text = "Spielbereit..."
            txtGamerName.BackColor = Color.White
        Else
            lblNameChk.Text = "Es fehlen noch " & 6 - txtGamerName.Text.Length & " Zeichen"
            txtGamerName.BackColor = Color.Red
        End If
    End Sub

    Private Sub cmdLeadInfo_Click(sender As Object, e As EventArgs) Handles cmdLeadInfo.Click
        Process.Start("https://ploesch.de/index.php?side=g-gamescore&gameid=4")
    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.

Bekannte Bug`s

Bekannter Bug: Die Zahlen werden durch Zufall auf dem Brett verteilt. Ab und an ist dadurch die letzte Reihe nicht lösbar.