Option Strict On

Imports System.Net
Imports System.IO

Public Class Weather
    Dim Source As New RichTextBox

    Public Function Temperatur(PLZ As String) As Double
        Try
            Dim httpRequest As HttpWebRequest = CType(HttpWebRequest.Create("http://api.openweathermap.org/data/2.5/weather?q=" & PLZ & "&mode=xml"), HttpWebRequest)
            Dim httpResponse As HttpWebResponse = CType(httpRequest.GetResponse(), HttpWebResponse)
            Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
            Source.Text = reader.ReadToEnd

            Dim temper As Double = 0

            For Each line In Source.Lines
                If line.StartsWith("  <temperature") Then
                    temper = CDbl(line.Substring(22).Remove(3))
                End If
            Next

            Return temper - 272
        Catch ex As Exception
            Return Nothing
        End Try
    End Function

    Public Function Sunrise(PLZ As String) As String
        Try
            Dim httpRequest As HttpWebRequest = CType(HttpWebRequest.Create("http://api.openweathermap.org/data/2.5/weather?q=" & PLZ & "&mode=xml"), HttpWebRequest)
            Dim httpResponse As HttpWebResponse = CType(httpRequest.GetResponse(), HttpWebResponse)
            Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
            Source.Text = reader.ReadToEnd

            Dim time As String = "00:00:00"

            For Each line In Source.Lines
                If line.StartsWith("    <sun") Then
                    time = line.Substring(26).Remove(8)
                End If
            Next

            Return time
        Catch ex As Exception
            Return Nothing
        End Try
    End Function

    Public Function Sunset(PLZ As String) As String
        Try
            Dim httpRequest As HttpWebRequest = CType(HttpWebRequest.Create("http://api.openweathermap.org/data/2.5/weather?q=" & PLZ & "&mode=xml"), HttpWebRequest)
            Dim httpResponse As HttpWebResponse = CType(httpRequest.GetResponse(), HttpWebResponse)
            Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
            Source.Text = reader.ReadToEnd

            Dim time As String = "00:00:00"

            For Each line In Source.Lines
                If line.StartsWith("    <sun") Then
                    time = line.Substring(52).Remove(8)
                End If
            Next

            Return time
        Catch ex As Exception
            Return Nothing
        End Try
    End Function

    Public Function Humidity(PLZ As String) As Integer
        Try
            Dim httpRequest As HttpWebRequest = CType(HttpWebRequest.Create("http://api.openweathermap.org/data/2.5/weather?q=" & PLZ & "&mode=xml"), HttpWebRequest)
            Dim httpResponse As HttpWebResponse = CType(httpRequest.GetResponse(), HttpWebResponse)
            Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
            Source.Text = reader.ReadToEnd

            Dim percentage As Integer = 0

            For Each line In Source.Lines
                If line.StartsWith("  <humidity") Then
                    percentage = CInt(line.Substring(19).Remove(2))
                End If
            Next

            Return percentage
        Catch ex As Exception
            Return Nothing
        End Try
    End Function

    Public Function Mode(PLZ As String) As String
        Try
            Dim httpRequest As HttpWebRequest = CType(HttpWebRequest.Create("http://api.openweathermap.org/data/2.5/weather?q=" & PLZ & "&mode=xml"), HttpWebRequest)
            Dim httpResponse As HttpWebResponse = CType(httpRequest.GetResponse(), HttpWebResponse)
            Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
            Source.Text = reader.ReadToEnd

            Dim text As String = ""

            For Each line In Source.Lines
                If line.StartsWith("  <weather") Then
                    text = line.Substring(31).Substring(0, line.Substring(31).Length - 14)
                End If
            Next

            Return text
        Catch ex As Exception
            Return Nothing
        End Try
    End Function

    Public Function GetCity(PLZ As String) As String
        Try
            Dim httpRequest As HttpWebRequest = CType(HttpWebRequest.Create("http://api.openweathermap.org/data/2.5/weather?q=" & PLZ & "&mode=xml"), HttpWebRequest)
            Dim httpResponse As HttpWebResponse = CType(httpRequest.GetResponse(), HttpWebResponse)
            Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
            Source.Text = reader.ReadToEnd

            Dim text As String = ""

            For Each line In Source.Lines
                If line.StartsWith("  <city") Then
                    text = line.Substring(27).Replace(""">", "")
                End If
            Next
            Return text
        Catch ex As Exception
            Return Nothing
        End Try
    End Function
End Class