[VB.NET] ]Hangman game

[slacker]

Imports System
Imports System.IO
Public Class Form1
    Dim WordAndClue
    Dim word As String
    Dim clue As String
    Dim WordArray(0 To 99) As Char
    Dim CharacterStatus(0 To 99) As Boolean
    Dim Guesses As Integer
    Dim length As Integer
    Dim life As Integer
    Dim GuessedLetter As Char
    Dim difficultylevel As String
    Dim game(0 To length) As Boolean
    Dim wordlist(0 To 100) As String
    Dim currentline As String
    Dim words(0 To 999) As String
    Dim ListSize As Integer
    Dim hashposition As Integer

    Private Sub cmdNewGame_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNewGame.Click
        picHangman.BackgroundImage = My.Resources.image1
        lblWord.Text = ""
        life = 1
        Guesses = 12
        Call ButtonVisible()
        For i = 0 To 99
            CharacterStatus(i) = False
        Next

        'Choose a random number based on the ListSize
        'Use the random number to access a line in the Array and place it in the WordAndClue variable




        hashposition = InStr(WordAndClue, "#")
        word = Microsoft.VisualBasic.Left(WordAndClue, hashposition - 1)
        clue = Microsoft.VisualBasic.Right(WordAndClue, Len(WordAndClue) - hashposition)
        MsgBox(clue)
        length = Len(word)

        For x = 1 To length
            WordArray(x) = Microsoft.VisualBasic.Mid(word, x, 1)
        Next
        For y = 1 To length
            lblWord.Text = lblWord.Text + "-"
        Next
        lblClue.Text = clue
        Call Difficulty()
    End Sub
    Private Sub Difficulty()
        If length < 5 Then
            difficultylevel = "Easy"
            lblDifficulty.Text = ("Difficulty = " + difficultylevel)
        ElseIf 10 > length > 5 Then
            difficultylevel = "Medium"
            lblDifficulty.Text = ("Difficulty = " + difficultylevel)
        ElseIf length > 10 Then
            difficultylevel = "Hard"
            lblDifficulty.Text = ("Difficulty = " + difficultylevel)
        End If
    End Sub
    Private Sub Guess()
        Dim GuessSuccessful As Boolean = False
        For z = 1 To length
            If WordArray(z) = GuessedLetter Then
                GuessSuccessful = True
                CharacterStatus(z) = True
            End If
        Next
        lblWord.Text = ""
        For h = 1 To length
            If CharacterStatus(h) = True Then
                lblWord.Text = lblWord.Text + WordArray(h)

            Else
                lblWord.Text = lblWord.Text + "-"

            End If
        Next
        If GuessSuccessful = False Then
            Guesses = Guesses - 1
            life = life + 1
            Call changelife()
            Call statuscheck()
        Else
            Call statuscheck()
        End If
    End Sub
    Private Sub statuscheck()
        If Guesses = 0 Then
            MsgBox("Gameover", , "Gameover")
            lblWord.Text = ""
        End If
        If lblWord.Text.Contains("-") Then
        Else
            MsgBox("Congratulations")
            If Guesses > My.Settings.highscore Then
                My.Settings.highscore = Guesses
                lblHighscore.Text = "Highscore: " + My.Settings.highscore
            Else
                lblHighscore.Text = "Highscore: " + My.Settings.highscore
            End If
        End If
    End Sub
    Private Sub changelife()
        If life = 1 Then
            picHangman.BackgroundImage = My.Resources.image1
        ElseIf life = 2 Then
            picHangman.BackgroundImage = My.Resources.image2
        ElseIf life = 3 Then
            picHangman.BackgroundImage = My.Resources.image3
        ElseIf life = 4 Then
            picHangman.BackgroundImage = My.Resources.image4
        ElseIf life = 5 Then
            picHangman.BackgroundImage = My.Resources.image5
        ElseIf life = 6 Then
            picHangman.BackgroundImage = My.Resources.image6
        ElseIf life = 7 Then
            picHangman.BackgroundImage = My.Resources.image7
        ElseIf life = 8 Then
            picHangman.BackgroundImage = My.Resources.image8
        ElseIf life = 9 Then
            picHangman.BackgroundImage = My.Resources.image9
        ElseIf life = 10 Then
            picHangman.BackgroundImage = My.Resources.image10
        ElseIf life = 11 Then
            picHangman.BackgroundImage = My.Resources.image11
        ElseIf life = 12 Then
            picHangman.BackgroundImage = My.Resources.image12
        End If
    End Sub
    Private Sub cmdW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdW.Click
        cmdW.Visible = False
        GuessedLetter = "W"
        Call Guess()
    End Sub
    Private Sub cmdQ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdQ.Click
        cmdQ.Visible = False
        GuessedLetter = "Q"
        Call Guess()
    End Sub
    Private Sub cmdE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdE.Click
        cmdE.Visible = False
        GuessedLetter = "E"
        Call Guess()
    End Sub
    Private Sub cmdR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdR.Click
        cmdR.Visible = False
        GuessedLetter = "R"
        Call Guess()
    End Sub
    Private Sub cmdT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdT.Click
        cmdT.Visible = False
        GuessedLetter = "T"
        Call Guess()
    End Sub
    Private Sub cmdY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdY.Click
        cmdY.Visible = False
        GuessedLetter = "Y"
        Call Guess()
    End Sub
    Private Sub cmdU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdU.Click
        cmdU.Visible = False
        GuessedLetter = "U"
        Call Guess()
    End Sub
    Private Sub cmdI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdI.Click
        cmdI.Visible = False
        GuessedLetter = "I"
        Call Guess()
    End Sub
    Private Sub cmdO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdO.Click
        cmdO.Visible = False
        GuessedLetter = "O"
        Call Guess()
    End Sub
    Private Sub cmdP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdP.Click
        cmdP.Visible = False
        GuessedLetter = "P"
        Call Guess()
    End Sub
    Private Sub cmdA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdA.Click
        cmdA.Visible = False
        GuessedLetter = "A"
        Call Guess()
    End Sub
    Private Sub cmdS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdS.Click
        cmdS.Visible = False
        GuessedLetter = "S"
        Call Guess()
    End Sub
    Private Sub cmdD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdD.Click
        cmdD.Visible = False
        GuessedLetter = "D"
        Call Guess()
    End Sub
    Private Sub cmdF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdF.Click
        cmdF.Visible = False
        GuessedLetter = "F"
        Call Guess()
    End Sub
    Private Sub cmdG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdG.Click
        cmdG.Visible = False
        GuessedLetter = "G"
        Call Guess()
    End Sub
    Private Sub cmdH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdH.Click
        cmdH.Visible = False
        GuessedLetter = "H"
        Call Guess()
    End Sub
    Private Sub cmdJ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdJ.Click
        cmdJ.Visible = False
        GuessedLetter = "J"
        Call Guess()
    End Sub
    Private Sub cmdK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdK.Click
        cmdK.Visible = False
        GuessedLetter = "K"
        Call Guess()
    End Sub
    Private Sub cmdL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdL.Click
        cmdL.Visible = False
        GuessedLetter = "L"
        Call Guess()
    End Sub
    Private Sub cmdZ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdZ.Click
        cmdZ.Visible = False
        GuessedLetter = "Z"
        Call Guess()
    End Sub
    Private Sub cmdX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdX.Click
        cmdX.Visible = False
        GuessedLetter = "X"
        Call Guess()
    End Sub
    Private Sub cmdC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdC.Click
        cmdC.Visible = False
        GuessedLetter = "C"
        Call Guess()
    End Sub
    Private Sub cmdV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdV.Click
        cmdV.Visible = False
        GuessedLetter = "V"
        Call Guess()
    End Sub
    Private Sub cmdB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdB.Click
        cmdB.Visible = False
        GuessedLetter = "B"
        Call Guess()
    End Sub
    Private Sub cmdN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdN.Click
        cmdN.Visible = False
        GuessedLetter = "N"
        Call Guess()
    End Sub
    Private Sub cmdM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdM.Click
        cmdM.Visible = False
        GuessedLetter = "M"
        Call Guess()
    End Sub
    Private Sub ButtonVisible()
        cmdA.Visible = True
        cmdB.Visible = True
        cmdC.Visible = True
        cmdD.Visible = True
        cmdE.Visible = True
        cmdF.Visible = True
        cmdG.Visible = True
        cmdH.Visible = True
        cmdI.Visible = True
        cmdJ.Visible = True
        cmdK.Visible = True
        cmdL.Visible = True
        cmdM.Visible = True
        cmdN.Visible = True
        cmdO.Visible = True
        cmdP.Visible = True
        cmdQ.Visible = True
        cmdR.Visible = True
        cmdS.Visible = True
        cmdT.Visible = True
        cmdU.Visible = True
        cmdV.Visible = True
        cmdX.Visible = True
        cmdY.Visible = True
        cmdZ.Visible = True
        cmdW.Visible = True
    End Sub
    Private Sub cmdSetWord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAddWord.Click
        lstWords.Items.Add(txtWord.Text)
        lstClues.Items.Add(txtClue.Text)
    End Sub
    Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
        Me.Close()
    End Sub
    Private Sub cmdLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLoad.Click

        openlist.Filter = "Text files (*.TXT)|*.TXT"
        openlist.ShowDialog()


        If openlist.FileName  "" Then
            Try
                FileOpen(1, openlist.FileName, OpenMode.Input)
                Do Until EOF(1)
                    currentline = LineInput(1)
                    lstWords.Items.Add(currentline)
                Loop
            Catch ex As Exception

            End Try
        End If

    End Sub
    Private Sub cmdLoadList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLoadList.Click
        openlist.Filter = "Text files (*.TXT)|*.TXT"
        openlist.ShowDialog()

        ListSize = 1

        If openlist.FileName  "" Then
            Try
                FileOpen(1, openlist.FileName, OpenMode.Input)
                Do Until EOF(1)
                    currentline = LineInput(1)
                    'Put Current line of file into array
                    WordAndClue(1) = LineInput(1)
                    ListSize = ListSize + 1

                Loop
            Catch ex As Exception

            End Try
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class