Fare un grafico a linee in Visual Basic.NET o VB.NET, non è così complicato come si potrebbe pensare. È possibile utilizzare controlli chart in VB per creare grafici semplici, intuitivi e visivamente accattivanti per eseguire complesse analisi statistica o finanziaria. Utilizzare le proprietà di serie e punti per definire i dati che si desidera visualizzare sul grafico. La proprietà ChartType viene utilizzata per definire il tipo di grafico che si desidera utilizzare, ad esempio un grafico a linee.

Istruzioni

1

Avviare Microsoft Visual Studio, fare clic su "Nuovo progetto" dal riquadro sinistro dello schermo del computer ed espandere "Visual Basic" sotto modelli installati. Fare clic su "Windows" e fare doppio clic su "Windows Forms Application" dal centro della finestra di dialogo per creare un nuovo progetto.

2

Pulsante destro del mouse il riquadro della casella degli strumenti e fare clic su "Scegli elementi". Fare clic sulla scheda ".NET Framework componenti" e selezionare la casella di "Chart" per aggiungere un nuovo controllo chart alla casella degli strumenti. Fare doppio clic sul controllo "Chart" per aggiungere un nuovo controllo chart al form. Fare doppio clic sul "Pulsante" per aggiungere un nuovo pulsante al form.

3

Pulsante destro del mouse il modulo e fare clic su "Visualizza codice" per lanciare il modulo di codice VB. Copiare e incollare il codice seguente per definire le proprietà del grafico durante l'evento form load:

Dim dtGraph As New DataTable

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

dtGraph.Columns.Add("TimePoint", GetType(Integer))

dtGraph.Columns.Add("Speed", GetType(Integer))

dtGraph.Rows.Add(0, 0)

dtGraph.Rows.Add(1000, 50)

dtGraph.Rows.Add(2000, 50)

dtGraph.Rows.Add(3000, 0)

With 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 Sub4

Copiare e incollare il codice riportato di seguito per rendere il grafico di linea:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1. Click

With Chart1.Series(0)

.Points.DataBind(dtGraph.DefaultView, "TimePoint", "Speed", Nothing)

.ChartType = DataVisualization.Charting.SeriesChartType.Line

.BorderWidth = 4

End With

End Sub