VERSION 5.00
Object = "{0970DD26-8809-11D2-A9B8-002018650913}#1.1#0"; "adaout.ocx"
Begin VB.Form DAQForm 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "模擬量輸出"
   ClientHeight    =   4635
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6705
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4635
   ScaleWidth      =   6705
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Cmdout 
      Caption         =   "連續輸出"
      Height          =   465
      Left            =   1710
      TabIndex        =   5
      Top             =   4005
      Width           =   1230
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1000
      Left            =   5490
      Top             =   4095
   End
   Begin VB.TextBox Tdata 
      Alignment       =   2  'Center
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   15.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   435
      Left            =   2520
      TabIndex        =   4
      Top             =   90
      Width           =   915
   End
   Begin VB.VScrollBar VScroll1 
      Height          =   3165
      Left            =   6210
      Max             =   0
      Min             =   10
      TabIndex        =   3
      Top             =   630
      Width           =   420
   End
   Begin DAQAOLib.DAQAO DAQAO1 
      Height          =   495
      Left            =   6075
      TabIndex        =   2
      Top             =   4005
      Width           =   495
      _Version        =   65537
      _ExtentX        =   864
      _ExtentY        =   864
      _StockProps     =   0
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00FFFFFF&
      ForeColor       =   &H00000000&
      Height          =   3150
      Left            =   45
      ScaleHeight     =   3090
      ScaleWidth      =   6030
      TabIndex        =   1
      Top             =   630
      Width           =   6090
   End
   Begin VB.CommandButton Cmdquit 
      Caption         =   "關閉程序"
      Height          =   465
      Left            =   3780
      TabIndex        =   0
      Top             =   4005
      Width           =   1230
   End
End
Attribute VB_Name = "DAQForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定義變量
Dim num As Integer                             '采集的數據個數
Dim Data(1000) As Integer                      '采樣電壓數據的數值形式
Dim middata As Integer
Dim midnum As Integer
'程序初始化
Private Sub Form_Load()
  DAQAO1.SelectDevice                          '選擇模擬量輸出設備
  DAQAO1.Channel = 0                           '輸出的通道號
  DAQAO1.OutputRate = 500                      '輸出頻率
  DAQAO1.DataType = adReal                     '模擬量輸出數值類型（實型）
  DAQAO1.OutputType = adVoltage                '模擬量輸出類型（電壓）
  DAQAO1.NumberOfOutputs = 200                 '輸出數據的個數
End Sub
'間斷產生變化的數值（范圍：0∽10）
Private Sub VScroll1_Change()
  If num > 199 Then Call renew
  Timer1.Enabled = False
  DAQAO1.OpenDevice                            '打開模擬量輸出設備
  DAQAO1.RealOutput Val(VScroll1.Value)
  Data(num) = Val(VScroll1.Value)
  Tdata.Text = VScroll1.Value
  num = num + 1
  Call draw
End Sub
Private Sub Cmdout_Click()
  Call renew
  Timer1.Enabled = True
End Sub
'連續循環產生變化的數值（范圍：0∽10）
Private Sub Timer1_Timer()
  If num > 199 Then Call renew
  If midnum = 0 Then
    middata = middata + 1
    Data(num) = middata
  End If
  If middata = 11 Then
    midnum = 1
  End If
  If midnum = 1 Then
    middata = middata - 1
    Data(num) = middata
  End If
  If middata = 0 Then
    midnum = 0
  End If
  DAQAO1.OpenDevice                            '打開模擬量輸出設備
  DAQAO1.RealOutput Data(num)
  Tdata.Text = Str$(Data(num))
  num = num + 1
  Call draw
End Sub
'畫曲線
Sub draw()
  Picture1.Cls
  Picture1.DrawWidth = 2
  Picture1.BackColor = QBColor(15)
  Picture1.Scale (0, 10)-(200, 0)
  For i = 1 To num - 1
    X1 = (i - 1): Y1 = Data(i - 1)
    X2 = i: Y2 = Data(i)
    Picture1.Line (X1, Y1)-(X2, Y2), QBColor(0)
  Next i
End Sub
'刷新
Private Sub renew()
  Picture1.Cls
  For i = 0 To num - 1
    Data(i) = 0
  Next i
  num = 0
End Sub
'關閉程序
Private Sub Cmdquit_Click()
  DAQAO1.CloseDevice                          '關閉板卡模擬量輸出端口
  Unload Me
End Sub