[Release]HangMan V 1

Posts 1–15 of 21 · Page 1 of 2

tittle says it all.... it a 2 player hangman game.. 1 person enters the word then the other guy gueses.....lol....well here it is..

Hangman.rar MD5:8bd93c6a9ad1b24f653fe0a0cc5fac3d - VirSCAN.org Scanners did not find malware!
VirusTotal - Free Online Virus, Malware and URL Scanner

Oh and by the way here is the code...if i could make it better pls tell me how - ty

Code:

 Dim number As Integer
    Dim Numberofchar As Integer
    Dim letter(12) As Char
    Dim hangmanword As String

    Private Sub EnterWord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnterWord.Click
        Dim i As Integer
         hangmanword = StrConv(UserWord.Text, vbUpperCase)
                Numberofchar = Len(hangmanword)
                For i = 1 To Numberofchar
                    letter(i) = Mid(hangmanword, i, 1)
                Next
                Label1.Text = ""
                hangmanword = ""
                For i = 1 To Numberofchar
                    Label1.Text = Label1.Text & "_"
                    hangmanword = hangmanword & letter(i)
                    If i <> Numberofchar Then
                        Label1.Text = Label1.Text & " "
                        hangmanword = hangmanword & " "
                    End If
                Next
                ShowScreen2()
    End Sub
    Private Sub ShowScreen1()
        Btnredo.Hide()
        EnterWord.Show()
        UserWord.Show()
        Label1.Hide()
        BtnA.Hide()
        BtnB.Hide()
        BtnC.Hide()
        BtnD.Hide()
        BtnE.Hide()
        BtnF.Hide()
        BtnG.Hide()
        BtnH.Hide()
        BtnI.Hide()
        BtnJ.Hide()
        BtnK.Hide()
        BtnL.Hide()
        BtnM.Hide()
        BtnN.Hide()
        BtnO.Hide()
        BtnP.Hide()
        BtnQ.Hide()
        BtnR.Hide()
        BtnS.Hide()
        BtnT.Hide()
        BtnU.Hide()
        BtnV.Hide()
        BtnW.Hide()
        BtnX.Hide()
        BtnY.Hide()
        BtnZ.Hide()
        HangmanPic.Hide()
    End Sub
    Private Sub ShowScreen2()
        EnterWord.Hide()
        UserWord.Hide()
        Label1.Show()
        BtnA.Show()
        BtnB.Show()
        BtnC.Show()
        BtnD.Show()
        BtnE.Show()
        BtnF.Show()
        BtnG.Show()
        BtnH.Show()
        BtnI.Show()
        BtnJ.Show()
        BtnK.Show()
        BtnL.Show()
        BtnM.Show()
        BtnN.Show()
        BtnO.Show()
        BtnP.Show()
        BtnQ.Show()
        BtnR.Show()
        BtnS.Show()
        BtnT.Show()
        BtnU.Show()
        BtnV.Show()
        BtnW.Show()
        BtnX.Show()
        BtnY.Show()
        BtnZ.Show()
        HangmanPic.Show()
    End Sub
    Private Sub Letterclicked(ByVal clickedletter As Char)
        Dim GuessedCorrectly As Boolean
        Dim position As Integer
        Dim i As Integer

        GuessedCorrectly = False

        position = 1
        For i = 1 To Numberofchar
            If clickedletter = letter(i) Then
                Label1.Text = Mid(Label1.Text, 1, position - 1) & letter(i) & Mid(Label1.Text, position + 1, ((Numberofchar * 2) - 1) - position)
                GuessedCorrectly = True
            End If
            position = position + 2
        Next

        If GuessedCorrectly Then
            If Label1.Text = hangmanword Then
                MsgBox("You Win!")
                Btnredo.Show()
            End If
        Else
            number = number + 1
            Select Case number
                Case 1 : HangmanPic.Image = Image.FromFile("c:/hangman1.jpg")
                Case 2 : HangmanPic.Image = Image.FromFile("c:/Hangman2.jpg")


            End Select
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AcceptButton = EnterWord
    End Sub
    Private Sub BtnA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnA.Click
        Letterclicked("A")
    End Sub
    Private Sub BtnE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnE.Click
        Letterclicked("E")
    End Sub

    Private Sub BtnI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnI.Click
        Letterclicked("I")
    End Sub

    Private Sub BtnO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnO.Click
        Letterclicked("O")
    End Sub

    Private Sub BtnU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnU.Click
        Letterclicked("U")
    End Sub

    Private Sub BtnY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnY.Click
        Letterclicked("Y")
    End Sub

    Private Sub BtnB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnB.Click
        Letterclicked("B")
    End Sub

    Private Sub BtnC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnC.Click
        Letterclicked("C")
    End Sub

    Private Sub BtnD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnD.Click
        Letterclicked("D")
    End Sub

    Private Sub BtnF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnF.Click
        Letterclicked("F")
    End Sub

    Private Sub BtnG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnG.Click
        Letterclicked("G")
    End Sub

    Private Sub BtnH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnH.Click
        Letterclicked("H")
    End Sub

    Private Sub BtnJ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnJ.Click
        Letterclicked("J")
    End Sub

    Private Sub BtnK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnK.Click
        Letterclicked("K")
    End Sub

    Private Sub BtnL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnL.Click
        Letterclicked("L")
    End Sub

    Private Sub BtnM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnM.Click
        Letterclicked("M")
    End Sub

    Private Sub BtnN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnN.Click
        Letterclicked("N")
    End Sub

    Private Sub BtnP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnP.Click
        Letterclicked("P")
    End Sub

    Private Sub BtnQ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnQ.Click
        Letterclicked("Q")
    End Sub

    Private Sub BtnR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnR.Click
        Letterclicked("R")
    End Sub

    Private Sub BtnS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnS.Click
        Letterclicked("S")
    End Sub

    Private Sub BtnT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnT.Click
        Letterclicked("T")
    End Sub

    Private Sub BtnV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnV.Click
        Letterclicked("V")
    End Sub

    Private Sub BtnW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnW.Click
        Letterclicked("W")
    End Sub

    Private Sub BtnX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnX.Click
        Letterclicked("X")
    End Sub

    Private Sub BtnZ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnZ.Click
        Letterclicked("Z")
    End Sub

    Private Sub Btnredo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnredo.Click
        ShowScreen1()
    End Sub
End Class

Hangman.rarattachment deleted · 14 downloads before removal

nice and simple.

Imma reupload your pictures in a sec

EDIT1 :

EDIT2 :

^^^^

Thank you so much.. idk y they dont work for me

Fixed Images Issue using Spectras Images.
However, You issue is here.

Your two images.
[ IMG ]h ttp://img196.imageshack.us/i/87009776.png[/IMG]
[ IMG ]h ttp://img13.imageshack.us/i/45827517.png[/IMG]

What you should do.

[ IMG ]h ttp://img196.imageshack.us/img196/2309/87009776.png][/IMG]

Your images above are actually paths , not the location of the png

Oh, and Approved. Simple, but good release.

/thank you
y i there a message length req??

nice Try adding them as a reference instead of calling for them in C drive

Originally Posted by willrulz188

nice Try adding them as a reference instead of calling for them in C drive

sry if I sound nooby.. but im new to this coding stuff - how might i go about doing that........all i know about vb and coding in gen is about 3/4 of VB 2008 for dummys lol

Originally Posted by bo76

sry if I sound nooby.. but im new to this coding stuff - how might i go about doing that........all i know about vb and coding in gen is about 3/4 of VB 2008 for dummys lol

We all need help at one point or another

Project>(project name) Properties>Resources>(in the drop down menu) Add resource>Add Existing File>(select file)

Then to use it my.resources.filename = picturebox1.image or what ever

Alrighty, I'll post some code suggestions if you don't mind

Firstly, at the very least add your buttons to a list

ay, will make grouped events sooooo much easier.

Firstly, make a global list:

Code:

Private buttonList As New List(Of Button)

Next, on your form load event before you do anything:

Code:

buttonList.AddRange(From b As Button In Me.Controls.OfType(Of Button) Where b.Name Like "Btn?" Select b)

Now, it's going to be a hell of a lot easier to access all your "Letter" buttons.

Next step, add this sub.

Code:

Private Sub Buttons_Click (ByVal sender As Object, ByVal e As EventArgs)
    Dim b As Button = sender
    Letterclicked(b.Text)
End Sub

Then going back to Form_Load, add this after the step where we added to the buttonList:

Code:

For Each b As Button In buttonList
    AddHandler b.Click, AddressOf Buttons_Click
Next

So now all the click events for your "Letter" buttons will fire back to the Buttons_Click event we created earlier!

So now you can delete ALL of this:

Code:

    Private Sub BtnA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnA.Click
        Letterclicked("A")
    End Sub
    Private Sub BtnE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnE.Click
        Letterclicked("E")
    End Sub

    Private Sub BtnI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnI.Click
        Letterclicked("I")
    End Sub

    Private Sub BtnO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnO.Click
        Letterclicked("O")
    End Sub

    Private Sub BtnU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnU.Click
        Letterclicked("U")
    End Sub

    Private Sub BtnY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnY.Click
        Letterclicked("Y")
    End Sub

    Private Sub BtnB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnB.Click
        Letterclicked("B")
    End Sub

    Private Sub BtnC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnC.Click
        Letterclicked("C")
    End Sub

    Private Sub BtnD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnD.Click
        Letterclicked("D")
    End Sub

    Private Sub BtnF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnF.Click
        Letterclicked("F")
    End Sub

    Private Sub BtnG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnG.Click
        Letterclicked("G")
    End Sub

    Private Sub BtnH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnH.Click
        Letterclicked("H")
    End Sub

    Private Sub BtnJ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnJ.Click
        Letterclicked("J")
    End Sub

    Private Sub BtnK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnK.Click
        Letterclicked("K")
    End Sub

    Private Sub BtnL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnL.Click
        Letterclicked("L")
    End Sub

    Private Sub BtnM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnM.Click
        Letterclicked("M")
    End Sub

    Private Sub BtnN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnN.Click
        Letterclicked("N")
    End Sub

    Private Sub BtnP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnP.Click
        Letterclicked("P")
    End Sub

    Private Sub BtnQ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnQ.Click
        Letterclicked("Q")
    End Sub

    Private Sub BtnR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnR.Click
        Letterclicked("R")
    End Sub

    Private Sub BtnS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnS.Click
        Letterclicked("S")
    End Sub

    Private Sub BtnT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnT.Click
        Letterclicked("T")
    End Sub

    Private Sub BtnV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnV.Click
        Letterclicked("V")
    End Sub

    Private Sub BtnW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnW.Click
        Letterclicked("W")
    End Sub

    Private Sub BtnX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnX.Click
        Letterclicked("X")
    End Sub

    Private Sub BtnZ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnZ.Click
        Letterclicked("Z")
    End Sub

Next step (That's right, I'm not done yet!)

Code:

    Private Sub ShowScreen2()
        EnterWord.Hide()
        UserWord.Hide()
        Label1.Show()
        BtnA.Show()
        BtnB.Show()
        BtnC.Show()
        BtnD.Show()
        BtnE.Show()
        BtnF.Show()
        BtnG.Show()
        BtnH.Show()
        BtnI.Show()
        BtnJ.Show()
        BtnK.Show()
        BtnL.Show()
        BtnM.Show()
        BtnN.Show()
        BtnO.Show()
        BtnP.Show()
        BtnQ.Show()
        BtnR.Show()
        BtnS.Show()
        BtnT.Show()
        BtnU.Show()
        BtnV.Show()
        BtnW.Show()
        BtnX.Show()
        BtnY.Show()
        BtnZ.Show()
        HangmanPic.Show()
    End Sub

This is ugly, yes? This is the reason I created the button list, so we can loop through all of the "letter" buttons and do something with them! In this case, you can shorten the above to this:

Code:

    Private Sub ShowScreen2()
        EnterWord.Hide()
        UserWord.Hide()
        Label1.Show()
        For each b As Button In buttonList
            b.Show
        Next
        HangmanPic.Show()
    End Sub

And you can do exactly the same with the ShowScreen1 method where you hide all the buttons.

A general note for people coding like this at the moment. Always remember, you can create a list or array to hold large amounts of any control that all have a similar behavior in the program (hopefully you can see that all the letter buttons were fairly identical in their purpose and use on the form, so grouping them all together was a good idea)

Anyway, nice program, I was just pointing out some ways to improve your coding

Originally Posted by bo76

sry if I sound nooby.. but im new to this coding stuff - how might i go about doing that........all i know about vb and coding in gen is about 3/4 of VB 2008 for dummys lol

It's not nooby :P

First go to project -> xxxxx Properties (xxxxx will be the name of your project)

Then, go to the resources tab and click the little drop down arrow next to "Add Resources". Select "Add existing file..." and then browse for your image. By default VB will convert any known image formats to a bitmap. Now that you have it in resources you can simply use it as an image.

Handmanpic.Image = My.Resources.ResourceName

Line that.