erste gehversuche

DogeCharts/Form1.Designer.vb

@@ -23,29 +23,31 @@ Partial Class Form1
     <System.Diagnostics.DebuggerStepThrough()> _
     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"
+        Series1.Name = "DOGE"
-        Series2.ChartArea = "ChartArea2"
-        Series2.ChartType = System.Windows.Forms.DataVisualization.Charting.SeriesChartType.Line
-        Series2.Legend = "Legend1"
-        Series2.Name = "LineChart"
         Me.Chart1.Series.Add(Series1)
-        Me.Chart1.Series.Add(Series2)
+        Me.Chart1.Size = New System.Drawing.Size(1125, 348)
-        Me.Chart1.Size = New System.Drawing.Size(776, 399)
         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.ClientSize = New System.Drawing.Size(1200, 692)
-        Me.Controls.Add(Me.Chart1)
+        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

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()