经纬度面积计算程序

根据经纬度面积计算！！！是代码希望大家能用免费的

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 经纬度面积计算程序
{
    public partial class Form1 : Form
    {
        public Form1（）
        {
            InitializeComponent（）;
        }

        private void button1_Click（object sender EventArgs e）
        {
            if （textBox1.Text == ““ || textBox2.Text == ““ || textBox3.Text == ““ || textBox4.Text == ““）
                MessageBox.Show（“数据不完整“）;
            else
            {
                double lng1 = double.Parse（textBox1.Text）;
                double lat1 = double.Parse（textBox2.Text）;
                double lng2 = double.Parse（textBox3.Text）;
                double lat2 = double.Parse（textBox4.Text）;
                double up = Fun_GetDistance（lat1 lng1 lat1 lng2）;
                double down = Fun_GetDistance（lat2 lng1 lat2 lng2）;
                double ud = Fun_GetDistance（lat1 （（lng1 + lng2） / 2） lat2 （（lng1 + lng2） / 2））;
                double area = （up + down） * ud / 2;
                textBox5.Text = area.ToString（）;
            }
        }
        public static double Fun_Rad（double d）

        {

            return d * Math.PI / 180.0;

        }

        public static double Fun_GetDistance（double lat1 double lng1 double lat2 double lng2）
        {

            double d_EarthRadius = 6378.137;

            double radLat1 = Fun_Rad（lat1）;

            double radLat2 = Fun_Rad（lat2）;

            double radLat = Fun_Rad（lat1） - Fun_Rad（lat2）;

            double radLng = Fun_Rad（lng1） - Fun_Rad（lng2）;

            double s = 2 * Math.Asin（Math.Sqrt（Math.Pow（Math.Sin（radLat / 2） 2） +

             Math.Cos（radLat1） * Math.Cos（radLat2） * Math.Pow（Math.Sin（radLng / 2） 2）））;

            s = s * d_EarthRadius;

            s = Math.Round（s * 10000） / 10000;

            return s;
        }
    }
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       2055  2012-04-16 18:33  经纬度面积计算程序\Form1.cs

     文件       7050  2012-04-16 18:33  经纬度面积计算程序\Form1.Designer.cs

     文件       5814  2012-04-16 18:33  经纬度面积计算程序\Form1.resx

     文件        508  2012-04-16 16:41  经纬度面积计算程序\Program.cs

     文件       3765  2012-04-16 18:24  经纬度面积计算程序\经纬度面积计算程序.csproj

     文件       1406  2012-04-16 16:41  经纬度面积计算程序\Properties\AssemblyInfo.cs

     文件       2904  2012-04-16 16:41  经纬度面积计算程序\Properties\Resources.Designer.cs

     文件       5612  2012-04-16 16:41  经纬度面积计算程序\Properties\Resources.resx

     文件       1112  2012-04-16 16:41  经纬度面积计算程序\Properties\Settings.Designer.cs

     文件        249  2012-04-16 16:41  经纬度面积计算程序\Properties\Settings.settings

     文件       1638  2013-03-01 15:32  经纬度面积计算程序\obj\Debug\经纬度面积计算程序.csproj.FileListAbsolute.txt

     文件        847  2012-04-16 18:33  经纬度面积计算程序\obj\Debug\经纬度面积计算程序.csproj.GenerateResource.Cache

     文件      10752  2012-04-16 18:33  经纬度面积计算程序\obj\Debug\经纬度面积计算程序.exe

     文件        180  2012-04-16 18:33  经纬度面积计算程序\obj\Debug\经纬度面积计算程序.Form1.resources

     文件      26112  2012-04-16 18:33  经纬度面积计算程序\obj\Debug\经纬度面积计算程序.pdb

     文件        180  2012-04-16 18:24  经纬度面积计算程序\obj\Debug\经纬度面积计算程序.Properties.Resources.resources

     文件      10752  2012-04-16 18:33  经纬度面积计算程序\bin\Debug\经纬度面积计算程序.exe

     文件      26112  2012-04-16 18:33  经纬度面积计算程序\bin\Debug\经纬度面积计算程序.pdb

     文件      14328  2013-03-01 15:32  经纬度面积计算程序\bin\Debug\经纬度面积计算程序.vshost.exe

     文件        490  2007-07-21 01:33  经纬度面积计算程序\bin\Debug\经纬度面积计算程序.vshost.exe.manifest

     文件        971  2012-04-16 16:41  经纬度面积计算程序.sln

     目录          0  2012-09-05 14:42  经纬度面积计算程序\obj\Debug\TempPE

     目录          0  2012-09-05 14:42  经纬度面积计算程序\obj\Debug

     目录          0  2012-09-05 14:42  经纬度面积计算程序\bin\Debug

     目录          0  2012-09-05 14:42  经纬度面积计算程序\Properties

     目录          0  2012-09-05 14:42  经纬度面积计算程序\obj

     目录          0  2012-09-05 14:42  经纬度面积计算程序\bin

     目录          0  2012-09-05 14:42  经纬度面积计算程序

----------- ---------  ---------- -----  ----

               122837                    28

............此处省略1个文件信息