|
I’m trying to get the lowlatitude, highlatidude and lowlongitude, highlongitude of an area given the zip code and the radius in miles.
This is what I’ve done but I think it is incorrect.
Anyone has a better calculation?
Thanks,
Martin
Sub SetRadius(ByVal iRadius, ByVal iZip)
Dim rs, SQL, iStartlat, iStartlong, LatRange, LongRange
SQL = "SELECT LATITUDE, LONGITUDE FROM ZIP_CODES WHERE ZIP = '" & iZip & "'"
Dim strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\PROJECT\zipbase.mdb"
Dim Conn = New OleDbConnection(strConn)
Conn.open()
Dim cmdSelect As New OleDbCommand(SQL, Conn)
Dim dr As OleDbDataReader
dr = cmdSelect.ExecuteReader()
While dr.Read()
iStartlat = dr(0)
iStartlong = dr(1)
End While
Conn.Close()
LatRange = iRadius / ((6076 / 5280) * 60)
LongRange = iRadius / (((Cos(CDbl(iStartlat * 3.141592653589 / 180)) * 6076) / 5280) * 60)
LowLatitude = iStartlat - LatRange
HighLatitude = iStartlat + LatRange
LowLongitude = iStartlong - LongRange
HighLongitude = iStartlong + LongRange
end sub
|
|
|
|
|
Ok, I’m not the seasoned programmer but you are at least talking in terms that I am very familiar with. If I read everything correctly, you have center latitude, center longitude, and a radius in miles. I am assuming the following; your Latitude and Longitude are in degree format, i.e. +/- 30.5 and your radius is in statute miles. Since I am use to doing all my calculation in Nautical Miles, I would convert the radius first:
RadiusNM = iRadius / 1.15077945 (1 NM = 1.15077945 statute mile)
Since there are 60 nautical miles in a degree, I would convert the RadiusNM into degree format so it is in the same format as my other data.
RadiusD = RadiusNM / 60
Now that the radius is in nautical terms in degree format, you can simple add and subtract it from your center latitude to get the High / Low latitudes.
HighLatitude = CenterLatitude + RadiusD
LowLatitude = Centerlatitude – RadiusD
For longitude you will need to multiply the distance of your radius in nautical miles by the COS of the center latitude.
HighLongitude = CenterLongitude + (RadiusD * COS(CenterLatitude))
LowLongitude = CenterLongitude - (RadiusD * COS(CenterLatitude))
|
|
|
|
|
Thank you for your reply. I tried your suggestion and I got the same result. I think that my zip code database is incorrect. Here is where I got the DB from : http://www.cfdynamics.com/zipbase/
If I try zip = 33182 and miles = 1 I get 71 zip codes. And if I try zip = 33182 and miles = 12 I also get 71 zip codes.
This is how I get the zip codes:
Private Sub getZip(ByVal LowLatitude As String, ByVal LowLongitude As String, ByVal HighLatitude As String, ByVal HighLongitude As String)
If (LowLongitude.Substring(3, 1) = ".") Then LowLongitude = "-0" + LowLongitude.Substring(1, LowLongitude.Length - 1)
If (HighLongitude.Substring(3, 1) = ".") Then HighLongitude = "-0" + HighLongitude.Substring(1, HighLongitude.Length - 1)
Dim sql = "Select ZIP FROM ZIP_CODES WHERE latitude > '+" + LowLatitude + "' and latitude < '+" + HighLatitude + "' and longitude < '" + LowLongitude + "' and longitude > '" + HighLongitude + "';"
Dim strConn As String
Dim strSQL As String
Dim Conn As OleDbConnection
Dim objDA As OleDbDataAdapter
Dim objDS As New DataSet()
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\PROJECT\zipbase.mdb"
Conn = New OleDbConnection(strConn)
Try
Conn.Open()
objDA = New OleDbDataAdapter(sql, Conn)
objDA.Fill(objDS, "ZIP_CODES")
Catch ex As Exception
MsgBox(ex.Message)
End Try
Conn.Close()
ComboBox1.DisplayMember = "ZIP"
ComboBox1.ValueMember = "ZIP"
ComboBox1.DataSource = objDS.Tables("ZIP_CODES")
MsgBox(ComboBox1.Items.Count.ToString) ‘display the # of zip found
End Sub
THANKS AGAIN,
MARTIN
|
|
|
|
|
Do you know where I can get another DB just like the one I'm using?
|
|
|
|
|
Have you stoped in the middle of this and checked to see what High / low Latitude and Longitude you are sending in the SQL statement. Since you know what the Latitude and Longitude of the zip is (33182 Lat 25.7802 & Long -80.4182), and you know what the distance is, you should know what the high and lows should be (High lat 25.7946 and low lat 25.76571). Seems pretty simple... BTW... Miami has 134 records that come up if you check for zip codes at zip-codes.com.
|
|
|
|
|
I did stop and checked the high and low Latitude/Longitude and all 4 look fine, but I get the same result with a radius of 1 mile and a radius of 12 miles. I think the DB I'm using is wrong. Do you know where I can find another zip code DB?
Thanks again,
Martin
|
|
|
|
|
Hey all,
Just wondering how to go about accessing and reading data from a remote (on a webserver) xml file. Thanks
|
|
|
|
|
Look for information on how to create xml web services. An xml web service is just another class library (dll) that resides in a remote web server. All the methods declared in the xml web service return xml formatted data.
After you create a web service dll and place it in a remote web server, you can create windows app and when you right click on "References" on solution explorer, select "Add Web Reference" and just set the reference to the xml service you created (similar to setting reference to a dll in your hard drive).
After you set a reference to your xml web service, you should be able to create an instance of any class in your web service and you should be able to call any methods that have [WebService] defined in front of the method. Note that you probably want to call methods asynchronously due to slow response over internet, so look for information in it. VS automatically creates methods that can be called asynchronously and you just pass a callback function to let you know when it's done.
|
|
|
|
|
Thanks for the help. I'll be looking into it. Cheers
|
|
|
|
|
Hi there,
I have problems with DSOFile 2.0 from Microsoft.
I have downloaded the component from the Microsoft Homepage and tried the sample (VB 6.0).
When I tried to change the document title of a document containing a title, everything worked fine.
When I tried to "create" the document title, I get an "access denied". With the same file within explorer I can set the document title and afterwards I can change it through DSOFile.
Is there any known restriction that I have to create the title manually to use DSOFile?
tia
Sebastian
|
|
|
|
|
You DO know this is a sample project to demonstrate how to use the IPropertySetStorage and IPropertyStorage interfaces, don't you? It's NOT production quality code, NOT supported, and NOT guaranteed to do anything!
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi Dave,
yes I DO know that this is a sample, that it is not supported...
I think it should be ok to ask why a given sample does not work as expected because there are only a few methods so I dont have a chance to do something different...
I have not found any information on how to set the document title except this component and this is not working. Maybe I do something wrong but it would be nice if someone can tell me what to correct...
tia
Sebastian
|
|
|
|
|
I want to know that how to computer turn on Sleep and wake up mode using Visual Basic Program automatic.
|
|
|
|
|
I have two application. In the first one, I want to store values to the app.config file from my app textbox, how do I do in the app.config?
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<appSettings>
<add key="Server" value="" />
<add key="UserID" value="" />
<add key="Password" value="" />
</appSettings>
</configuration>
what should do in the value = "" ?
for example:
if the textbox1.text = "MyServerName", when the button click, then send the value auto sign to app.config value="MyServerName"...
After I install this app. in the target machine, install my second app. I need to read the three value from the app.config. Do I need to create another app.config for the second app or I can read from the same app.config? If I do can read from the same app.config, how should I code it in my second app?
Thanks All Your Help!
Lisa
|
|
|
|
|
|
how can I read tha app.config from other app. created? it created a menu.exe.config..how can I read it from another application?
Lisa
|
|
|
|
|
You cannot write a config file during runtim. You will want to serialize an object with your data to an XML file. You can do it like this:
1) Lets say you have an object called CustomSettings that has a bunch of properties that you want to save
2) You can set the appSettingsFullpath to something like:
appSettingsFullPath = String.Concat( _
Application.StartupPath, "\custom.settings.xml")
3) Then you can write your CustomSettings object out like this:
Dim writer As StreamWriter
' Write (serialize) XML app settings data
' Folder: <app executable="" bin="">
Try
writer = New StreamWriter(appSettingsFullPath)
Dim serializer As New XmlSerializer(GetType(CustomSettings))
serializer.Serialize(writer, Me.AppCustomSettings)
Catch ex As Exception
MessageBox.Show( _
String.Format("Cannot serialize XML settings object.{0}{0}{1}{0}{0}{2}" _
, Microsoft.VisualBasic.ControlChars.CrLf _
, ex.Message, ex.StackTrace) _
)
Finally
writer.Close()
End Try
4) You can de-serialize (read it) back into your object like this:
' Get (deserialize) XML app settings data
' Folder: <app executable="" bin="">
Try
Dim fileObj As File
If Not fileObj.Exists(appSettingsFullPath) Then
'** Decide what you need to do here
End If
fs = New FileStream(appSettingsFullPath, FileMode.Open)
Dim csSerializer As New XmlSerializer(GetType(CustomSettings))
'** you can add two event handlers below if you wish
' AddHandler csSerializer.UnknownNode, AddressOf csSerializer_UnknownNode
' AddHandler csSerializer.UnknownAttribute, AddressOf csSerializer_UnknownAttribute
Dim cs As SMS.CustomSettings
Me.AppCustomSettings = CType(csSerializer.Deserialize(fs), CustomSettings)
Catch ex As Exception
MessageBox.Show( _
String.Format("Cannot de-serialize XML settings object.{0}{0}{1}{0}{0}{2}" _
, Microsoft.VisualBasic.ControlChars.CrLf _
, ex.Message, ex.StackTrace) _
)
Finally
fs.Close()
End Try
I hope this helps!
Thanks,
-Len Miller
"If I had eight hours to chop down a tree, I'd spend six sharpening my axe."
-Abraham Lincoln
|
|
|
|
|
Hello all,
I am making a vb.net application which is a product to be distributed in CD with moneyback guarantee. Since the CD will be offered with a money back guarantee, there needs to be some type of copy protection on the CD or the ability to only use the CD on one specific computer etc. Otherwise the customer can purchase the CD, make a full functioning copy and ask for their money refunded. If i provide a serial number, Customer can make a cd copy and use the serial number even after claiming for refund. Please provide any suggestions either for preventing to make duplicate CD or provide any mechanism which should be used to make application to be run on one system only.
Thanks,
Amod Mishra
|
|
|
|
|
Ahh! The Copy Protection pipe dream again.
Ever notice you don't see people, of sound mind and body anyway, selling software with a money back guarantee? Ever wonder why?
No matter what copy protection scheme you come up with, it will always come down to a single IF statement to determine wheather your code will run or not. This IF statement can ALWAYS be hacked to get around your protection.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Dave Kreskowiak wrote:
it will always come down to a single IF statement to determine wheather your code will run or not
This brings a question to mind... I have just built a trial version of a PocketPC App that only allows the user to input two entries. How should I go about it to make it harder for someone to decompile my application and change the code and get a full version for free?
Thanks,
Mitch
My sig:
"And it is a professional faux pas to pay someone else to destroy your computer when you are perfectly capable of destroying it yourself." - Roger Wright
Get Perpendicular! (Hitachi Storage)
My CodeProject Blog
Most recent blog post: April 11
|
|
|
|
|
Just Google for ".net obfuscator". You'll find a bunch of products that make it harder to figure out the decompiled code.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi,
Please help. I have a specific object which holds multiple collections of objects inside which I want to save/persist into the database. I am using VB6 and SQL Server 2000. Does anyone know how to do this? Thanks.
SDE
|
|
|
|
|
that can be done by data grid control... the sql server helps to create stored procedures to develop your database.
by
saravanaprabu.R
|
|
|
|
|
I have a datagrid with 3 columns and 3 textbox on the form. I want that when i resize the the columns in the datagrid, textboxes should also be resized along with them. I haven't found any columnresize event in the datagrid there's only resize event but it's for the datagrid itself. How can i find out which column is resized and accordingly resize the textboxes at the runtime.
|
|
|
|
|
You'r looking for the WidthChanged event of the DatGridColumnStyle class. You'll have to generate your own columns instead of relying on the autogenerated ones.
Check out the documentation here[^] on MSDN.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
