Introducing Message-Based DAQ

Analog input scan operation
C# Visual Basic
// Read data from a scan operation
DaqDevice MyDevice;
String[] Devices;
int Sample;
int Channel;
try
{
// Get a list of message-based DAQ devices
Devices = DaqDeviceManager.GetDeviceNames
(DeviceNameFormat.NameAndSerno);
// Get a DaqDevice object for device 0
MyDevice = DaqDeviceManager.CreateDevice
(Devices(0));
double[,] ScanData;
String DataDisplay;
// Configure the scan
MyDevice.SendMessage
("AISCAN:XFRMODE=BLOCKIO");
MyDevice.SendMessage
("AISCAN:RANGE=BIP10V");
MyDevice.SendMessage("AISCAN:LOWCHAN=0");
MyDevice.SendMessage("AISCAN:HIGHCHAN=3");
MyDevice.SendMessage("AISCAN:CAL=ENABLE");
MyDevice.SendMessage
("AISCAN:SCALE=ENABLE");
MyDevice.SendMessage("AISCAN:RATE=500");
MyDevice.SendMessage
("AISCAN:SAMPLES=256");
// Start the scan
MyDevice.SendMessage("AISCAN:START");
// Read and display the scan data
ScanData = MyDevice.ReadScanData(256);
DataDisplay = String.Empty;
For (Sample = 0; Sample < 256; Sample ++)
{
}
for (int j = 0; j < 4; j++)
{
DataDisplay += ScanData[Channel,
Sample].ToString("F04") + " ";
}
DataDisplay += Environment.NewLine;
textBox1.Text = DataDisplay;
}
catch (Exception ex)
{
}
// handle error
textBox1.Text = ex.Message;
' Read data from a scan operation
Dim MyDevice As DaqDevice
Dim Devices As String()
Dim Sample As Integer
Dim Channel As Integer
Try
' Get a list of message-based DAQ devices
Devices = DaqDeviceManager.GetDeviceNames_
(DeviceNameFormat.NameAndSerno)
' Get a DaqDevice object for device 0
MyDevice = DaqDeviceManager.CreateDevice
(Devices(0))
Dim ScanData As Double(,)
Dim DataDisplay As String
' Configure the scan
MyDevice.SendMessage("AISCAN:XFRMODE=BLOCKIO")
MyDevice.SendMessage("AISCAN:RANGE=BIP10V")
MyDevice.SendMessage("AISCAN:LOWCHAN=0")
MyDevice.SendMessage("AISCAN:HIGHCHAN=3")
MyDevice.SendMessage("AISCAN:CAL=ENABLE")
MyDevice.SendMessage("AISCAN:SCALE=ENABLE")
MyDevice.SendMessage("AISCAN:RATE=500")
MyDevice.SendMessage("AISCAN:SAMPLES=256")
' Start the scan
MyDevice.SendMessage("AISCAN:START")
' Read and display the scan data
ScanData = MyDevice.ReadScanData(256)
DataDisplay = String.Empty
For Sample = 0 To 255
For Channel = 0 To 3
DataDisplay = String.Concat(DataDisplay,
ScanData(Channel, _ Sample).ToString
("F04") & " ")
Next
DataDisplay = String.Concat(DataDisplay,
Environment.NewLine)
Next
TextBox1.Text = DataDisplay
catch ex as Exception
' handle error
TextBox1.Text = Ex.Message
End try
Page 11 of 43