| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1645 人关注过本帖
标题:X轴转换为Y轴,Y轴转换为X轴
只看楼主 加入收藏
彭林才
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2016-4-18
结帖率:66.67%
收藏
 问题点数:0 回复次数:3 
X轴转换为Y轴,Y轴转换为X轴
在测量坐标系中,以北方向为X轴,东方向为Y轴,如何在vb中实现坐标轴的转换?
搜索更多相关主题的帖子: 坐标系 坐标轴 东方 测量 如何 
2016-05-12 21:04
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
将测量的 X 的坐标与 Y 的坐标互换,那么在 VB 中 X 就是东方,Y 就是北方了。下面是一个说明的例子
程序代码:
Dim CLX() As Single, CLY() As Single, VBX() As Single, VBY() As Single
ReDim CLX(1 To 120), CLY(1 To 120), VBX(1 To 120), VBY(1 To 120)
For I = 1 To 120
CLX(I) = ABD  '假定输入测量的X坐标,ABD是需要输入的数据变量
CLY(I) = ABC  '假定输入测量的Y坐标,ABC是需要输入的数据变量
Next I
For I = 1 To 120
VBY(I) = CLX(I) '输入测量的X坐标到VB的Y坐标
VBX(I) = CLY(I) '输入测量的Y坐标到VB的X坐标
Next I

只是一个说明的例子,没有实际价值

[此贴子已经被作者于2016-5-12 22:30编辑过]


请不要选我!!!
2016-05-12 22:28
xiangyue0510
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:86
帖 子:938
专家分:5244
注 册:2015-8-10
收藏
得分:0 
互换……
简单的直接换,
A=X
X=Y
Y=A
复杂点用2楼的方法再做一个数组。
2016-05-13 08:49
彭林才
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2016-4-18
收藏
得分:0 
楼上的回复只是将x、y值互换了,我想要的是改变坐标系,将笛卡尔坐标系转为测量坐标系,测量坐标系是以东为y轴,以北为x轴的
2016-05-14 22:52
快速回复:X轴转换为Y轴,Y轴转换为X轴
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.029483 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved