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

VBA编程

用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 static/image/common/back.gif
如果你每一个问题都需要别人来写代码，那你就学不到什么东西了。
建议你自己先摸索做一下，或者请教别人思 ...

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

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

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

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

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 static/image/common/back.gif
自己写了，运行没有错误，就是画不出线段

发来让大家诊断下？

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

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

规则格网，我先进行的比较，不过比较这块我还不熟，这是我读文本的时候的代码，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 static/image/common/back.gif
你读文本的时候为什么就不比较下大小，记录好呢？然后就可以组合出外围框的四角坐标了呀

对我是想这样做的，但是我刚学没多久，对比较这块不熟，这是我的代码，比较这块不对的地方，希望能帮忙指正，谢谢啦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 static/image/common/back.gif
发来让大家诊断下？

谢谢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
页: [1] 2 3
查看完整版本: VBA编程