lancio di Microsoft Visual Studio , fare clic su " Nuovo Progetto" dal riquadro sinistro dello schermo del computer , e espandere " Visual Basic " Modelli di sotto installati . Fare clic su " Windows" e fare doppio clic su " Applicazione Windows Form " dal centro della finestra di dialogo per creare un nuovo progetto .
2
destro del mouse sul riquadro Casella degli strumenti e fare clic su " Scegli elementi. " Fare clic su " NET . Framework Components " scheda e selezionare la casella "Chart" per aggiungere un nuovo controllo grafico alla Casella degli strumenti . Fare doppio clic sul controllo "Carta " per aggiungere un nuovo controllo grafico per il vostro modulo . Fare doppio clic su "Pulsante " per aggiungere un nuovo pulsante al form .
3
destro del mouse il modulo e fare clic su " Visualizza codice " per avviare il modulo di codice VB . Copiare e incollare il seguente codice per definire le proprietà del grafico durante l' evento di caricamento form:
Dim dtGraph As New DataTable
Private Sub Form1_Load ( ByVal sender As System.Object , ByVal e come sistema . EventArgs ) Handles MyBase.Load
dtGraph.Columns.Add ( " TimePoint " , GetType ( Integer ) ) per
dtGraph.Columns.Add ( "Speed" , GetType ( Integer ) )
dtGraph.Rows.Add ( 0 , 0 ) per
dtGraph.Rows.Add ( 1000, 50 ) per
dtGraph.Rows.Add (2000 , 50 ) per
dtGraph.Rows.Add ( 3000 , 0 ) per
Chart1.ChartAreas ( 0 ) per
. AxisX.Minimum = 0
. AxisX.Maximum = 3000
. AxisY.Minimum = 0
. AxisY.Maximum = 60
. AxisY.Interval = 10
. AxisX.Title = " Tempo "
. AxisY.Title = "Velocità"
End With End Sub
4
Copia e incolla il seguente codice per fare il grafico a linee :
private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
Chart1.Series ( 0 ) per
Points. . DataBind ( dtGraph.DefaultView , " TimePoint " , "Speed" , Nothing)
. ChartType = DataVisualization.Charting.SeriesChartType.Line
. BorderWidth = 4
End con
End Sub
Programmazione © www.354353.com