Aplicacion Con Hilos
En esta sección mostraremos los métodos para crear una aplicación que lanza un hilo secundario e hilo principal el cual nos muestra el tiempo el cual tarda en hacer el procedimiento.DESARROLLO Y PRUEBAS
Primero que nada creamos la interfaz grafica del programa la cual debe de ser un listbox y un botón para cargar iniciar el hilo.
A continuación se mostrara el código queempeña la función del botón iniciar un hilo
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Dim nuevocontador Ascontador = Newcontador(Me, idHilo)
idHilo += 1
Dimhilocontador AsThread = NewThread(AddressOf nuevocontador.TareaHilo)
hilocontador.IsBackground = True
hilocontador.Start()
EndSub
Este código al darle clic empieza mostrar los datosen pantalla además este otro se encarga de recibir los datos
PublicSub SetItem_lshilos(ByVal item AsString)
If (lshilos.InvokeRequired) Then
Dim delegado AsSetItemListDelegadte =NewSetItemListDelegadte(AddressOf SetItem_lshilos)
lshilos.Invoke(delegado, NewObject() {item})
Else
lshilos.items.add(item)
EndIf
EndSub
Este código se encarga de recibir los datos ymostrarlos en pantalla además de agregar un temporizador pero este ya no lo agregamos con un control si no con código este se encarga de medir el transcurso del tiempo en que tarda en lanzar un hilo perotambién si el hilo se retrasa demasiado este manda un mensaje de advertencia.
A continuación la aplicación funcionando
CONCLUSION
Llegamos a la conclusión de que mientras mas la aplicación lanzaun hilo el tiempo de espera varia puede ir más rápido y a la ves mas lento esto nos da a entender que se le complica hacer ciertas tareas.
ANEXOS
Imports System.Threading
PublicClassForm1PrivateDelegateSubSetItemListDelegadte(ByVal prItems AsString)
Private idHilo AsInteger
Public varX AsInteger
PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.Click
Dim...
Regístrate para leer el documento completo.