[建议]：将原PC1500水利工程程序集 用VB 重编

zhjmeichun

　　水利工程常常用到PC1500程序集的程序，但其界面相当差，不知谁有本事能将其用 VB　重编，那将是对水利行业作出了巨大的贡献！！！

hh96788

原来只能在CCDOS2.13的低分辨率屏幕上运行，现在已经可以在UCDOS及中文WIN95的DOS高分辨率屏幕上运行.但好像还不是纯windows版本

horse

不知这个程序有何特长？？

hh96788

这里有介绍
http://okok.org/cgi-bin/ut/topic_show.cgi?id=17156

indal

如果有原码，改起来可能会容易很多
有吗？

zhjmeichun

先上传一个，不知行不？
G－9.bas，挡土墙稳定与应力计算程序（重力式、半重力式、衡重式、悬臂式）

indal

那位VB高手把它重编，你有k1的源码吗？算大坝稳定的

1. 
   
2.   [FONT=courier new]
   
3. 
   
4.                        水利水电工程微机通用程序集(1.0版)目录
   
5.                        =====================================
   
6. 
   
7.   一、工程水文计算软件包(A)
   
8. ┌─────────────────┬──────┬───────┬──────┬──┐
   
9. │       名                    称   │  运行文件  │ 例题数据文件 │  结果文件  │ 图 │
   
10. ├─────────────────┼──────┼───────┼──────┼──┤
    
11. │  1.直线相关计算程序　　　　      │   A-1.EXE  │    A-1.INT   │   A-1.OUT  │ 有 │
    
12. │  2.三参数幂函数曲线拟合程序      │   A-2.EXE  │    A-2.INT   │   A-2.OUT  │    │
    
13. │  3.水文频率计算程序              │   A-3.EXE  │   A-31.INT   │  A-31.OUT  │ 有 │
    
14. │                                  │            │   A-32.INT   │  A-32.OUT  │    │
    
15. │  4.水文系列代表性分析程序        │   A-4.EXE  │    A-4.INT   │   A-4.OUT  │ 有 │
    
16. │  5.设计洪水过程线放大程序        │   A-5.EXE  │   键盘输入   │   A-5.OUT  │    │
    
17. │  6.推求流域时段平均面雨量程序    │   A-6.EXE  │   键盘输入   │   A-6.OUT  │    │
    
18. │  7.分析经验单位线及汇流计算程序  │   A-7.EXE  │    A-7.INT   │   A-7.OUT  │    │
    
19. │  8.分析马司京根法演算参数程序    │   A-8.EXE  │    A-8.INT   │   A-8.OUT  │    │
    
20. │  9.马司京根法分段连续演算程序    │   A-9.EXE  │    A-9.INT   │   A-9.OUT  │    │
    
21. │ 10.推理公式法计算洪峰流量程序    │  A-10.EXE  │   键盘输入   │  A-10.OUT  │    │
    
22. │ 11.最大24小时洪量计算程序        │  A-11.EXE  │   A-11.INT   │  A-11.OUT  │    │
    
23. │ 12.下渗曲线产流计算程序          │  A-12.EXE  │   A-12.INT   │  A-12.OUT  │    │
    
24. │ 13.随机水文AR(P)模型分析程序     │  A-13.EXE  │   A-13.INT   │  A-13.OUT  │ 有 │
    
25. └─────────────────┴──────┴───────┴──────┴──┘
    
26. 
    
27.   三.水利水能计算软件包(C)
    
28. ┌─────────────────┬──────┬───────┬──────┬──┐
    
29. │       名                    称   │  运行文件  │ 例题数据文件 │  结果文件  │ 图 │
    
30. ├─────────────────┼──────┼───────┼──────┼──┤
    
31. │  1.《美国气象局溃坝洪水预报简化  │   C-1.EXE  │    C-1.INT   │   C-1.OUT  │    │
    
32. │       模型》程序                 │            │              │            │    │
    
33. │  2.水库调洪演算的数值解程序      │   C-2.EXE  │    C-2.INT   │   C-2.OUT  │ 有 │
    
34. │  3.两种供水保证率的水库径流调节  │   C-3.EXE  │    C-3.INT   │   C-3.OUT  │    │
    
35. │    计算程序                      │            │              │            │    │
    
36. │  4.水电站等流量调节计算通用程序  │   C-4.EXE  │    C-4.INT   │   C-4.OUT  │    │
    
37. │  5.水电站蓄水期调节计算程序      │   C-5.EXE  │    C-5.INT   │   C-5.OUT  │    │
    
38. │  6.水电站定出力调节计算程序(试算)│   C-6.EXE  │    C-6.INT   │   C-6.OUT  │    │
    
39. │  7.水电站等出力调节计算程序(试算)│   C-7.EXE  │    C-7.INT   │   C-7.OUT  │    │
    
40. │  8.水电站定出力调节计算程序(图解)│   C-8.EXE  │    C-8.INT   │   C-8.OUT  │    │
    
41. │  9.水电站等出力调节计算程序(图解)│   C-9.EXE  │    C-9.INT   │   C-9.OUT  │    │
    
42. │ 11.无调节水电站水能计算程序      │  C-11.EXE  │   C-11.INT   │  C-11.OUT  │    │
    
43. │ 12.调水工程水利经济计算程序      │  C-12.EXE  │   C-12.INT   │  C-12.OUT  │    │
    
44. │ 13.水电站财务分析计算程序        │  C-13.EXE  │   C-13.INT   │  C-13.OUT  │    │
    
45. └─────────────────┴──────┴───────┴──────┴──┘
    
46. 
    
47.   四.工程水力学计算软件包(D)
    
48. ┌─────────────────┬──────┬───────┬──────┬──┐
    
49. │       名                    称   │  运行文件  │ 例题数据文件 │  结果文件  │ 图 │
    
50. ├─────────────────┼──────┼───────┼──────┼──┤
    
51. │  1.管、洞水力学计算程序          │   D-1.EXE  │   键盘输入   │   D-1.OUT  │    │
    
52. │  2.水闸水力学计算程序            │   D-2.EXE  │   键盘输入   │   D-2.OUT  │    │
    
53. │  3.消能计算程序                  │   D-3.EXE  │   键盘输入   │   D-3.OUT  │    │
    
54. │  4.堰流水力学计算程序            │   D-4.EXE  │   键盘输入   │   D-4.OUT  │    │
    
55. │  6.常用断面渠道水力学计算程序    │   D-6.EXE  │   键盘输入   │   D-6.OUT  │    │
    
56. │  7.明渠恒定非均匀渐变流水面曲线  │   D-7.EXE  │    D-7.INT   │   D-7.OUT  │    │
    
57. │    计算程序                      │            │   D-71.INT   │  D-71.OUT  │    │
    
58. │                                  │            │   D-72.INT   │  D-72.OUT  │    │
    
59. │  8.隧洞水力学计算程序            │   D-8.EXE  │    D-8.INT   │   D-8.OUT  │    │
    
60. │  9.调压室水力学计算程序          │   D-9.EXE  │   D-91.INT   │  D-91.OUT  │    │
    
61. │                                  │            │   D-92.INT   │  D-92.OUT  │    │
    
62. │                                  │            │   D-93.INT   │  D-93.OUT  │    │
    
63. │                                  │            │   D-94.INT   │  D-94.OUT  │    │
    
64. │                                  │            │   D-95.INT   │  D-95.OUT  │    │
    
65. │ 10.底栏栅水力学计算程序          │  D-10.EXE  │  键盘输入    │  D-10.OUT  │    │
    
66. │ 11.侧槽式变量流水面曲线计算程序  │  D-11.EXE  │   D-11.INT   │  D-11.OUT  │    │
    
67. │ 14.天然河道水面曲线计算程序      │  D-14.EXE  │   D-14.INT   │  D-14.OUT  │    │
    
68. └─────────────────┴──────┴───────┴──────┴──┘
    
69. 
    
70.   五.土工试验软件包(E)
    
71. ┌─────────────────┬──────┬───────┬──────┬──┐
    
72. │     名                    称     │  运行文件  │ 例题数据文件 │  结果文件  │ 图 │
    
73. ├─────────────────┼──────┼───────┼──────┼──┤
    
74. │  1.比重试验计算程序              │   E-1.EXE  │    E-1.INT   │   E-1.OUT  │    │
    
75. │  2.颗粒大小分析试验计算程序      │   E-2.EXE  │    E-2.INT   │ E-2-1.OUT  │ 有 │
    
76. │                                  │            │              │ E-2-2.OUT  │    │
    
77. │  3.用卡式碟式仪测定土体液限      │   E-3.EXE  │    E-3.INT   │   E-3.OUT  │ 有 │
    
78. │    计算程序                      │            │              │            │    │
    
79. │  4.光电仪液限,塑限联合试验       │   E-4.EXE  │    E-4.INT   │   E-4.OUT  │ 有 │
    
80. │    计算程序                      │            │              │            │    │
    
81. │  5.渗透试验计算程序              │   E-5.EXE  │    E-5.INT   │   E-5.OUT  │    │
    
82. │  6.用时间平方根法和三点法计算固结│   E-6.EXE  │    E-6.INT   │   E-6.OUT  │ 有 │
    
83. │    系数计算程序                  │            │              │            │    │
    
84. │  7.压缩试验计算程序              │   E-6.EXE  │    E-7.INT   │   E-7.OUT  │ 有 │
    
85. │  8.快速法压缩计算程序            │   E-8.EXE  │    E-8.INT   │   E-8.OUT  │ 有 │
    
86. │  9.直接剪切试验计算程序          │   E-9.EXE  │    E-9.INT   │   E-9.OUT  │ 有 │
    
87. │ 10.三轴剪切试验计算程序          │  E-10.EXE  │   E-10.INT   │  E-10.OUT  │ 有 │
    
88. └─────────────────┴──────┴───────┴──────┴──┘
    
89. 
    
90.   六.测量软件包(F)
    
91. ┌─────────────────┬──────┬───────┬──────┬──┐
    
92. │       名                    称   │  运行文件  │ 例题数据文件 │  结果文件  │ 图 │
    
93. ├─────────────────┼──────┼───────┼──────┼──┤
    
94. │  1 .高氏投影计算                 │   F-1.EXE  │  F-1-1.INT   │  F-1-1.OUT │    │
    
95. │                                  │            │  F-1-2.INT   │  F-1-2.OUT │    │
    
96. │                                  │            │  F-1-3.INT   │  F-1-3.OUT │    │
    
97. │  2 .单一附合导线平差计算         │   F-2.EXE  │  F-2-1.INT   │  F-2-1.OUT │    │
    
98. │                                  │            │  F-2-2.INT   │  F-2-2.OUT │    │
    
99. │                                  │            │  F-2-3.INT   │  F-2-3.OUT │    │
    
100. │  3 .导线网平差计算               │   F-3.EXE  │  F-3-1.INT   │  F-3-1.OUT │    │
     
101. │                                  │            │  F-3-2.INT   │  F-3-2.OUT │    │
     
102. │  3'.大规模导线网平差计算         │  F-3X.EXE  │    同 F-3    │    同 F-3  │    │
     
103. │  5 .任意三角网平差计算           │   F-5.EXE  │    F-5.INT   │    F-5.OUT │    │
     
104. │  5'.大规模三角网平差计算         │  F-5X.EXE  │    同 F-5    │    同 F-5  │    │
     
105. │  6 .任意高程网平差计算           │   F-6.EXE  │  F-6-1.INT   │  F-6-1.OUT │    │
     
106. │                                  │            │  F-6-2.INT   │  F-6-2.OUT │    │
     
107. │ 11 .线形锁平差计算               │  F-11.EXE  │ F-11-1.INT   │ F-11-1.OUT │    │
     
108. │                                  │            │ F-11-2.INT   │ F-11-2.OUT │    │
     
109. │                                  │            │ F-11-3.INT   │ F-11-3.OUT │    │
     
110. │ 12 .测边网平差计算               │  F-12.EXE  │ F-12-1.INT   │ F-12-1.OUT │    │
     
111. │                                  │            │ F-12-2.INT   │ F-12-2.OUT │    │
     
112. │ 12'.大规模测边网平差计算         │ F-12X.EXE  │    同 F-12   │    同 F-12 │    │
     
113. └─────────────────┴──────┴───────┴──────┴──┘
     
114. 
     
115.   七.水工结构及地下建筑物计算软件包(G)
     
116. ┌─────────────────┬──────┬───────┬──────┬──┐
     
117. │       名                    称   │  运行文件  │ 例题数据文件 │  结果文件  │ 图 │
     
118. ├─────────────────┼──────┼───────┼──────┼──┤
     
119. │  1.水工钢筋砼构件结构计算程序    │   G-1.EXE  │  键盘输入    │   G-1.OUT  │    │
     
120. │  2.弹性地基梁计算程序            │   G-2.EXE  │   G-21.INT   │  G-21.OUT  │    │
     
121. │                                  │            │   G-22.INT   │  G-22.OUT  │    │
     
122. │                                  │            │   G-23.INT   │  G-23.OUT  │    │
     
123. │  3.阶梯形变截面弹性地基梁计算程序│   G-3.EXE  │   G-31.INT   │  G-31.OUT  │    │
     
124. │                                  │            │   G-32.INT   │  G-32.OUT  │    │
     
125. │                                  │            │   G-33.INT   │  G-33.OUT  │    │
     
126. │  4.渡槽结构设计计算程序          │   G-4.EXE  │    G-4.INT   │   G-4.OUT  │    │
     
127. │  5.隧洞衬砌内力计算程序          │   G-5.EXE  │    G-5.INT   │   G-5.OUT  │    │
     
128. │  6.重力式挡土墙计算程序          │   G-6.EXE  │    G-6.INT   │   G-6.OUT  │    │
     
129. │  7.半重力式挡土墙计算程序        │   G-7.EXE  │    G-7.INT   │   G-7.OUT  │    │
     
130. │  8.悬臂式挡土墙计算程序          │   G-8.EXE  │    G-8.INT   │   G-8.OUT  │    │
     
131. │  9.挡土墙稳定与应力计算程序      │   G-9.EXE  │   G-91.INT   │  G-91.OUT  │    │
     
132. │                                  │            │   G-92.INT   │  G-92.OUT  │    │
     
133. │                                  │            │   G-93.INT   │  G-93.OUT  │    │
     
134. │                                  │            │   G-94.INT   │  G-94.OUT  │    │
     
135. │                                  │            │   G-95.INT   │  G-95.OUT  │    │
     
136. │ 12.隧洞衬砌内力及配筋计算通用程序│  G-12.EXE  │   G-12.INT   │  G-12.OUT  │    │
     
137. │ 13.多孔涵洞内力的有限元法分析及  │ G-13-1.EXE │ G-13-1.INT   │ G-13-1.OUT │    │
     
138. │    配筋计算通用程序              │ G-13-2.EXE │ G-13-2.INT   │ G-13-2.OUT │    │
     
139. │ 14.带斜杆带弹性地基梁的平面框架  │  G-14.EXE  │   G-14.INT   │  G-14.OUT  │    │
     
140. │    内力及配筋计算程序            │            │              │            │    │
     
141. └─────────────────┴──────┴───────┴──────┴──┘
     
142. 
     
143.   八.工民建及电站厂房结构计算软件包(H)
     
144. ┌─────────────────┬──────┬───────┬──────┬──┐
     
145. │       名                    称   │  运行文件  │ 例题数据文件 │  结果文件  │ 图 │
     
146. ├─────────────────┼──────┼───────┼──────┼──┤
     
147. │  2.平面框架通用计算程序　        │   H-2.EXE  │    H-2.INT   │   H-2.OUT  │    │
     
148. │  3.平面桁架内力计算和截面选择程序│   H-3.EXE  │    H-3.INT   │   H-3.OUT  │ 有 │
     
149. │  9.简支吊车梁内力及配筋计算程序  │   H-9.EXE  │    H-9.INT   │   H-9.OUT  │ 有 │
     
150. │ 10.圆筒式风罩内力计算程序        │  H-10.EXE  │  H-101.INT   │ H-101.OUT  │    │
     
151. │                                  │            │  H-102.INT   │ H-102.OUT  │    │
     
152. │ 11.水电站厂房尾水管单线图计算程序│  H-11.EXE  │  H-111.INT   │ H-111.OUT  │    │
     
153. │                                  │            │  H-112.INT   │ H-112.OUT  │    │
     
154. │ 12.弹性地基上的框架内力计算程序  │  H-12.EXE  │   H-12.INT   │  H-12.OUT  │    │
     
155. │    (两跨)                        │            │              │            │    │
     
156. │ 13.弹性地基上的框架内力计算程序  │  H-13.EXE  │   H-13.INT   │  H-13.OUT  │    │
     
157. │    (三跨)                        │            │              │            │    │
     
158. └─────────────────┴──────┴───────┴──────┴──┘
     
159. 
     
160.   九.重力坝设计软件包(I)
     
161. ┌─────────────────┬──────┬───────┬──────┬──┐
     
162. │       名                    称   │  运行文件  │ 例题数据文件 │  结果文件  │ 图 │
     
163. ├─────────────────┼──────┼───────┼──────┼──┤
     
164. │  1.砼重力坝抗滑稳定及地基应力计  │   I-1.EXE  │    I-1.INT   │   I-1.OUT  │ 有 │
     
165. │    算程序                        │            │              │            │    │
     
166. │  2.重力坝深层抗滑稳定计算程序    │   I-2.EXE  │    I-2.INT   │   I-2.OUT  │ 有 │
     
167. │  3.砼实体重力坝材料力学方法应力  │   I-3.EXE  │    I-3.INT   │   I-3.OUT  │ 有 │
     
168. │    分析程序                      │            │              │            │    │
     
169. │  4.重力坝经济断面选择的新方法程序│   I-4.EXE  │    I-4.INT   │   I-4.OUT  │    │
     
170. └─────────────────┴──────┴───────┴──────┴──┘
     
171. 
     
172.   十.拱坝设计软件包(J)
     
173. ┌─────────────────┬──────┬───────┬──────┬──┐
     
174. │       名                    称   │  运行文件  │ 例题数据文件 │  结果文件  │ 图 │
     
175. ├─────────────────┼──────┼───────┼──────┼──┤
     
176. │  1.均匀荷载作用下等厚圆拱计算程序│   J-1.EXE  │   J-11.INT   │  J-11.OUT  │    │
     
177. │                                  │            │   J-12.INT   │  J-12.OUT  │    │
     
178. │  2.考虑扭转作用的拱冠梁法程序    │   J-2.EXE  │    J-2.INT   │   J-2.OUT  │ 有 │
     
179. │  3.改进拱冠梁法分析拱坝应力程序  │   J-3.EXE  │    J-3.INT   │   J-3.OUT  │    │
     
180. │  4.转角平衡法拱坝应力分析程序    │   J-4.EXE  │    J-4.INT   │   J-4.OUT  │    │
     
181. └─────────────────┴──────┴───────┴──────┴──┘
     
182. 
     
183.   十一.土坝设计软件包(K)
     
184. ┌─────────────────┬──────┬───────┬──────┬──┐
     
185. │       名                    称   │  运行文件  │ 例题数据文件 │  结果文件  │ 图 │
     
186. ├─────────────────┼──────┼───────┼──────┼──┤
     
187. │  1.土石坝边坡稳定分析程序        │   K-1.EXE  │    K-1.INT   │   K-1.OUT  │ 有 │
     
188. │  2.土坝渗流计算程序              │   K-2.EXE  │   K-21.INT   │  K-21.OUT  │ 有 │
     
189. │                                  │            │   K-22.INT   │  K-22.OUT  │    │
     
190. │                                  │            │   K-23.INT   │  K-23.OUT  │    │
     
191. │  4.重力墙式堆石坝墙体内力及应力  │   K-4.EXE  │    K-4.INT   │   K-4.OUT  │    │
     
192. │    计算程序                      │            │              │            │    │
     
193. │  5.波浪护坡计算程序              │   K-5.EXE  │   K-51.INT   │  K-51.OUT  │    │
     
194. │                                  │            │   K-52.INT   │  K-52.OUT  │    │
     
195. └─────────────────┴──────┴───────┴──────┴──┘
     
196. 
     
197.   十二.大体积混凝土结构温控设计软件包(L)
     
198. ┌─────────────────┬──────┬───────┬──────┬──┐
     
199. │       名                    称   │  运行文件  │ 例题数据文件 │  结果文件  │ 图 │
     
200. ├─────────────────┼──────┼───────┼──────┼──┤
     
201. │  1.基础块温度场及温度应力计算程序│*  L-1.EXE  │    L-1.INT   │   L-1.OUT  │ 有 │
     
202. │  2.新老砼上下层温差及温度应力计算│   L-2.EXE  │    L-2.INT   │   L-2.OUT  │ 有 │
     
203. │    程序                          │            │              │            │    │
     
204. │  3.气温骤降引起的砼表面应力计算程│   L-3.EXE  │    L-3.INT   │   L-3.OUT  │ 有 │
     
205. │    序                            │            │              │            │    │
     
206. │  4.弹性基础梁温度应力计算程序    │   L-4.EXE  │    L-4.INT   │   L-4.OUT  │    │
     
207. │  5.砼浇筑块一期水管冷却温度场计算│   L-5.EXE  │    L-5.INT   │   L-5.OUT  │    │
     
208. │    程序                          │            │              │            │    │
     
209. │  7.砼多层浇筑块不稳定温度场计算程│   L-7.EXE  │    L-7.INT   │   L-7.OUT  │ 有 │
     
210. │    序                            │            │              │            │    │
     
211. │  8.坝体砼的天然冷却计算程序      │   L-8.EXE  │    L-8.INT   │   L-8.OUT  │    │
     
212. └─────────────────┴──────┴───────┴──────┴──┘
     
213. 
     
214.   十三.钢闸门结构计算软件包(M)
     
215. ┌─────────────────┬──────┬───────┬──────┬──┐
     
216. │       名                    称   │  运行文件  │ 例题数据文件 │  结果文件  │ 图 │
     
217. ├─────────────────┼──────┼───────┼──────┼──┤
     
218. │  1.卷扬式启闭机起升机构设计计算  │   M-1.EXE  │   键盘输入   │   M-1.OUT  │    │
     
219. │     程序                         │            │              │            │    │
     
220. │  2.双主梁平面钢闸门结构初算程序  │   M-2.EXE  │    M-2.INT   │   M-2.OUT  │    │
     
221. │  3.斜支臂弧形闸门框架优化设计程序│   M-3.EXE  │   键盘输入   │   M-3.OUT  │    │
     
222. │  4.主横梁式双主梁弧形钢闸门框架  │   M-4.EXE  │    M-4.INT   │   M-4.OUT  │    │
     
223. │    计算                          │            │              │            │    │
     
224. │  5.水工弧形钢闸门设计程序        │ M-5-1.EXE  │   键盘输入   │ M-5-1.OUT  │    │
     
225. │                                  │ M-5-2.EXE  │   键盘输入   │ M-5-2.OUT  │    │
     
226. │                                  │ M-5-3.EXE  │   键盘输入   │ M-5-3.OUT  │    │
     
227. │                                  │ M-5-4.EXE  │   键盘输入   │ M-5-4.OUT  │    │
     
228. └─────────────────┴──────┴───────┴──────┴──┘
     
229.   
     
230.   十四.钢管岔管计算软件包(N)
     
231. ┌─────────────────┬──────┬───────┬──────┬──┐
     
232. │       名                    称   │  运行文件  │ 例题数据文件 │  结果文件  │ 图 │
     
233. ├─────────────────┼──────┼───────┼──────┼──┤
     
234. │  1.露天式压力钢管直管段强度计算程│   N-1.EXE  │    N-1.INT   │   N-1.OUT  │    │
     
235. │    序                            │            │              │            │    │
     
236. │  2.压力钢管进人孔强度及展开计算程│   N-2.EXE  │    N-2.INT   │   N-2.OUT  │ 有 │
     
237. │    序                            │            │              │            │    │
     
238. │  3.露天式压力钢管伸缩节计算程序  │   N-3.EXE  │    N-3.INT   │   N-3.OUT  │    │
     
239. │  4.组合弯管展开计算及绘图程序    │   N-4.EXE  │   键盘输入   │   N-4.OUT  │ 有 │
     
240. │  5.圆锥与圆柱相贯的卜型贴边岔管  │   N-5.EXE  │    N-5.INT   │   N-5.OUT  │ 有 │
     
241. │    展开计算与绘图程序            │            │              │            │    │
     
242. │  6.三梁卜型岔管结构计算程序      │   N-6.EXE  │    N-6.INT   │   N-6.OUT  │ 有 │
     
243. │* 7.多种结构型式钢岔管展开计算程序│*  N-7.EXE  │   键盘输入   │  N-71.OUT  │ 有 │
     
244. │                                  │            │              │     ~      │    │
     
245. │                                  │            │              │ N-713.OUT  │    │
     
246. │  8.钢筋砼岔管几何尺寸计算程序    │   N-8.EXE  │    N-8.INT   │   N-8.OUT  │    │
     
247. └─────────────────┴──────┴───────┴──────┴──┘
     
248. 
     
249.   十五.机电设计软件包(P)
     
250. ┌─────────────────┬──────┬───────┬──────┬──┐
     
251. │       名              　　　称   │  运行文件  │ 例题数据文件 │  结果文件  │ 图 │
     
252. ├─────────────────┼──────┼───────┼──────┼──┤
     
253. │  1.水电站金属蜗壳外形尺寸计算程序│   P-1.EXE  │    P-1.INT   │   P-1.OUT  │ 有 │
     
254. │  2.水电站砼蜗壳水力计算及辅助绘图│   P-2.EXE  │    P-2.INT   │   P-2.OUT  │ 有 │
     
255. │    通用程序                      │            │              │            │    │
     
256. │  3.高压配电装置导线张力弧垂计算  │   P-3.EXE  │    P-3.INT   │   P-3.OUT  │    │
     
257. │    程序                          │            │              │            │    │
     
258. │  4.水电站短路电流计算程序        │   P-4.EXE  │    P-4.INT   │   P-4.OUT  │    │
     
259. │  5.高压送电线路电线力学计算程序  │   P-5.EXE  │    P-5.INT   │   P-5.OUT  │    │
     
260. │  6.水电站大波动过渡过程计算程序  │   P-6.EXE  │    P-6.INT   │   P-6.OUT  │ 有 │
     
261. │  7.抽水站水泵工况点计算程序      │   P-7.EXE  │   P-71.INT   │  P-71.OUT  │    │
     
262. │                                  │            │   P-72.INT   │  P-72.OUT  │    │
     
263. │                                  │            │   P-73.INT   │  P-72.OUT  │    │
     
264. │                                  │            │   P-74.INT   │  P-74.OUT  │    │
     
265. └─────────────────┴──────┴───────┴──────┴──┘
     
266. 
     
267.    十六.土石方工程量计算软件包(Q)
     
268. ┌─────────────────┬──────┬───────┬──────┬──┐
     
269. │       名                    称   │  运行文件  │ 例题数据文件 │  结果文件  │ 图 │
     
270. ├─────────────────┼──────┼───────┼──────┼──┤
     
271. │  1.梯形断面渠道土石方工程量计算  │   Q-1.EXE  │    Q-1.INT   │   Q-1.OUT  │    │
     
272. │    程序                          │            │   Q-11.INT   │  Q-11.OUT  │    │
     
273. │  2.平整土地计算程序              │   Q-2.EXE  │    Q-2.INT   │   Q-2.OUT  │    │
     
274. │  3.建筑物挖填土石方工程量计算程序│   Q-3.EXE  │    Q-3.INT   │   Q-3.OUT  │    │
     
275. └─────────────────┴──────┴───────┴──────┴──┘
     
276. 
     
277.   [/FONT]
     

复制代码

zhjmeichun

k1.bas

cad517

最初由 zhjmeichun 发布
[B]先上传一个，不知行不？
G－9.bas，挡土墙稳定与应力计算程序（重力式、半重力式、衡重式、悬臂式） [/B]

zhjmeichun，直接编成vb吗?具体说说要求软件有什么样的功能！
请联系我msn：cad517@hotmail.com

下面的软件你看看，有没有你想要的
http://www.xdcad.net/forum/showt ... d=109878#post109878

indal

最初由 zhjmeichun 发布
[B]k1.bas [/B]

你那个是
  5  REM  "H-1-1"   
   10 LPRINT TIME :CLEAR
我们院的pc1500都是中文界面的，要狗！你的好象是英文界面的！

zhjmeichun

indal:
　　K1.bas应该没错！你再仔细瞧瞧，只不过是英文界面而已！
　　

zhjmeichun

第13贴是G字母的*.EXE应用程序，下面提供G字母的*.BAS源程序。

whitephoto

我要求参与分工
你将源码传到我的信箱whitephoto@sina.com
我单位就有一套，就是界面太不好了，如有必要，可上传原程序。

indal

最初由 whitephoto 发布
[B]我要求参与分工
你将源码传到我的信箱whitephoto@sina.com
我单位就有一套，就是界面太不好了，如有必要，可上传原程序。 [/B]

好呀，把源程序传上来呀，加分加币

whitephoto

可以啊，不过我这个是dos版的已编译为＊。exe.文件，可能需解密才行，可有高手能搞定，请回应一下，我可分个上传。