Hangman Problem 'Subscript out of range'

[ecchikinetic]

Heres the attachment, I can't seem to figure what the problem is.

[faulkner132]

You do not set a value for x in your call after you get the letter. You should pass in the adjusted value of the ascii char... something like:

26 - (Asc("Z") - Asc(Ucase(strGuess))) 'character value between 1 and 26

[ecchikinetic]

Originally Posted by faulkner132 You do not set a value for x in your call after you get the letter. You should pass in the adjusted value of the ascii char... something like: 26 - (Asc("Z") - Asc(Ucase(strGuess))) 'character value between 1 and 26

So where should I place that line?

[faulkner132]

On the line which says "Call checkLetter(x)", replace x with the code above.

[ecchikinetic]

Originally Posted by faulkner132 On the line which says "Call checkLetter(x)", replace x with the code above.

Ok I got it to work now thanks. Anyways I have another issue about shell game. This time the user gets a second guess to where the pearl is and also everytime I click to guess the pearl keeps getting randomize. Anyway heres the file.

[foolishone]

Haven't looked at the code yet but what is the problem exactly? Counting the clicks? Deteremining where they clicked?

^fo

EDIT: Is that file corrupt or is it me?

[faulkner132]

It's not corrupt, only the project file is in it.
ecchikinetic, there is no code included.

[ecchikinetic]

Sorry bout that, here you go. As for my problem I want the user to get 2 guesses to know where the pearl is but the problem is that everytime I click the shell it randomizes the pearl to switch even if you clicked all 3 shells. As well as for the 2nd user to either take his guess or pick another one.

[foolishone]

(I still can't download the thing...stupid file)

Couldn't you just put a variable in a form or image click event that just adds one to itself when the form/image was clicked on, and somewhere else get the value and if it is two (ie. the form/image was clicked twice), randomize and reset the variable to 0...if I understood you correctly. The even if you clicked all 3 shells loses me.

^fo

[ecchikinetic]

Heres the image file.

[faulkner132]

Everytime the user clicks a pearl, you are resetting the intShellWithPearl variable. Move this line to a different function.

[ecchikinetic]

Ok I seem to be getting somewhere now but I still don't know what's the command for limiting the number of clicks in the pearl before the inputbox pops up?

Option Explicit
Const strYes As String = "y"
Const strNo As String = "n"

Private Sub cmdDone_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Dim intIndex As Integer
    Randomize
    
    'Hide pearls at start of program
    For intIndex = imgPearls.LBound To imgPearls.UBound
        imgPearls(intIndex).Visible = False
    Next intIndex
End Sub

Private Sub imgShells_Click(index As Integer)
    Dim intShellWithPearl As Integer
    Dim intNumberGuess As Integer
    
    'Pick the shell that hides the pearl
    
    If intShellWithPearl = index And intShellWithPearl = Int((imgPearls.UBound - imgPearls.LBound + 1) * Rnd + imgPearls.LBound) Then
        MsgBox "You Win!"
        imgPearls(intShellWithPearl).Visible = True 'Show the pearl
    Else
        MsgBox "Try again!"
        imgPearls(intShellWithPearl).Visible = False
    End If


Call SecondChance(index)

End Sub

Sub SecondChance(index As Integer)
Dim intShellWithPearl As Integer
Dim strConfirmation As String

intShellWithPearl = Int((imgPearls.UBound - imgPearls.LBound + 1) * Rnd + imgPearls.LBound)

If intShellWithPearl = index Then
    imgPearls(intShellWithPearl).Visible = False
    strConfirmation = InputBox("Are you sure? ('y' to choose the shell and 'n' to select diffrent shell)", "Shell Game")
Else
    imgPearls(intShellWithPearl).Visible = False
    strConfirmation = InputBox("Are you sure? ('y' to choose the shell and 'n' to select diffrent shell)", "Shell Game")
End If
    
If strConfirmation = strYes And intShellWithPearl = index Then
    MsgBox "You Win!"
    imgPearls(intShellWithPearl).Visible = True 'Show the pearl
ElseIf strConfirmation = strNo Then
    Call Temp(index)
End If
End Sub

Sub Temp(index As Integer)
    Dim intShellWithPearl As Integer

    If intShellWithPearl = index And intShellWithPearl = Int((imgPearls.UBound - imgPearls.LBound + 1) * Rnd + imgPearls.LBound) Then
        MsgBox "You Win!"
        imgPearls(intShellWithPearl).Visible = True 'Show the pearl
    Else
        imgPearls(intShellWithPearl).Visible = False
    End If
End Sub

[faulkner132]

Just have a counter variable and increment it everytime the user clicks. Once the counter is equal to 2, fire your events.