找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 923|回复: 15

【求助】大家帮帮我,我真的没辙了。

[复制链接]
发表于 2005-5-5 00:47:54 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
这是我的毕业设计,我搞了两天还是没有什么头绪。
现在只需要做出计算部分就行了,绘图部分五一过后再请教老师。
除“蒸发器冷却排管围数”是整数型外,其余的都是实数型的。
计算公式:
蒸发管总长=冷冻室负荷÷(302×3.14×蒸发管内径)
蒸发管间距=冷冻室深度÷5
蒸发器冷却排管围数=冷冻室深度÷5-1
(实际中,计算公式没有那么简单,我只是把它简单化)
谢谢啦。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
 楼主| 发表于 2005-5-5 00:50:50 | 显示全部楼层
源代码
更新到5月14号
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-5-5 10:59:31 | 显示全部楼层
那你要什么呢?
是公式不对?
还是按照公式得不到正确的结果?
还是你要把公式做到程序里?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2005-5-5 13:19:17 | 显示全部楼层
最初由 evaporated 发布
[B]那你要什么呢?
是公式不对?
还是按照公式得不到正确的结果?
还是你要把公式做到程序里? [/B]

看来老兄一定可以帮到我!谢谢啦!
是把公式做到程序里。七个输入参数,三个输出参数,按“计算”得出计算结果。
我不会设计里面的代码,但是改代码还是可以的。所以这些计算公式我都把它简单化了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-5-6 08:14:46 | 显示全部楼层
当中计算部份:
[php]
Private Sub CommandButton4_Click()
Dim nun1 As Double
Dim nun2 As Double
Dim nun3 As Double
nun1 = Val(TextBox1.Text)
nun2 = Val(TextBox2.Text)
nun3 = Val(TextBox10.Text)
nun3 = nun1 + nun2
TextBox11.Text = Val(TextBox1.Text) / 302 * 3.14 * Val(TextBox5.Text)
TextBox12.Text = Val(TextBox8.Text) / 5#
TextBox10.Text = Fix(Val(TextBox12.Text) - 1)
End Sub
[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2005-5-6 11:56:48 | 显示全部楼层
可以运行,非常感谢你ljpnb!你真是个好人。救我与水火之中。
我以前是没有任何VBA基础的,只是想在毕业以前扩展一下自己在AutoCAD方面的视野,最近又在上班,没有很多时间去学VBA,如果是通过学习VBA去做毕业设计这不太现实,只有通过做毕业设计来学习VBA。
还有一个问题想请教你,现在我只保留了
TextBox11.Text = Val(TextBox1.Text) / 302 * 3.14 * Val(TextBox5.Text)
TextBox12.Text = Val(TextBox8.Text) / 5#
TextBox10.Text = Fix(Val(TextBox12.Text) - 1)
这些代码,程序照样能够运行,是不是前面的输入参数可以不用去定义它?
谢谢了!以后可能还要再麻烦你了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-5-6 12:20:20 | 显示全部楼层
呵呵,我也刚在学VB和VBA,只懂得一些皮毛,有问题你可以提出来,这儿厉害的人物可多了,肯定不会让你失望的。
我是这么认为的,输入的参数可以不用定义,如果对以后绘图时用到的一些变量需要定义一下,然后取TextBox中的值,比如
dim len as double
len = val(textbox2.text)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2005-5-6 13:45:02 | 显示全部楼层
谢谢ljpnb  的热情回复。
我这两天把详细的计算公式给搞出来,以后有问题再向大家请教!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2005-5-14 23:18:09 | 显示全部楼层
现在计算过程基本搞好了,但是我不会画图。原程序已更新。
输入参数时,参考下图的数据。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-5-14 23:25:49 | 显示全部楼层
你要画成什么样的结果,最好你先根据9楼提供的数据,画一个图上来,并且在图上说明一下哪些参数对应那些实体,否则估计不懂这一行的帮不上忙,嘿嘿,至少我不懂。。。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2005-5-15 00:19:50 | 显示全部楼层
正在画。
还有就是计算结果我想保留小数点后面三位,应该如何写呢?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2005-5-15 00:21:27 | 显示全部楼层
最后出图需要达到的程度。
1.冷冻室方盒,必须与输入参数中的冷冻室的长、宽、高一致,就是画图时,要根据冷冻室的长、宽、高来画冷冻室方盒。
2.蒸发管间距跟算出的间距一样。
其他参数不做要求。就是画出的蒸发管长度可以与算出的长度不相等。我只需要画出个大体的样子就行了。
谢谢啦。
ljpnb 兄,你的QQ号码是什么呢?要不你加我。我的QQ:39724475
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 4874个

财富等级: 富可敌国

发表于 2005-5-16 08:51:08 | 显示全部楼层
老兄,这就是你毕业设计的全部?自己学吧,用不了几天的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2005-5-16 23:26:30 | 显示全部楼层
最初由 ps122 发布
[B]老兄,这就是你毕业设计的全部?自己学吧,用不了几天的 [/B]

我也想自己做,但是确实是没有时间啊。每天上班累得像条狗。
我也并不是完全叫人做,只要有人帮我做出一点,我就可以顺着做下去。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2005-5-17 09:24:45 | 显示全部楼层
我想问一下这句后面的“#”的作用是什么
TextBox12.Text = Val(TextBox8.Text) / 5#
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-25 15:43 , Processed in 0.479529 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表