private Sub ConstructURL
lblStatus.Text="Fetching weather data ..."
ChannelNumber=320990
LinkURL=$"https://api.thingspeak.com/channels/${ChannelNumber}/feeds.json?results=${nResults}"$
MyJobName="Weather"
Wait For (GetData(LinkURL)) Complete (Resp As String)
Log(Resp)
'Sleep(3000)
Log("******************************************")
lblStatus.Text="Fetching heating data ..."
ChannelNumber=1325681
LinkURL=$"https://api.thingspeak.com/channels/${ChannelNumber}/feeds.json?results=${nResults}"$
MyJobName="Heating"
Wait For (GetData(LinkURL)) Complete (Resp As String)
Log(Resp)
'Sleep(2000)
PrepareChart
End Sub
private Sub GetData(GetLink As String) As ResumableSub
Log("Getting data from job: " & MyJobName)
Log(GetLink)
Dim j As HttpJob
j.Initialize(MyJobName, Me)
j.Download(GetLink)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
'Log(j.GetString)
Log($"Job ${j.JobName} was a success"$)
ParseJSON(j.GetString)
j.Release
Return j.JobName & " parsed"
Else
j.Release
Return j.JobName & " failed"
End If
End Sub