It looks like you're new here. If you want to get involved, click one of these buttons!
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