Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo programar un auto (puede ser un auto) que se mueva en paralelo y a velocidad constante en VB6.0? Envía el código fuente directamente, gracias. Bien, dale 50 puntos.

¿Cómo programar un auto (puede ser un auto) que se mueva en paralelo y a velocidad constante en VB6.0? Envía el código fuente directamente, gracias. Bien, dale 50 puntos.

Interfaz:

Código:

¿Atenuado? t? ¿Como? Fecha

¿Privada? ¿Sub? Command1_Click()

Temporizador 1. ¿Intervalo? =?1

¿Y si? Comando 1. ¿título? ="Inicio"? ¿Entonces qué? t? =?Hora

¿Fin? Submarino

¿Privado? ¿Sub? Command2_Click()

Temporizador 1. ¿Intervalo? =?0

Comando 1. ¿título? =?"Continuar"

¿Fin? Submarino

¿Privado? ¿Sub? Form_Load()

Imagen 1. ¿imagen? =?cargar imagen(" F:\ Coche de carreras 1 . jpg ")

Imagen 1. ¿Cambiar tamaño automáticamente? =?Real

Foto 1. ¿izquierda? =?100

Imagen 1. ¿Arriba? =?100

t? =?ArribaAbajo1. Valor

Texto1. ¿Palabra? =?ArribaAbajo1. valor

Texto2. ¿Palabra? =?0

¿Fin? Submarino

¿Privado? ¿Sub? timer1_timer()

Texto2. ¿Palabra? =?CDate(time?-?t)

Imagen 1. ¿izquierda? =?Imagen 1. ¿izquierda? ?ArribaAbajo1. Valor

¿Si? Imagen 1. ¿izquierda? ¿gt? I. ¿ancho? -?Imagen 1. ¿ancho? -?100?¿Y luego qué? Imagen 1. ¿izquierda? =?100

¿Fin? Submarino

¿Privado? ¿Sub? UpDown1_Change()

Texto1. ¿Palabra? =?ArribaAbajo1. Valor

¿Fin? Efectos de la suboperación: