¿Cómo escribir serpiente con vb6.0?

Escribí uno simple, simplemente copie el código directamente en el formulario y podrá mejorar las funciones relevantes usted mismo.

Opción explícita

Etiquetar s como un número entero

Etiquetar la ranura de clave como un número entero

Etiquetar la fecha como booleana

Dim a, b es un número entero

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

Ranura de clave = código de clave

Temporizador de llamadas 1_Timer

Conector final

Subform_Load privado()

i. ancho = (i.ancho\60) * 60

i. altura = (i.altura\60) * 60

s = 0

llamar a AddShape

ate = true

llamar al temporizador 1_Timer

Conmigo. controles("forma"&1)

. Izquierda = Int((i.ancho.ancho)/2\60) * 60

. Top = Int((i.height.height)/2\60) * 60

Termina con

Conector final

Subtemporizador privado 1_Timer()

Representar m, n como números enteros

Atenuar i, j como números enteros

Si s & gt1 e i. controles ("forma" y amplificadores). izquierda = yo. controles("forma"&1).left&i. controles ("forma" y amplificadores). Arriba = yo. controles("shape"&1).Arriba Luego comió = True

a =i. controles("forma"&1).left

b = i. controles("shape"&1).top

Quédate conmigo. Controles("shape"&1)

Seleccione la ranura del caso

Caso 37

. Izquierda=. 60 grados a la izquierda

Caso 38

. Arriba =. Top 60

Caso 39

. Izquierda=. A la izquierda +60 grados

Caso 40

. Arriba =. Top + 60

Finalizar selección

Termina con...

Si ate = True, entonces

Llama a AddShape

ate = False

Termina si...

Para i = 2 a s - 1

Quédate conmigo. controles("forma"&i)

m = .

n = a la izquierda. Arriba

. izquierda = a

. Arriba = b

a = m

b = n

Termina con...

Siguiente yo

EndShape

Privado subAddShape()

s = s + 1

Llámame. Controls.Add("VB.Shapes, Shapes & Shapes.s,i)

Conmigo.Controls("Shapes"&s)

. Ancho = 60

. Alto = 60

. FillStyle = 0

Irregularizar

Izquierda = (Int(Rnd() * (Me. Ancho. Ancho)\. 60) * 60 + 60

Top = (Int(Rnd() * (Me. Altura. Altura))\ 60) * 60 + 60

.Visible=True<. /p>

Termina en

Conector final