Cómo usar vb para crear un jugador conjunto simple para jugar backgammon

'Public Piece() As Integer' declara una matriz de variables de piezas de ajedrez, donde 0 indica que la posición está libre, 1 indica el jugador 1 y 2 indica el jugador 2.

Bandera pública como variable de ajedrez Byte, que indica quién debe jugar al ajedrez, su valor es el mismo que la variable de ajedrez.

Coordenadas horizontales y verticales 'Public X%, Y%'

número de juez de función pública (ByRef Piece() es un número entero, ByVal x volumen %, ByVal YFluctuate%, ByVal Flag es Byte) es un número entero

Usar * * * líneas (continuas) para determinar el número máximo de piezas de ajedrez es un algoritmo eficiente.

Dimensión i%, j%, valor %: i = X: j = Y: valor = 0

Hacer

Si Pieza(i, j) & lt;& gtLuego salga Do

' I = I+x volumen:j = j+YFluctuate 'Agrega los cambios en las dos direcciones respectivamente, lo mismo a continuación.

Valor = valor + 1

Ciclo hasta i<1 o i>15 o j<1 o j>15

i = X: j = Y

Hacer

Si pieza(i,j)<> Entonces salga Do

I = fluctuación I-x: j = fluctuación j-y

Valor = Valor + 1

Ciclo hasta i & lt1 o i & gt15 o j & lt1 o j & gt15

JudgeNum = Valor-1 'Restar 1, nuevamente Cálculo, representado por el propio punto de caída.

Función final

Esta es la función de juicio de victoria cuando jugué backgammon en mi primer año.

El valor de retorno de la función anterior es la victoria del mercado de 5 horas.

Simplemente escriba una declaración de temporizador y habrá muchas formas de implementarla. Por ejemplo, puede configurar varias variables y usar declaraciones if para juzgar.

Simplemente abre tus ideas de programación, depende de la experiencia. El proceso de aprendizaje es el proceso de abrir tu mente y puedes comunicarte nuevamente si es necesario.