資源簡(jiǎn)介
在已知兩點(diǎn)經(jīng)緯度的情況下,可以通過(guò)該程序計(jì)算兩點(diǎn)間距離。程序還提供了度分秒、度分轉(zhuǎn)度的功能。

代碼片段和文件信息
using?System;
using?System.Collections.Generic;
using?System.ComponentModel;
using?System.Data;
using?System.Drawing;
using?System.Linq;
using?System.Text;
using?System.Windows.Forms;
namespace?latlon_dis
{
????public?partial?class?Form1?:?Form
????{
????????public?double?latA;
????????public?double?latB;
????????public?double?lonA;
????????public?double?lonB;
????????public?Form1()
????????{
????????????InitializeComponent();
????????}
????????public?double?rad(double?d)
????????{
????????????return?d?*?Math.PI?/?180.00;//convert?degree?to?rad
????????}
?????????public?void?computeDistance()
????????{
????????????double.TryParse(lattbA.Text.ToString().Trim()out?latA);
????????????double.TryParse(lattbB.Text.ToString().Trim()?out?latB);
????????????double.TryParse(lontbA.Text.ToString().Trim()?out?lonA);
????????????double.TryParse(lontbB.Text.ToString().Trim()?out?lonB);
????????????double?r_latA?=?rad(latA);
????????????double?r_latB?=?rad(latB);
????????????double?r_lonA?=?rad(lonA);
????????????double?r_lonB?=?rad(lonB);
????????????double?lat_diff?=?r_latA?-?r_latB;
????????????double?lon_diff?=?r_lonA?-?r_lonB;
????????????double?s?=?2?*?Math.Asin(Math.Sqrt(Math.Pow(Math.Sin(lat_diff?/?2)?2)?+?Math.Cos(r_latA)?*?Math.Cos(r_latB)?*?Math.Pow(Math.Sin(lon_diff?/?2)?2)));
????????????s?=?s?*?6378137.0;
????????????s?=?Math.Round(s?*?10000d)?/?10000d;
????????????distb.Text?=?s.ToString();
????????}
????????private?void?lattbA_TextChanged(object?sender?EventArgs?e)
????????{
????????????computeDistance();
????????}
????????private?void?lontbA_TextChanged(object?sender?EventArgs?e)
????????{
????????????computeDistance();
????????}
????????private?void?lattbB_TextChanged(object?sender?EventArgs?e)
????????{
????????????computeDistance();
????????}
????????private?void?lontbB_TextChanged(object?sender?EventArgs?e)
????????{
????????????computeDistance();
????????}
????????public?void?convertDM2D_lat()
????????{
????????????string[]?lats?=?new?string[2];
????????????lats?=?latmtb.Text.ToString().Trim().Split(‘:‘);
????????????double?degree;
????????????double?minute;
????????????double.TryParse(lats[0]?out?degree);
????????????double.TryParse(lats[1]?out?minute);?
????????????degree?=?degree?+?minute?/?60.0;
????????????latcvttb.Text?=?degree.ToString();
????????}
????????public?void?convertDM2D_lon()
????????{
????????????string[]?lons?=?new?string[2];
????????????lons?=?lonmtb.Text.ToString().Trim().Split(‘:‘);
????????????double?degree;
????????????double?minute;
????????????double.TryParse(lons[0]?out?degree);
????????????double.TryParse(lons[1]?out?minute);
????????????degree?=?degree?+?minute?/?60.0;
????????????loncvttb.Text?=?degree.ToString();
????????}
????????public?void?convertDMS2D_lat()
????????{
????????????string[]?lats?=?new?string[3];
????????????lats?=?latdmsmtb.Text.ToString().Trim().Split(‘:‘);
????????
?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2018-07-24?10:02??latlon_dis\
?????目錄???????????0??2018-07-24?10:02??latlon_dis\.vs\
?????目錄???????????0??2018-07-24?10:02??latlon_dis\.vs\latlon_dis\
?????目錄???????????0??2018-07-24?10:02??latlon_dis\.vs\latlon_dis\v15\
?????文件???????58880??2018-07-19?18:34??latlon_dis\.vs\latlon_dis\v15\.suo
?????目錄???????????0??2018-07-24?10:02??latlon_dis\.vs\latlon_dis\v15\Server\
?????目錄???????????0??2018-07-24?10:02??latlon_dis\.vs\latlon_dis\v15\Server\sqlite3\
?????文件???????????0??2018-06-12?15:46??latlon_dis\.vs\latlon_dis\v15\Server\sqlite3\db.lock
?????文件??????577536??2018-07-19?18:34??latlon_dis\.vs\latlon_dis\v15\Server\sqlite3\storage.ide
?????目錄???????????0??2018-07-24?10:02??latlon_dis\latlon_dis\
?????目錄???????????0??2018-07-24?10:02??latlon_dis\latlon_dis\bin\
?????目錄???????????0??2018-07-24?10:02??latlon_dis\latlon_dis\bin\Debug\
?????文件???????16896??2018-07-10?10:30??latlon_dis\latlon_dis\bin\Debug\latlon_dis.exe
?????文件???????28160??2018-07-10?10:30??latlon_dis\latlon_dis\bin\Debug\latlon_dis.pdb
?????文件????????4401??2018-06-13?11:03??latlon_dis\latlon_dis\Form1.cs
?????文件???????23735??2018-06-13?10:58??latlon_dis\latlon_dis\Form1.Designer.cs
?????文件????????5817??2018-06-13?10:58??latlon_dis\latlon_dis\Form1.resx
?????文件????????3383??2018-06-12?15:56??latlon_dis\latlon_dis\latlon_dis.csproj
?????目錄???????????0??2018-07-24?10:02??latlon_dis\latlon_dis\obj\
?????目錄???????????0??2018-07-24?10:02??latlon_dis\latlon_dis\obj\Debug\
?????文件????????1452??2018-06-13?08:52??latlon_dis\latlon_dis\obj\Debug\DesignTimeResolveAssemblyReferences.cache
?????文件????????6839??2018-06-12?15:46??latlon_dis\latlon_dis\obj\Debug\DesignTimeResolveAssemblyReferencesInput.cache
?????文件??????????42??2018-06-12?15:46??latlon_dis\latlon_dis\obj\Debug\latlon_dis.csproj.CoreCompileInputs.cache
?????文件?????????683??2018-06-12?15:56??latlon_dis\latlon_dis\obj\Debug\latlon_dis.csproj.FileListAbsolute.txt
?????文件????????1012??2018-06-13?10:58??latlon_dis\latlon_dis\obj\Debug\latlon_dis.csproj.GenerateResource.Cache
?????文件????????2210??2018-06-12?15:56??latlon_dis\latlon_dis\obj\Debug\latlon_dis.csprojResolveAssemblyReference.cache
?????文件???????16896??2018-07-10?10:30??latlon_dis\latlon_dis\obj\Debug\latlon_dis.exe
?????文件?????????180??2018-06-13?10:58??latlon_dis\latlon_dis\obj\Debug\latlon_dis.Form1.resources
?????文件???????28160??2018-07-10?10:30??latlon_dis\latlon_dis\obj\Debug\latlon_dis.pdb
?????文件?????????180??2018-06-12?15:56??latlon_dis\latlon_dis\obj\Debug\latlon_dis.Properties.Resources.resources
?????目錄???????????0??2018-06-12?15:46??latlon_dis\latlon_dis\obj\Debug\TempPE\
............此處省略9個(gè)文件信息
評(píng)論
共有 條評(píng)論