已知两点经纬度，计算距离

在已知两点经纬度的情况下，可以通过该程序计算两点间距离。程序还提供了度分秒、度分转度的功能。

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（‘:‘）;
        

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           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个文件信息