|
11
|
Programación / .NET (C#, VB.NET, ASP) / Re: libreria ZedGraph
|
en: 24 Agosto 2019, 10:29 am
|
Muchas gracias por tu atención y por tu recomendación, lo editare de la forma que me recomiendas.... y otra pregunta, haber si se puede hacer con esta librería, la intención del eje X es que sea la hora:minutos:segundos, entonces existirá alguna forma de añadir una barra de tipo scrol a la gráfica generada, de tal forma que a medida que cargue los datos, se puedan ver los días pasados???? Si me explico
|
|
|
12
|
Programación / .NET (C#, VB.NET, ASP) / [SOLUCIONADO]libreria ZedGraph
|
en: 22 Agosto 2019, 17:45 pm
|
Saludos! Amigos con respecto a la libreria ZedGraph, estoy tratado de crear una grafica con respecto a las horas transcurridas durante un dia, los datos los obtengo a traves de una base de datos. la tabla en la cual estoy obteniendo los datos es de la siguiente forma: como notaran hay 8 campos de temperaturas, llamados vin0....vin7 y tambien el campo hora. lo que pretendo hacer es que en el eje XAxis de la grafica se muestren las horas transcurridas, la cual estan guardas en la tabla de la base de datos, y en el eje YAxis se muestren los registros de las temperaturas, este es mi codigo : Option Strict Off Option Explicit On 'Permiten declaracion de varias variables' Imports VB = Microsoft.VisualBasic Imports ZedGraph Imports MySql.Data.MySqlClient Public Class Form1 Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize Me.CenterToScreen() Try Conexion.ConnectionString = connStr Conexion.Open() Me.Text = "CONECTADO" Catch ex As Exception MsgBox(ex.Message) Finally Conexion.Close() End Try CreateGraph(ZedGraphControl1) End Sub Private Sub CreateGraph(ByVal zgc As ZedGraphControl) Try Dim query As String = "SELECT * from termocuplas" Dim connection As New MySqlConnection(connStr) Dim cmd As New MySqlCommand(query, connection) connection.Open() Dim reader As MySqlDataReader reader = cmd.ExecuteReader() Dim list1 = New PointPairList() Dim x As String Dim y As String Dim myPane As GraphPane = zgc.GraphPane myPane.Title.Text = "Termocupla" myPane.XAxis.Title.Text = "Tiempo" myPane.XAxis.Scale.MagAuto = False myPane.YAxis.Title.Text = "Temperatura °C" myPane.YAxis.Scale.MagAuto = False While reader.Read() y = reader.GetString(2) x = reader.GetString(11) list1.Add(x, y) End While Dim myCurve As LineItem = myPane.AddCurve("Termocupla Vapor", list1, Color.Red, SymbolType.None) zgc.AxisChange() reader.Close() connection.Close() Catch ex As Exception Console.WriteLine(ex.Message) End Try End Sub End Class
tengo el problema que no esta funconando de forma correcta, aqui una muestra: como ven en el eje x se estan mostrando los valores de forma entera, y no en forma de la hora registrada, por ejemplo: 13:05:40 e igualmente para el eje Y, se esta mostrando los valores de forma entera, y no de la forma +38,85 que debo corregir para que funcione de la forma que quiero??? gracias de antemano!
|
|
|
13
|
Programación / .NET (C#, VB.NET, ASP) / Timer desde Una Clase
|
en: 6 Agosto 2019, 16:02 pm
|
Saludos compañeros, les comento lo que esto haciendo, tengo un modulo con 8 sensores de termocupla, estoy obteniendo los datos de cada sensor via serial, ya que necesito que los datos sean de tiempo real, decidi afregarlo en un timer, hice la siguiente clase: Imports System.Timers Imports System.Threading Public Class Class_Modulos_Sensores Public Shared SerialPort As New IO.Ports.SerialPort Public Shared cadena_sensores As String Public Shared Sub CommPortSetup() SerialPort.PortName = "COM7" SerialPort.BaudRate = "9600" SerialPort.DataBits = "8" SerialPort.StopBits = "1" SerialPort.Open() End Sub Public Shared Sub main() Dim Timer_Sensores As New System.Timers.Timer() AddHandler Timer_Sensores.Elapsed, New ElapsedEventHandler(AddressOf OnTimer) Timer_Sensores.Interval = 100 Timer_Sensores.Enabled = True Timer_Sensores.AutoReset = False End Sub Public Shared Sub OnTimer(ByVal source As [Object], ByVal e As ElapsedEventArgs) SerialPort.Write("#03A" & vbCr) SerialPort.DiscardInBuffer() cadena_sensores = SerialPort.ReadTo(vbCr) Dim theTimer As System.Timers.Timer = DirectCast(source, System.Timers.Timer) theTimer.Interval += 1000 theTimer.Enabled = True End Sub End Class
y en el formulario hice lo siguiente: Public Class Form1 Dim canal0_nd03, canal1_nd03, canal2_nd03, canal3_nd03, canal4_nd03, canal5_nd03, canal6_nd03, canal7_nd03 As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Class_Modulos_Sensores.CommPortSetup() Class_Modulos_Sensores.main() canal0_nd03 = Mid(Class_Modulos_Sensores.cadena_sensores, 4, 5) canal1_nd03 = Mid(Class_Modulos_Sensores.cadena_sensores, 11, 5) canal2_nd03 = Mid(Class_Modulos_Sensores.cadena_sensores, 18, 5) canal3_nd03 = Mid(Class_Modulos_Sensores.cadena_sensores, 25, 5) canal4_nd03 = Mid(Class_Modulos_Sensores.cadena_sensores, 32, 5) canal5_nd03 = Mid(Class_Modulos_Sensores.cadena_sensores, 39, 5) canal6_nd03 = Mid(Class_Modulos_Sensores.cadena_sensores, 46, 5) canal7_nd03 = Mid(Class_Modulos_Sensores.cadena_sensores, 53, 5) 'MOSTRAR DATOS Label2.Text = canal0_nd03 & " ºC" Label6.Text = canal1_nd03 & " ºC" Label10.Text = canal2_nd03 & " ºC" Label7.Text = canal3_nd03 & " ºC" Label14.Text = canal4_nd03 & " ºC" Label11.Text = canal5_nd03 & " ºC" Label18.Text = canal6_nd03 & " ºC" Label15.Text = canal7_nd03 & " ºC" End Sub End Class
quisiera que se estuviera actualizando los valores en el formulario, pero esto no lo esta haciendo, no refresca los valores mostrados, que debo hacer?
|
|
|
15
|
Programación / Programación Visual Basic / VB 2008 SerialPort
|
en: 31 Julio 2019, 15:05 pm
|
Saludos!
Compañeros estoy ralizando un aplicacion en VB 2008 en la cual tengo mas de 4 formularios y en cada formulario estoy obteniendo los datos a traves de un dispositivo via usb, entonces estoy usando serialport para la lectura de diferentes sensores que tengo, y como no puedo estar leyendo el puerto en cada formulario, ya que me generaría un error, quisiera saber si me convendría hacerlo las lecturas añadiendo un Modulo al proyecto, y de ser asi como hacerlo?
|
|
|
17
|
Seguridad Informática / Hacking / Lapto HP cifrada
|
en: 23 Julio 2019, 14:43 pm
|
Saludos !
haber si pueden ayudarme un poco, se trata de una lapto HP cifrada, cuando la inicio no me muestra la pantalla de la BIOS como tal, me inicia con un software Symantec PGD Desktop, luego de ingresar una clave de 32 caracteres me inicia windows, ingreso una clave de 30 caracteres, cuando inicia windows 7, si voy a instalar un programa no me da permiso para hacerlo, si voy a utilizar un pendriver, no me deja entrar en el mismo.
Quiesiera saber algun metodo para formatearlo por completo, borarle todo, se puede?
|
|
|
19
|
Programación / Programación General / Lenguaje Para Crear APP android
|
en: 1 Julio 2019, 15:26 pm
|
Saludos!
quiero crear una aplicación para que me indique vía GPS el lugar en donde otra persona se encuentre, es decir, mediante una aplicacion usar google maps para ubicarla geográficamente..... y también una APP para que se conecte vía bluetooth y poder activar una camara que tengo a un arduino.
entonces necesito sugerencia para saber en que programa puedo programarla?
por favor que no sea android studio, ya que tengo muchos problemas con ello, ya que es muy pesado y requiere de mucho...
|
|
|
20
|
Programación / Programación General / Re: Arduino conexion remota
|
en: 20 Junio 2019, 15:48 pm
|
si, mencione 2 telefonos, ya que en el pais en donde vivo no se consiguen rasberry(traerla desde otro pais es muy costoso), y como actualmente tengo una Meg arduino y los modulos quiero intentarlo con ello.
|
|
|
|
|
|
|