当前位置:编程学习 > VB >>

怎么用vb画出下面坐标的轨迹

-60.9208,-4.9958,94.1176
-59.8424,-4.8326,94.1176
-58.8251,-4.4395,94.1176
-57.9173,-3.8352,94.1176
-57.1620,-3.0484,94.1176
-56.5954,-2.1166,94.1176
-56.2442,-1.0841,94.1176
-56.1253,0.0000,94.1176
-56.1223,0.5800,94.1176
-56.1133,1.1599,94.1176
-55.9267,4.7165,94.1176
-55.5150,8.2541,94.1176
-54.8797,11.7585,94.1176
-54.0235,15.2155,94.1176
-52.9497,18.6112,94.1176
-51.6627,21.9320,94.1176
-50.1676,25.1645,94.1176
-48.4706,28.2957,94.1176
-46.5784,31.3129,94.1176
-44.4986,34.2041,94.1176
-42.2397,36.9575,94.1176
-39.8106,39.5621,94.1176
-37.2213,42.0074,94.1176
-34.4821,44.2835,94.1176
-31.6040,46.3814,94.1176
-28.5987,48.2924,94.1176
-25.4782,50.0090,94.1176
-22.2552,51.5243,94.1176
-18.9425,52.8321,94.1176
这是一个txt文件求大神帮帮忙 --------------------编程问答-------------------- 解决还可多给分,急呀大神帮帮忙呀 --------------------编程问答-------------------- 你这个是三维坐标? --------------------编程问答-------------------- 是的。x,y,z三个坐标。思路我大致了解但写不出来。 --------------------编程问答--------------------


引用 2 楼 worldy 的回复:
你这个是三维坐标?
是三个坐标x,y,z --------------------编程问答-------------------- 因为z坐标是常数94.1176
所以可以用MSChart控件的XY散点图表示X,Y即可。
参考:

' 这段代码可以粘贴到一个Form的 Load 
' 事件中,该Form包含名为“MSChart1”的 
' MSChart 控件。
Private Sub Form_Load()
Dim data(1 To 29, 1 To 2)
data(1, 1) = -60.9208: data(1, 2) = -4.9958
data(2, 1) = -59.8424: data(2, 2) = -4.8326
data(3, 1) = -58.8251: data(3, 2) = -4.4395
data(4, 1) = -57.9173: data(4, 2) = -3.8352
data(5, 1) = -57.162: data(5, 2) = -3.0484
data(6, 1) = -56.5954: data(6, 2) = -2.1166
data(7, 1) = -56.2442: data(7, 2) = -1.0841
data(8, 1) = -56.1253: data(8, 2) = 0#
data(9, 1) = -56.1223: data(9, 2) = 0.58
data(10, 1) = -56.1133: data(10, 2) = 1.1599
data(11, 1) = -55.9267: data(11, 2) = 4.7165
data(12, 1) = -55.515: data(12, 2) = 8.2541
data(13, 1) = -54.8797: data(13, 2) = 11.7585
data(14, 1) = -54.0235: data(14, 2) = 15.2155
data(15, 1) = -52.9497: data(15, 2) = 18.6112
data(16, 1) = -51.6627: data(16, 2) = 21.932
data(17, 1) = -50.1676: data(17, 2) = 25.1645
data(18, 1) = -48.4706: data(18, 2) = 28.2957
data(19, 1) = -46.5784: data(19, 2) = 31.3129
data(20, 1) = -44.4986: data(20, 2) = 34.2041
data(21, 1) = -42.2397: data(21, 2) = 36.9575
data(22, 1) = -39.8106: data(22, 2) = 39.5621
data(23, 1) = -37.2213: data(23, 2) = 42.0074
data(24, 1) = -34.4821: data(24, 2) = 44.2835
data(25, 1) = -31.604: data(25, 2) = 46.3814
data(26, 1) = -28.5987: data(26, 2) = 48.2924
data(27, 1) = -25.4782: data(27, 2) = 50.009
data(28, 1) = -22.2552: data(28, 2) = 51.5243
data(29, 1) = -18.9425: data(29, 2) = 52.8321
MSChart1.ChartData = data
MSChart1.chartType = VtChChartType2dXY
End Sub

--------------------编程问答-------------------- 5楼待我试下
--------------------编程问答-------------------- 你好5楼,谢谢你的代码,但是上面只是我的一部分三维坐标,如果都代值得画会很麻烦。随便问下vb可不可以画三维的?
补充:VB ,  网络编程
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,