este es mi primer programa en visuaql basic, pero no me va... si alguen esta interesado puede mirarselo pero me da error
me da error en el
- dice que en el procedimiento no coincide en la descripción del envento o el procedimiento que tiene el mismo nombre :
Option Explicit
Dim X As Integer
Dim O As Integer
Dim mpos As Boolean
Dim mMap(0 To 8) As String
Private Sub command1_click()
Dim i As Integer
For i = O To Text1.uboun
Next i
Call nueva_jugada
End Sub
Private comman2_click()
End
End Sub
Private Sub form_load()
Call nueva_jugada
mpos = True
End Sub
Private Sub form_resize()
Label1.Move 0, (Me.ScaleHeight - Label1.Height), Me.ScaleWidth
Label2.Move 0, 0, 270, (Me.ScaleHeight - Label1.Height)
Label3.Move (Me.ScaleWidth - Label3.Width), 0, 270, (Me.ScaleHeight - Label1.Height)
Label4.Move 0, 0, Me.ScaleWidth, 270
End Sub
*Private Sub Text1_Click(Index As Integer)
If mMap(Index) = "X" Or mMap(Index) = "O" Then
Beep
Exit Sub
Else
If mpos = True Then
Text1(Index).Text = "X"
mMap(Index) = "X"
'Debug.Print "[" & Index & "] = " & mMap(Index)
mpos = False
Else
Text1(Index).Text = "O"
mMap(Index) = "O"
'Debug.Print "[" & Index & "] = " & mMap(Index)
mpos = True
End If
End If
Call Chequear_Ganad
as
Call Chequear_Jugad
as(Index)
End Sub
Private Sub chaquear_jugad
as(ByVal iPos As Integer)
If mMap(iPos) = "X" Then
X = X + 1
ElseIf mMap(iPos) = "O" Then
O = O + 1
End If
If (X + O) = 9 Then
MsgBar "No hay ganadores...!"
Call nueva_jugada
End If
End Sub
Private Sub nueva_jugada()
Dim i As Integer
For i = 0 To Text1.uboun
Text1(i).Text = ""
mMap(i) = ""
X = 0
O = 0
End Sub
Private Sub MsgBar(ByVal Msg As String)
Label1.Caption = Msg
Label4.Caption = Msg
End Sub
Private Sub Chequear_Ganad
as()
Dim sCap As String
Dim i As Integer
'
'[3] [4] [5]
'[6] [7] [8]
If mMap(0) = "X" And mMap(1) = "X" And mMap(2) = "X" Then
ApplyColor vbRed, vbWhite, 0, 1, 2
sCap = "Las X ganan!"
ElseIf mMap(3) = "X" And mMap(4) = "X" And mMap(5) = "X" Then
ApplyColor vbRed, vbWhite, 3, 4, 5
sCap = "Las X ganan!"
ElseIf mMap(6) = "X" And mMap(7) = "X" And mMap(8) = "X" Then
ApplyColor vbRed, vbWhite, 6, 7, 8
sCap = "Las X ganan!"
ElseIf mMap(0) = "X" And mMap(3) = "X" And mMap(6) = "X" Then
ApplyColor vbRed, vbWhite, 0, 3, 6
sCap = "Las X ganan!"
ElseIf mMap(1) = "X" And mMap(4) = "X" And mMap(7) = "X" Then
ApplyColor vbRed, vbWhite, 1, 4, 7
sCap = "Las X ganan!"
ElseIf mMap(2) = "X" And mMap(5) = "X" And mMap(8) = "X" Then
ApplyColor vbRed, vbWhite, 2, 5, 8
sCap = "Las X ganan!"
ElseIf mMap(0) = "X" And mMap(4) = "X" And mMap(8) = "X" Then
ApplyColor vbRed, vbWhite, 0, 4, 8
sCap = "Las X ganan!"
ElseIf mMap(2) = "X" And mMap(4) = "X" And mMap(6) = "X" Then
ApplyColor vbRed, vbWhite, 2, 4, 6
sCap = "Las X ganan!"
End If
If mMap(0) = "O" And mMap(1) = "O" And mMap(2) = "O" Then
sCap = "Las O ganan!"
ElseIf mMap(3) = "O" And mMap(4) = "O" And mMap(5) = "O" Then
sCap = "Las O ganan!"
ElseIf mMap(6) = "O" And mMap(7) = "O" And mMap(8) = "O" Then
sCap = "Las O ganan!"
ElseIf mMap(0) = "O" And mMap(3) = "O" And mMap(6) = "O" Then
sCap = "Las O ganan!"
ElseIf mMap(1) = "O" And mMap(4) = "O" And mMap(7) = "O" Then
sCap = "Las O ganan!"
ElseIf mMap(2) = "O" And mMap(5) = "O" And mMap(8) = "O" Then
sCap = "Las O ganan!"
ElseIf mMap(0) = "O" And mMap(4) = "O" And mMap(8) = "O" Then
sCap = "Las O ganan!"
ElseIf mMap(2) = "O" And mMap(4) = "O" And mMap(6) = "O" Then
sCap = "Las O ganan!"
End If
If Len(sCap) > 0 Then
MsgBar sCap
For i = 0 To Text1.UBound
Text1(i).Enabled = False
Next i
End If
End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case KeyAscii
Case Asc("O") Or Asc("X")
'n.h.n.
Case Else
Beep
MsgBar "Letra no válida!"
KeyAscii = 0
End Select
End Sub
Private Sub ApplyColor(ByVal lpStarColor As Long, _
ByVal lpEndingColor As Long, _
ByVal lpPos1 As Integer, _
ByVal lpPos2 As Integer, _
ByVal lpPos3 As Integer)
Text1(lpPos1).BackColor = lpStarColor
Text1(lpPos2).BackColor = lpStarColor
Text1(lpPos3).BackColor = lpStarColor
Text1(lpPos1).ForeColor = lpEndingColor
Text1(lpPos2).ForeColor = lpEndingColor
Text1(lpPos3).ForeColor = lpEndingColor
End Sub
gracias por la ayuda
soy un novato
:
Autor