¿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