E90Post
 


 
BMW 3-Series (E90 E92) Forum > BIMMERPOST Universal Forums > Off-Topic Discussions Board > Visual Basic Help!



Reply
 
Thread Tools Search this Thread
      12-06-2011, 10:55 PM   #1
khaye1
Colonel
khaye1's Avatar
Philippines
161
Rep
2,811
Posts

Drives: 24 G87
Join Date: Feb 2009
Location: San Diego

iTrader: (8)

Garage List
  [10.00]
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)
__________________
Appreciate 0
Reply

Bookmarks


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off



All times are GMT -5. The time now is 05:39 AM.




e90post
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
1Addicts.com, BIMMERPOST.com, E90Post.com, F30Post.com, M3Post.com, ZPost.com, 5Post.com, 6Post.com, 7Post.com, XBimmers.com logo and trademark are properties of BIMMERPOST