cómo se gráfica un chart en .net con una señal analógica para recibir?
Publicado por Martha Fernanda (2 intervenciones) el 26/05/2020 18:37:53
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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
'''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