Código fuente de ajedrez chino VB

¿Estás entregando tu tarea? ¿Quieres ser original? Puede que haya mucha gente online, pero todavía no he publicado mi trabajo, jaja. No puedo publicar todo el contenido aquí, pero puedo escribir un párrafo para que lo leas. Si crees que está bien, pídemelo. Es completamente gratis. Si puedo ayudarte, sería lo mejor.

Publica la parte sobre guardar el juego y leerlo, puedes echarle un vistazo primero:

Rem Read Game

Private Sub mnuRead_Click()

Dim s como cadena, i como entero, t

If Dir(App.Path amp; "\cchess."\cchess.che") = "" Then MsgBox "No hay ¡Archivo del juego de ajedrez para leer! ¡Primero guarda el juego! ", , "Ajedrez chino": Salga de Sub

Abra App.Path y "\ccess.che" para la entrada como n.° 1

Entrada n.° 1, s

Cerrar #1

s = Reemplazar(s, vbCrLf, "")

s = Recortar(s)

t = Dividir(s, " ")

If UBound(t) lt;gt; 89 Then MsgBox "¡El archivo del juego ha sido dañado! ¡Guarda el juego nuevamente! ", "Ajedrez chino": Salir Sub

Para i = 0 a 89

a(i) = Val(t(i))

Siguiente

MsgBox "¡El archivo del juego se ha leído correctamente!, "Ajedrez chino"

End Sub

Rem Save Chess Game

Sub privado mnuSave_Click()

Atenuar s como cadena, i como entero

s = ""

Para i = 0 a 89

s = s amp; " amp; a(i)

Siguiente

s = Trim(s)

Abra App.Path amp; "\ccess.che" para la salida como #1

Imprimir #1, s;

Cerrar #1

MsgBox "El juego actual se ha guardado correctamente, "¡Chino!" Ajedrez"., "Ajedrez Chino"

End Sub