Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > Coding Releases > Coding Snippets
You last visited: Today at 17:53

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



Wetter Anzeige

Discussion on Wetter Anzeige within the Coding Snippets forum part of the Coding Releases category.

Reply
 
Old   #1
 
HackTec's Avatar
 
elite*gold: 11
Join Date: Apr 2010
Posts: 1,663
Received Thanks: 1,232
Post Wetter Anzeige

Moinsen , Ich Stell euch mal kurz eine Billige und schnelle Methode vor ein kleine Anwendung mit Formular ID zu erstellen die euch das Wetter anzeigt mit der Google Seite.

In diesen Beispiel mit Berlin

Imports sind wahrscheinlich überflüssig aber ich hau die in jeden code rein zur sicherheit ^^


Ihr Braucht dafür :

Code:
- 7 Label
- 1 Webbrowser
- 1 Picturebox
- 2 Timer ( ein für den Ersten start und der andere für das Refreshen)



Da wir mit der Google Seite arbeiten und schnell fertig sein wollen gibts nur Stunden berichte wäre also dumm den Timer so oft starten zu lassen wenns kaum was bringt , alle 15min oder 30min refresh durch den Timer würde reichen.

falls die Formular ID falsch sind / sich halt neu updaten einfach nachtragen . wie findet man die ID herraus ? einfach Rechtsklick und dann "Element Untersuchen"





Code:
'////////////////////////////////////////////////////////////////////////////////Imports
Imports System
Imports System.Diagnostics
Imports System.ComponentModel
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Net
Imports System.IO
Imports System.Threading
Imports System.Windows.Forms
Imports System.Management
Imports Microsoft.Win32
Imports System.Collections.Generic
Imports System.Data
Imports System.Linq
'///////////////////////////////////////////////////////////////////////////////
'///////////////////////////////////////////////////////////////////////////////


Public Class Form1
    '///////////////////////////////////////////////////////////////////////////////
    '// DIM Strings
    Dim WetterSeite As String = "https://www.google.de/search?hl=de&site=&q=wetter+Berlin+google"

    Dim dd As Date = Now


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate(WetterSeite)
        Application.DoEvents()
        Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop
        TickerFast.Start()
    End Sub



    Private Sub TickerFast_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TickerFast.Tick

        WetterAktuell.ImageLocation = WebBrowser1.Document.GetElementById("wob_tci").GetAttribute("src")
        Stadt.Text = WebBrowser1.Document.GetElementById("wob_loc").InnerText
        DatumID.Text = WebBrowser1.Document.GetElementById("wob_dts").InnerText
        StatusID.Text = WebBrowser1.Document.GetElementById("wob_dc").InnerText
        TempID.Text = WebBrowser1.Document.GetElementById("wob_tm").InnerText + " °C"

        Niederschlag.Text = "Niederschlag: " + WebBrowser1.Document.GetElementById("wob_pp").InnerText
        Windstärke.Text = "Windstärke: " + WebBrowser1.Document.GetElementById("wob_ws").InnerText
        Luftfeuchtigkeit.Text = "Luftfeuchtigkeit: " + WebBrowser1.Document.GetElementById("wob_hm").InnerText

        TickerFast.Stop()
        Ticker.Start()
    End Sub


    Private Sub Ticker_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ticker.Tick

            WetterAktuell.ImageLocation = WebBrowser1.Document.GetElementById("wob_tci").GetAttribute("src")
            Stadt.Text = WebBrowser1.Document.GetElementById("wob_loc").InnerText
            DatumID.Text = WebBrowser1.Document.GetElementById("wob_dts").InnerText
            StatusID.Text = WebBrowser1.Document.GetElementById("wob_dc").InnerText
            TempID.Text = WebBrowser1.Document.GetElementById("wob_tm").InnerText + " °C"

            Niederschlag.Text = "Niederschlag: " + WebBrowser1.Document.GetElementById("wob_pp").InnerText
            Windstärke.Text = "Windstärke: " + WebBrowser1.Document.GetElementById("wob_ws").InnerText
            Luftfeuchtigkeit.Text = "Luftfeuchtigkeit: " + WebBrowser1.Document.GetElementById("wob_hm").InnerText


    End Sub

 
End Class
So würde das Programm dann am ende Aussehen.



HackTec is offline  
Thanks
1 User
Reply


Similar Threads Similar Threads
☀Wetter-Thread☀ - allgemeiner Tratsch übers Wetter
04/27/2012 - Off Topic - 18 Replies
Hey com, Ich habe heute mal einen Wetter-Thread aufgemacht. In diesem Thread könnt ihr über das allgemeine Wetter in Deutschland oder der Welt reden & diskutieren. z.B. könnt ihr hier euer aktuelles wetter in eurer Stadt posten & mit anderen Leuten drüber zu reden. Natürlich könnt ihr auch über Umweltkatastrophen die das Wetter/Klima beieinflussem reden. Ich hoffe das ihr viel Spaß mit diesem Thread habt :)
Wetter
12/06/2010 - Off Topic - 12 Replies
Hey alle zusammen findet ihr das wetter auch so scheiße oder wie sieht es bei euch aus ? mfg Janiboj
Langweilig scheiß wetter scheiß tag
08/05/2010 - Off Topic - 27 Replies
hi mir is heut den ganzen tag lw es ist scheis wetter keiner meiner freunde hat zeit und am pc möcht ich auch nich sien darum bin ich auch mit ipod on gebt mal tipps was ihr bei so einem scheis wetter macht dass euch nicht langweilig ist und jetzt sagt nichts was mit computer zu tun hat
Ascent Wetter Probleme
04/05/2008 - WoW Private Server - 0 Replies
Hey leute... Eine frage.. gibt es auf ascent derzeit einen funktionierenden Befehl um das wetter zu ändern? .debug weather gibts nicht... bzw gibt es eine möglichkeit, dass immer die sonne scheint in bestimmten gebieten? ja sql und so ist klar im weather table, die IDs von den Gebieten hab ich auch schon, aber die IDs von den verschiedenen Wetterzuständen nicht... lg
WM Wetter ?!
06/14/2006 - Off Topic - 7 Replies
Hej, also ich habe heute eine E-Mail bekommen mit folgender Seite: HIER. Ich tippe mal das das einfach nur ein Kiddy ist der sich wichtig machen will.



All times are GMT +1. The time now is 17:53.


Powered by vBulletin®
Copyright ©2000 - 2023, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2023 elitepvpers All Rights Reserved.