. , , ,

,,,

"" — ,


, 2003


 

1. .

2. .

3.

4. .

5. -

6. -

7.

8.

9.


1.

. , Counter-Strike, Need for Speed, Quake. . , , , , , , , , . .


2.

Visual Basic - .

 

3.

Form, TextBox , CommandButton, Line, Image.

Form

. Ÿ . , . Add Form, , .

CommandButton

, , Click(). , , . , . Enabled , . True False. , Top, , , Left, , .

TextBox

, . , , , . , . Top, Left, CommandButton; ForeColor, .

Line

, . BorderColor , BorderStyle , BorderWidth , Visible .

Image

. bmp, wmf, ico, gif.

: Image, Image . Image .

, IF CASE, WHILE FOR.

IF .

CASE .

WHILE , , .

. FOR . OpenFor .


4.

. . , . . , , .

, . . , , . , . , . , , . , , .

.1.

. 1.


5. -


6. -



7.

Private letter As String, word As String

Private Flag As Boolean, k As Integer

Private i As Integer, j As Integer

Private n As Integer, Counter As Integer

Private h As Integer

Dim words() As String

Private Sub Cmdexit_Click()

End

End Sub

Private Sub ExitMenu_Click()

End

End Sub

Private Sub Form_Load()

Shape1.Visible = False

For i = 1 To 7

Txt(i).Visible = False

Next i

cmdVvod.Enabled = False

Randomize

a = Int(Rnd * 2)

Path = App.Path & "\words.txt"

Open Path For Input As #1

Do While Not EOF(1)

Line Input #1, s

n = n + 1

Loop

Close #1

ReDim words(n - 1)

n = 0

Open Path For Input As #1

Do While Not EOF(1)

Line Input #1, words(n)

n = n + 1

Loop

Close #1

End Sub

Private Sub Cmdstart_Click()

Counter = 0

Randomize

For i = 0 To 10

Lin(i).Visible = False

Next i

Shape1.Visible = False

shpBody.Visible = False

txtb.Enabled = True

cmdVvod.Enabled = False

k = Int(Rnd * n)

word = words(k)

Txt(0).Text = Left(word, 1)

Txt(0).ForeColor = vbBlack

For i = 1 To Len(word) - 1

Txt(i).ForeColor = vbWhite

Txt(i).Text = Mid(word, i + 1, 1)

Txt(i).Visible = False

Next i

Txt(0).Visible = True

End Sub

Private Sub cmdVvod_Click()

letter = txtb.Text

Flag = False

For i = 0 To Len(word) - 1

If Txt(i).Text = letter Then

Txt(i).ForeColor = vbBlack

Txt(i).Visible = True

Flag = True

End If

Next i

txtb.Text = ""

If Flag = False Then

Select Case Counter

Case Is = 0

Lin(0).Visible = True

Lin(1).Visible = True

Lin(2).Visible = True

Counter = Counter + 1

Case Is = 1

Lin(3).Visible = True

Counter = Counter + 1

Case Is = 2

Lin(4).Visible = True

Lin(5).Visible = True

Lin(8).Visible = True

Lin(9).Visible = True

Lin(10).Visible = True

Lin(6).Visible = True

Lin(7).Visible = True

shpBody.Visible = True

Shape1.Visible = True

Counter = Counter + 1

Case Is = 3

Lin(8).Visible = False

Lin(9).Visible = False

Lin(10).Visible = False

MsgBox " !"

txtb.Enabled = False

cmdVvod.Enabled = False

End Select

txtb.Text = ""

End If

End Sub

Private Sub MenuHelp_Click()

HelpForm.Show

End Sub

Private Sub txtb_Change()

If txtb.Text = "" Then

cmdVvod.Enabled = False

Else cmdVvod.Enabled = True

End If

j = 0

For i = 0 To Len(word) - 1

If Txt(i).ForeColor = vbBlack Then

j = j + 1

If j = Len(word) Then

MsgBox " !"

Exit For

End If

End If

Next i

End Sub


8.

Visual Basic, - , . , , , .


9.

1.   .., .. . - : , , 1996.

2.   .., ... . : , , 2001.

, 2003 1. . 2. . 3.

 

 

 

! , , , .
. , :