VB crea una máquina de sorteo de números aleatorios para dibujar al azar a 30 personas. Timer1 controla el salto de los números de las etiquetas. Cada persona tiene una foto y debe elegir ese número para saltar de esa imagen.
Establezca el valor del intervalo en la barra de atributos del temporizador1 en 300 u otro (1000 es 1 s)
Cree una nueva carpeta de imágenes en la carpeta del proyecto, que almacene fotos de 30 compañeros de clase y nombres. es "x.jpg", x es un número del 0 al 30
El código es el siguiente:
Subcomando privado1_Click()
Temporizador1. Habilitado = Verdadero
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
En caso de error, Ir a tishi
Image1.Picture = LoadPicture(App.Path y "image\" y Label1.Caption y ".jpg")
tishi:
MsgBox "El Falta la foto del estudiante, agregue "
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Fin Sub
Sub Timer1_Timer() privado
Aleatorio
Label1.Caption = Int(Rnd() * 30)
Fin Sub