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!!!!

Recommended Answers

All 2 Replies

What code have you done so far

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?

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.