Hvordan lage en graf med Visual Basic

Lage et linjediagram i Visual Basic.NET eller VB.NET, er ikke så komplisert som du kanskje tror. Du kan bruke chart kontroller i VB for å lage enkle, intuitive og visuelt overbevisende diagrammer for kompleks statistisk eller økonomisk analyse. Bruk serien og poeng egenskaper til å definere data du vil vise på kartet. Diagram Eiendommen brukes til å definere hvilken type diagram du vil bruke, for eksempel et linjediagram.

Bruksanvisning

1 Start Microsoft Visual Studio, klikk på "New Project" fra ruten til venstre på skjermen, og utvide "Visual Basic" under Installerte maler. Klikk på "Windows" og dobbeltklikk på "Windows Forms Application" fra midten av dialogvinduet for å opprette et nytt prosjekt.

2 Høyreklikk på Toolbox ruten, og klikk "Velg elementer." Klikk på ".NET Framework-komponenter" -kategorien og sjekke "Chart" boksen for å legge til et nytt diagram kontrollen til Toolbox. Dobbeltklikk på "Chart" kontrollen for å legge til et nytt diagram kontroll i skjemaet. Dobbeltklikk på "Button" for å legge til en ny knapp i skjemaet.

3 Høyreklikk skjemaet og klikk på "Vis Kode" for å starte VB kodemodulen. Kopier og lim inn følgende kode for å definere chart eiendommer i løpet av skjema belastning hendelsen:

Dim dtGraph Som New Datatable

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

dtGraph.Columns.Add ( "endepunktet", getType (heltall))

dtGraph.Columns.Add ( "Speed", getType (heltall))

dtGraph.Rows.Add (0, 0)

dtGraph.Rows.Add (1000, 50)

dtGraph.Rows.Add (2000, 50)

dtGraph.Rows.Add (3000, 0)

Med Chart1.ChartAreas (0)

.AxisX.Minimum = 0

.AxisX.Maximum = 3000

.AxisY.Minimum = 0

.AxisY.Maximum = 60

.AxisY.Interval = 10

.AxisX.Title = "Time"

.AxisY.Title = "Speed"

End With

End Sub

4 Kopier og lim inn følgende kode for å gjøre linjen grafen:

Private Sub button1_click (ByVal sender As System.Object, ByVal e As System.EventArgs) Håndtak Button1.Click

With Chart1.Series(0)

.Points.DataBind (DtGraph.DefaultView, "endepunktet", "Speed", Nothing)

.ChartType = DataVisualization.Charting.SeriesChartType.Line

.BorderWidth = 4

End With

End Sub