DimErrCdeAsLong'ErrorcodeDimszErrMsgAsString*80'ErrorstringDimDriverHandleAsLongDimMAIConfigAsPT_MAIConfigDimlpMAIVoltageInAsPT_MAIVoltageInDimvoltage(0To2)AsSingleDimGai... Dim ErrCde As Long ' Error code
Dim szErrMsg As String * 80 ' Error string
Dim DriverHandle As Long
Dim MAIConfig As PT_MAIConfig
Dim lpMAIVoltageIn As PT_MAIVoltageIn
Dim voltage(0 To 2) As Single
Dim GainArray(0 To 2) As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 800
End Sub
Private Sub Command2_Click()
'Step 5: close device
ErrCde = DRV_DeviceClose(DriverHandle)
If (ErrCde <> 0) Then
DRV_GetErrorMessage ErrCde, szErrMsg
Response = MsgBox(szErrMsg, vbOKOnly, "Error!!")
Print "step5"
End If
End
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
GainArray(0) = 0
GainArray(1) = 0
GainArray(2) = 0
Timer1.Enabled = False
'Step 1: open device
ErrCde = DRV_DeviceOpen(0, DriverHandle) ' Make sure device number = 0
If (ErrCde <> 0) Then
DRV_GetErrorMessage ErrCde, szErrMsg
Response = MsgBox(szErrMsg, vbOKOnly, "Error!!")
Print "step1"
Exit Sub
End If
'Step 2: configure input range
MAIConfig.NumChan = 3 ' channel number: 3
MAIConfig.StartChan = 0
MAIConfig.GainArray = DRV_GetAddress(GainArray(0))
ErrCde = DRV_MAIConfig(DriverHandle, MAIConfig)
If (ErrCde <> 0) Then
DRV_GetErrorMessage ErrCde, szErrMsg
Response = MsgBox(szErrMsg, vbOKOnly, "Error!!")
Print "step2"
Exit Sub
End If
End Sub
Private Sub Timer1_Timer()
'Step 3: read value
lpMAIVoltageIn.NumChan = MAIConfig.NumChan
lpMAIVoltageIn.StartChan = MAIConfig.StartChan
lpMAIVoltageIn.GainArray = DRV_GetAddress(GainArray(0))
lpMAIVoltageIn.TrigMode = 0
Sum = 0#
For i = 0 To 999
lpMAIVoltageIn.VoltageArray = DRV_GetAddress(voltage(0))
ErrCde = DRV_MAIVoltageIn(DriverHandle, lpMAIVoltageIn)
If (ErrCde <> 0) Then
DRV_GetErrorMessage ErrCde, szErrMsg
Response = MsgBox(szErrMsg, vbOKOnly, "Error!!")
Print "step3"
Exit Sub
End If
Sum = Sum + voltage(0) ^ 2
Next i
voltage(0) = (Sum / 1000#) ^ (0.5)
'Step 4: display value
Text1.Text = Format(voltage(0), "####0.000000")
Text2.Text = Format(voltage(1), "####0.000000")
Text3.Text = Format(voltage(2), "####0.000000")
End Sub
我一直都没使用过数据采集模式,设置好了测站,和后视数据,怎么没有方位角显示啊,有哪位能把数据采集模式操作步
现在市场上的数据采集卡生产厂家,有优势的都有哪些?请大家帮忙。谢谢了哦。... 现在市场上的数据采集卡
我用差压变送器测量液位的变化要将变送器输出的电流信号送到数据采集卡的端子去但是不知道要怎么连结?越详细越好
假定要用全站仪数据采集采集建筑物各个特殊点的坐标测绘出平面图。原点设置为(0,0,0)A点为定向点为(12
什么是全站仪的数据采集 在测站点上安置南方全站仪仪器,对中、整平。 在测站点上安置仪器,对中、整平。在
各位大神们,因为照度计产品都是成套的的带显示功能的产品,而我想买几台照度计,把他进行下改进,是我能够使数据
导师让做一个模型控制,采用MCGS组态软件和研华的PCI-1756数据采集卡做上机位控制,我没什么头绪,有
数据采集这种工作具体是要做些什么... 数据采集这种工作具体是要做些什么 展开 数据采集员主要
管理系统中计算机应用名词解释(数据)采集... 管理系统中计算机应用 名词解释(数据)采集 展开
尽量清楚的说明数据采集、数据抓取和数据抽取的区别是什么?希望不要答自己以为的,尽量科学一点... 尽量