C#经纬度坐标与大地坐标相互转换工具

经纬度转换工具，对手持设备获取的经纬度坐标转换为真实的大地坐标。

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 TheodoliteConvert
{
    public partial class Form1 : Form
    {
        public Form1（）
        {
            InitializeComponent（）;
            gis = new GISLibrary（）; 
            zone = 6; 
            coordinateType = CoordinateType.BeiJing54;
            Init（）;
        }

      private    int zone = 6;  //投影方式
      private   CoordinateType coordinateType;  //坐标类型

      private double degL = 0;       //经度 度数
      private double degB = 0;       //纬度 度数
      private double minL = 0;       //经度 分数
      private double minB = 0;       //纬度 分数
      private double secL = 0;       //经度 秒数
      private double secB = 0;       //纬度 度数

      private GISLibrary gis;

        /// 

        /// 根据不同的坐标类型得到不同的椭球半轴
        /// 

        /// 
        /// 
        private void radioButtonbeiJing_CheckedChanged（object sender EventArgs e）
        {
            SetTypeValue（CoordinateType.BeiJing54）;
        }

        private void radioButtonXiAn_CheckedChanged（object sender EventArgs e）
        {
            SetTypeValue（CoordinateType.XiAn80 ）;
        }

        private void radioButtonWgs_CheckedChanged（object sender EventArgs e）
        {
            SetTypeValue（CoordinateType.WGS84 ）;
        }

        private void radioButtonDefine_CheckedChanged（object sender EventArgs e）
        {
            textBoxRadionA.ReadOnly = false;
            textBoxRadionB.ReadOnly = false;
            coordinateType = CoordinateType.None;

        }
        /// 

        /// 度分秒转为度
        /// 

        /// 
        /// 
        public double DFMToDegree（double dfm）
        {
            double degree  second;
            int degreeTempminute;
            degreeTemp = （int）dfm;
            minute =（int）（（dfm-dfm-degreeTemp）*100f+0.000000000001）;   
            second = （int）（（dfm - degreeTemp） * 100 - minute） * 100;
             return  degree = degreeTemp + minute / 60 + second / 3600.0;   
        }

        /// 

        /// 根据不同的坐标类型得到不同的椭球半轴
        /// 

        /// 
        private void SetTypeValue（CoordinateType type）
        {
            double x=0 y=0;
            coordinateType = type;
            gis.SetCoordinateTypeValue（type ref  x ref  y）;
            textBoxRadionA.Text  =x.ToString（）;
            textBoxRadionB.Text  =y.ToString（）; 
        }

        /// 

        /// 投影方式
        /// 

        /// 
        /// 
        private void radioButtonSixZone_CheckedChanged（object sender EventArgs e）
        {
     

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

     文件      20992  2010-05-19 19:50  经纬度转换\TheodoliteConvert\bin\Debug\TheodoliteConvert.exe

     文件      36352  2010-05-19 19:50  经纬度转换\TheodoliteConvert\bin\Debug\TheodoliteConvert.pdb

     文件      14328  2010-05-19 19:51  经纬度转换\TheodoliteConvert\bin\Debug\TheodoliteConvert.vshost.exe

     文件        490  2009-06-11 05:14  经纬度转换\TheodoliteConvert\bin\Debug\TheodoliteConvert.vshost.exe.manifest

     文件       5877  2010-05-19 19:50  经纬度转换\TheodoliteConvert\Form1.cs

     文件      20947  2010-05-08 23:22  经纬度转换\TheodoliteConvert\Form1.Designer.cs

     文件       5814  2010-05-08 23:22  经纬度转换\TheodoliteConvert\Form1.resx

     文件      15329  2010-05-08 23:18  经纬度转换\TheodoliteConvert\GISLibrary.cs

     文件        706  2010-05-19 19:51  经纬度转换\TheodoliteConvert\obj\Debug\TheodoliteConvert.csproj.FileListAbsolute.txt

     文件        847  2010-05-08 23:22  经纬度转换\TheodoliteConvert\obj\Debug\TheodoliteConvert.csproj.GenerateResource.Cache

     文件      20992  2010-05-19 19:50  经纬度转换\TheodoliteConvert\obj\Debug\TheodoliteConvert.exe

     文件        180  2010-05-08 23:22  经纬度转换\TheodoliteConvert\obj\Debug\TheodoliteConvert.Form1.resources

     文件      36352  2010-05-19 19:50  经纬度转换\TheodoliteConvert\obj\Debug\TheodoliteConvert.pdb

     文件        180  2010-05-06 15:35  经纬度转换\TheodoliteConvert\obj\Debug\TheodoliteConvert.Properties.Resources.resources

     文件        498  2010-05-06 15:04  经纬度转换\TheodoliteConvert\Program.cs

     文件       1392  2010-05-06 15:04  经纬度转换\TheodoliteConvert\Properties\AssemblyInfo.cs

     文件       2884  2010-05-06 15:04  经纬度转换\TheodoliteConvert\Properties\Resources.Designer.cs

     文件       5612  2010-05-06 15:04  经纬度转换\TheodoliteConvert\Properties\Resources.resx

     文件       1102  2010-05-06 15:04  经纬度转换\TheodoliteConvert\Properties\Settings.Designer.cs

     文件        249  2010-05-06 15:04  经纬度转换\TheodoliteConvert\Properties\Settings.settings

     文件       3786  2010-05-06 15:35  经纬度转换\TheodoliteConvert\TheodoliteConvert.csproj

     文件        941  2010-05-06 15:04  经纬度转换\TheodoliteConvert.sln

    ..A..H.     16896  2010-05-19 20:09  经纬度转换\TheodoliteConvert.suo

     目录          0  2010-05-06 15:46  经纬度转换\TheodoliteConvert\obj\Debug\Refactor

     目录          0  2010-05-06 15:04  经纬度转换\TheodoliteConvert\obj\Debug\TempPE

     目录          0  2010-05-06 15:46  经纬度转换\TheodoliteConvert\bin\Debug

     目录          0  2010-05-19 19:50  经纬度转换\TheodoliteConvert\obj\Debug

     目录          0  2010-05-06 15:04  经纬度转换\TheodoliteConvert\bin

     目录          0  2010-05-06 15:04  经纬度转换\TheodoliteConvert\obj

     目录          0  2010-05-06 15:04  经纬度转换\TheodoliteConvert\Properties

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