NET archivos - Página 5 de 6

COMO UTILIZAR STREAMREADER y STREAMWRITER

07/29/201607/22/2016 por Jose Ortiz fernandez

StreamReader y StreamWriter

En este Post vamos a explicar 2 pasos muy sencillos, como podemos guardar datos en un fichero para poder recuperarlo mas adelante.

1 Para guardar los datos deberemos hacer los siguiente.

En vb.net instanciamos en StreamWriter con el Nombre del Fichero y la ubicación donde se va guardar el dato , en este caso voy a guardar una cadena de texto.

       Dim TextoQueGuardo As String = "HOLA ESTOY GUARDANDO ALGO"
       Dim SW As New IO.StreamWriter("C:\TEMP\GUARDOMITEXTO.TXT")
       SW.Write(TextoQueGuardo)
       SW.Close()

Dim TextoQueGuardo As String = "HOLA ESTOY GUARDANDO ALGO"

Dim SW As New IO.StreamWriter("C:\TEMP\GUARDOMITEXTO.TXT")

SW.Write(TextoQueGuardo)

SW.Close()

una vez hecho esto lo siguente es dar la orden de guardado y cerrar el fichero con el close,para que este pueda ser liberado de la aplicación.

Como veis es muy sencillo.

2 Ahora vamos con la Lectura del fichero.

Bien, el proceso de lectura es muy similar, instanciamos la clase StreamReader con la ruta del fichero.
Declaramos una variable donde se recuperará el dato, en el ejemplo la llamaremos “Resultado”, y ejecutamos la lectura.
y para ver el resultado lo podemo mostrar en un msgbox.

       Dim SR As New IO.StreamReader("C:\TEMP\GUARDOMITEXTO.TXT")
       Dim Resultado As String
       Resultado = SR.ReadLine
       SR.Close()
       MsgBox(Resultado) 'Para ver el resultado

Dim SR As New IO.StreamReader("C:\TEMP\GUARDOMITEXTO.TXT")

Dim Resultado As String

Resultado = SR.ReadLine

SR.Close()

MsgBox(Resultado) 'Para ver el resultado

El streamreader tiene mas opciones que ir leyendo linea a linea pero para que sea un ejemplo sencillo lo hacemos solo con 1 , ya que sabemos que hemos guardado solo esa linea en el paso numero 1.

Despues de hacer todo esto, hay que cerrar el fichero para liberarlo.

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

Crear y heredar un formulario winform

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

Hola a todos.

Para realizar este ejemplo haremos lo siguiente, creamos un nuevo proyecto de Libreria de Clases.

1 Crear una dll con 1 formulario, 1 Propiedad y un Boton, de tal manera que nos quede algo asi.

y dentro del codigo escribimos lo siguiente.

Para la propiedad y Para el Boton

   Public Property TEXTO As String

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

End Sub

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

Public Property TEXTO As String

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

End Sub

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

MsgBox(TEXTO)

End Sub

Nos queda el formulario en 1 DLL cuando compilemos.

Leer másCrear y heredar un formulario winform