10楼#
发布于:2005-06-15 23:31
<P>版主,菜菜的问一下,为什么回放的时候所有的点都显示在TEMPLATE层上?</P>
<P>怎么实现只显示一个点的移动呢?而且回放结束以后,所有的点信息仍然保存在TEMPLATE层上,怎么清空呢?</P> |
|
11楼#
发布于:2005-06-08 09:00
<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />
|
|
12楼#
发布于:2005-06-07 21:03
<img src="images/post/smile/dvbbs/em02.gif" />
|
|
13楼#
发布于:2005-06-04 09:38
谢谢老大
|
|
14楼#
发布于:2005-06-03 14:20
<P>'经纬度BL换算到高斯平面直角坐标XY(高斯投影正算)<BR>Private Function Deg2XY(ByRef F2 As Double, ByRef E2 As Double, _<BR> ByRef s2 As Double, ByRef t2 As Double) As Boolean<BR> 'A2 输入中央子午线,以度.分秒形式输入,如115度30分则输入115.30; 起算数据L0<BR> 'F2 以度小数形式输入经度值, L<BR> 'E2 以度小数形式输入纬度值,B<BR> 'S2 计算结果,横坐标Y,,请特别注意,这里生成的是高斯坐标<BR> 'T2 计算结果,纵坐标X<BR> '投影带号计算 n=[L/6]+1 如:兰州测得经度103.XXXX,故n=[103.X/6]+1=17+1=18<BR> '中央经线经度 L0 = n*6-3 = [L/6]*6+3<BR> <BR> 'ByRef A2 As Double,<BR> Dim A2 As Double<BR> Dim B2 As Double<BR> 'Dim G2 As Double<BR> Dim H2 As Double<BR> Dim i2 As Double<BR> Dim J2 As Double<BR> Dim K2 As Double<BR> Dim l2 As Double<BR> Dim M2 As Double<BR> Dim n2 As Double<BR> Dim O2 As Double<BR> Dim P2 As Double<BR> Dim Q2 As Double<BR> Dim R2 As Double<BR> Dim NN As Integer '投影代号<BR>' A2 = CInt(F2 / 6) * 6 - 3<BR> <BR>' B2 = Int(A2) + (Int(A2 * 100) - Int(A2) * 100) / 60 + (A2 * 10000 - Int(A2 * 100) * 100) / 3600<BR> '把L0化成度(A2)<BR> NN = CInt(F2 / 6) + 1 '投影代号n=[L/6]+1 '<BR> B2 = NN * 6 - 3 '中央经线<BR> 'G2 = F2 - B2 ' L -L0<BR> 'H2 = G2 / 57.2957795130823 '化作弧度<BR> H2 = (F2 - B2) / 57.2957795130823 '将经差的单位化为弧度<BR> i2 = Tan(E2 / 57.2957795130823) 'Tan (B)<BR> J2 = Cos(E2 / 57.2957795130823) ' Cos (B)<BR> K2 = 0.006738525415 * J2 * J2<BR> l2 = i2 * i2<BR> M2 = 1 + K2<BR> n2 = 6399698.9018 / Sqr(M2)<BR> O2 = H2 * H2 * J2 * J2<BR> P2 = i2 * J2<BR> Q2 = P2 * P2<BR> R2 = (32005.78006 + Q2 * (133.92133 + Q2 * 0.7031))<BR> s2 = ((((l2 - 18) * l2 - (58 * l2 - 14) * K2 + 5) * O2 / 20 + M2 - l2) * O2 / 6 + 1) * n2 * (H2 * J2)<BR> <BR> '计算结果,横坐标Y,这里生成的是高斯坐标<BR> s2 = s2 + NN * 1000000 + 500000 '18500000 '在计算的基础上加上了“带号”(18)和“东移”(500KM)<BR> '计算结果,纵坐标X<BR> t2 = 6367558.49686 * E2 / 57.29577951308 - P2 * J2 * R2 + ((((l2 - 58) * l2 + 61) * _<BR> O2 / 30 + (4 * K2 + 5) * M2 - l2) * O2 / 12 + 1) * n2 * i2 * O2 / 2<BR> <BR> Deg2XY = True<BR>End Function</P>
|
|
|
15楼#
发布于:2005-06-01 12:42
Deg2XY函数是什么啊,有没有具体的代码?
|
|
16楼#
发布于:2005-05-24 15:48
那显示地图的表单 frmMain,应该怎样?
|
|
17楼#
发布于:2005-05-08 22:43
<img src="images/post/smile/dvbbs/em02.gif" />
|
|
18楼#
发布于:2005-03-03 20:07
<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em08.gif" /><img src="images/post/smile/dvbbs/em06.gif" />
|
|
19楼#
发布于:2004-12-24 13:20
3q
|
|