El algoritmo vb que determina ganar o perder en backgammon.
Primero, necesitamos determinar el número de casillas en el tablero de ajedrez, como 10*10
Luego, declaramos dos matrices Hei(1 a 10*10), Bai(1 A 10 *10) representa las piezas de ajedrez que ambas partes ya han jugado y luego crea una matriz de control de 10*10 correspondiente a ellas. Cuando comienza el juego, todos los elementos de las dos matrices están vacíos. Cuando el mouse hace clic en un control, se cambiará el valor del elemento de la matriz correspondiente, que es la siguiente pieza de ajedrez.
Finalmente, para determinar ganar o perder, también necesitamos declarar una matriz bidimensional HW (1 a 10, 1 a 10) para registrar los valores de índice de los dos primeros. matrices, para que sea fácil distinguir las dos matrices. Las coordenadas de estado de fila y columna de los elementos en el elemento facilitan determinar si se gana o se pierde.
'Crear un nuevo proyecto
'Agregar un botón comando1
'Agregar una etiqueta etiqueta1 y establecer el atributo de índice en 0
'Pegue el siguiente código en la ventana de edición de código del formulario
'Ejecute f5 y haga clic en el botón para jugar al ajedrez
Dim Ws As Long 'El ancho del tablero de ajedrez (es decir, en un tablero de ajedrez ¿Cuántas piezas de ajedrez se pueden jugar en un tablero de ajedrez?
'¿Cuántas piezas de ajedrez se pueden jugar en un tablero de ajedrez? Número de filas y columnas en el tablero
Dim HBGo As Boolean ' Cuando las negras juegan al ajedrez
Dim GameStart As Boolean
Private Sub Form_Load()
Dim i Mientras, j Mientras, w Mientras, h Mientras, l Mientras
Init 'Inicialización
'Generar diseño de tablero de ajedrez
'label1.Left = 0
h = 100
l = 0
Para i = 1 a Hs
h = h 100 Etiqueta1(0).Altura
w = 100
Para j = 1 a Ws
w = w 100 Etiqueta1(0).Ancho
l = 0
Para i = 1 a Hs
h = h 100 Label1(0).Height
w = 100
Para j = 1 a Ws
w = w 100 Etiqueta1(0).Width