Cómo escribir una serpiente en código

Private Sub Form_KeyDown(KeyCode es un número entero, Shift es un número entero)

Dim C tiene la misma longitud

Si el código de clave = 27, finaliza

si código clave = 32, entonces

si timer1. Habilitado = Verdadero Entonces

Temporizador1. habilitado = falso

Etiqueta1. Visible = Verdadero

Otro

Temporizador1. habilitado=Verdadero

Etiqueta1. Visible = Falso

Terminará si...

Terminará si...

C = Sin consolidar (ella)

Si GFangXiang = Verdadero, luego salga de Sub

Seleccione el código clave del caso

Caso 37

Si ella (C). F = 2, luego salga de Sub

her (C). F = 0

GFangXiang = True

Caso 38

Si ella (C). F = 3, luego salga de Sub

her (C). F = 1

GFangXiang = True

Caso 39

Si ella (C). F = 0, luego salga de Sub

her (C). F = 2

GFangXiang = True

Caso 40

Si ella (C). F = 1 y luego salga de Sub

her (C). F = 3

GFangXiang = True

Finalizar selección

Finalizar conector

Privado subform_Load()

Yo . AutoRedraw = Verdadero

i. color de fondo = & ampHC000 & amp

i. Color de relleno = 255

i. FillStyle = 0

i. ancho de escala = 24

i. Altura de escala = 24

i. WindowState = 2

Establecer temporizador 1 = Control. Add("VB.Timer", "Timer1")

Establecer Etiqueta1 = Control. Add("VB. Etiqueta", "Etiqueta1")

Etiqueta1. Tamaño automático = Verdadero

Etiqueta1. Estilo de fondo = 0

Etiqueta1 = "Pausa"

Etiqueta1. Color frontal = RGB(255, 255, 0)

Etiqueta1. FontSize = 50

Chu Shihua

Conector final

Subform_Resize privado()

Ir a 1 en caso de error:

Conmigo

Si. WindowState & lt& gtentonces 1

. Cls

. ModoEscala = 3

HWB =. Altura de escala/. Ancho de marca

. ancho de escala = 24

. Altura de escala = 24

Etiqueta1. Mover (i.ScaleWidth - Ancho de Label1)/2, (i.ScaleHeight - Alto de Label1)/2

Pintar

i.

Línea (X, Y)-(X + 1, Y + 1), RGB (255, 255, 0), BF

Terminará si...

Termina con ...

1:

Conector final

Subtemporizador privado 1_Timer()

Dim C tiene la misma longitud, I tiene la misma longitud

Vaya a 2 en caso de error:

Chuqing

C = Sin consolidar (Ella)

Seleccione el caso Ella ( DO). F

Caso 0

Si el dealer (ella (C). X - 1, ella (C). entonces Y) = 2

C = C + 1

ReDim Preservar Ella(C)

Ella(C). F = ella(C - 1). Para

Ella (C). X = ella(C - 1). X - 1

Ella (C). Y = ella(C - 1). Y

Zen Sheng Quince

Ir a 1:

ElseIf Zhuang Tai(ella(C).X - 1,ella(C).Y) = 1

Pase a 2:

Terminará si...

Caso 1

Si el banquero (ella (C) . x, Ella(C). Entonces Y - 1) = 2

C = C + 1

ReDim Preservar Ella(C)

Ella(C). ). F = ella(C - 1). Para

Ella (C). X = ella(C - 1). X

Ella (C). Y = ella(C - 1). Y - 1

Zen Sheng Quince

Ir a 1:

De lo contrario, si Zhuang Tai (ella (C). x, ella (C). Entonces Y - 1) = 1

Pase a 2:

Terminará si...

Caso 2

Si el dealer (ella (C). F = ella(C - 1). Para

Ella (C). X = ella(C - 1). X + 1

Ella (C). Y = ella(C - 1). Y

Zen Sheng Quince

Ir a 1:

ElseIf Zhuang Tai(ella(C).X+1,ella(C).Y) = 1

Pase a 2:

Terminará si...

Caso 3

Si el dealer (ella (C) . x, Ella(C). Entonces Y + 1) = 2

C = C + 1

ReDim Preservar Ella(C)

Ella(C). ). F = ella(C - 1). Para

Ella (C). X = ella(C - 1). X

Ella (C). Y = ella(C - 1). Y + 1

Zen Sheng Quince

Ir a 1:

De lo contrario, si Zhuang Tai (ella (C). x, ella (C). Entonces Y + 1) = 1

Ir a 2:

Terminará si...

Finalizar selección

La banquera (ella ( 0 ). x, ella(0). F

Caso 0

Ella (yo). X=ella(yo). X - 1

Caso 1

Ella (yo). Y = ella (yo). Y - 1

Caso 2

Ella (yo). X=ella(yo). X + 1

Caso 3

Ella (yo). Y = ella (yo). Y + 1

Finalizar selección

Luego

Ajustar

1:

GFangXiang = False

Zhuangtai (ella (C).

x, ella (C). Y) = 1

Tuhua

Conector de salida

2:

If MsgBox("El juego ha terminado, haz clic en Sí para reiniciar el juego, ClickNo", vbYesNo, "Snake") = vbYes Entonces.

Chu Shihua

Otros

Fin

Terminará si...

Finalizar conector

La décima transformación del hijo ilegítimo ()

Yo. Cls

Temporizador 1. habilitado = verdadero

Temporizador1. Intervalo = 200

Borrar distribuidor

Redimshe (2)

Ella (0). F = 2

Ella(0). X = 9

Ella(0). Y = 11

Banquero (9, 11) = 1

Ella (1). F = 2

Ella(1). X = 10

Ella(1). Y = 11

Banquero (10, 11) = 1

Ella ②. F = 2

Ella②. X = 11

Ella②. Y = 11

Zhuangtai (11, 11) = 1

Tu Hua

Zen Sheng Quince

Conector final

Private Chuqing()

Atenúeme siempre

Para I = 0 para UBound(ella)

I. Fila(ella(yo).x,ella(yo).Y)-(ella(yo).X+1,ella(yo).Y+1),i. Color de fondo, BF

Luego

Conector final

Pintura privada ()

Atenuar mientras yo esté

Para I = 0 a UBound(ella)

i. círculo(ella(i). Conjunto

Bound(She)

Atenúeme mientras

Para I = 0 a UBound(She) - 1

Ella (yo). F = ella(I + 1). F

Luego

Finalizar conector

Distribución privada()

Temporizador aleatorio

1:

X = Int(Rnd * 24)

Y = Int(Rnd * 24)

Si Zhuangtai(X,Y)>0, entonces vaya a 1:

Banquero (X, Y) = 2

I. Línea (X, Y)-(X + 1, Y + 1), RGB (255, 255, 0), BF

Conector final

Copiar directamente a la ventana de código vacía