Omega Speaker Systems High Speed Load Cell Interface Card LCIC-WIM-BEN - Manual (Page 47)

46
How to work with the Fast Mode in VB using the ActiveX
During the Fast Mode process the board transmits mass data to the PC.
Therefore, in order to avoid data loss, all the actions on your PC should
be minimized.
1. Define string Array
Dim Fast_mode_Data(1 to SizeOfArray) as String
Dim fmCounter as long 'Current counter (index(
2. Select Filter:
Filter=Filter2
3. To start the Fast Mode:
Call LCICwim_commands1.Start_Fast_Mode(Filter(
4. In the event DataArrivalInFastMode:
' Get current block:
fmCounter = fmCounter + 1
Fast_mode_Data(fmCounter =(
LCICwim_commands1.Get_CurrentBlock
So, all arrived data are stored in the array Fast_mode_Data
5. To terminate the Fast Mode:
Call LCICwim_commands1.Stop_Fast_Mode
Except the last one, each block will still cause a
DataArrivalInFastMode event, as described in para. 3.
In the DataArrivalLastInFastMode event that the last block
will cause:
fmCounter = fmCounter + 1
Fast_mode_Data(fmCounter) =
LCICwim_commands1.Get_LastBlock
TotalTimeInFastMode =
LCICwim_commands1.Get_Time_ms