Visual Basic.NET - cómo se gráfica un chart en .net con una señal analógica para recibir?

 
Vista:
Imágen de perfil de Martha Fernanda
Val: 2
Ha aumentado su posición en 31 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

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 :

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder