VB NET archivos - Página 8 de 9

Ejemplo de uso de Hilos Threads Threading vb net

07/21/201607/21/2016 por Jose Ortiz fernandez

¿Que es un hilo (Thread)?
Un hilo es un proceso paralelo a el entorno de ejecución de una aplicación.

Un ejemplo por asi decirlo es el propio entorno de windows, el cual windows es la aplicación y los programas que ejecutamos son los hilos que dependen de el.

-Empezando con los hilos
¿Que debemos saber? Importante!!
El hilo forma parte de la aplicación y esta viculada a ella , pero en determinadas ocasiones, a finalizar la aplicación si no hemos terminado el hilo, este seguirá corriendo, y nos ocupará espacio en memoria hasta que finalice o bien lo terminemos nosotros desde el administrador de tareas.

Para entender un poco el funcionamiento vamos a crear una sencilla aplicacion la cual utilizará 1 hilo para cambiar el color en un panel .

Creamos 1 form ,3 Botones ,1 Panel.

Nuestro Boton1 sera iniciar, el boton2 detener, y el boton3 nos mostrará el estado del hilo.

Antes de empzar con la programación del hilo debemos agregar al load la siguiente linea.

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.CheckForIllegalCrossThreadCalls = False
   End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.CheckForIllegalCrossThreadCalls = False

End Sub

Esto permitirá a el hilo que pueda interactuar con la aplicación quitando la restricción, de que el hilo como hijo pueda acceder y modificar propiedades de el elemento padre (el form) o cualquier control.

-Declaración del hilo

Public Class Form1
       Dim th As New Threading.Thread(AddressOf CambioColor)

1 2	Public Class Form1 Dim th As New Threading.Thread(AddressOf CambioColor)

Creamos la variable th llamando contructor y asignandole la función con la que va a operar el hilo.

-aqui la función en bucle.

Dim Salir As Boolean
   Public Function CambioColor()
       Dim c As New Color
       Dim A As New Random
       Dim R As New Random
       Do Until Salir
           Me.Panel1.BackColor = c.FromArgb(A.Next(1, 255), R.Next(1, 255), A.Next(1, 255), R.Next(1, 255))
       Loop
   End Function

Dim Salir As Boolean

Public Function CambioColor()

Dim c As New Color

Dim A As New Random

Dim R As New Random

Do Until Salir

Me.Panel1.BackColor = c.FromArgb(A.Next(1, 255), R.Next(1, 255), A.Next(1, 255), R.Next(1, 255))

Loop

End Function

En el boton1 le llamaremos Start y escribimos lo siguente.

 If th.ThreadState = Threading.ThreadState.Unstarted Or th.ThreadState = Threading.ThreadState.Aborted Then
           th = New Threading.Thread(AddressOf CambioColor)
           Salir = False
           th.Start()
       Else
           MsgBox("El hilo esta corriendo")
       End If

If th.ThreadState = Threading.ThreadState.Unstarted Or th.ThreadState = Threading.ThreadState.Aborted Then

th = New Threading.Thread(AddressOf CambioColor)

Salir = False

th.Start()

Else

MsgBox("El hilo esta corriendo")

End If

Con ello controlaremos que no se esta ejecutando y si lo esta mostramos el mensaje.

Ahora vamos con el boton2 , lo llamaremos Stop y escribimos es siguiente codigo.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       If th.ThreadState = Threading.ThreadState.Running Then
           Salir = True 'Indicamos salir para finalizar el bucle
           th.Abort() ' y Abortamos el hilo

       End If
   End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If th.ThreadState = Threading.ThreadState.Running Then

Salir = True 'Indicamos salir para finalizar el bucle

th.Abort() ' y Abortamos el hilo

End If

End Sub

Y en el boton3, lo llamamos ver estado y escribimos el siguiente codigo para que nos muestre mientras se está ejecutando o no el estado del hilo.

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       MsgBox(th.ThreadState.ToString)
   End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

MsgBox(th.ThreadState.ToString)

End Sub

.Este es un ejemplo sencillo de hilo, los hilos tienen multiples estados, se pueden pausar, reanudar….
y son bastante utiles si necesitamos hacer operaciónes que no deben influir en la experiencia del usuario.

dejo aqui el codigo comentado del ejemplo.

Public Class Form1
   'Declaracion del hilo
   Dim th As New Threading.Thread(AddressOf CambioColor)

   Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
       th = Nothing 'Vacia el hilo.
       GC.Collect() 'llamada al garbage collection para vaciar la memoria
   End Sub

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       'desactivamos la restriccion a los hilos
       Me.CheckForIllegalCrossThreadCalls = False
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       'Controlamos los estados
       If th.ThreadState = Threading.ThreadState.Unstarted Or th.ThreadState = Threading.ThreadState.Aborted Or th.ThreadState = Threading.ThreadState.Stopped Then
           th = New Threading.Thread(AddressOf CambioColor)
           Salir = False 'indica False para que el bucle pueda seguir
           th.Start() 'Inicia el hilo
       Else
           MsgBox("El hilo esta corriendo")
       End If
   End Sub

   Dim Salir As Boolean 'True sale del bucle, false sigue
   Public Function CambioColor()
       Dim c As New Color
       Dim A As New Random
       Dim R As New Random
       Do Until Salir 'Bucle
           Me.Panel1.BackColor = c.FromArgb(A.Next(1, 255), R.Next(1, 255), A.Next(1, 255), R.Next(1, 255))
       Loop
   End Function

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       If th.ThreadState = Threading.ThreadState.Running Then
           Salir = True 'Indicamos salir para finalizar el bucle
           th.Abort() ' y Abortamos el hilo
       Else
           MsgBox("El hilo esta parado")
       End If
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Me.Label1.Text = th.ThreadState.ToString 'asigna al label el estado del hilo
   End Sub
End Class

Public Class Form1

'Declaracion del hilo

Dim th As New Threading.Thread(AddressOf CambioColor)

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

th = Nothing 'Vacia el hilo.

GC.Collect() 'llamada al garbage collection para vaciar la memoria

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'desactivamos la restriccion a los hilos

Me.CheckForIllegalCrossThreadCalls = False

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Controlamos los estados

If th.ThreadState = Threading.ThreadState.Unstarted Or th.ThreadState = Threading.ThreadState.Aborted Or th.ThreadState = Threading.ThreadState.Stopped Then

th = New Threading.Thread(AddressOf CambioColor)

Salir = False 'indica False para que el bucle pueda seguir

th.Start() 'Inicia el hilo

Else

MsgBox("El hilo esta corriendo")

End If

End Sub

Dim Salir As Boolean 'True sale del bucle, false sigue

Public Function CambioColor()

Dim c As New Color

Dim A As New Random

Dim R As New Random

Do Until Salir 'Bucle

Me.Panel1.BackColor = c.FromArgb(A.Next(1, 255), R.Next(1, 255), A.Next(1, 255), R.Next(1, 255))

Loop

End Function

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If th.ThreadState = Threading.ThreadState.Running Then

Salir = True 'Indicamos salir para finalizar el bucle

th.Abort() ' y Abortamos el hilo

Else

MsgBox("El hilo esta parado")

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Label1.Text = th.ThreadState.ToString 'asigna al label el estado del hilo

End Sub

End Class

ya sabes, si te gusta unete a nuestro foro , comenta y compartelo.

Convertir DataTable .net a JSON Javascript

01/14/201907/20/2016 por Jose Ortiz fernandez

Hola a todos.

Aqui os traigo una funcion muy util para convertir los datos de un datatable a un objeto JSON de JavaScript.

Este ejemplo lo he reailzado en un WebService

Leer másConvertir DataTable .net a JSON Javascript

Activar webcam con silverlight visual basic net

01/14/201907/20/2016 por Jose Ortiz fernandez

Hola a todos, aqui el ejemplo de como activar la webcam a traves de Silverlight.

Yo como no poseo webcam he descargado SplitCam para simular una webcam y poder realizar este ejemplo.

Bien vamos a el ejemplo:

Leer másActivar webcam con silverlight visual basic net

Rotar una imagen winforms vb net

01/14/201907/20/2016 por Jose Ortiz fernandez

Hola a todos, en este post vamos a ver un brebe ejemplo de como rotar una imgen en un picturebox.

Para ello vamos a crear un nuevo proyecto , y vamo a añadir un control picturebox, y 2 botones

En el load del form, asignamos la imagen a el picturebox de la siguiente forma.

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim Bm As New Bitmap("C:\Imagen3.jpg")
       Me.PictureBox1.Image = Bm
       Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
   End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim Bm As New Bitmap("C:\Imagen3.jpg")

Me.PictureBox1.Image = Bm

Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

End Sub

Ahora vamos con el boton2 rotor a la derecha. que es 90º y lo hacemos de la siguiente manera.

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim bm As Bitmap = PictureBox1.Image
       bm.RotateFlip(RotateFlipType.Rotate90FlipNone)
       Me.PictureBox1.Image = bm
   End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim bm As Bitmap = PictureBox1.Image

bm.RotateFlip(RotateFlipType.Rotate90FlipNone)

Me.PictureBox1.Image = bm

End Sub

Ahora a la izquierda que son 270º, aqui el codigo.

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim bm As Bitmap = PictureBox1.Image
       bm.RotateFlip(RotateFlipType.Rotate270FlipNone)
       Me.PictureBox1.Image = bm
   End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim bm As Bitmap = PictureBox1.Image

bm.RotateFlip(RotateFlipType.Rotate270FlipNone)

Me.PictureBox1.Image = bm

End Sub

Bueno hasta aqui el ejemplo de rotacion de imagen, como veras hay mas opciones de rotacion, como voltear completamente la imagen etc,etc ,etc.

Espero que os sirva, un saludo a todos, y siguenos en twitter Facebook y Google+.

Como hacer que una aplicacion inicie al iniciar windows vb net

01/14/201907/20/2016 por Jose Ortiz fernandez

Hola a todos.

Bueno aqui os pongo el breve ejemplo de como iniciar una aplicacion al iniciar windows, la cosa va a ser muy muy simple.

Para ello creamos un checkbox. de tal forma que nos quede algo parecido a esto.

ahora nos vamos a informacion del esamblado y le damos un nombre a nuestra aplicacion para que este sea el nombre que se guarde en el registro

Leer másComo hacer que una aplicacion inicie al iniciar windows vb net

Convertir datos de Json a Datatable en visual basic .net vb

01/14/201907/20/2016 por Jose Ortiz fernandez

Hola a todos

Aqui os traigo el ejemplo de como desserializar los datos de json y convertirlos a un datatable.

Bien vamos con el codigo
“V” son los datos recibidos por el webservice. ver post de JSON A DATATABLE
Asi que ahora lo que hacemos es la declaracion de la desserialización, y donde nos retornara los datos, este objeto sera de tipo lista con diccionario, igual que cuando serializamos.

Leer másConvertir datos de Json a Datatable en visual basic .net vb

Ejemplo de Uso de FILESYSTEMWACHER vb net

01/14/201907/20/2016 por Jose Ortiz fernandez

Ejemplo de Uso de FILESYSTEMWACHER vb net

Hola a tod@s:

Aqui os traigo un ejemplo de “como utilizar Filesystemwacher”
Esta clase nos permite monitorizar los archivos que están en un directorio, o directorios, y saber si se han creado nuevos, se han borrado, renombrado, etc…

Para ello en nuestro proyecto nos declaramos una variable publica con eventos de esta clase de .net de la siguiente forma.

Leer másEjemplo de Uso de FILESYSTEMWACHER vb net

Ejemplo de RichTextBox vb net

11/14/201907/20/2016 por Jose Ortiz fernandez

Hola a todos

Aqui un ejemplo de como utilizar el RichTextBox de Winform en vb.net

Para ello empezaremos por crear 1 formulario , 7 botones y una caja de RichTextBox. de tal forma que nos quede algo asi

Ahora vamos a empezar con el primer boton, para seleccionar la fuente.

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim f As New FontDialog
       f.ShowDialog()
       Me.RichTextBox1.SelectionFont = f.Font
   End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim f As New FontDialog

f.ShowDialog()

Me.RichTextBox1.SelectionFont = f.Font

End Sub

Seguimos con los botones 2, 3 y 4 que seran para la alineación .

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Left
   End Sub

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
   End Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
   End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Left

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Center

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Right

End Sub

Ahora el boton5 para el color,

   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       Dim c As New ColorDialog
       c.ShowDialog()
       Me.RichTextBox1.SelectionColor = c.Color
   End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

Dim c As New ColorDialog

c.ShowDialog()

Me.RichTextBox1.SelectionColor = c.Color

End Sub

Y por ultimo los botones 6 y 7, el cual nos muestra los datos sobre el richtextbox que los guarda en un String, y el siguiente lo volvera a cargar.

 Dim Datos As String
   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
       MsgBox(Me.RichTextBox1.Rtf)
       Datos = Me.RichTextBox1.Rtf
   End Sub

Dim Datos As String

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

MsgBox(Me.RichTextBox1.Rtf)

Datos = Me.RichTextBox1.Rtf

End Sub

   Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
       Me.RichTextBox1.Rtf = Datos
   End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

Me.RichTextBox1.Rtf = Datos

End Sub

Ahora todo el codigo seguido.

Public Class Form1

   Dim Datos As String

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim f As New FontDialog
       f.ShowDialog()
       Me.RichTextBox1.SelectionFont = f.Font
   End Sub

   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       Dim c As New ColorDialog
       c.ShowDialog()
       Me.RichTextBox1.SelectionColor = c.Color
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Left
   End Sub

   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
   End Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
   End Sub

   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
       MsgBox(Me.RichTextBox1.Rtf)
       Datos = Me.RichTextBox1.Rtf
   End Sub

   Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
       Me.RichTextBox1.Rtf = Datos
   End Sub
End Class

Public Class Form1

Dim Datos As String

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim f As New FontDialog

f.ShowDialog()

Me.RichTextBox1.SelectionFont = f.Font

End Sub

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

Dim c As New ColorDialog

c.ShowDialog()

Me.RichTextBox1.SelectionColor = c.Color

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Left

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Center

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

Me.RichTextBox1.SelectionAlignment = HorizontalAlignment.Right

End Sub

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

MsgBox(Me.RichTextBox1.Rtf)

Datos = Me.RichTextBox1.Rtf

End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click

Me.RichTextBox1.Rtf = Datos

End Sub

End Class

Espero que os sirva el ejemplo, un saludo a todos. y ya saben , comenten, siguenos en twitter,Facebook y Google+

Si quieres ver el video pincha aqui