da_module.bas

采样窑炉温度

Attribute VB_Name = "DA_Module"
Public pDABuffer(0 To 65536) As Long
Public Sub WriteDAFunction()
  Dim bStatus As Boolean
  Dim channelN As Integer
  Dim a As Single
  channelN = AD_Form.DAchanne
  'MsgBox (channelN)
   pDABuffer(0) = AD_Form.Label4(0).Caption
    bStatus = USB2013_WriteDeviceDA(hDevice, pDABuffer(0), channelN)
    a = Format(AD_Form.Label4(0).Caption * 100 / 4096, "#.00")
    AD_Form.DAshow.Caption = a & "%"
End Sub