[下载]：溢洪道水力设计程序

2008xwd

计算速度怎么那么慢。大约需要4、5分钟时间。

大少爷

　　重新上传的原代码文件，请重新编译后运行。
　　
　　程序提示时按如下输入：
　　请输入数据文件：znsz.int（回车）
　　请输入结果文件：znsz.out（回车）
　　请输入脚本文件：znsz.scr（回车）

　　请输入堰面曲线末端坡度：0.7（回车）

liuzqyh

最初由 2008xwd 发布
[B]大少爷，请问输入文件为如下形式：怎么无法得到计算结果？请指教的。
849.58 848.42 848 843 840
962
479
34
0
0.017
0.1218693
1
10
1.2
1 [/B]

楼主的源程序代码为：
    Dim a(5)
      For nn = 1 To 5
          Input #3, a(nn)
      Next nn
      Input #3, q1
      Input #3, q2
      Input #3, b
      Input #3, mbp
      Input #3, n
      Input #3, i
      Input #3, ymxs
      Input #3, r
      Input #3, c
      Input #3, d
这就要求数据一行只能有一个数值，不能连续输入，也不能在数据中间加入“，”，要连续输入可以这样：
    Dim a(5)
      For nn = 1 To 5
          Input #3, a(nn)
      Next nn
      Input #3, q1,q2,b,mbp,n,i,ymxs,r,c,d

大少爷

　　对你可否有用，非常想有人能用VB改写和扩展该程序。

liuzqyh

还可以，能不能算宽顶堰就没试过，过段时间我再试着用VB改写。（年后太忙！！！）

konglong

可是对我来说,还是没有解决问题...

大少爷

　　目前，计算宽顶堰还不行，但可以扩展程序以计算其余各类堰型。

konglong

你们能用吗?可是我的不能用?是什么回事啊??/

eba

我使用一下看看如何