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: p>
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
p>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 p>
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
p>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 p>
Ella (yo). F = ella(I + 1). F
Luego
Finalizar conector
Distribución privada()
Temporizador aleatorio
1: p>
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