91av视频/亚洲h视频/操亚洲美女/外国一级黄色毛片 - 国产三级三级三级三级

  • 大小: 37KB
    文件類型: .rar
    金幣: 2
    下載: 0 次
    發布日期: 2021-05-29
  • 語言: 其他
  • 標簽: 免費的??

資源簡介

根據經緯度面積計算!!!是代碼希望大家能用免費的

資源截圖

代碼片段和文件信息

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

評論

共有 條評論