如何用VB设计一个程序计算地球上两个城市的距离（劣弧）

有经纬度吗？

Const PI = 31415926535897

Const EARTH_RADIUS = 637814 1000

'计算两经纬度间距离

Function G_Distance(ByVal lng1 As Double, _

ByVal lat1 As Double, _

ByVal lng2 As Double, _

ByVal lat2 As Double) As Double

Dim r_lat1 As Double, r_lat2 As Double

Dim a As Double, b As Double

Dim result As Double

r_lat1 = lat1 PI / 180

r_lat2 = lat2 PI / 180

a = r_lat2 - r_lat1

b = (lng1 - lng2) PI / 180

result = 2 G_Arcsin(Sqr((Sin(a / 2) ^ 2) + Cos(r_lat1) Cos(r_lat2) (Sin(b / 2)) ^ 2)) EARTH_RADIUS

G_Distance = result

End Function

#include <conioh>

#include <stdioh>

#include <mathh>

/地球半径,圆周率,重力加速度/

#define RADIUS 6371000

#define PI 314159265359

#define g 98

int main()

{

float T;

float H;

printf("T(day)="); /周期以天为单位/

scanf("%f",&T);

T=((23+560/60+40/60/60)3600); /时间换成秒/

H=pow(gpow(TRADIUS/2/PI,2),10/3)-RADIUS;

H/=1000; /换算成千米/

printf("H=%2fKm\n",H);

getch();

return 0;

}

谷歌地图程序本身没有或者未开放api，你要的话只有网页版的谷歌地图了。。。

先去注册一个谷歌地图的许可证，然后按照谷歌网站提示做成网页的形式。

最后最简单的就是用c++ mfc的webbrowser控件加载你的htm了。。。

其实算是偷梁换柱了。。。

谷歌地球的制作原理是卫星影像，并非单一数据来源，而是卫星影像与航拍的数据整合。

其卫星影像部分来自于美国DigitalGlobe公司的QuickBird商业卫星，影像来源于陆地卫星，航拍部分的来源有BlueSky公司（英国公司，以航拍、GIS/GPS相关业务为主）、Sanborn公司（美国公司，以GIS、地理数据、空中勘测等业务为主）、美国IKONOS及法国SPOT5。

在卫星图像方面，美国五角大楼每年都会给予其三大主要合作伙伴DigitalGlobe、IKONOS和ORBIMAGoogle Earth数十亿美元的资助，作为回报自然是这些公司的卫星数据将在第一时间交给五角大楼作为军事应用，而且针对某些敏感区域在规定的时限内不允许商业化。

扩展资料：

使用技巧

Google卫星地图的横空出世，催生了不少包括在内的“地图玩家”，这些卫星地图发烧友们乐此不疲地收集和张贴那些有趣的地标以及自己的新发现，他们使得这个非常酷的软件迅速普及到了大众，使得普通人也可以体会到使用Google Earth浏览自己家房顶的快感。

卫星地图的应用

Google Earth的确很酷，但是Google Earth并不只是用来玩的，我们可以在上面开发出自己的应用，将自己网站的实用功能和Google提供的卫星地图整合起来。

要想使用Google的卫星地图资源，必需面对如何调用的问题，这涉及到很复杂的程序编写。好在Google体会到了程序员的辛苦，很早就自己推出Google Maps API，全世界对Google卫星地图有兴趣的程序员都能够通过简单的API调用来开发自己的Google地图服务。

要进行Google Maps API的开发，需要先去申请一个所谓的API Key，有了这个Key，才能使用Google Maps服务。当然，如果大网站调用Google Maps API的数据非常大的时候，需要事先联系Google的相关人员。

参考资料来源：百度百科-谷歌地图

以上就是关于如何用VB设计一个程序计算地球上两个城市的距离（劣弧）全部的内容，包括:如何用VB设计一个程序计算地球上两个城市的距离（劣弧）、c语言编写程序，输入人造卫星的周期T，计算并输出人造卫星离地面的高度H。、如何在c++编写的软件中嵌入谷歌地球等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！