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

Springclock

这是我的毕业设计，我搞了两天还是没有什么头绪。
现在只需要做出计算部分就行了，绘图部分五一过后再请教老师。
除“蒸发器冷却排管围数”是整数型外，其余的都是实数型的。
计算公式：
蒸发管总长＝冷冻室负荷÷（302×3.14×蒸发管内径）
蒸发管间距＝冷冻室深度÷5
蒸发器冷却排管围数＝冷冻室深度÷5－1
（实际中，计算公式没有那么简单，我只是把它简单化）
谢谢啦。

Springclock

源代码
更新到5月14号

evaporated

那你要什么呢？
是公式不对？
还是按照公式得不到正确的结果？
还是你要把公式做到程序里？

Springclock

最初由 evaporated 发布
[B]那你要什么呢？
是公式不对？
还是按照公式得不到正确的结果？
还是你要把公式做到程序里？ [/B]

看来老兄一定可以帮到我！谢谢啦！
是把公式做到程序里。七个输入参数，三个输出参数，按“计算”得出计算结果。
我不会设计里面的代码，但是改代码还是可以的。所以这些计算公式我都把它简单化了。

ljpnb

当中计算部份：
[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]

Springclock

可以运行，非常感谢你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)
这些代码，程序照样能够运行，是不是前面的输入参数可以不用去定义它？
谢谢了！以后可能还要再麻烦你了。

ljpnb

呵呵，我也刚在学VB和VBA，只懂得一些皮毛，有问题你可以提出来，这儿厉害的人物可多了，肯定不会让你失望的。
我是这么认为的，输入的参数可以不用定义，如果对以后绘图时用到的一些变量需要定义一下，然后取TextBox中的值，比如
dim len as double
len = val(textbox2.text)

Springclock

谢谢ljpnb  的热情回复。
我这两天把详细的计算公式给搞出来，以后有问题再向大家请教！

Springclock

现在计算过程基本搞好了，但是我不会画图。原程序已更新。
输入参数时，参考下图的数据。

ljpnb

你要画成什么样的结果，最好你先根据9楼提供的数据，画一个图上来，并且在图上说明一下哪些参数对应那些实体，否则估计不懂这一行的帮不上忙，嘿嘿，至少我不懂。。。。。

Springclock

正在画。
还有就是计算结果我想保留小数点后面三位，应该如何写呢？

Springclock

最后出图需要达到的程度。
1.冷冻室方盒，必须与输入参数中的冷冻室的长、宽、高一致，就是画图时，要根据冷冻室的长、宽、高来画冷冻室方盒。
2.蒸发管间距跟算出的间距一样。
其他参数不做要求。就是画出的蒸发管长度可以与算出的长度不相等。我只需要画出个大体的样子就行了。
谢谢啦。
ljpnb 兄，你的QQ号码是什么呢？要不你加我。我的QQ：39724475

ps122

老兄，这就是你毕业设计的全部？自己学吧，用不了几天的

Springclock

最初由 ps122 发布
[B]老兄，这就是你毕业设计的全部？自己学吧，用不了几天的 [/B]

我也想自己做,但是确实是没有时间啊。每天上班累得像条狗。
我也并不是完全叫人做，只要有人帮我做出一点，我就可以顺着做下去。

桃花小妖

我想问一下这句后面的“#”的作用是什么
TextBox12.Text = Val(TextBox8.Text) / 5#