Red de conocimiento informático - Problemas con los teléfonos móviles - código fuente superior

código fuente superior

El juego que escribí, todo el código fuente:

Dim? ¿vx? ¿Como? Entero,? ¿vy? ¿Como? Entero

¿Atenuado? ¿tm? ¿Como? Entero

¿Atenuado? fs? ¿Como? Entero

¿Privado? ¿Sub? Command1_Click()

¿Y si? Temporizador1. ¿Permitir? =?Falso? Luego

Temporizador1. ¿Permitir? =?Verdadero

¿Y si? Forma 2. ¿Arriba? >? Imagen 1. ¿altura? Entonces

¿atenuado? ¿incógnita? ¿Como? ¿Entero

x? =?0

Forma1. ¿izquierda? =?Imagen 1. ¿ancho? /?2?-?Forma1. ¿ancho? /?2

Forma1. ¿Arriba? =?Imagen 1. ¿altura? -?300

Forma 2. ¿izquierda? =?Imagen 1. ¿ancho? /?2?-?forma2. ¿ancho? /?2

Forma 2. ¿Arriba? =?Imagen 1. ¿altura? -?Forma1. ¿altura? -?Forma1. ¿altura? -?50

vx? =?30

vy? =?30

Etiqueta1(0). ¿visible? =?Incorrecto

¿Para qué? ¿I? =?1?¿Adónde ir? 90? un paso? 2

¿Desinstalar? Etiqueta 1(i)

¿Siguiente? Yo

¿Para qué? ¿I? =?1?¿Adónde ir? 90? un paso? 2

¿Cargando? Etiqueta1(i)

Etiqueta1(i). ¿visible? =?real

Etiqueta1(i). ¿título? =?""

Etiqueta1(i). ¿izquierda? =?375?*?((I?-?1)?Mod?15)

Etiqueta1(i). ¿Arriba? =?135?*?x

? ¿si? ¿I? Mod? 15?=?0?o? ¿I? Mod? 15?=?14?Entonces

? ¿incógnita? =?x? +?1

¿Fin? ¿Y si

Siguiente? Yo

¿Terminar? Si

¿Finalizar? Si

¿Finalizar? Submarino

¿Privado? ¿Sub? Command2_Click()

Fin

¿Fin? Submarino

¿Privado? ¿Sub? Form_Load()

Etiqueta 2. ¿título? =?"Izquierda"? y amplificador? 3?y amperio? "Disco"

Etiqueta1(0). ¿visible? =?Incorrecto

Forma1. ¿izquierda? =?Imagen 1. ¿ancho? /?2?-?Forma1. ¿ancho? /?2

Forma1. ¿Arriba? =?Imagen 1. ¿altura? -?300

Forma 2. ¿izquierda? =?Imagen 1. ¿ancho? /?2?-?forma2. ¿ancho? /?2

Forma 2. ¿Arriba? =?Imagen 1. ¿altura? -?Forma1. ¿altura? -?Forma1. ¿altura? -?50

vx? =?30

vy? =?30

¿Llamar? rnk1

Etiqueta 4. ¿título? =?"Pase 1 "

¿Fin? Submarino

¿Privado? ¿Sub? Picture1_KeyDown(código clave?como?entero,?cambio?como?entero)

si? ¿Código clave? =?37?Entonces

¿Y si? Forma1. ¿izquierda? >? 0? Luego

Forma1. ¿izquierda? =?Forma1. ¿izquierda? -?50

¿Fin? ¿Y si

Elsef? ¿Código clave? =?39?Entonces

¿Y si? Forma1. ¿izquierda? <? Imagen 1. ¿ancho? -?Forma1. ¿ancho? Luego

Forma1. ¿izquierda? =?Forma1. ¿izquierda? +?50

¿Fin? Si

¿Finalizar? Si

¿Finalizar? Submarino

¿Privado? ¿Sub? timer1_timer()

Forma2.

¿izquierda? =?Forma 2. ¿izquierda? +?Metiltiofosfonato de etilo de propilamina

Forma 2. ¿Arriba? =?Forma 2. ¿Arriba? -?Val Levadura

¿Y si? Forma 2. ¿izquierda? >? Imagen 1. ¿ancho? -?Forma 2. ¿ancho? ¿Entonces qué? ¿vx? =?-vx

¿Y si? Forma 2. ¿Arriba? <? 0? ¿Y entonces qué? ¿vy? =?-dimensional? Imagen 1. ¿altura? -?500?Entonces

¿Y si? Forma 2. ¿izquierda? <? 0? ¿Y entonces qué? ¿vx? =?vx? Imagen 1. ¿izquierda? ¿Entonces qué? ¿vx? =?-vx

¿Y si? Forma 2. ¿Arriba? >? Imagen 1. ¿altura? -?Forma1. ¿altura? -?Forma 2. ¿altura? Entonces qué. Forma 2. ¿Arriba? <? Imagen 1. ¿altura? -?Forma1. ¿altura? -?Forma 2. ¿altura? +?100?Entonces

¿Y si? Forma 2. ¿izquierda? >? Forma1. ¿izquierda? Entonces qué. Forma 2. ¿izquierda? <? Forma1. ¿izquierda? +?Forma1. ¿ancho? Entonces

¿vy? =?-vy

Otros

vx? =?Val Levadura

¿Fin? Si

¿Finalizar? Si

¿Y si? Forma 2. ¿Arriba? & gt=?Imagen 1. ¿altura? Luego

Temporizador1. ¿Permitir? =?¿Mal

tm? =?tm? +?1

Etiqueta 2. ¿título? =?"Izquierda"? y amplificador? 3?-?tm? y amplificador? "Disco"

¿Y si? ¿tm? =?3?Entonces

¿MsgBox? "¿Juego? ¡Se acabó!",?vbOKOnly,? "Juego terminado"

Comando 1. ¿Permitir? =?Fin incorrecto

? Si

¿Finalizar? Si

¿Para qué? ¿I? =?1?¿Adónde ir? 90

¿Y si? Etiqueta1(i). ¿visible? =?¿En serio? Entonces

¿Y si? Forma 2. ¿izquierda? >? Etiqueta1(i). ¿izquierda? -?Forma 2. ¿ancho? Entonces qué. Forma 2. ¿izquierda? <? Etiqueta1(i). ¿izquierda? +?Etiqueta1(i). ¿ancho? Entonces

¿Y si? Forma 2. ¿Arriba? <=?Etiqueta1(i). ¿Arriba? +?Etiqueta1(i). ¿altura? Entonces

¿Y si? Etiqueta1(i). ¿visible? =?¿En serio? Entonces

¿vy? =?-vy

fs? =?fs? +?1

Etiqueta 3. ¿título? =?fs? y amplificador? "Dividir"

¿Para qué? j? =?1?¿Adónde ir? 90

¿Y si? Etiqueta1(j). ¿visible? =?¿En serio? Entonces

¿Ir a? xx? ¿abandonar? Para

Otro

¿Si? j? =?90?Entonces

x? =?x? +?1

Etiqueta 4. ¿título? =?"No". ? Str(x?+?1)?& amplificador? "Desactivado"

¿Y si? ¿incógnita? =?2?Entonces

¿hacer una llamada telefónica? rnk2

Forma1. ¿izquierda? =?Imagen 1. ¿ancho? /?2?-?Forma1. ¿ancho? /?2

Forma1. ¿Arriba? =?Imagen 1. ¿altura? -?300

Forma 2. ¿izquierda? =?Imagen 1. ¿ancho? /?2?-?forma2. ¿ancho? /?2

Forma 2. ¿Arriba? =?Imagen 1. ¿altura? -?Forma1. ¿altura? -?Forma1. ¿altura? -?50

Temporizador 1. ¿Permitir? =?Incorrecto

¿Elsef? ¿incógnita? =?3?Entonces

¿hacer una llamada telefónica? rnk3

Forma1. ¿izquierda? =?Imagen 1. ¿ancho? /?2?-?Forma1. ¿ancho? /?2

Forma1. ¿Arriba? =?Imagen 1. ¿altura? -?300

Forma 2. ¿izquierda? =?Imagen 1. ¿ancho? /?2?-?forma2.

¿ancho? /?2

Forma 2. ¿Arriba? =?Imagen 1. ¿altura? -?Forma1. ¿altura? -?Forma1. ¿altura? -?50

Temporizador 1. ¿Permitir? =?Fin incorrecto

? Si

¿Finalizar? Si

¿Finalizar? Si

xx:

¿Siguiente? j

¿Fin? si

Etiqueta1(i). ¿visible? =?Incorrecto

¿Desinstalar? Etiqueta 1(i)

¿Salir? ¿Fin de

? Si

¿Finalizar? Si

¿Finalizar? ¿Y si

Siguiente? Yo

¿Terminar? Submarino

Módulo 1:

¿Oscuro? ¿incógnita? ¿Como? Entero

¿Público? ¿Sub? rnk1()

¿Para qué? ¿I? =?1?¿Adónde ir? 90

¿Abierto? ¿error? CV? Entonces

¿desinstalar? Formulario 1. Etiqueta 1(i)

¿Siguiente? ¿Yo

x? =?0

¿Para qué? ¿I? =?1?¿Adónde ir? 90

¿Cargando? Formulario 1. Etiqueta 1(i)

¿Y si? ¿I? Mod? 2?=?0?Entonces

Formulario 1. Etiqueta1(i). ¿visible? =?Incorrecto

Otro

Formulario 1. Etiqueta1(i). ¿visible? =?real

Forma 1. Etiqueta1(i). ¿Color de fondo? =?RGB(Int(Rnd?*?255),?Int(Rnd?*?255),?Int(Rnd?*?255))

Forma 1. Etiqueta1(i). ¿título? =?""

Formulario 1. Etiqueta1(i). ¿izquierda? =?375?*?((Yo?-?1)?Mod?15)

Formulario 1. Etiqueta1(i). ¿Arriba? =?135?*?x

¿Y si? ¿I? Mod? 15?=?0?o? ¿I? Mod? 15?=?14?Entonces

x? =?x? +?1

¿Fin? Si

¿Finalizar? ¿Y si

Siguiente? Yo

¿Terminar? Submarino

¿Público? ¿Sub? rnk2()

¿Atenuado? ¿incógnita? ¿Como? Entero,? ¿I? ¿Como? Enteros

¿Para qué? ¿I? =?1?¿Adónde ir? 90

¿Cargando? Formulario 1. Etiqueta 1(i)

¿Y si? ¿I? \?15?& gt? 3?Entonces

x? =?5?-?Yo? \?15

Otros

x? =?Yo? \?15

¿Fin? Si

¿Y si? ¿I? Mod? 15?<=?2?*?x? +?1?O? ¿I? Mod? 15?& gt=?15?-?2?*?x? +?1?Entonces

¿Si? ¿I? >? 2? ¿I? =?1?Entonces

Formulario 1. Etiqueta1(i). ¿visible? =?Incorrecto

Otro

Formulario 1. Etiqueta1(i). ¿visible? =?real

Forma 1. Etiqueta1(i). ¿Color de fondo? =?RGB(Int(Rnd?*?255),?Int(Rnd?*?255),?Int(Rnd?*?255))

Forma 1. Etiqueta1(i). ¿título? =?""

Formulario 1. Etiqueta1(i). ¿izquierda? =?375?*?((Yo?-?1)?Mod?15)

Formulario 1. Etiqueta1(i).

¿Arriba? =?135?*?(Yo?\?15)

¿Y si? ¿I? Mod? 15?=?0?o? ¿I? Mod? 15?=?14?Entonces

x? =?x? +?1

¿Fin? Si

¿Finalizar? ¿Y si

Siguiente? Yo

¿Terminar? Submarino

¿Público? ¿Sub? rnk3()

<'

¿Fin? Submarino