{"id":29294,"date":"2022-08-22T00:55:03","date_gmt":"2022-08-22T07:55:03","guid":{"rendered":"https:\/\/digilent.com\/blog\/?p=29294"},"modified":"2026-09-10T03:33:27","modified_gmt":"2026-09-10T10:33:27","slug":"reading-generated-data-in-a-real-time-distributed-system-part-2","status":"publish","type":"post","link":"https:\/\/digilent.com\/blog\/reading-generated-data-in-a-real-time-distributed-system-part-2\/","title":{"rendered":"Reading Generated Data in a Real-Time Distributed System"},"content":{"rendered":"

In today’s manufacturing world, companies are trying to do more with less staffing by maximizing throughput or looking for the critical status of a production line without interrupting the focus of production staffing.<\/span><\/p>\n

In the past, a manager would often need to walk the production floor to see how the various processes are performing. This took time away from other important tasks, and required these managers to generate reports and perhaps present the data to other managers. One way that the process has evolved to reduce or even eliminate the need for manager oversight is by sending the data collected from various systems to a centralized (physical or cloud-based) database.<\/span><\/p>\n

Many manufacturing facilities utilize data acquisition and control products integrated directly into their production stands. These devices monitor and\/or control the manufacturing process of products from all aspects of life today. The sensor data used to make programmed decisions to any part of the production process can also be used to inform and notify managers, supervisors, directors, administrators, etc., either as a consolidated view or as a report in near real-time.<\/span><\/p>\n

The key to this is setting up a database as a repository or collection point for all the data being collected. Once the database is created and set up, existing code used can be easily modified to send that telemetry to the database, where folks who need to know can run an app to see what is happening over in production.<\/span><\/p>\n

This series of articles demonstrates creating and setting up a database and suggestions for augmenting applications written in but not limited to Visual Basic.NET, LabVIEW, and DASYLab.<\/span><\/p>\n

Setting Up an MS Database<\/b><\/p>\n

Here are my ‘step by step’ instructions (as performed on Windows 7\/64 bit).<\/span><\/p>\n

You will need to set up an ODBC connection on the computer you’re working on. Click on Start >> Control Panel >> Administrative Tools, then double-click on “Data Sources (ODBC)”. Click on the “System DSN” tab. User DSN means that only you will be able to access this data source, and System DSN means that anyone who is on the machine should be able to access the data source (though only if they provide the necessary credentials). Now click on Add.<\/span><\/p>\n

\"\"
ODBC Data Source Administrator, Add button<\/figcaption><\/figure>\n

We will be using Microsoft Access, so select ‘Microsoft Access Driver (*.mdb, *.accdb),’ then click Finish.<\/span><\/p>\n

\"\"
Create New Data Source dialog<\/figcaption><\/figure>\n

The ODBC Microsoft Access Setup dialog appears. Enter a Data Source Name and Description, and click on Create.<\/span><\/p>\n

\"\"
ODBC Microsoft Access Setup dialog<\/figcaption><\/figure>\n

The new Database dialog appears. Enter the name of the database. Throughout this article, we will be working with the name MccGenericOdbc, and it is placed in <\/span>C:\\Users\\Public\\Documents<\/span>.<\/span><\/p>\n

\"\"
New Database dialog<\/figcaption><\/figure>\n

Click on OK. If all went correctly, you should see this message:<\/span><\/p>\n

\"\"<\/p>\n

Click on OK, and you will be back to the ODBC Microsoft Setup now with the database name inserted:<\/span><\/p>\n

\"\"<\/p>\n

Click OK, and now your ODBC Data Source Administrator will look like this:<\/span><\/p>\n

\"\"<\/span><\/p>\n

Open Windows Explorer and navigate to <\/span>C:\\Users\\Public\\Documents<\/span> to see your new database:<\/span><\/p>\n

\"\"<\/p>\n

It is assumed you have a copy of Microsoft Access to complete the following steps. However, if you do not, attached to this article is a usable copy of the database for this project.<\/span><\/p>\n

Double-click on MCCGenericOdbc.mdb to launch Microsoft Access and open the empty database. Click “Create > Table”.<\/span><\/p>\n

\"\"<\/span><\/p>\n

A new Table appears. The first column is already labeled “ID”. We need 5 additional columns for our table. Notice the column to the right of ID is highlighted and labeled “Click to add”. Click on it, and a drop-down menu appears with various options for the data type. We want this first column to be the time the data was collected, so select “Date & Time”. The cursor moves to the field name location. By default, it is named “Field1”. Change that to “Time”. Repeat this process for the next 4 columns, making the data types all “Short Text”, and with the names changed to “Temperature”, “Pressure”, “Tachometer”, and “Interlock”.<\/span><\/p>\n

When completed, it will look like this:<\/span><\/p>\n

\"\"<\/span><\/p>\n

Click on “File”, “Save”, and a Save as dialog appears. Enter a name for the table. Enter “TestData” and click OK. Then close Access. We will be reading and writing to this data table in the next sections.<\/span><\/p>\n

Creating an Application to Collect and Pass Data<\/b><\/h2>\n

As stated at the beginning of this article, for this application we will be using the Measurement Computing USB-2408 and the Universal Library, Microsoft Visual Basic 2010, and an add-in to Visual Basic called BERGtools.<\/span><\/p>\n

I’ve chosen the USB-2408 because it fills the needs of our application with one device. I wanted to emulate a system containing a temperature input from a thermocouple, a voltage input from a pressure transducer, pulsed output from a tachometer, and a digital input signal from a door interlock. The USB-2408 is capable of reading from all these various input types and more. I am emulating the signals externally, using a type T thermocouple, a function generator set to a sine wave, another function generator set to TTL pulsed output, and a 5 VDC output power supply, respectively.<\/span><\/p>\n

I’m using Visual Basic 2010 because I want to keep it compatible with those folks who don’t have Microsoft’s latest version but want to build this application. It is assumed you know your way around the Visual Basic IDE, so I’m going to skip most screenshots so as to focus on the code.<\/span><\/p>\n

BERGtools is a free collection of displays and functions including meters, oscilloscopes, knobs, etc., I created to make viewing data ‘easier on the eyes’. We will use them here, but you can easily work around them or use your own objects.<\/span><\/p>\n

To begin, launch Visual Basic and start a new project. We will call it “DataCollectionToDatabase.” Resize your form to 589,422.<\/span><\/p>\n

Add a MenuStrip, DataGridView, Timer, OpenFileDialog, Thermometer, 2 KnobDials, an LED, 2 buttons, and 11 labels. Your form design should look like this:<\/span><\/p>\n

\"\"
form design<\/figcaption><\/figure>\n
\"\"
properties<\/figcaption><\/figure>\n

Of all the labels, only 4 need to be named:<\/span><\/p>\n

The one over the thermometer: lblTempValue.\u00a0<\/span><\/p>\n

The one over kdPressure (to the right): lblPressure.\u00a0<\/span><\/p>\n

The one over kdTach (to the right): lblTach.\u00a0<\/span><\/p>\n

The one to the right of Time: lblTime<\/span><\/p>\n

All labels should set Autosize = true<\/span><\/p>\n

From the Solution Explorer, click on the icon to “Show All Files”. Right-click on References, select “Add Reference.” The Add Reference dialog will show. Click on the .NET tab, scroll down, and select MccDaq, then click OK.<\/span><\/p>\n

From the Solution Explorer, right-click on Form1.vb, and select View Code. Above Public Class Form1, insert the following:<\/span><\/p>\n

Imports System.Data.OleDb<\/span><\/p>\n

Imports System.Runtime.InteropServices<\/span><\/p>\n

Imports System.IO<\/span><\/p>\n

 <\/p>\n

Next, add the variable declarations:<\/span><\/p>\n

‘For Universal Library<\/span><\/p>\n

Dim inventory As MccDaq.DaqDeviceDescriptor()<\/span><\/p>\n

Public Daqboard As New MccDaq.MccBoard()<\/span><\/p>\n

Public UlStat As MccDaq.ErrorInfo<\/span><\/p>\n

Dim LastCounterValue As Int32 = 0<\/span><\/p>\n

Dim bFirstEntry As Boolean = False<\/span><\/p>\n

 <\/p>\n

‘For database<\/span><\/p>\n

Dim sConnectionString As String<\/span><\/p>\n

Public objConn As New OleDbConnection()<\/span><\/p>\n

Dim daMFGData As New OleDbDataAdapter()<\/span><\/p>\n

Dim dsNewScan As New DataSet()<\/span><\/p>\n

Dim dtData As DataTable<\/span><\/p>\n

Dim tblTestData As DataTable<\/span><\/p>\n

Dim drCurrent As DataRow<\/span><\/p>\n

 <\/p><\/blockquote>\n

The top sections are the global variables for the Universal Library. The bottom section are the global variables and declarations for the database.<\/span><\/p>\n

Instantiate the USB-2408<\/b><\/h2>\n

Paste the following into the Form1_Load() event:<\/span><\/p>\n

MccDaq.DaqDeviceManager.IgnoreInstaCal()\u00a0 \u00a0 ‘don’t use information from InstaCal.<\/span><\/p>\n

System.Windows.Forms.Cursor.Current = Cursors.WaitCursor ‘change cursor to wait.<\/span><\/p>\n

 <\/p>\n

‘Load all the boards it can find<\/span><\/p>\n

inventory = MccDaq.DaqDeviceManager.GetDaqDeviceInventory(MccDaq.DaqDeviceInterface.Any)<\/span><\/p>\n

Dim numDevDiscovered As Integer = inventory.Length \u00a0 ‘how many was that?<\/span><\/p>\n

System.Windows.Forms.Cursor.Current = Cursors.WaitCursor \u00a0 ‘change cursor to wait.<\/span><\/p>\n

Dim Boardfound As Boolean = False<\/span><\/p>\n

 <\/p>\n

If numDevDiscovered > 0 Then<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0For boardNum As Integer = 0 To numDevDiscovered – 1<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Try<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0‘Create a new MccBoard object for Board and assign a board number<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0‘to the specified DAQ device with CreateDaqDevice()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Daqboard = MccDaq.DaqDeviceManager.CreateDaqDevice(boardNum, inventory(boardNum))<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0If Daqboard.BoardName.Contains(“2408”) Then<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Boardfound = True<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Daqboard.FlashLED()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Exit For<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Else<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0MccDaq.DaqDeviceManager.ReleaseDaqDevice(Daqboard)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0End If<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0Catch ule As MccDaq.ULException<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0MsgBox(ule.ErrorInfo.Message)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0End Try<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Next<\/span><\/p>\n

End If<\/span><\/p>\n

 <\/p>\n

If Boardfound = False Then<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0MsgBox(“No USB-2408 series board found in system. “, MsgBoxStyle.Critical, “No Board detected”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0End<\/span><\/p>\n

End If<\/span><\/p>\n

 <\/p>\n

UlStat = Daqboard.FlashLED()<\/span><\/p>\n

Dim MyBoardName As String = Daqboard.BoardName.Trim<\/span><\/p>\n

Me.Text = MyBoardName + ” found as board number: ” + Daqboard.BoardNum.ToString<\/span><\/p><\/blockquote>\n

This snippet of code queries the system for any supported Measurement Computing devices, accessible through the Universal Library. It sifts through the devices found, looking for a USB-2408. If one is found, it uses it and changes the Form1.Text with an appropriate statement. If not, it pops up a message box stating it didn’t find a USB-2408.<\/span><\/p>\n

Create the Local Database<\/b><\/h2>\n

Add this line into the Form1_Load() event after the above code:<\/span><\/p>\n

‘Create the local database to DataGridView1<\/span><\/p>\n

CreateDataBase()<\/span><\/p><\/blockquote>\n

And add the following subs and functions after the End Sub of the Form1_Load() event:<\/span><\/p>\n

Private Sub CreateDataBase()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Dim ds As New DataSet<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0ds = CreateDataSet()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0DataGridView1.DataSource = ds.Tables(“MeasuredData”)<\/span><\/p>\n

End Sub<\/span><\/p>\n

 <\/p>\n

Private Function CreateDataSet() As DataSet<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0‘Creating a DataSet object for tables<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Dim MeasuredData As DataSet = New DataSet()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0‘Creating a table object<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Dim dtData As DataTable = CreateDACTable()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0MeasuredData.Tables.Add(dtData)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Return MeasuredData<\/span><\/p>\n

End Function<\/span><\/p>\n

 <\/p>\n

Private Function CreateDACTable() As DataTable<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0dtData = New DataTable(“MeasuredData”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0‘Adding columns<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0AddNewColumn(dtData, “System.String”, “Time”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0AddNewColumn(dtData, “System.String”, “Temperature”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0AddNewColumn(dtData, “System.String”, “Pressure”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0AddNewColumn(dtData, “System.String”, “Tachometer”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0AddNewColumn(dtData, “System.String”, “Interlock”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Return dtData<\/span><\/p>\n

End Function<\/span><\/p>\n

 <\/p>\n

Private Sub AddNewColumn(ByRef table As DataTable, ByVal columnType As String, ByVal columnName As String)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Dim column As DataColumn = table.Columns.Add(columnName, Type.GetType(columnType))<\/span><\/p>\n

End Sub<\/span><\/p>\n

 <\/p>\n

Private Sub AddNewRow(ByRef table As DataTable, ByRef time As String, ByRef temperature As Double, ByRef pressure As Double, ByRef RPM As Int32, ByRef interlock As Boolean)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Dim newrow As DataRow = table.NewRow()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0newrow(“Time”) = time<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0newrow(“Temperature”) = temperature<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0newrow(“Pressure”) = pressure<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0newrow(“Tachometer”) = RPM<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0newrow(“Interlock”) = interlock<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0table.Rows.Add(newrow)<\/span><\/p>\n

End Sub<\/span><\/p><\/blockquote>\n

The above does the following: Create a Dataset that includes a table called MeasuredData, and links it to the DataGridView1’s Datasource. MeasuredData has 1 row, made up of 5 columns with the field names: Time, Temperature, Pressure, Tachometer, and Interlock. Create the 5 columns with these names, and place the names in the top row.<\/span><\/p>\n

From the Form View, double-click on the “Start” button, and add the following to the btnStartStop_Click() event:<\/span><\/p>\n

If btnStartStop.Text = “Start” Then<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0btnStartStop.Text = “Stop”<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0OpenDatabase()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0UlStat = Daqboard.CClear(0)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Timer1.Enabled = True<\/span><\/p>\n

Else<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0btnStartStop.Text = “Start”<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Timer1.Enabled = False<\/span><\/p>\n

End If<\/span><\/p>\n

 <\/p><\/blockquote>\n

Aside from the button text alternating between “Start” and “Stop”, when the button text is “Start”, open the external database, reset the counter, and start Timer1. When the button text is “Stop”, stop Timer1.<\/span><\/p>\n

Opening the external database is essential to this project and has its own subroutine.<\/span><\/p>\n

How to Open the External Database<\/b><\/h2>\n

Paste this below the End Sub of the btnStartStop_Click() event:<\/span><\/p>\n

Private Sub OpenDatabase()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0‘How to open an OLE DB database<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0sConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\Users\\Public\\Documents\\MCCGenericOdbc.mdb”<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0objConn = New OleDbConnection(sConnectionString)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0objConn.Open()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0daMFGData = New OleDbDataAdapter(“Select * From TestData”, objConn)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0dsNewScan = New DataSet(“NewScan”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0daMFGData.FillSchema(dsNewScan, SchemaType.Source, “TestData”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0daMFGData.Fill(dsNewScan, “TestData”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0‘Create a new instance of a DataTable.<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0tblTestData = dsNewScan.Tables(“TestData”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0objConn.Close()<\/span><\/p>\n

End Sub<\/span><\/p><\/blockquote>\n

Opening a link to a Microsoft Access database requires a proper connection string like this:<\/span><\/p>\n

sConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\Users\\Public\\Documents\\MCCGenericOdbc.mdb”<\/span><\/p><\/blockquote>\n

 <\/p>\n

The “;” delineates the Provider type from the database path and filename. It is important that this be correct and be correctly formatted. The connection string is used to instantiate the database connection, called objConn. Open the connection and create a data adapter by selecting the table “TestData” in the database and naming it “daMFGData”. Create a dataset, “daNewScan”, set it up with the proper fields using FillSchema and Fill. Create a local data table aligned to the one in the database called “tblTestData”.<\/span><\/p>\n

Lastly, close the connection for now.<\/span><\/p>\n

Collecting Data and Sending to the Database<\/b><\/h2>\n

From the Form view, double-click on Timer1. Enter the following in the Timer1_Tick() event:<\/span><\/p>\n

Dim MyDataScan(4) As Object ‘array to hold the data generated by the scan<\/span><\/p>\n

 <\/p>\n

‘Read the temperature<\/span><\/p>\n

UlStat = Daqboard.TIn(0, MccDaq.TempScale.Celsius, MyDataScan(1), MccDaq.VInOptions.Default)<\/span><\/p>\n

If UlStat.Value <> MccDaq.ErrorInfo.ErrorCode.NoErrors Then<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0errhandler(UlStat)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Exit Sub<\/span><\/p>\n

End If<\/span><\/p>\n

Thermometer1.TempValue = MyDataScan(1)<\/span><\/p>\n

lblTempValue.Text = Convert.ToDouble(MyDataScan(1)).ToString(“##0.00”) & “\u00b0C”<\/span><\/p>\n

 <\/p>\n

‘Read the voltage (Pressure)<\/span><\/p>\n

UlStat = Daqboard.VIn(1, MccDaq.Range.Bip10Volts, MyDataScan(2), MccDaq.VInOptions.Default)<\/span><\/p>\n

If UlStat.Value <> MccDaq.ErrorInfo.ErrorCode.NoErrors Then<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0errhandler(UlStat)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Exit Sub<\/span><\/p>\n

End If<\/span><\/p>\n

MyDataScan(2) *= 10 ‘apply scaling (Makes the data look cooler, it uses more of the pressure meter!)<\/span><\/p>\n

lblPressure.Text = Convert.ToSingle(MyDataScan(2)).ToString(“##0.00”)<\/span><\/p>\n

kdPressure.UpdateKnob(MyDataScan(2))<\/span><\/p>\n

 <\/p>\n

‘Read the counter (Tachometer)<\/span><\/p>\n

UlStat = Daqboard.CIn(0, MyDataScan(3))<\/span><\/p>\n

If UlStat.Value <> MccDaq.ErrorInfo.ErrorCode.NoErrors Then<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0errhandler(UlStat)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Exit Sub<\/span><\/p>\n

End If<\/span><\/p>\n

Dim NewCountRead As Integer = (MyDataScan(3) – LastCounterValue)<\/span><\/p>\n

LastCounterValue = MyDataScan(3)<\/span><\/p>\n

Dim TachVal As Double = (NewCountRead * 60) ‘apply scaling to RPM from RPS<\/span><\/p>\n

kdTach.UpdateKnob(TachVal \/ 100)<\/span><\/p>\n

lblTach.Text = (TachVal).ToString(“####0”)<\/span><\/p>\n

 <\/p>\n

‘Read the digital bit (door interlock)<\/span><\/p>\n

Dim MyDigBit As Boolean<\/span><\/p>\n

UlStat = Daqboard.DBitIn(MccDaq.DigitalPortType.FirstPortA, 0, MyDigBit)<\/span><\/p>\n

If UlStat.Value <> MccDaq.ErrorInfo.ErrorCode.NoErrors Then<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0errhandler(UlStat)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Exit Sub<\/span><\/p>\n

End If<\/span><\/p>\n

Led1.Value = MyDigBit<\/span><\/p>\n

MyDataScan(4) = “0”<\/span><\/p>\n

If MyDigBit = True Then MyDataScan(4) = “1”<\/span><\/p>\n

 <\/p>\n

‘Read the current Time<\/span><\/p>\n

MyDataScan(0) = Convert.ToString(System.DateTime.Now)<\/span><\/p>\n

lblTime.Text = MyDataScan(0)<\/span><\/p>\n

 <\/p><\/blockquote>\n

In the above code, create an array called MyDataScan() to hold the collected data. Using Measurement Computing’s Universal Library functions, read from each of the 4 types of sensors: temperature, voltage, counter, and digital input (TTL). Also read the time.<\/span><\/p>\n

Note: preceding each library call, there is a small If-Then routine:<\/span><\/p>\n

If UlStat.Value <> MccDaq.ErrorInfo.ErrorCode.NoErrors Then<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0errhandler(UlStat)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Exit Sub<\/span><\/p>\n

End If<\/span><\/p><\/blockquote>\n

Each time a call is made to the Universal Library, an integer value is returned into UlStat. If UlStat equals zero, then the function executed correctly and the data is good. If UlStat is not equal to 0, then there was a problem executing the function, and the value of UlStat can be used to handle the error. If you were writing a more elaborate program, you would want to manage the returned error in your program so as to keep the program from using bad data or worse, crashing. More on that in a bit.<\/span><\/p>\n

Use the array to scale data if needed, and update all the meters, gauges, and labels.<\/span><\/p>\n

Next, we are going to write the data to our DataGridView. Here’s how:<\/span><\/p>\n

‘This goes to the datagrid<\/span><\/p>\n

If bFirstEntry = False Then<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Dim newrow As DataRow = dtData.NewRow()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0newrow(“Time”) = MyDataScan(0)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0newrow(“Temperature”) = MyDataScan(1).ToString()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0newrow(“Pressure”) = MyDataScan(2).ToString<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0newrow(“Tachometer”) = TachVal.ToString<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0newrow(“Interlock”) = MyDataScan(4)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0dtData.Rows.Add(newrow)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0bFirstEntry = True<\/span><\/p>\n

Else<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Dim drEditRow As DataRow<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drEditRow = dtData.NewRow()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drEditRow = dtData.Rows.Item(0)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drEditRow.BeginEdit()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drEditRow(“Time”) = DateTime.Now.ToString()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drEditRow(“Temperature”) = Format(MyDataScan(1), “##0.0#”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drEditRow(“Pressure”) = Format(MyDataScan(2), “##0.0#”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drEditRow(“Tachometer”) = Format(TachVal, “####”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drEditRow(“Interlock”) = MyDataScan(4)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drEditRow.EndEdit()<\/span><\/p>\n

End If<\/span><\/p>\n

 <\/p><\/blockquote>\n

We implement an If-Then-Else routine here because we need to add a new row to the grid. When the finished program runs, each time new data is collected, it is repeatedly written to the first row. We are not looking to collect and store data as it is received; we only want the one row of data. To make that work, we use the IF-Then-Else. The decision (IF) is based on ‘is this the first time in this timer loop?’ If it is, then we add a first row. If not, then just keep updating the same row. In the IF portion, we call NewRow, and in the Else portion we call BeginEdit () and EndEdit ().<\/span><\/p>\n

Now we will write the data out to our external database. Add the following code:<\/span><\/p>\n

Try ‘This goes out to the database<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0objConn.Open()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0‘Obtain a new Data Row object from the DataTable.<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drCurrent = tblTestData.NewRow()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drCurrent = tblTestData.Rows.Find(1)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drCurrent = tblTestData.Rows(0)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drCurrent.BeginEdit()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drCurrent(“Time”) = DateTime.Now.ToString()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drCurrent(“Temperature”) = MyDataScan(1).ToString()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drCurrent(“Pressure”) = Format(MyDataScan(2), “##0.0#”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drCurrent(“Tachometer”) = TachVal<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drCurrent(“Interlock”) = MyDataScan(4)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0drCurrent.EndEdit()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Dim objCommandBuilder As New OleDbCommandBuilder(daMFGData)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0objCommandBuilder.QuotePrefix = “[“<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0objCommandBuilder.QuoteSuffix = “]”<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Dim r As Integer = daMFGData.Update(dsNewScan, “TestData”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0objConn.Close()<\/span><\/p>\n

Catch ex As OleDbException<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Timer1.Enabled = False<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0objConn.Close()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0MsgBox(ex.Message.ToString(), MsgBoxStyle.Information, “Error Message”)<\/span><\/p>\n

End Try<\/span><\/p><\/blockquote>\n

Writing to the real database is almost the same as writing to the DataGridView. However, here we have to open the database connection, find the first row, use the OleDbCommandBuilder () (be sure to include the QuotePrefix and QuoteSuffix), update the table, and close the database connection.<\/span><\/p>\n

Now, for a little program management. Add our error handler subroutine. After the Timer1_Tick’s End sub, add the following:<\/span><\/p>\n

Public Sub errhandler(ByVal ulstat As MccDaq.ErrorInfo)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0‘Generic UL error handler<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Timer1.Enabled = False<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Try<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0objConn.Close()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Catch ex As Exception<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0End Try<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0MessageBox.Show(ulstat.Message, “Universal Library Error”, MessageBoxButtons.OK, MessageBoxIcon.Error)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0btnStartStop.Text = “Start”<\/span><\/p>\n

End Sub<\/span><\/p><\/blockquote>\n

 <\/p>\n

If there is a Universal Library error, stop the timer, close the database connection if it is open, display an error message stating the problem encountered, and reset the Start\/Stop button to display “Start”. In a more involved application, you might have a Case statement, handling the problem programmatically, or offering solutions either in a more verbose message telling the user what happened and how to resolve it.<\/span><\/p>\n

Add a graceful way to exit the program:<\/span><\/p>\n

From the Form view, regarding the MenuStrip1, click on File, and then double-click on Exit, and add the following code:<\/span><\/p>\n

Timer1.Enabled = False<\/span><\/p>\n

End<\/span><\/p><\/blockquote>\n

Because this is Windows, and there is always more than one way to do anything, go back to the Form view, double-click on the ‘End’ button, and paste the same syntax there.<\/span><\/p>\n

We are still missing a couple of items, but that is as far as we need to go for this section.<\/span><\/p>\n

You can now build and run this application. When you click “Start”, it will begin reading from the sensors connected to the USB-2408, update the screen, and log the data to the database. A word of caution: if you are expecting to open the database and look at the table hoping to see the data updating in real time, that won’t happen. What you will see on your screen is a snapshot in time, not real-time updating data. You can stop the application at any time, open the database and table, and see that the table has been updated.<\/span><\/p>\n

Creating an Application to View Data with VB.NET<\/b><\/h2>\n

Now, we will create the application to read the data back out of the database. It will be a mirror image of the collection application, but no data is collected here \u2014 it will just show what was collected and stored to the database. It will operate like dual-ported memory. This is all in preparation for distributing the two applications so as to have one application (DataCollectionToDatabase) on one computer, and the other app (DatabaseToDataDisplay) on another computer in a different part of the building.<\/span><\/p>\n

Again, launch Visual Basic, and start a new project. We will call it “DatabaseToDataDisplay.” Resize your form to 639, 358.<\/span><\/p>\n

Add a MenuStrip, DataGridView, Timer, OpenFileDialog, Thermometer, 2 AnalogMeters, an LED, 2 buttons, and 7 labels. Rearrange and resize the objects so that your form design looks like this:<\/span><\/p>\n

\"\"<\/span><\/p>\n

Change the following properties:\"\"<\/span><\/p>\n

Of all the labels, only 2 need to be renamed:<\/span><\/p>\n

The one under the thermometer: lblTempValue. The one to the right of Time: lblTime<\/span><\/p>\n

All labels should be set to Autosize = True<\/span><\/p>\n

From the Solution Explorer, right-click on Form1.vb, and select View Code. Above Public Class Form1, insert the following:<\/span><\/p>\n

Imports System.Data.OleDb<\/span><\/p>\n

Imports System.Runtime.InteropServices<\/span><\/p>\n

Imports System.IO<\/span><\/p><\/blockquote>\n

 <\/p>\n

Next, add the variable declarations:<\/span><\/p>\n

‘For database<\/span><\/p>\n

Dim sConnectionString As String<\/span><\/p>\n

Public objConn As New OleDbConnection()<\/span><\/p>\n

Dim ds As New DataSet()<\/span><\/p>\n

Dim da As OleDb.OleDbDataAdapter<\/span><\/p>\n

Dim sql As String<\/span><\/p><\/blockquote>\n

Open the External Database and Read in the Data<\/b><\/h2>\n

There is a lot less going on in this application, just about all of it in happening in the Timer, so open the Timer1_Tick() event, and paste in the following:<\/span><\/p>\n

Try ‘This goes out to the database<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0‘How to open an OLE DB database<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0sConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\Users\\Public\\Documents\\MCCGenericOdbc.mdb”\u00a0 ‘for oleDB<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0objConn = New OleDbConnection(sConnectionString)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0objConn.Open()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0‘Obtain a DataRow object from the DataTable.<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0da = New OleDb.OleDbDataAdapter(“SELECT * FROM TestData”, objConn)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0da.FillSchema(ds, SchemaType.Source, “TestData”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0da.Fill(ds, “TestData”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0objConn.Close()<\/span><\/p>\n

Catch ex As OleDbException<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Timer1.Enabled = False<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0objConn.Close()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0MsgBox(ex.Message.ToString(), MsgBoxStyle.Information, “Error Message”)<\/span><\/p>\n

End Try<\/span><\/p>\n

 <\/p>\n

Try<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Dim MyDataScan = ds.Tables(“TestData”).Rows(0)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0lblTime.Text = MyDataScan(1).ToString<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Thermometer1.TempValue = Convert.ToDouble(MyDataScan(2))<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0lblTempValue.Text = MyDataScan(2).ToString + “\u00b0C”<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0amPressure.Value = Convert.ToDouble(MyDataScan(3))<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0amTach.Value = Convert.ToDouble(MyDataScan(4) \/ 100)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Dim r As Boolean = Convert.ToBoolean(Val(MyDataScan(5)))<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Led1.Value = r<\/span><\/p>\n

Catch ex As OleDbException<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Timer1.Enabled = False<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0MsgBox(ex.Message.ToString(), MsgBoxStyle.Information, “Error Message”)<\/span><\/p>\n

End Try<\/span><\/p><\/blockquote>\n

 <\/p>\n

As with the previous app, we want to open the database. But now we want to obtain existing data from the TestData table. When we read in the entire table, we use the Fill Schema and Fill commands. Read in the first row from the table and parse it (Dim MyDataScan = ds.Tables(“TestData”). Rows(0)). The data will automatically be placed into the array, ‘MyDataScan()’ for dissemination to the various labels and objects in this application. All the data is stored as strings, so there are data conversions going on in the code above.<\/span><\/p>\n

The app could come up running, but for now let’s use a Start\/Stop button, and so from the Form View, double-click on the “Start” button, and add the following to the btnStartStop_Click() event:<\/span><\/p>\n

If btnStartStop.Text = “Start” Then<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0btnStartStop.Text = “Stop”<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Timer1.Enabled = True<\/span><\/p>\n

Else<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0btnStartStop.Text = “Start”<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Timer1.Enabled = False<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0objConn.Close()<\/span><\/p>\n

End If<\/span><\/p><\/blockquote>\n

The If\/Then\/Else above alternates the Text property of the button between ‘Start’ and ‘Stop’, but when the IF condition is true, we also enable or start the timer. When the IF condition is false, we stop the timer and close the link to the database.<\/span><\/p>\n

Add a graceful way to exit the program:<\/span><\/p>\n

From the Form view, regarding the MenuStrip1, click on File, and then double-click on Exit, and add the following code:<\/span><\/p>\n

Timer1.Enabled = False<\/span><\/p>\n

End<\/span><\/p><\/blockquote>\n

 <\/p>\n

Because this is Windows, and there is always more than one way to do anything, go back to the Form view, double-click on the End button, and paste the same syntax there.<\/span><\/p>\n

We are still missing a couple of items, but that is as far as we need to go for this section.<\/span><\/p>\n

The two applications are now complete. Let’s run both of them from within the Visual Basic.NET environments. Here is what they look like, running in concert:<\/span><\/p>\n

\"\"
both apps running side by side<\/figcaption><\/figure>\n

Despite the different types of meters used in the two applications, you can see the two applications are sharing the data. What you can’t see is that the top app is sending data to the table “TestData” of the database “MccGenericOdbc.mdb”, and the bottom app is reading data from the table “TestData” of the database “MccGenericOdbc.mdb”. Since the two apps are running their own timers, data reads and writes are happening ‘on demand.’ For these applications, the data is one second delayed, which is why the data on the two forms is not exactly the same. There will always be some delay due to timers, Windows OS, and network traffic.<\/span><\/p>\n

Distributing the Applications to View the Data Remotely<\/b><\/h2>\n

The goal of this article series is to demonstrate how to create a data acquisition system on one system, and view the collected data in near real time from another. This can be accomplished by the use of a database and two VB.NET applications.<\/span><\/p>\n

Up until now, all three components have been on one computer. Here, we will deploy this system onto three computers: one for the database, one to collect the data, and one to view the data. If you have only two computers, you can still make this work by putting the database and data collection program on the same system.<\/span><\/p>\n

We will need to make a couple of tweaks to our applications. Nothing major, just to make it easier to find the database. Since the apps are no longer on the same PC, we need a way to have the app find and remember where the database is located. Sure, you could hard-code it, but what if you move the database or one or both apps to other locations? Or, you need to add another computer as a data collection point, or another person needs to see the collected data. Here’s one way to solve the problem. We will add code to create a configuration file that is automatically loaded at startup. If one is not available, click on a menu item so you can tell the program where the database is, then store that location so the next time you run the program, it will find it upon start up.<\/span><\/p>\n

Editing the DataCollectionToDatabase App<\/b><\/h2>\n

Starting with the collection app, open DataCollectionToDatabase, go to the Code view of Form1.vb, and scroll to the top. Below Dim drCurrent As DataRow, add the following:<\/span><\/p>\n

Dim DatabaseFileNameAndPath As String<\/span><\/p>\n

Dim Filename As String<\/span><\/p>\n

Dim SettingsFileOut As IO.StreamWriter<\/span><\/p>\n

Dim SettingsFileIn As IO.StreamReader<\/span><\/p><\/blockquote>\n

 <\/p>\n

And, in the Form1_Load() event, below CreateDataBase() Add the following:<\/span><\/p>\n

‘Get file path to user’s “MyDocuments\\OledbExample\\”<\/span><\/p>\n

Dim pathstring As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments<\/span><\/p>\n

pathstring = pathstring + “\\MeasurementComputing\\OledbExample\\”<\/span><\/p>\n

System.IO.Directory.CreateDirectory(pathstring)<\/span><\/p>\n

 <\/p>\n

‘Create a file.<\/span><\/p>\n

Filename = “”<\/span><\/p>\n

Filename = pathstring + “Database.CFG”<\/span><\/p>\n

 <\/p>\n

‘Read the data from the file and parse it.<\/span><\/p>\n

Try<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0SettingsFileIn = New StreamReader(Filename)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0DatabaseFileNameAndPath = SettingsFileIn.ReadLine()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0SettingsFileIn.Close()<\/span><\/p>\n

Catch ex As Exception<\/span><\/p>\n

End Try<\/span><\/p>\n

 <\/p><\/blockquote>\n

What this does: If there is a file named Database.CFG, located in your computer’s MyDocuments\\Measurement Computing\\OledExample folder, use the path located in that file. If the file does not exist, do nothing.<\/span><\/p>\n

From the Solution Explorer, right-click on Form1.vb, and select “View Designer.” Double-click on the “Select Database” menu item to open the SelectDatabaseToolStripMenuItem_Click() event, and add the following code:<\/span><\/p>\n

OpenFileDialog1.Filter = “MSACCESS (*.mdb)|*.mdb|All Files (*.*)|*.*”<\/span><\/p>\n

OpenFileDialog1.FileName = DatabaseFileNameAndPath<\/span><\/p>\n

OpenFileDialog1.ShowDialog(Me)<\/span><\/p>\n

DatabaseFileNameAndPath = OpenFileDialog1.FileName<\/span><\/p>\n

If DatabaseFileNameAndPath = “” Then<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0MsgBox(“No file selected or bad file name selected.”, MsgBoxStyle.OkOnly, “Bad file name”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Exit Sub<\/span><\/p>\n

End If<\/span><\/p><\/blockquote>\n

‘Create a file path to user’s “MyDocuments\\OledbExample\\”<\/span><\/p>\n

Dim pathstring As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments<\/span><\/p>\n

pathstring = pathstring + “\\MeasurementComputing\\OledbExample\\”<\/span><\/p>\n

System.IO.Directory.CreateDirectory(pathstring)<\/span><\/p><\/blockquote>\n

‘Create the file.<\/span><\/p>\n

Filename = pathstring + “Database.CFG”<\/span><\/p>\n

SettingsFileOut = New StreamWriter(Filename)<\/span><\/p><\/blockquote>\n

 <\/p>\n

‘Write the DATABASE filename and path to the .cfg file<\/span><\/p>\n

SettingsFileOut.WriteLine(DatabaseFileNameAndPath)<\/span><\/p>\n

SettingsFileOut.Close()<\/span><\/p><\/blockquote>\n

We are using 2 string variables here, and they can be confusing:<\/span><\/p>\n

DatabaseFileNameAndPath is a string containing the filename and path to the database itself. Filename is a string containing the filename and path to DatabaseFileNameAndPath.<\/span><\/p>\n

When this event is selected, the Open File dialog box appears with filters turned on to show just Microsoft Access files (with the extension of .mdb) or all files. The user navigates to the database, selects it, and clicks on OK. The path and file name are returned in the string DatabaseFilenameAndPath:<\/span><\/p>\n

DatabaseFileNameAndPath = OpenFileDialog1.FileName<\/span><\/p><\/blockquote>\n

We want to store that path and file name somewhere locally where the app can find it the next time the app starts (that’s what we added at the end of the Form1_Load() event). As stated above, we want to put the string in a file Database.CFG, and place the file in MyDocuments\\MeasurementComputing\\OledbExample.<\/span><\/p>\n

Editing the DatabaseToDataDisplay App<\/b><\/h2>\n

Now that we have the first app modified, let’s modify the monitoring application. These edits are similar to DataCollectionToDatabase. I’ll just provide the edits.<\/span><\/p>\n

Open the application. From the Solution Explorer, right-click on Form1.vb, and select “View Code.”<\/span><\/p>\n

Scroll to the top. Just below Dim sql As String, add the following:<\/span><\/p>\n

Dim DatabaseFileNameAndPath As String<\/span><\/p>\n

Dim Filename As String<\/span><\/p>\n

Dim SettingsFileOut As IO.StreamWriter<\/span><\/p>\n

Dim SettingsFileIn As IO.StreamReader<\/span><\/p><\/blockquote>\n

In the Timer1_Tick() event, comment out this line:<\/span><\/p>\n

sConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\Users\\Public\\Documents\\MCCGenericOdbc.mdb” \u00a0 ‘for oleDB<\/span><\/p><\/blockquote>\n

And add:<\/span><\/p>\n

sConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & DatabaseFileNameAndPath<\/span><\/p>\n

 <\/p>\n

From the Solution Explorer, right-click Form1.vb, select “View Designer.” Double click on Form1 to open the Form1_Load() event, and add the following:<\/span><\/p>\n

‘Get file path to user’s “MyDocuments\\OledbExample\\”<\/span><\/p>\n

Dim pathstring As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments<\/span><\/p>\n

pathstring = pathstring + “\\MeasurementComputing\\OledbExample\\”<\/span><\/p>\n

System.IO.Directory.CreateDirectory(pathstring)<\/span><\/p>\n

 <\/p>\n

‘Create a file.<\/span><\/p>\n

Filename = pathstring + “Database.CFG”<\/span><\/p>\n

 <\/p>\n

‘Read the data from the file and parse it.<\/span><\/p>\n

Try<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0SettingsFileIn = New StreamReader(Filename)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0DatabaseFileNameAndPath = SettingsFileIn.ReadLine()<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0SettingsFileIn.Close()<\/span><\/p>\n

Catch ex As Exception<\/span><\/p>\n

End Try<\/span><\/p>\n

 <\/p><\/blockquote>\n

Return to the Form1 Design view, double-click on the “Select database” menu item, and add the following to the generated event:<\/span><\/p>\n

OpenFileDialog1.Filter = “MSACCESS (*.mdb)|*.mdb|All Files (*.*)|*.*”<\/span><\/p>\n

OpenFileDialog1.FileName = DatabaseFileNameAndPath<\/span><\/p>\n

OpenFileDialog1.ShowDialog(Me)<\/span><\/p>\n

DatabaseFileNameAndPath = OpenFileDialog1.FileName<\/span><\/p>\n

If DatabaseFileNameAndPath = “” Then<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0MsgBox(“No file selected or bad file name selected.”, MsgBoxStyle.OkOnly, “Bad file name”)<\/span><\/p>\n

\u00a0\u00a0\u00a0\u00a0Exit Sub<\/span><\/p>\n

End If<\/span><\/p>\n

 <\/p>\n

‘Create a file path to user’s “MyDocuments\\OledbExample\\”<\/span><\/p>\n

Dim pathstring As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments<\/span><\/p>\n

pathstring = pathstring + “\\MeasurementComputing\\OledbExample\\”<\/span><\/p>\n

System.IO.Directory.CreateDirectory(pathstring)<\/span><\/p>\n

 <\/p>\n

‘create the file.<\/span><\/p>\n

Filename = pathstring + “Database.CFG”<\/span><\/p>\n

SettingsFileOut = New StreamWriter(Filename)<\/span><\/p>\n

 <\/p>\n

‘Write the DATABASE filename and path to the .cfg file<\/span><\/p>\n

SettingsFileOut.WriteLine(DatabaseFileNameAndPath)<\/span><\/p>\n

SettingsFileOut.Close()<\/span><\/p><\/blockquote>\n

Now, you can compile and create deployment projects for these applications so that they may be distributed. Place the database on a centrally accessible computer. If desired, you can do this distributed system on two computers by having both the DataCollectionToDatabase application and MccGenericOdbc.mdb on one computer, and the other computer running the DatabaseToDataDisplay app.<\/span><\/p>\n

Make sure all computers are mapped to drives containing the database. <\/span>Completed application can be found HERE<\/span><\/a>.<\/span><\/p>\n

Using Additional Software to View Data Remotely<\/b><\/h2>\n

Now that we’ve created a working distributed data collection and display system (see the sections above), let’s briefly explore other software packages available to access the database for both reading and writing. Here are two software packages you can use to read the data from the database (of course, they can write to it as well, but that is not part of this article).<\/span><\/p>\n

DASYLab<\/b><\/h2>\n

We can use DASYLab to retrieve data from our MS ACCESS database. DASYLab is a graphical software package that includes ODBC support. With the help of CJ Butler, we were able to access the local database here in Massachusetts from her office in New Hampshire (about 100 miles!) using her VPN connection to an MCC server.<\/span><\/p>\n

All she needed to do was map the Drive to her local computer, run the ODBC Administrator on her local computer, and create the attached worksheet.<\/span><\/p>\n

\"\"
Worksheet<\/figcaption><\/figure>\n
\"\"
DASYLab Display<\/figcaption><\/figure>\n

Beyond DASYLab, other software packages, including LabVIEW, can also connect to and read from the same database via ODBC, giving you additional flexibility in how you access and visualize your collected data.<\/span><\/p>\n

This concludes our series on building a real-time distributed data acquisition system. You have now seen how to create the database, collect and store data, display it in near real time, distribute the applications across multiple computers, and access the same data from alternative ODBC-compatible software. We hope this project gives you a solid foundation for developing your own distributed data acquisition and monitoring applications.<\/span><\/p>\n

0<\/span><\/a><\/div><\/div>
Be the 1st to vote.<\/div><\/div>
<\/div>","protected":false},"excerpt":{"rendered":"

In today’s manufacturing world, companies are trying to do more with less staffing by maximizing throughput or looking for the critical status of a production line without interrupting the focus … <\/p>\n","protected":false},"author":59,"featured_media":29342,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_post_was_ever_published":false},"categories":[4325,4361,4327,1563],"tags":[4359,4358],"ppma_author":[4507],"class_list":["post-29294","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-debug-validation-test","category-data-acquisition","category-projects","category-guide","tag-daq","tag-mcc"],"jetpack_featured_media_url":"https:\/\/digilent.com\/blog\/wp-content\/uploads\/2022\/08\/2022-ReadingGeneratedData2-part2-580.png","jetpack_sharing_enabled":true,"authors":[{"term_id":4507,"user_id":59,"is_guest":0,"slug":"jgreenberg","display_name":"Jeff Greenberg","avatar_url":"https:\/\/secure.gravatar.com\/avatar\/4733b4dee4cf309719f59882b387a0c9fcd17b506ca0858a86a1ecd2c7ed324a?s=96&d=mm&r=g","author_category":"","user_url":"","last_name":"Greenberg","last_name_2":"","first_name":"Jeff","first_name_2":"","job_title":"","description":""}],"post_mailing_queue_ids":[],"_links":{"self":[{"href":"https:\/\/digilent.com\/blog\/wp-json\/wp\/v2\/posts\/29294","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/digilent.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/digilent.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/digilent.com\/blog\/wp-json\/wp\/v2\/users\/59"}],"replies":[{"embeddable":true,"href":"https:\/\/digilent.com\/blog\/wp-json\/wp\/v2\/comments?post=29294"}],"version-history":[{"count":2,"href":"https:\/\/digilent.com\/blog\/wp-json\/wp\/v2\/posts\/29294\/revisions"}],"predecessor-version":[{"id":32600,"href":"https:\/\/digilent.com\/blog\/wp-json\/wp\/v2\/posts\/29294\/revisions\/32600"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/digilent.com\/blog\/wp-json\/wp\/v2\/media\/29342"}],"wp:attachment":[{"href":"https:\/\/digilent.com\/blog\/wp-json\/wp\/v2\/media?parent=29294"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/digilent.com\/blog\/wp-json\/wp\/v2\/categories?post=29294"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/digilent.com\/blog\/wp-json\/wp\/v2\/tags?post=29294"},{"taxonomy":"author","embeddable":true,"href":"https:\/\/digilent.com\/blog\/wp-json\/wp\/v2\/ppma_author?post=29294"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}