BMW M3 Forum (E90 E92)

BMW Garage BMW Meets Register Search Today's Posts Mark Forums Read


Go Back   M3Post - BMW M3 Forum > BIMMERPOST Universal Forums > Off-Topic Discussions Board
 
Lux Angel Eyes
Post Reply
 
Thread Tools Search this Thread
      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,641
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 online now   Philippines
0
Reply With Quote
Post Reply

Bookmarks

Thread Tools Search this Thread
Search this Thread:

Advanced Search

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
Forum Jump


All times are GMT -5. The time now is 12:59 AM.




m3post
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
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