Другие языки программирования и технологии
Нужна помощь по Visual Basic
Как создать игру "крестики-нолики" в Visual Basic или смешную рожицу, попеременно моргающую глазами.
' odin iz variantov
'Sozday massiv knopok Command1
' index ot 0 do 8
'razmeshay takimobazom
'0 1 2
'3 4 5
'6 7 8
' votivse
Private lastisMe As Boolean '
Private Function Test(sOX As String) As Boolean
Dim tempTest As Boolean
tempTest = True
For i = 0 To 2
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True
For i = 3 To 5
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True
For i = 6 To 8
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True
For i = 0 To 6 Step 3
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True
For i = 1 To 7 Step 3
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True
For i = 2 To 8 Step 3
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True
For i = 0 To 8 Step 8
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True
For i = 2 To 6 Step 2
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
endTest:
If tempTest Then
MsgBox sOX & " is winner!"
End If
Test = tempTest
End Function
Private Sub Command1_Click(Index As Integer)
Dim Sym As String
If lastisMe Then
Sym = "X"
Else
Sym = "O"
End If
Command1(Index).Caption = Sym
If Test(Sym) Then
If (MsgBox("Game is over. Would yuo like start again?", vbYesNo) = 6) Then
Form_Load
Else
End
End If
End If
lastisMe = Not lastisMe
End Sub
Private Sub Form_Load()
For Each ctlBTN In Controls
ctlBTN .Caption = ""
Next
End Sub
'Sozday massiv knopok Command1
' index ot 0 do 8
'razmeshay takimobazom
'0 1 2
'3 4 5
'6 7 8
' votivse
Private lastisMe As Boolean '
Private Function Test(sOX As String) As Boolean
Dim tempTest As Boolean
tempTest = True
For i = 0 To 2
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True
For i = 3 To 5
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True
For i = 6 To 8
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True
For i = 0 To 6 Step 3
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True
For i = 1 To 7 Step 3
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True
For i = 2 To 8 Step 3
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True
For i = 0 To 8 Step 8
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
If tempTest Then
GoTo endTest
End If
tempTest = True
For i = 2 To 6 Step 2
tempTest = tempTest And (Command1(i).Caption = sOX)
Next i
endTest:
If tempTest Then
MsgBox sOX & " is winner!"
End If
Test = tempTest
End Function
Private Sub Command1_Click(Index As Integer)
Dim Sym As String
If lastisMe Then
Sym = "X"
Else
Sym = "O"
End If
Command1(Index).Caption = Sym
If Test(Sym) Then
If (MsgBox("Game is over. Would yuo like start again?", vbYesNo) = 6) Then
Form_Load
Else
End
End If
End If
lastisMe = Not lastisMe
End Sub
Private Sub Form_Load()
For Each ctlBTN In Controls
ctlBTN .Caption = ""
Next
End Sub
Напишите адрес. Вышлю книгу.
Похожие вопросы
- Моему сыну (14 лет) порекомендовали учить БЕЙСИК, с чего начать, и нужен ли ему visual basic 6.0 ???
- Продаю программу с исходниками на Visual Basic 2008 за 50 руб.
- как можно удалить темп файлы с помощью visual basic. . как можно удалить темп файлы с помощью visual basic
- Как программно отправить письмо на E-mail с помощью Visual Basic?
- Подойдет ли самоучитель по Visual Basic .NET для освоения языка Basic, человеку не понимающему в программировании?
- Visual Basic или C#
- Вопрос по Visual Basic! Очень нужна ваша помощь! Внутри (+)
- visual basic 6
- visual basic 2008
- Программа на Microsoft Visual Basic 2008