VBA编程

馨馨 · 发表于 2016-4-26 09:45:10

用VBA编程实现用这些点X和Y的最大最小值画出方格网，求大神，谢谢

vbcad · 发表于 2016-4-26 17:26:10

本帖最后由 vbcad 于 2016-4-26 17:28 编辑

如果你每一个问题都需要别人来写代码，那你就学不到什么东西了。
建议你自己先摸索做一下，或者请教别人思路，碰到难题在发贴求教关键的。

馨馨 · 发表于 2016-4-26 19:42:09

vbcad 发表于 2016-4-26 17:26
如果你每一个问题都需要别人来写代码，那你就学不到什么东西了。
建议你自己先摸索做一下，或者请教别人思 ...

自己写了，运行没有错误没有画出线来

馨馨 · 发表于 2016-4-26 19:43:20

vbcad 发表于 2016-4-26 17:26
如果你每一个问题都需要别人来写代码，那你就学不到什么东西了。
建议你自己先摸索做一下，或者请教别人思 ...

自己写了，运行没有错误，就是画不出线段

bbkcylh · 发表于 2016-4-27 06:09:53

说的不清楚，是画一个外框，还是规则格网？

浪迹天涯追月 · 发表于 2016-4-27 08:31:26

你读文本的时候为什么就不比较下大小，记录好呢？然后就可以组合出外围框的四角坐标了呀

mikewolf2k · 发表于 2016-4-27 08:49:49

馨馨发表于 2016-4-26 19:43
自己写了，运行没有错误，就是画不出线段

发来让大家诊断下？

馨馨 · 发表于 2016-4-27 08:51:25

bbkcylh 发表于 2016-4-27 06:09
说的不清楚，是画一个外框，还是规则格网？

规则格网，我先进行的比较，不过比较这块我还不熟，这是我读文本的时候的代码，

Dim L As Integer
Dim H(10000) As Double, X(10000) As Double, Y(10000) As Double, Z(10000) As Double
Dim Xmax As Double, Xmin As Double, Ymax As Double, Ymin As Double
Sub txt_read()
Dim txtname As String
Dim L As Integer
L = 0 '初始值
Open "E:\demdata.txt" For Input As #1 '打开文件
Do While Not EOF(1) '文件读取循环
If X(L + 1) > X(L) Then
Xmax = X(L + 1)
ElseIf Y(L + 1) > Y(L) Then
Ymax = Y(L + 1)
Else
Xmin = X(L + 1)
Ymin = Y(L + 1)
End If
L = L + 1 '个数加1
Input #1, H(L), X(L), Y(L), Z(L) '读取文件数据, H贮存点序号,XYZ为坐标
Loop '文件读取循环
Close #1 '关闭文件
End Sub

馨馨 · 发表于 2016-4-27 08:53:15

浪迹天涯追月发表于 2016-4-27 08:31
你读文本的时候为什么就不比较下大小，记录好呢？然后就可以组合出外围框的四角坐标了呀

对我是想这样做的，但是我刚学没多久，对比较这块不熟，这是我的代码，比较这块不对的地方，希望能帮忙指正，谢谢啦

Dim L As Integer
Dim H(10000) As Double, X(10000) As Double, Y(10000) As Double, Z(10000) As Double
Dim Xmax As Double, Xmin As Double, Ymax As Double, Ymin As Double
Sub txt_read()
Dim txtname As String
Dim L As Integer
L = 0 '初始值
Open "E:\demdata.txt" For Input As #1 '打开文件
Do While Not EOF(1) '文件读取循环
If X(L + 1) > X(L) Then
Xmax = X(L + 1)
ElseIf Y(L + 1) > Y(L) Then
Ymax = Y(L + 1)
Else
Xmin = X(L + 1)
Ymin = Y(L + 1)
End If
L = L + 1 '个数加1
Input #1, H(L), X(L), Y(L), Z(L) '读取文件数据, H贮存点序号,XYZ为坐标
Loop '文件读取循环
Close #1 '关闭文件
End Sub

馨馨 · 发表于 2016-4-27 08:54:53

mikewolf2k 发表于 2016-4-27 08:49
发来让大家诊断下？

谢谢

Dim L As Integer
Dim H(10000) As Double, X(10000) As Double, Y(10000) As Double, Z(10000) As Double
Dim Xmax As Double, Xmin As Double, Ymax As Double, Ymin As Double
Sub txt_read()
Dim txtname As String
Dim L As Integer
L = 0 '初始值
Open "E:\demdata.txt" For Input As #1 '打开文件
Do While Not EOF(1) '文件读取循环
If X(L + 1) > X(L) Then
Xmax = X(L + 1)
ElseIf Y(L + 1) > Y(L) Then
Ymax = Y(L + 1)
Else
Xmin = X(L + 1)
Ymin = Y(L + 1)
End If
L = L + 1 '个数加1
Input #1, H(L), X(L), Y(L), Z(L) '读取文件数据, H贮存点序号,XYZ为坐标
Loop '文件读取循环
Close #1 '关闭文件
End Sub

账号		自动登录	找回密码
密码			注册