-
2018-12-02 21:54發(fā)布了問答
-
VME總線的優(yōu)勢
-
-
2018-12-01 11:45發(fā)布了問答
-
現(xiàn)在的采集包什么采集軟件采集的比較多
-
-
2018-11-18 16:19發(fā)布了問答
-
PAC文件能實現(xiàn)鏈接跳轉(zhuǎn)嗎
-
-
2017-09-09 04:26發(fā)布了問答
-
plc 中RLO什么意思
-
-
2017-05-06 20:30發(fā)布了問答
-
win7 adobeipcbroker可以關(guān)閉嗎
-
-
2017-02-12 01:02發(fā)布了問答
-
IPC 共有幾種方式
-
-
2017-01-08 14:09發(fā)布了問答
-
智能交通的數(shù)據(jù)采集
-
-
2016-06-13 16:36發(fā)布了問答
-
如何在注冊表里禁用C盤,或隱藏盤符?
- XP系統(tǒng).
-
2016-06-07 08:40發(fā)布了問答
-
求數(shù)據(jù)采集卡多通道模擬量輸入VB程序解釋說明
- 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 展開
-
2014-11-10 16:32發(fā)布了問答
-
??礗PC web界面是基于什么開發(fā)的
-
-
2014-10-22 08:52發(fā)布了問答
-
AHD攝像機與IPC攝像機有什么區(qū)別?
- AHD監(jiān)控攝像頭是什么?與IPC攝像機有什么區(qū)別呢?
-
2014-07-02 05:20發(fā)布了問答
-
南通大學(xué)計算機科學(xué)與技術(shù)(嵌入式培養(yǎng))專業(yè)怎么樣
-
-
2013-12-05 02:23發(fā)布了問答
-
怎樣禁止ipc$默認(rèn)共享?
-
-
2012-10-11 02:53發(fā)布了問答
-
兩塊NI數(shù)據(jù)采集卡怎樣實現(xiàn)同步采集?
-
-
2012-05-30 11:00發(fā)布了問答
-
武漢大學(xué)計算機學(xué)院研究生嵌入式系統(tǒng)方向怎么樣?畢業(yè)待遇?
-
-
2010-12-23 12:01發(fā)布了問答
-
target consrtuction date是什么意思
- target consrtuction date是什么意思