View Single Post
      12-06-2011, 10:55 PM   #1
khaye1
Colonel
 
khaye1's Avatar
 
Drives: '12 MW 335i
Join Date: Feb 2009
Location: San Diego

Posts: 2,688
iTrader: (7)

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)
__________________
khaye1 is offline   Philippines
0
Reply With Quote