用VB编程，将text1.text中的内容写入记事本

Question

text1.text单个写能实现。如何连续写。每分钟text变个数，然后记事本就会记录下来，大概会记录15个小时，900个数字。有个红外测温探头，下位机装置接收4-20MA信号，然后转换成数字信号通过串口记录到VB程序中，VB程序通过线性比将温度算出来，然后显示在text里，并记录到记事本，主要就是想看红外探头在运行中会出现异常温度数据吗（主要是看环境的影响，比如灰尘较大挡住镜头，或者周围有光线等情况）。在VB程序中放一个秒表控件，每分钟就会将当前text里的数据记录到记事本里。text里的数据变化很快，根据下位机通过串口发送数据的频率。现在想知道如何连续记录这些数据。大家有没有其他想法，比我这个简单还能实现我这个监测数据的方法。VB 秒表 记事本 text 连续记录

Answer 1

将代码写到text1_change()事件中，这样就可以了。也就不用你所谓的秒表了（）

Answer 2

open "c:\1.txt" for append as #1
    print #1, text1.Text & VbCrLf
close #1
写在text1的changed事件中

Answer 3

楼主好象说了“每分钟记录一次当前数据”。
那还是用定时器来处理，才比较适合。如果你想“监测异常数据”，那应该在 TextBox 的 Change( ) 事件中处理：
首先，你得确定一个“正常值”的范围，即最大为多少、最小为多少。
Option Explicit' 这儿的值，按你的需要来设置：
Private Const MAXVALUE  As Double = 50
Private Const MINVALUE  As Double = 10.6
' 也可以定义成变更，在窗口中用两个TextBox来输入，
' 然后用Command，或者在TextBox的事件代码中进行赋值。
Private Sub Text1_Change()
   Dim dTemp   As Double
   dTemp = Val(Text1.Text)
   If (dTemp >= MINVALUE And dTemp <= MAXVALUE) Then Exit Sub
   Open "X:\temp\记录.txt" For Append As #1
   '记录出现异常的时间、异常数据值：
   Print #1, Time$, Text1.Text
   Close
End Sub

Answer 4

在你的将数据显示到 TextBox 的语句下，添加写文件的语句就可以了。用 Change 事件有个问题，如果连续几分钟 Text 显示的数字都相同，Change 事件就不会触发，因此会丢数据。