Quiero graficar con un chart para que reciba una señal analógica, ¿cómo se asocia?
Publicado por Martha Fernanda (2 intervenciones) el 29/04/2020 03:05:54
La instrucción para unir el chart:
Seria así:
chart1.?????
Alguien me podría apoyar?
Aquí esta mi código completo :
Seria así:
chart1.?????
Alguien me podría apoyar?
Aquí esta mi código completo :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
'''Para un ECG
'''https://www.youtube.com/watch?v=0PYCXe94u3k
''' Intento de programa en VB para leer un ECG.
''' https://www.youtube.com/watch?v=5r_MI384tes&t=257s
''' configuración de puertos en VB.
''' https://www.youtube.com/watch?v=Sy2vjWO0ydM
''' Valor de la señal y chart.
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
''Dim data As String
''Data = SerialPort1.ReadExisting().ToString()
''Chart1.ToString(data)
'' PictureBox1.Image(data)
Dim i As Single = SerialPort1.ReadExisting
Label1.Text = "Valor de la señal:" & i.ToString
Chart1.
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Button1.Enabled = True
If SerialPort1.IsOpen Then
Else
Try
''Catch ex As Exception
SerialPort1.Open()
SerialPort1.PortName = "COM3"
''iniciando el timer.
Timer1.Start()
With SerialPort1
.BaudRate = 9600
.DataBits = 8
.Parity = IO.Ports.Parity.None
.StopBits = IO.Ports.StopBits.One
.PortName = "Com3"
.Open()
End With
Catch ex As Exception
End Try
Button1.Enabled = False
Button2.Enabled = True
End If
End Sub
End Class
Valora esta pregunta


0