用visual basic画频谱图的代码
时间: 2023-02-08 19:28:47 浏览: 76
用 Visual Basic 画频谱图需要用到第三方图表控件,代码示例如下:
```
'引用图表控件
Imports System.Windows.Forms.DataVisualization.Charting
'在窗体上添加图表控件
Dim chart1 As New Chart
Me.Controls.Add(chart1)
'设置图表类型为柱状图
chart1.ChartAreas.Add("ChartArea1").AxisX.Interval = 1
chart1.ChartAreas("ChartArea1").AxisY.Interval = 10
chart1.ChartAreas("ChartArea1").AxisX.Title = "频率"
chart1.ChartAreas("ChartArea1").AxisY.Title = "幅值"
chart1.ChartAreas("ChartArea1").AxisX.TitleFont = New System.Drawing.Font("Microsoft Sans Serif", 10.0F, System.Drawing.FontStyle.Bold)
chart1.ChartAreas("ChartArea1").AxisY.TitleFont = New System.Drawing.Font("Microsoft Sans Serif", 10.0F, System.Drawing.FontStyle.Bold)
chart1.ChartAreas("ChartArea1").BackColor = Color.Black
chart1.ChartAreas("ChartArea1").AxisX.LineColor = Color.White
chart1.ChartAreas("ChartArea1").AxisY.LineColor = Color.White
chart1.ChartAreas("ChartArea1").AxisX.LabelStyle.ForeColor = Color.White
chart1.ChartAreas("ChartArea1").AxisY.LabelStyle.ForeColor = Color.White
chart1.Series.Add("Series1")
chart1.Series("Series1").ChartType = SeriesChartType.Column
'添加数据
chart1.Series("Series1").Points.AddXY(1, 20)
chart1.Series("Series1").Points.AddXY(2, 30)
chart1.Series("Series1").Points.AddXY(3, 40)
chart1.Series("Series1").Points.AddXY(4, 50)
chart1.Series("Series1").Points.AddXY(5, 60)
'显示图表
chart1.Visible = True
```
代码中需要注意的是需要在窗体中引用图表控件,然后需要添加图表控件,设置图表类型、添加数据并显示图表。