Red de conocimiento informático - Material del sitio web - ¿Cómo programar la amplificación automática en VB universitario?

¿Cómo programar la amplificación automática en VB universitario?

Bueno, listo, pon una etiqueta, dos botones y un control de reloj en el formulario. Simplemente copie el código y ejecútelo. Private?Sub?Form_Load()

Timer1.Interval?=?100

Timer1.Enabled?=?False

Etiqueta1.AutoSize?=?True

Etiqueta1.Font.Size?=?8

Comando1.Caption?=?"Inicio"

Comando2.Caption?=?"Detener"

Comando2.Enabled?=?False

Fin?Sub

Privado?Sub?Command1_Click()

Temporizador1.Enabled?=?True

Comando1.Caption?=?"Continuar"

Comando1.Enabled?=?False

Comando2.Enabled?=?True

¿Fin?Sub

Privado?Sub?Command2_Click()

Comando2.Enabled?=?False

Comando1.Enabled?=?True

Timer1.Enabled?=?False

Fin?Sub

Privado?Sub?Timer1_Timer()

¿Estático?Bandera?As?Booleano

Si?Bandera?Entonces

Etiqueta1.Tamaño de fuente?=?Etiqueta1.Tamaño de fuente?*?0.9

Si?Etiqueta1.Tamaño de fuente?lt; ?8?Entonces?Flag?=?False

Else

Label1.Font.Size?=?Label1.Font.Size?*?1.1

Si ?Label1.Font.Size?gt;?100?Then?Flag?=?True

Fin?If

Fin?Sub