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個文件信息