erste gehversuche
This commit is contained in:
hwd
66
DogeCharts/Form1.Designer.vb
generated
66
DogeCharts/Form1.Designer.vb
generated
@@ -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"
|
||||
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
|
||||
|
||||
@@ -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()
|
||||
|
||||
|
||||
Reference in New Issue
Block a user