and I honestly have NO CLUE what I am doing. I have a hangman project that I have been working on for two weeks now. However this week, I have found myself completely outdone. I want to master this class so bad. I have maintained a 4.0 in all classed up till now and would like to do the same this quarter. I do not want someone to do the work for me. I NEED TO LEARN HOW TO DO THIS. If you are good at giving instructions while teaching I would greatly appreciate it. I know I am asking a lot. Please forgive! Its just kind of frustrating being successful up until this class. Its a basic programming class that I must learn in order to move on in my Web Design program. Can anyone help me? I can show you my code if needed. THANX IN ADVANCE!!!!

Public Class frmMain

Dim strWordToGuess As String
Dim strLettersGuessed As String
Dim intNumTries As Integer("0")


'Copy code from SampleCode.txt here during Part 3


Private Sub lblWord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblWord.Click
lblWord.Text = "BASSETT HOUND"
End Sub

Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub

Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNew.Click
Dim strWordToGuess As String
Dim intNumTries As Integer
strWordToGuess = "BASSETT HOUND"
intNumTries = "0"
End Sub

Private Sub btnSolve_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSolve.Click

End Sub

Private Sub btnGuessL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuessL.Click
'Dim strLetterGuessed As String
'strLetterGuessed = Me.txtLetter.Text
Dim strLetterGuessed = B, A, S, S, E, T, H, O, U, N, D
intNumTries += 1

End Sub

Private Sub btnGuessW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuessW.Click
'Dim strWordGuessed As String
'strWordGuessed = Me.txtLetter.Text
Dim strWordGuessed = "BASSETT HOUND"
intNumTries += 1


End Sub

Private Sub picBody_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles picBody.Click

End Sub

Private Sub txtWord_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtWord.TextChanged

End Sub

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

End Sub

I know its horendous. Any suggestions. This is for the Hangman game project. Im on the part where its asking me to:

Add code to the end of btnGuessL_Click event procedure,
Store the word "BASSETT HOUND" in strWordToGuess and set intNumTries to 0

Did I get that part right?

This article has been dead for over six months. Start a new discussion instead.