|
|
|
|
|
|
BMW Garage | BMW Meets | Register | Today's Posts | Search |
|
BMW 3-Series (E90 E92) Forum
>
Visual Basic Help!
|
|
12-06-2011, 10:55 PM | #1 |
Colonel
161
Rep 2,811
Posts |
Visual Basic Help!
First off, I'm not asking you guys to do my homework for me...I'm asking for assistance or point me to the right direction. I'm tired of searching through a bunch of vids and tuts on you tube as well as reading articles posting the same question I have.
here's the objective http://faculty.sdmiramar.edu/jcoutur...al/a186-14.asp I'm stuck at #8 any info would be great....here's my code so far Private Sub btnClearDB_Click(sender As System.Object, e As System.EventArgs) Handles btnClearDB.Click ' Clear out the combobox cboLocations.Items.Clear() ' Dispay status message statusMsg.Text = "Database Has Been Cleared" End Sub Private Sub btnDownloadFB_Click(sender As System.Object, e As System.EventArgs) Handles btnDownloadFB.Click ' set up the URL Dim strURL As String strURL = "http://aviationweather.gov/products/nws/winds/?area=all&fint=06&lvl=lo" ' go get the page WebBrowser1.Navigate(strURL) statusMsg.Text = "Winds Aloft Data saved to file" End Sub Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted ' get everything between the PRE tags Dim strData As String strData = WebBrowser1.Document.GetElementsByTagName("pre").I tem(0).InnerText ' write to a text file Dim objWriter As New IO.StreamWriter("FBIN.txt") objWriter.WriteLine(strData) objWriter.Close() End Sub Private Sub btnUpdateDBFB_Click(sender As System.Object, e As System.EventArgs) Handles btnUpdateDBFB.Click End Sub Private Sub btnUpdateDBNames_Click(sender As System.Object, e As System.EventArgs) Handles btnUpdateDBNames.Click ' Setup the URL Dim strURL As String = "http://aviationweather.gov/products/nws/winds/?area=all&fint=06&lvl=lo" Dim doc = XDocument.Load(strURL)
__________________
|
Bookmarks |
|
|