From dd27da9f5590888a338a075a7623687b157d69a2 Mon Sep 17 00:00:00 2001 From: hwd Date: Thu, 6 May 2021 18:37:40 +0200 Subject: [PATCH] erste gehversuche --- DogeCharts/Form1.Designer.vb | 66 +++++++++++++++++++++++++----------- DogeCharts/Form1.vb | 9 ++++- 2 files changed, 55 insertions(+), 20 deletions(-) diff --git a/DogeCharts/Form1.Designer.vb b/DogeCharts/Form1.Designer.vb index 48c95c0..0c54bc8 100644 --- a/DogeCharts/Form1.Designer.vb +++ b/DogeCharts/Form1.Designer.vb @@ -23,29 +23,31 @@ Partial Class Form1 _ Private Sub InitializeComponent() Dim ChartArea1 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() - Dim ChartArea2 As System.Windows.Forms.DataVisualization.Charting.ChartArea = New System.Windows.Forms.DataVisualization.Charting.ChartArea() Dim Legend1 As System.Windows.Forms.DataVisualization.Charting.Legend = New System.Windows.Forms.DataVisualization.Charting.Legend() Dim Series1 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() - Dim Series2 As System.Windows.Forms.DataVisualization.Charting.Series = New System.Windows.Forms.DataVisualization.Charting.Series() Me.tbCoinDataURL = New System.Windows.Forms.TextBox() Me.btnGetCoinData = New System.Windows.Forms.Button() Me.Chart1 = New System.Windows.Forms.DataVisualization.Charting.Chart() + Me.Panel1 = New System.Windows.Forms.Panel() CType(Me.Chart1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() Me.SuspendLayout() ' 'tbCoinDataURL ' - Me.tbCoinDataURL.Location = New System.Drawing.Point(12, 12) + Me.tbCoinDataURL.Location = New System.Drawing.Point(18, 18) + Me.tbCoinDataURL.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.tbCoinDataURL.Name = "tbCoinDataURL" - Me.tbCoinDataURL.Size = New System.Drawing.Size(331, 20) + Me.tbCoinDataURL.Size = New System.Drawing.Size(494, 26) Me.tbCoinDataURL.TabIndex = 0 Me.tbCoinDataURL.Text = "https://www.hirnwun.de:4555/c/getCoinData.php" ' 'btnGetCoinData ' - Me.btnGetCoinData.Location = New System.Drawing.Point(349, 10) + Me.btnGetCoinData.Location = New System.Drawing.Point(524, 15) + Me.btnGetCoinData.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.btnGetCoinData.Name = "btnGetCoinData" - Me.btnGetCoinData.Size = New System.Drawing.Size(75, 23) + Me.btnGetCoinData.Size = New System.Drawing.Size(112, 35) Me.btnGetCoinData.TabIndex = 1 Me.btnGetCoinData.Text = "get data" Me.btnGetCoinData.UseVisualStyleBackColor = True @@ -54,38 +56,63 @@ Partial Class Form1 ' Me.Chart1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + ChartArea1.AxisX.Crossing = -1.7976931348623157E+308R + ChartArea1.AxisX.IsLabelAutoFit = False + ChartArea1.AxisX.LabelStyle.Angle = -65 + ChartArea1.AxisX.MinorTickMark.Enabled = True + ChartArea1.AxisX.MinorTickMark.Interval = 1.0R + ChartArea1.AxisX.MinorTickMark.IntervalType = System.Windows.Forms.DataVisualization.Charting.DateTimeIntervalType.Number + ChartArea1.AxisX.MinorTickMark.TickMarkStyle = System.Windows.Forms.DataVisualization.Charting.TickMarkStyle.AcrossAxis + ChartArea1.AxisX.ScaleBreakStyle.LineDashStyle = System.Windows.Forms.DataVisualization.Charting.ChartDashStyle.NotSet + ChartArea1.AxisX.ScaleView.Zoomable = False + ChartArea1.AxisY.Maximum = 1.0R + ChartArea1.AxisY.Minimum = 0R ChartArea1.Name = "ChartArea1" - ChartArea2.Name = "ChartArea2" Me.Chart1.ChartAreas.Add(ChartArea1) - Me.Chart1.ChartAreas.Add(ChartArea2) + Legend1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Legend1.IsTextAutoFit = False + Legend1.LegendStyle = System.Windows.Forms.DataVisualization.Charting.LegendStyle.Column Legend1.Name = "Legend1" + Legend1.Position.Auto = False + Legend1.Position.Height = 5.709625! + Legend1.Position.Width = 10.40413! + Legend1.Position.X = 86.59587! + Legend1.Position.Y = 3.0! Me.Chart1.Legends.Add(Legend1) - Me.Chart1.Location = New System.Drawing.Point(12, 39) + Me.Chart1.Location = New System.Drawing.Point(4, 54) + Me.Chart1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.Chart1.Name = "Chart1" Series1.ChartArea = "ChartArea1" + Series1.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Line + Series1.CustomProperties = "LabelStyle=Right" Series1.Legend = "Legend1" - Series1.Name = "Series1" - Series2.ChartArea = "ChartArea2" - Series2.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Line - Series2.Legend = "Legend1" - Series2.Name = "LineChart" + Series1.Name = "DOGE" Me.Chart1.Series.Add(Series1) - Me.Chart1.Series.Add(Series2) - Me.Chart1.Size = New System.Drawing.Size(776, 399) + Me.Chart1.Size = New System.Drawing.Size(1125, 348) Me.Chart1.TabIndex = 2 Me.Chart1.Text = "Chart1" ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.Chart1) + Me.Panel1.Location = New System.Drawing.Point(37, 113) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1151, 452) + Me.Panel1.TabIndex = 3 + ' 'Form1 ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 20.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(800, 450) - Me.Controls.Add(Me.Chart1) + Me.ClientSize = New System.Drawing.Size(1200, 692) + Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.btnGetCoinData) Me.Controls.Add(Me.tbCoinDataURL) + Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.Name = "Form1" Me.Text = "Form1" CType(Me.Chart1, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() @@ -94,4 +121,5 @@ Partial Class Form1 Friend WithEvents tbCoinDataURL As TextBox Friend WithEvents btnGetCoinData As Button Friend WithEvents Chart1 As DataVisualization.Charting.Chart + Friend WithEvents Panel1 As Panel End Class diff --git a/DogeCharts/Form1.vb b/DogeCharts/Form1.vb index e06e12e..0e79b71 100644 --- a/DogeCharts/Form1.vb +++ b/DogeCharts/Form1.vb @@ -13,6 +13,11 @@ Public Class Form1 tblData.Columns.Add("tStamp") tblData.Columns.Add("priceEUR") + With Chart1.Series.Item(0) + .LabelAngle = 90 + .MarkerStep = 5 + End With + Dim drowCoindata As DataRow = tblData.NewRow Dim sRead As StreamReader sRead = New StreamReader("coindata.json") @@ -23,15 +28,17 @@ Public Class Form1 Dim jo = Newtonsoft.Json.Linq.JArray.Parse(rawresp) Dim lastelement As Int32 = jo.Count - 1 - For i As Int32 = 0 To 3 'lastelement + For i As Int32 = 0 To lastelement tblData.Rows.Add(jo(i)("tstamp"), jo(i)("bitpandaDOGE")) + Chart1.Series.Item(0).Points.AddXY(CInt(jo(i)("tstamp")), CDbl(jo(i)("bitpandaDOGE"))) Next + 'Dim wReq As HttpWebRequest = DirectCast(WebRequest.Create(tbCoinDataURL.Text), HttpWebRequest) 'Dim px As IWebProxy = WebRequest.GetSystemWebProxy()