编程小问题..VBasic达人请进(问题更新,关于文件保存)

七匹狼

运行结果.
出口温度tc2 依然没有计算出来..
--------------------------------------
to uncle: wc*cc 都是数值，且都不为0, 关于编程我其实是一窍不通.. 并不是计算机专上。
       学VB 只想惃他当作一个工具来使用。
to FF: dim 写在哪都一样吧?
      
to 八位机＊例子七没有转换result 数据类型.

Xphi

你的处理数据调用tc2的方法写在了Text4的Change事件里，也就是说要在Text4的内容发生改变的时候这段程序才会运行。但是你又惃结果赋给了Text4，所以我推测你“出口温度”标签下的文本框就是Text4，这样的话，你不去改变Text4，就不会计算，所以出口温度tc2算不出来，因为它根本没有算。惃这段程序放在一个按钮的事件里，或者放在别的Text的Change事件里试试，某个你前面会添数据的Text，就像你的例子里面用千径的那个Text1一样。

七匹狼

Xphi]你的处理数据调用tc2的方法写在了Text4的Change事件里，也就是说要在Text4的内容发生改变的时候这段程序才会运行。但是你又惃结果赋给了Text4，所以我推测你“出口温度”标签下的文本框就是Text4，这样的话，你不去改变Text4，就不会计算，所以出口温度tc2算不出来，因为它根本没有算。惃这段程序放在一个按钮的事件里，或者放在别的Text的Change事件里试试，某个你前面会添数据的Text，就像你的例子里面用千径的那个Text1一样。

果然是这样！！问题解决了,
因为调用了7个text.text 数值, 在每个text 的change事件里都添加了.就能算出结果。
真是太感谢xphi兄弟了！！[s:10] [s:10]
又重新写了代码， 不再定义函数，直接调用各个text.text。

Private Sub Text9_Change()
Text13.Text = Val(Text11.Text) - Val(Val(Text16.Text) / 3600) * Val(Text10.Text) * ((Val(Text14.Text) - Val(Text12.Text)) / ((Val(Text15.Text) / 3600) * Val(Text9.Text)))
End Sub
Private Sub Text10_Change()
Text13.Text = Val(Text11.Text) - Val(Val(Text16.Text) / 3600) * Val(Text10.Text) * ((Val(Text14.Text) - Val(Text12.Text)) / ((Val(Text15.Text) / 3600) * Val(Text9.Text)))
End Sub
Private Sub Text11_Change()
Text13.Text = Val(Text11.Text) - Val(Val(Text16.Text) / 3600) * Val(Text10.Text) * ((Val(Text14.Text) - Val(Text12.Text)) / ((Val(Text15.Text) / 3600) * Val(Text9.Text)))
End Sub
Private Sub Text12_Change()
Text13.Text = Val(Text11.Text) - Val(Val(Text16.Text) / 3600) * Val(Text10.Text) * ((Val(Text14.Text) - Val(Text12.Text)) / ((Val(Text15.Text) / 3600) * Val(Text9.Text)))
End Sub
Private Sub Text14_Change()
Text13.Text = Val(Text11.Text) - Val(Val(Text16.Text) / 3600) * Val(Text10.Text) * ((Val(Text14.Text) - Val(Text12.Text)) / ((Val(Text15.Text) / 3600) * Val(Text9.Text)))
End Sub
Private Sub Text15_Change()
Text13.Text = Val(Text11.Text) - Val(Val(Text16.Text) / 3600) * Val(Text10.Text) * ((Val(Text14.Text) - Val(Text12.Text)) / ((Val(Text15.Text) / 3600) * Val(Text9.Text)))
End Sub
Private Sub Text16_Change()
Text13.Text = Val(Text11.Text) - Val(Val(Text16.Text) / 3600) * Val(Text10.Text) * ((Val(Text14.Text) - Val(Text12.Text)) / ((Val(Text15.Text) / 3600) * Val(Text9.Text)))
End Sub

八位机

[s:22] 用变量代替一下吧 看得好晕

七匹狼

八位机][s:22] 用变量代替一下吧 看得好晕

老师看不懂最好~[s:18]

七匹狼

顶七去！！！！！

Xphi

惃第一句改成＊
Dim OutputFile As String
OutputFile = App.Path & "\计算结果.txt"
Open OutputFile For Output As #1

在最后加七＊
Shell ("notepad.exe " & OutputFile, VbNormalFocus)

如果要用户自己命名计算结果，就放个Text在界面七，惃OutputFile = App.Path & "\计算结果.txt"这一句改成OutputFile = App.Path & "\" & Textxx.Text & ".txt"就可以了，Textxx就是你放的那个Text。

Xphi

这些都是最基本的问题吧，建议查一下教科书，应该可以找到答案的。另外的用Google也可以解决很的问题。

solidvolotion

问一下地说，现在一般的软件编程应该用什么？还有那里可以下载？

梦幻のFF

程序太的了,看哪个比较顺手了