Home Automation Domotica Forum Europe, Bwired Forum

Code: Select all

Script compile error: Het argument is niet opgegeven voor de parameter data2 van Public Function Transmit(code As String, cmd As String, dimval As Integer, data2 As Integer, wait As Boolean, [raw As Boolean = False], [update As Boolean = True], [out_interface As Integer = 0]) As Integer.on line 133

Code: Select all

  Private Sub GetNeerslag()

    Chart1.Series("Series1").Points.Clear()
    Dim NeerslagSource As String
    Try

      Dim NeerslagURL As String = "http://gps.buienradar.nl/getrr.php?lat=" & GPSLat.ToString.Replace(",", ".") & "&lon=" & GPSLong.ToString.Replace(",", ".")      
      NeerslagSource = GetURL(NeerslagURL)

    Catch ex As Exception

      'better luck next time
      Exit Sub

    End Try

    Dim NeerslagLines() As String
    NeerslagLines = NeerslagSource.Split(Chr(13) & Chr(10))
    Dim NeerslagLine As String
    Dim ValueTime() As String
    Dim XValues(NeerslagLines.Count) As String
    Dim YValues(NeerslagLines.Count) As Double
    Dim YVal, mmpu As Double   
    Try
      For i = 0 To NeerslagLines.Count - 1
        NeerslagLine = NeerslagLines(i)
        If NeerslagLine.Trim <> "" Then
          ValueTime = NeerslagLine.Split(Chr(124))
          YVal = CDbl(ValueTime(0))
          XValues(i) = ValueTime(1)
          mmpu = Math.Round(Math.Pow(10, (YVal - 109) / 32), 1)
          YValues(i) = mmpu
        End If
      Next

    Catch ex As Exception

      'handle it

    End Try
    Chart1.Series("Series1").Points.DataBindXY(XValues, YValues)
  End Sub