كود الهنق مان بس مايضبط مدري ليه !

السلام عليكم ورحمة الله ..

انا عندي مشروع وهو لعبة الهنق مان .. اشتغل على اصدار 2005 من الفيجوال بيسك ..

جربت ابتدي المشروع وهو اني اسوي الكود الاساااسي للهنق مان واجربه على كلمه انا حاطتها بالسستم ..بس انه مايضبط معي ليش مادري ..

اذا يدخل حرف صحيح يطلع له الكلمه كلها ..

واذا يدخل غلط راح يطلع له رسمة الهنق مان كلها !!!

لما حاولت اعمل تريس للبرنامج احس انه منطقي كذا والمفروض شكل الرن يكون مختلف عن اللي قاعد يصير فعلا ..

هذا كود البرنامج وياليت لو القى احد يساعدني ..ويقولي ايش الخطأ حقي ..

Public Class Form1

Dim strSecretWord As String, intSecretWordLength As Integer

Dim intNumberOfGuesses As Integer

Dim strGuess As String, strWordGuessedSoFar As String

Dim intLetterPos As Integer, LetterPosNum As Integer

Dim i As Integer

Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles startPlay.Click

strSecretWord = "computer"

intSecretWordLength = Len(strSecretWord)

For i = 1 To intSecretWordLength

lblword.Text &= "*"

Next

intNumberOfGuesses = 0

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

strGuess = textbox1.Text

For intLetterPos = 1 To intSecretWordLength

LetterPosNum = InStr(strSecretWord, strGuess)

If LetterPosNum <> 0 Then

lblword.Text = strSecretWord(intLetterPos)

Else

'intNumberOfGuesses += 1

If intNumberOfGuesses = 1 Then lineRope.Visible = True

If intNumberOfGuesses = 2 Then shpHead.Visible = True

If intNumberOfGuesses = 3 Then linBody.Visible = True

If intNumberOfGuesses = 4 Then linLeftArm.Visible = True

If intNumberOfGuesses = 5 Then linRightArm.Visible = True

If intNumberOfGuesses = 6 Then linLeftLeg.Visible = True

If intNumberOfGuesses = 7 Then linRightLeg.Visible = True

If intNumberOfGuesses = 8 Then lineHang.Visible = True

End If

Next

End Sub

End Class

ياليت احد يقدر يفيدني .. :unsure:

تحياتي ..