Hallo ich möchte mir momentan ein tool Coden was mir die aktuellen Cryptocoin Kurse anzeigt
Also dachte ich mir das so:
ich nehme die api von: api.coinmarketcap.com/v1/ticker/
Wo die Daten wie folgt ausgegben werden:
Nun Wollte ich mir gerne eine Liste mit Coins anzeigen lassen wo durchs draufklicken auf den Jeweiligen coin die genaueren infos angezeigt werden
Dazu bin ich wie Folgt vorgegangen:
ich hatte da einen alten code von mir von der platte genutzt , nun musste ich leider feststellen das er die json runterladen statt auslesen will
daher wäre ich ziemlich dankebar über hilfe , da ich noch ein ziemlicher noob und ganz am anfang bin und keine ahnung hab wie ich das jetz umsetzen soll
Lg
Also dachte ich mir das so:
ich nehme die api von: api.coinmarketcap.com/v1/ticker/
Wo die Daten wie folgt ausgegben werden:
XML-Quellcode
- "id": "bitcoin",
- "name": "Bitcoin",
- "symbol": "BTC",
- "rank": "1",
- "price_usd": "8180.29",
- "price_btc": "1.0",
- "24h_volume_usd": "4378500000.0",
- "market_cap_usd": "136551126883",
- "available_supply": "16692700.0",
- "total_supply": "16692700.0",
- "max_supply": "21000000.0",
- "percent_change_1h": "-0.02",
- "percent_change_24h": "0.03",
- "percent_change_7d": "24.77",
- "last_updated": "1511272451"
- },
- {
- "id": "ethereum",
- "name": "Ethereum",
- "symbol": "ETH",
- "rank": "2",
- "price_usd": "367.945",
- "price_btc": "0.0447662",
- "24h_volume_usd": "1060520000.0",
- "market_cap_usd": "35272645709.0",
- "available_supply": "95863908.0",
- "total_supply": "95863908.0",
- "max_supply": null,
- "percent_change_1h": "0.24",
- "percent_change_24h": "2.39",
- "percent_change_7d": "11.23",
- "last_updated": "1511272453"
Nun Wollte ich mir gerne eine Liste mit Coins anzeigen lassen wo durchs draufklicken auf den Jeweiligen coin die genaueren infos angezeigt werden
Dazu bin ich wie Folgt vorgegangen:
VB.NET-Quellcode
- Imports System.IO
- Imports System.Text.RegularExpressions
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- WebBrowser.Navigate("https://api.coinmarketcap.com/v1/ticker/?convert=EUR")
- End Sub
- Private Sub Send_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
- WebBrowser.Document.GetElementById("bitcoin").InnerText = ListBox1.Text 'ID Bitcoin (Dachte ich liste die namen so in der listbox)
- WebBrowser.Document.GetElementById("litecoin").InnerText = ListBox1.Text 'ID litecoin (Dachte ich liste die namen so in der listbox)
- WebBrowser.Document.GetElementById("ripple").InnerText = ListBox1.Text 'ID ripple (Dachte ich liste die namen so in der listbox)
- WebBrowser.Document.Forms(0).InvokeMember("Refresh")
- Dim quellcode As String = WebBrowser.DocumentText
- Dim anfang As String = "id" 'Was vor dem Objekt steht
- Dim ende As String = "," 'Was dahinter steht
- Dim quellcodeSplit As String
- quellcodeSplit = Split(quellcode, anfang, 5)(1) 'Kp was hab das Copy Pasted
- quellcodeSplit = Split(quellcodeSplit, ende, 6)(0) 'Kp was hab das Copy Pasted
- MsgBox(quellcodeSplit) 'Was ausgelesen wurde
- End Sub
- End Class
ich hatte da einen alten code von mir von der platte genutzt , nun musste ich leider feststellen das er die json runterladen statt auslesen will
daher wäre ich ziemlich dankebar über hilfe , da ich noch ein ziemlicher noob und ganz am anfang bin und keine ahnung hab wie ich das jetz umsetzen soll
Lg