แนะนำการสร้างกราฟ แบบ real time หน่อยครับ คือผมได้ค่ามาเป็นแรงดันไฟฟ้า แล้วต้องการนำไปสร้างกราฟครับ แบบ real time
คล้ายกราฟ คลื่นหัวใจครับ แนะนำทีครับ winapp ครับ vb
Public Class Form1
Private pList As List(Of Point)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackColor = Color.Black
Me.Size = New Size(800, 400)
End Sub
Private Sub btGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btGenerate.Click
DrawPoint()
End Sub
Private Sub btGraph_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btGraph.Click
DrawGraph()
End Sub
Private Sub DrawPoint()
Const X_DIFF_SCALE As Integer = 50 ' ช่วงห่างของจุดแต่ละจุด 50 pixel
Const Y_POSITION As Integer = 100 ' กำหนดแกน y ให้เริ่มจากขอบเขต Form กี่ Pixel
Dim r As New Random
pList = New List(Of Point) ' เก็บค่าจุดพิกัด x,y
Using g As Graphics = Me.CreateGraphics
g.Clear(Me.BackColor)
g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
' ทดสอบวนลูปสร้างค่าจำลอง 15 ค่า
For i As Integer = 1 To 15
Dim p As New Point(X_DIFF_SCALE * i, Y_POSITION + r.Next(0, 200)) ' ตำแหน่งการสร้าง มีค่า Random อยู่ในช่วง 0-200
pList.Add(p) ' เก็บค่า x,y ลง List
g.FillRectangle(Brushes.Red, New Rectangle(p.X, p.Y, 3, 3)) ' วาดจุด
Next
End Using
End Sub
Private Sub DrawGraph()
Using g As Graphics = Me.CreateGraphics
g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
g.DrawCurve(Pens.Green, pList.ToArray()) ' วาดเส้นโค้ง
End Using
End Sub
End Class
พี่ครับ ผมต้องการสร้างกราฟแผนภูมิแท่งครับโดยมีแกน y เป็นระดับน้ำ และให้แกน x เป็นแกนแสดงเวลา วันที่ แบบ real time อะครับ
ในขอบเขตงาน คือ เมื่อมีข้อความจากโทรศัพท์เข้ามา(ข้อความเป็นระดับต่ำ-สูงที่แกน y )ก็จะแสดงเวลากราฟแผนภูมิแท่งเป็น real time และวันที่ คือต้องอ้างอิงเวลาจาก คอมพิวเตอร์ครับ ใครรู้ช่วยบอกทีครับ จะเป็นพระคุณอย่างยิ่ง ขอบคุณครับ