Button1.Click Dim ga As Integer Dim nu As Integer Dim fre As Integer Dim advalue() As Single ga = gain.Value nu = Num.Value fre = freq.Value ReDim advalue(nu * 8 + 1) AD_continu(0, ga, nu, fre, advalue(0)) '连续采集函数-动态，，，，，， RichTextBox1.Text = "" Dim str As String = "" Dim i As Integer '在这里只取第一通道数据 For i = 0 To nu str = str + advalue(i * 8).ToString + ";" Next RichTextBox1.Text = str End Sub Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed CloseU**() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load OpenU**() End SubEnd Class
