嘿我试图在visual basic.net上调试这个代码的任何想法？ [英] Hey I am trying to debug this code on visual basic.net any ideas?
本文介绍了嘿我试图在visual basic.net上调试这个代码的任何想法？的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
这是一项心电图程序vbgeneral>心电图计划[ ^ ]
我试图调试的代码：
This is an ECG Program vbgeneral">ECG Program[^]
the code I am trying to debug:
Imports System.Windows.Forms.DataVisualization.Charting
Imports System.Threading
Public Class StreamChart
Private addDataRunner As Thread
Private rand As New Random()
Public Delegate Sub AddDataDelegate()
Public addDataDel As AddDataDelegate
Private Sub Form3_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
Dim addDataThreadStart As New ThreadStart(AddressOf AddDataThreadLoop)
addDataRunner = New Thread(addDataThreadStart)
addDataDel = New AddDataDelegate(AddressOf AddData)
Chart1.BackColor = Color.FromArgb(211, 223, 240)
Chart1.BackGradientStyle = System.Windows.Forms.DataVisualization.Charting.GradientStyle.TopBottom
Chart1.BackSecondaryColor = System.Drawing.Color.White
Chart1.BorderlineColor = Color.FromArgb(26, 59, 105) 'System.Drawing.Color.FromArgb(((int)(((byte)(26)))), ((int)(((byte)(59)))), ((int)(((byte)(105)))));
Chart1.BorderlineDashStyle = System.Windows.Forms.DataVisualization.Charting.ChartDashStyle.Solid
Chart1.BorderlineWidth = 2
Chart1.BorderSkin.SkinStyle = System.Windows.Forms.DataVisualization.Charting.BorderSkinStyle.Emboss
With Chart1.ChartAreas(0)
.AxisX.LabelStyle.Font = New System.Drawing.Font("Trebuchet MS", 8.25F, System.Drawing.FontStyle.Bold)
.AxisX.LabelStyle.Format = "hh:mm:ss"
.AxisX.LabelStyle.Interval = 10
.AxisX.LabelStyle.IntervalType = System.Windows.Forms.DataVisualization.Charting.DateTimeIntervalType.Seconds
.AxisX.LineColor = Color.LightGray
.AxisX.Title = "Time"
.AxisX.MajorGrid.LineColor = Color.LightBlue
.AxisX.MajorGrid.Interval = 10
.AxisX.MajorGrid.IntervalType = System.Windows.Forms.DataVisualization.Charting.DateTimeIntervalType.Seconds
.AxisX.MajorTickMark.Interval = 10
.AxisX.MajorTickMark.IntervalType = System.Windows.Forms.DataVisualization.Charting.DateTimeIntervalType.Seconds
.AxisY.Title = "Velocity"
.AxisY.IsLabelAutoFit = False
.AxisY.IsStartedFromZero = False
.AxisY.LabelStyle.Font = New System.Drawing.Font("Trebuchet MS", 8.25F, System.Drawing.FontStyle.Bold)
.AxisY.LineColor = Color.LightGray
.AxisY.MajorGrid.LineColor = Color.LightGray
.AxisY.Maximum = 25
.AxisY.Minimum = 0
.BackColor = Color.FromArgb(64, 165, 191, 228)
.BackGradientStyle = System.Windows.Forms.DataVisualization.Charting.GradientStyle.TopBottom
.BackSecondaryColor = System.Drawing.Color.White
.BorderColor = Color.FromArgb(64, 165, 191, 228)
.BorderDashStyle = System.Windows.Forms.DataVisualization.Charting.ChartDashStyle.Solid
.InnerPlotPosition.Auto = False
.InnerPlotPosition.Height = 80
.InnerPlotPosition.Width = 90
.InnerPlotPosition.X = 9
.InnerPlotPosition.Y = 4
.Position.Auto = False
.Position.Height = 86
.Position.Width = 88
.Position.X = 6
.Position.Y = 6
End With
Chart1.Legends(0).BackColor = System.Drawing.Color.Transparent
End Sub
Private Sub startTrending_Click(sender As Object, e As System.EventArgs) Handles startTrending.Click
startTrending.Enabled = False
stopTrending.Enabled = True
Dim minValue = New Date(100)
minValue = DateTime.Now
Dim maxValue As New Date(100)
maxValue = minValue.AddSeconds(100)
Chart1.ChartAreas(0).AxisX.Minimum = minValue.ToOADate()
Chart1.ChartAreas(0).AxisX.Maximum = maxValue.ToOADate()
Chart1.Series.Clear()
Chart1.Series.Add("Streaming Data")
With Chart1.Series(0)
'Chart1.Series(0).IsVisibleInLegend = False
.ChartType = SeriesChartType.Line
.BorderWidth = 2
.Color = Color.OrangeRed
.BorderColor = Color.FromArgb(224, 64, 10)
.ShadowOffset = 1
End With
' start worker threads.
If addDataRunner.IsAlive = True Then
addDataRunner.Resume()
Else
addDataRunner.Start()
End If
End Sub 'startTrending_Click
Private Sub stopTrending_Click(sender As Object, e As System.EventArgs) Handles stopTrending.Click
If addDataRunner.IsAlive = True Then
addDataRunner.Suspend()
End If
startTrending.Enabled = True
stopTrending.Enabled = False
End Sub
Private Sub AddDataThreadLoop()
While True
chart1.Invoke(addDataDel)
Thread.Sleep(200)
End While
End Sub
Public Sub AddData()
Dim timeStamp As DateTime = DateTime.Now
Dim ptSeries As Series
For Each ptSeries In chart1.Series
AddNewPoint(timeStamp, ptSeries)
Next ptSeries
End Sub
Public Sub AddNewPoint(timeStamp As DateTime, ptSeries As System.Windows.Forms.DataVisualization.Charting.Series)
Dim newVal As Double = 0
If ptSeries.Points.Count > 0 Then
newVal = ptSeries.Points((ptSeries.Points.Count - 1)).YValues(0) + (rand.NextDouble() * 2 - 1)
End If
If newVal < 0 Then
newVal = 0
End If
' Add new data point to its series.
ptSeries.Points.AddXY(timeStamp.ToOADate(), rand.Next(10, 20))
' remove all points from the source series older than 1.5 minutes.
Dim removeBefore As Double = timeStamp.AddSeconds((CDbl(10) * -1)).ToOADate()
'remove oldest values to maintain a constant number of data points
While ptSeries.Points(0).XValue < removeBefore
ptSeries.Points.RemoveAt(0)
End While
chart1.ChartAreas(0).AxisX.Minimum = ptSeries.Points(0).XValue
Chart1.ChartAreas(0).AxisX.Maximum = DateTime.FromOADate(ptSeries.Points(0).XValue).AddMinutes(0.3).ToOADate()
chart1.Invalidate()
End Sub
End Class
我尝试过：
i试图在我的视觉工作室2017上运行它，我不明白如何调试它。
请帮忙。谢谢。
What I have tried:
i have tried to run it on my visual studio 2017 and I did not understand how to debug it.
please help. thanks.
推荐答案
在编辑器中打开源代码（查看代码）。单击窗口左侧灰色边框中的鼠标，旁边是一行代码，应显示一个红色磁盘。按下键盘上的F5，调试器应开始运行代码，并将停在红色磁盘 - 断点行。从那里你可以单步执行代码，检查和修改变量等。
[edit]
参见在Visual Studio中进行调试 [ ^ ]。
[/ edit]
Open your source code in the editor (View Code). Click the mouse in the grey border at the left of the window, alongside a line of code, and a red disk should appear. Press F5 on the keyboard and the debugger should start running the code, and will stop at the red disk - the 'breakpoint' line. From there you can single step through code, inspect and modify variables etc.
[edit]
See also Debugging in Visual Studio[^].
[/edit]
谢谢我已经调试过代码已经在我自己。
Thanks I have debugged the code already on my own.
这篇关于嘿我试图在visual basic.net上调试这个代码的任何想法？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
查看全文
