Mensajes

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

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 :

Código (vbnet) [Seleccionar] Expandir


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!

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:

Código (vbnet) [Seleccionar] Expandir


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:

Código (vbnet) [Seleccionar] Expandir


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?

[NEBIRE]

Joder NEBIRE me a servido de mucho tu explicación, me has respondido un par de dudas que tenia y no la había posteado, mil gracias!! 

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?

Saludos!

Muchachos tengo lo siguiente,  una camara OV7670, modulo bluetooth montado en un arduino, quisiera saber si  a traves de APP Inventor podria crear una APP para visualizar lo que ve la camara ov7670 ???

[Symantec PGD Desktop]

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?

Gracias muchachos! investigare un poco de cada uno que me mencionaron y veré cual me sirve!

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...

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.