Hola , os traigo el ejemplo de como poder pesarle a nuestra aplicación variables para poder definir un comportamiento en nuestro sistema, te invito primero a ver el video.
Leer másPasar variables a nuestra aplicacion y recogerlas (exe) vb.net
Más que contenido para programadores
Aqui encontraras el contenido publicado para Visual Basic .NET
Hola , os traigo el ejemplo de como poder pesarle a nuestra aplicación variables para poder definir un comportamiento en nuestro sistema, te invito primero a ver el video.
Leer másPasar variables a nuestra aplicacion y recogerlas (exe) vb.net
Hola a todos, algunas veces hachemos en falta algún automatismo o propiedad en los controles si este es tu caso , aquí puedes ver como realizarlo en unos pasos muy simples.
Si el RecordSet, es ese viejo amigo que hoy dia aún seguimos conservando, en aplicaciones como Excel, Access, o si sigues trabajando en Visual Basic 6 todavía utilizaras.
Resulta de mucha utilidad poder realizar estas consultas de datos dentro de la propia aplicación a traves de Linq, para no sobrecargarla y que esta , no consuma demasiada ram. Si solo es por curiosidad o tienes intención de utilizarla aquí te dejo el video y el código del video por si quieres probarlo o quieres usarlo como patrón. La verdad, una vez que empiezas a utilizarlo es muy fácil.
Hola a todos,
Aqui el ejemplo de como hacer ping desde Vb.Net
Pimero el video explicando todo y a continuacion el codigo
Lo primero que debemos hacer es crear un formulario y añadir un textbox, un boton, y un richtextbox, algo asi como como la siguiente imagen.
A continuacion debemos agregar los siguientes imports.
1 2 3 |
Imports System.IO Imports System.Net.NetworkInformation Imports System.Text |
Y en el evento del clic del boton el siguiente codigo.
1 2 3 4 5 6 7 8 9 10 11 |
Dim p As New Ping Try Dim Rst As PingReply = p.Send(Me.TextBox1.Text) Dim Datos As New StringBuilder Datos.Append("Address:" & Rst.Address.ToString & vbCrLf) Datos.Append("Buffer Enviado:" & Rst.Buffer.Length & " Bytes" & vbCrLf) Datos.Append("Tiempo de Respuesta:" & Rst.RoundtripTime & " Milisegundos" & vbCrLf) Me.RichTextBox1.Text = Datos.ToString Catch ex As Exception Me.RichTextBox1.Text = ex.ToString End Try |
Aqui el codigo completo.es poco codigo y creo que no requiere ninguna explicacion asi que ahi os lo dejo.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Imports System.IO Imports System.Net.NetworkInformation Imports System.Text Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim p As New Ping Try Dim Rst As PingReply = p.Send(Me.TextBox1.Text) Dim Datos As New StringBuilder Datos.Append("Address:" & Rst.Address.ToString & vbCrLf) Datos.Append("Buffer Enviado:" & Rst.Buffer.Length & " Bytes" & vbCrLf) Datos.Append("Tiempo de Respuesta:" & Rst.RoundtripTime & " Milisegundos" & vbCrLf) Me.RichTextBox1.Text = Datos.ToString Catch ex As Exception Me.RichTextBox1.Text = ex.ToString End Try End Sub End Class |
Muchas Gracias y que no se te olvide comentar, un saludo .
Quizas te interese TCPCLIENT TCPLISTENER
hola a todos hoy os traigo una clase con la que generar filtros para nuestras consultas de sql o de nuestros dataviews o donde lo queramos usar.
Hola amigos , aqui os dejo una buena paractica usando addhandler… que es … la suscripcion de eventos de los propios controles a otras funciones.
Hola a todos, siempre hemos querido hacer un control personalizado para guardar nuestros datos. Pues aqui te dejo un codigo que seguro que te gustará.
Rebuscanco codigo que tenia almacena en ficheros de texto encontre este que forzaba la liberacion de la RAM no utilizada por nuestra aplicacion.
No siempre el GC (Garbage Collector) elimina la memoria disponible. asi que aqui os dejo esto que fueza esa liberacion usando el api de Kernell32.dll de windows.
Es 100% efectivo y lo he probado recientemente en windows 10 .
asi que aqui os dejo el codigo . espero que os sirva.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Private Declare Auto Function SetProcessWorkingSetSize Lib "kernel32.dll" (ByVal procHandle As IntPtr, ByVal min As Int32, ByVal max As Int32) As Boolean Public Sub LiberarRAM() Try Dim MiProceso As Process MiProceso = Process.GetCurrentProcess() SetProcessWorkingSetSize(memoria.Handle, -1, -1) Catch ex As Exception End Try End Sub |
llamalo como quieras Limpiar Ram o Liberar. pero la ram es importante en nuestros equipos. y que la aplicacion consuma lo menos posible es una buena practica. eso significa que hacemos buen uso del codigo.
Un Saludo