[RESOLVED] help with hangman

[coder500]

I need help with my hangman program.... i am trying to make this load using control arrays at run time... can someone please tell me if the file i have attached uses control arrays that load at runtime? and if it doesnt can you please tell me what i have to do to make it have control arrays at runtime...

the sooner the better...thank you.

[Bruce Fox]

Welcome to the Forum coder500

It appeared that it may use a Control Array (due to txtLetter(0))

In any case try this to see that additional TextBox's are added.

Private Sub cmdInputWord_Click()
    Dim i As Integer
    Dim word As String
    Dim guess As String
        
    word = txtWord.Text
    txtWord.Visible = False
    'cmdInputWord.Visible = False
    
    txtWord.Text = UCase(word)
    'guess = txtLetter(0).Text CANGED TO:
    guess = txtLetter(txtLetter.Count - 1).Text
    
    'word = txtLetter(0).Index < ???
    
    Load txtLetter(txtLetter.Count)
    txtLetter(txtLetter.Count - 1).Top = txtLetter(0).Top
    txtLetter(txtLetter.Count - 1).Left = txtLetter(txtLetter.Count - 2).Left + txtLetter(txtLetter.Count - 1).Width
    txtLetter(txtLetter.Count - 1).Text = vbNullString
    txtLetter(txtLetter.Count - 1).Visible = True
 
End Sub

[iPrank]

can someone please tell me if the file i have attached uses control arrays that load at runtime?

No. The form doesn't uses control array at runtime.

what i have to do to make it have control arrays at runtime...

The easiest method may be,
1. Add a control during designtime.
2. From Properties window, change it's Index = 0. This will make it the first element of the control array.
3. Now from code you can add new elements using the Load statement. (see the code below)
4. Please read the documentation of Load, UBound, LBound, Count, Item methods/properties from MSDN.

--------------------
The following code places a new Textbox (control array element) at random places on the form

'Place this code in a form and add a CommandButton and a TextBox
'Change the TextBox's Index to 0
Private Sub Command1_Click()
 
Load Text1(Text1.UBound + 1) 'Loads new control array element
 
With Text1(Text1.UBound)
   
  .Left = CInt((Me.Width + 1) * Rnd) 'Set a random Left
  .Top = CInt((Me.Height + 1) * Rnd) 'Set a random Top
  
  .BackColor = QBColor(CInt((15 * Rnd))) 'Random background color
  .Visible = True '[b]Do not forget this[/b]
End With
 
End Sub

[coder500]

Thank you both.. but i am still heavilly confused... can one of you please edit my form to use a control array so i can see it in action?

[iPrank]

Add a CommandButton in your existing form (don't change name) and add my code in the form.
Replace all Text1 in my code by txtLetter. Then run it.

[coder500]

ok... now there is one problem with your code... i have not learned about with statements yet...
how can i do that same thing with a for loop?

[JensPeder]

I just gotta ask: whats up with hangman-assignements?! Seems like every VB-class has one

[iPrank]

ok... now there is one problem with your code... i have not learned about with statements yet...
how can i do that same thing with a for loop?

Please see With Statement MSDN reference first.

Without With the code will look like :

Private Sub Command1_Click()
 
  Load Text1(Text1.UBound + 1)
  Text1(Text1.UBound).Left = CInt((Me.Width + 1) * Rnd) 'Set a random Left
  Text1(Text1.UBound).Top = CInt((Me.Height + 1) * Rnd) 'Set a random Top
  Text1(Text1.UBound).BackColor = QBColor(CInt((15 * Rnd))) 'Random background color
  Text1(Text1.UBound).Visible = True 'Do not forget this
 
End Sub

Realy ugly. isn't it ?

To do the same thing using For loop, you'll need to have a counter and loop until that counter reaches it's limit. All your array-element-adding code will be inside For loop.

Also see this nice tutorial in VBExplorer : Creating Controls At Runtime

[Jacob Roman]

With statements make my code very readable and all. But awhile back, I also did a performance test on it, and it executes a little slower using With's than without using them.

[coder500]

iprank, i am having problems getting that to work... the letter boxes should all be showing up next to eachother...

[Bruce Fox]

In my post, I actualy modified your code... All you needed to do was to replace it in the appropriate Clicke event.

[iPrank]

coder500, my code isn't EXACTLY what you want. I have placed them randomly. Change the Left, Top properties according to your need.

Read the links I gave you and TextBox's Left, Right property help on MSDN. You'll find the way.

Tip : .Left of Next textbox is Previous TxtBox's .Left + Previous TxtBox's .Width

[coder500]

bruce your code is a step in the right direction but it is not putting the right number of boxes for instance... i put in the word coder and it only added one box...

[Bruce Fox]

I'll attach the frm, just click the Start button repeatidly.

[Bruce Fox]

bruce your code is a step in the right direction but it is not putting the right number of boxes for instance... i put in the word coder and it only added one box...

No probs,

Determine the length of the word (using Len()) and use that amount to generate the number of additional TextBox's...

[coder500]

where would i add the Len() in the code?

[Bruce Fox]

No offense, but I think you may want to start with something a little easier (than hangman), as this will become more complicated. You must have a solid grounding first

However, if you must persist; you never mentioned that the number of TextBox's was
related to the input word. Is that the case? Better yet provide a detailaled prase
of what you want to acheive.

[coder500]

my problem is.. i am doing this for a class... and i dont understand anything... but i can not drop the class cause my school wont let me...

[Bruce Fox]

This will add a TextBox, for each charcter of a word (entered into the txtWord TextBox):
Replace the existing Click Event........

Private Sub cmdInputWord_Click()
    Dim i As Integer
    Dim word As String
    Dim guess As String
    Dim intIdx As Integer
    Dim intCount As Integer
        
    word = txtWord.Text
    txtWord.Visible = False
    cmdInputWord.Visible = False
    
    txtWord.Text = UCase(word)
    'guess = txtLetter(0).Text CANGED TO:
    guess = txtLetter(txtLetter.Count - 1).Text
    
    'word = txtLetter(0).Index < ???
    
    intCount = Len(txtWord.Text)
    
    For intIdx = 1 To intCount - 1
        Load txtLetter(intIdx)
        txtLetter(intIdx).Top = txtLetter(0).Top
        txtLetter(intIdx).Left = txtLetter(intIdx - 1).Left + txtLetter(intIdx).Width
        txtLetter(intIdx).Text = vbNullString
        txtLetter(intIdx).Visible = True
    Next
 
End Sub

[coder500]

thanks for that... now i need to know how to make the txtguess field to work... and show the guesses in a pic box as well as make the correct guesses show up in the correct txtbox that was created by the code above

[Bruce Fox]

thanks for that... now i need to know how to make the txtguess field to work... and show the guesses in a pic box as well as make the correct guesses show up in the correct txtbox that was created by the code above

Hehe, now its time for some effort on your part
Give it a go, and if you get stuck just ask.
put your idea of how it should work on paper (flow diagram) and then try it with code.

[Bruce Fox]

Hint: The current 'word' variable need to be Public to that Form, so you can check against it for the words (letters) as they get entered

[coder500]

bruce thanks for all your help... i just dropped you a pm... it may be easier if we discuss this on MSN...if you have msn please pm me your address so we can talk... thanks

[Bruce Fox]

PM received. Don't have MSN here unfortunatly. However...... do a search on this Forum for HangMan as there a few examples, that may give you some ideas/methods etc.

Just outa curiosity, if you are doing this for school, why would you guys be given a task that is beyond the current competency level (not singling you out mind you).

[coder500]

bruce...we are on chapter 7 of the book... and this is not beond the current competency level... the problem is... I dont understand this stuff easily and as a result I am not about to do the assignments without getting help.. but my friend who usually helps me has been really busy lately with college and work so i can not get his help on this one... anyways.. i will look at some other threads.. and see what i comeup with...

ill post in a little while with my ideas... thanks again for all your help

[Bruce Fox]

Here (attached) is a version I did once when I was bored a while back in excell (using VBA) - may give you some ideas.

[coder500]

that version you posted wont run on my pc cause i have macros disabled...but... i think this thread will help me...

i know that i need to have counters for the wrong guesses and the correct guesses... as well as have that word stored... now i just need to figure out how to make the stuff print in the location i mentioned...if correct... the guess should show up in a picDisplay and the correct location in the txt fields... if incorrect then it should show up in a picDisplay and show the next body part of the man being hung...

give me 30 or so minutes to try to code this... and then ill post again..

thanks

[coder500]

Private Sub cmdGuess_Click()
Dim word As String
Dim Guess As String
Dim intRight As Integer
Dim intWrong As Integer
 
word = txtWord.Text
intWrong = 0
intRight = 0
 
Do
Guess = txtGuess.Text
If Len(Guess) <> 1 Then
MsgBox "You must enter one letter at a time!"
 
ElseIf InStr(word, Guess) = 0 Then
intWrong = intWrong + 1
lblWrong.Text = lblWrong.Text & strGuess
ElseIf InStr(strAnswer, strGuess) > 0 Then
intRight = intRight + 1
lblRight.Text = lblRight.Text & strGuess
End If
 
If intWrong = 1 Then
PicHead.Visible = True
ElseIf intWrong = 2 Then
PicBody.Visible = True
ElseIf intWrong = 3 Then
PicLeftArm.Visible = True
ElseIf intWrong = 4 Then
PicRightArm.Visible = True
ElseIf intWrong = 5 Then
PicLeftLeg.Visible = True
ElseIf intWrong = 6 Then
PicRightLeg.Visible = True
MsgBox "You Lose!"
End If
 
If intRight = Len(word) Then
MsgBox "You Win!"
End If
 
Loop While intWrong < 6 And intRight < Len(word)
End Sub

this is what i have... but i cant get it to work...

[coder500]

soft little bump

[coder500]

another soft little bump

[Bruce Fox]

Where is the code failing?

[coder500]

bruce... thanks again for all your amazing help... I was able to get that code working... and then my friend was able to find time to help me finish the rest of the stuff up.. thank you again for your time..

[Bruce Fox]

No problem

Good Luck with it all.